AQD;T;1zXp concen.pas(dprogresozXg FormaProgreso25cdchecazXgleerutas5hcdSysUtilskg StrToCurrߎg StrToDateTimeT> g DeleteFileۛf%g CierraMensajeQcdDBTablesc&fTTableDgTTable.SetRange#gTTable.CancelRange#cdSysInitkcdSystemkf AnsiStringHDfStringHDfChar^y^g AssignFileg@Assign/PgRewriteg @RewritFileQgWriteg @WriteRecQg CloseFileg@CloseQg @LStrAddRefQg@LStrCatQg@_IOTestQg @LStrToStringQg @PStrNCpyQg@LStrClr'@g @LStrArrayClrQg@HandleFinallyQfCurrencyhg @LStrLAsgQfReal{OfInteger`LgLengthg@LStrLenO:g @LStrFromCharpg@LStrFromStringR!g @Ext2RealQg @Real2ExtQfBooleanaUgTruejQgFalsejQg@LStrCmpQfLongint`LgResetg @ResetFileQgReadg@ReadRecQgEofg@EofFileQgFileSizeg @FileSizeQgFilePosg@FilePosQgSeekg@SeekQgBreakg@PStrCmpQgTruncg@TRUNCQceGaugesc&gTGauge.SetProgress#ceFormsc&gTCustomForm.Show#gTCustomForm.Close#ceDbc&gTDataSet.FieldByName#gTDataSet.First#g TDataSet.Next#c .1f( poneetiquetast' ! campodeordenf! campodenombref! concentrar1f! concentrar2fH! concentrar3f@! concentrar4f8! concentrar5f0! concentrar6f(! concentrar7f ! concentrar8f!crf*eti arch2f Etiquetasfc( operacion1 !val1f!opf!val2f Resultf signoc(formula !Tablaf!formuf Resultf i j cuenta auxf parametrof sumaf c(periodo! campofechaf!fechainif!fechafinf Resultc(cumple!v1f!ope!v2f Resultfc(concentraarchivoA* registros archf | arch2f 0 anteriorf6 siguientef< clavef nombref nreg cn1f cn2f cn3f cn4f cn5f cn6f cn7f cn8f c( ordenalista!* registros" archf$ arch2f$h regauxf"n dato1f"t dato2f"z nregc( concentrarNY!!TablaConcentrar!rango1f!rango2f! campofechaf!!fechainif!fechafinf! campodeordenfx! campodenombrefp! concentrar1fh! concentrar2f`! concentrar3fX! concentrar4fP! concentrar5fH! concentrar6f@! concentrar7f8! concentrar8f0!crf(!op& !vrf!tipof* registros&*eti( archf* arch2F, datof& etiquetasF( valorf fechavalida intervalof intervalo2f ic(concentrarcadenasNY!TablaConcentrar!rango1f!rango2f! campofechaf!!fechainif!fechafinf! campodeordenfx! campodenombrefp! concentrar1fh! concentrar2f`! concentrar3fX! concentrar4fP! concentrar5fH! concentrar6f@! concentrar7f8! concentrar8f0!crf(!op& !vrf!tipof* registros.*eti0 archf2 arch2F4 datof. etiquetasF0 valorf fechavalida intervalof intervalo2f c( FinalizationQ\! c(concen!cD@M,orden6,nombre64,c16h,c269,c36,c46 ,c56q,c66,c76A,c86cO1L8:M,orden<,nombre>,c1 ),c2 A,c3 Y,c4 q,c5 ,c6 ,c7 ,c8 cO1M),orden@,nombreB,c1 ),c2 A,c3 Y,c4 q,c5 ,c6 ,c7 ,c8 cO1"M,ordenD,nombreF,c1 ),c2 A,c3 Y,c4 q,c5 ,c6 ,c7 ,c8 cM,ordenH,c1J4,c2Jh,c3J9,c4J,c5J ,c6Jq,c7J,c8JAcO1&O1(MI,ordenL,nombreN,c1P),c2P,c3Pq,c4P,c5P,c6P],c7P,c8PcM,ordenR,c1T4,c2Th,c3T9,c4T,c5T ,c6Tq,c7T,c8TAcO1.O10K4VXDK>ZXK\XK^XK`XKbXKdXKfXK4hXK4jXKlXKnXKRpXK4rXK4tXDv2BXDv<DvDvDvDvDvDvDv2Dv2DvDvDvPDv2Dv2DlчUĠS3ۉMUEEEEE$E EEEEE E3Uhd0d UUUU$U U&U@UZUtU 3ZYYdhEE[] \tempo\etique.tmpUMUEEEE3Uh"d0d }u E8}u E8E,*ttY,tt,t,E}䛋Em-<}kE}䛋Em H}FE}䛋Em}'E}䛋Em}3EE3ZYYdh)Em]0,eX?@FUĜSVW3ɉMUEE3Uhd0d EE|r@EE\8&u9U+ƍFEUEGMuuE>%uh~|#G^ECOuUEQHFMuPPZY}䛍&m-0}-0mɍE3ZYYdh EE؍E_^[],eX?USMUEEEE3Uhd0d EtaEtR}tL}tF}t@E]웋E]w E]䛋E]r33ZYYdhE[]fUSMډEEE3Uhd0d 3Ã=t!t^t't>t9tfhEUuEUEOEUsEӋ88EUE۽,ۭ,EE۽,ۭ,EE۽,ۭ,EE۽,ۭ,EE۽,ۭ,EE۽,ۭ,EE۽,ۭ,EE۽,ۭ,EEEEEEEEE,U,Ʊd,U,FedPZ;t֍0EEEEEEEEEESe03ZYYdh8E_^[]\tempo\orden.tmp\tempo\final.tmpUtSVW3tt3Uhd0d tttttthhzh33ҋ~0׋ǍzwCtҋǍzdGedDJPV\bhn;}[ӋnӋ׋VWn>f_^~`NnJ׋VWn>f_^t׋hf*3f3f3f3f3f3f3f3f׋׋׋h3ZYYdht_^[]\tempo\orden.tmp\tempo\concen.tmpUxSVW3ۉx]MUEEEHEDE@E<E8E4E0E,E(E$E EEEE E3Uhd0d 3EfE썅Ƌ}t@}t:Eƅ PjEƅ 3ɋƋۅ=E}tUUQH}Ht7EH(t(UHQHM@UD؋M UEF>U<QHu VW,_^:U<QHDZd}8t=U8QHGedGe}4t;E48&uU4+U4R@3f}0t;E08&uU0+U0R@3f},t;E,8&uU,+U,R@3f}(t;E(8&uU(+U(R@3f}$t;E$8&uU$+U$R@3f} t;E 8&tU +U R@3f}t;E8&uU+UR@3f}t;E8&uU+UR@3f׍E۽|Eۭ|EEۃС~Yf*3f3f3f3f3f3f3f3f׍3E<u EHTTPxxxZaT3ZYYdhxEEE_^[]Dpausa\tempo\concen.tmpBfN.A.CD\tempo\final.tmpU`SVW3ۉ`]MUEEEHEDE@E<E8E4E0E,E(E$E EEEE E3Uhud0d 3EfE썅Ƌ}t@}t:E|ƅ |PjEtƅx t3ɋƋpۅp=E}tUUQH}Ht7EHt(UHQHM@UD؋M UE6.U<QHu VW_^:U<QHppDZd}8t=U8QHppGedGe}4t@U4QHpp(Ƈ}0t@U0QHpp(Ƈ},t@U,QHpp(Ƈ}(tHE(8&uGU(QHppE(ƇE}$t@U$QHppn(Ƈn} t@U QHpp(Ƈ}t@UQHpp(Ƈ}t@UQHpp(Ƈ׍E۽dEۭdEEۃС~Yf*ƇƇƇƇEƇnƇƇƇ׍3EEP```Za3ZYYdh|`EEE_^[]D\tempo\concen.tmpBfN.A.CD\tempo\final.tmpU3Uh%d0d 3ZYYdh,]Ã-mE ><<<<<<<<<<<" >". 2 @&B&D&B&D&B&D&B&D&B&D&B&D&B&D&B&D&B&D&B&D"6 @: @FHH JX&<<<( N ND       &  @H JRZ<FVZB6DF$X>>F>X>BB D2Z0Z0Z*Z \ HFF J^0(<<< f f8 >H J8&<<hf2f2f2f>H J`" >. >".l @ 2 @p @ZZ^\^\^\^\^\^\^\^\p @Zf^$^ \^$^ \^$^ \^$^ \^$^ \^$^ \^$^ \^$^ \^\^\^\^\^\^\^\^\&BD&B Dx @| @$6 @^\^\^\^\^\^\^\^\ZZt @: @: @FH J%H%"% >.% >".2 @ l @,p @ @x @p @t @&D D^\^\^\^\^\^\^\^\x @ @p @ @6 @4| @x @&p @| @ @6 @4t @6 @t @96 @6 @6 @: @: @%F JER<<<<<<<<<<<<<<<<<<E E  (E >". 2 @ 8E\*0E f8 46E BBD BB D<\ \R\ \R\ \R\ \R\ \R\ \R\ \R\ \<6 @^^ \^ *Q6 @: @  E f% E f"E >E >$E >: @E >". 2 @: @EFFHHH JR<<<<<<<<<<<<<<<<<<4 >". 2 @ 8\*0 f8 46 BBD BB D,BB&D2BB&D2BB&DBBB&D2BB&D2BB&D2BB&D2BB&D,6 @^^ \^ *6 @: @   f f" > >$ >: @ >". 2 @: @FFHHH JAAA JE EU,X*LLLLLLLLLL, Lj&& *NJ>>Z@~ ,\< " 8x Z (l`pL(ZF2222R tPX"*&&&&&&&0BTTTTTTT ^&&&&&&&&DF<$&&&&&&&&Z(z"\PX"4,$  ,,,,,,,, $&$$6& b0  `8% X*$tH $*P<<t z .8 .8 .8 .8 .8 .8 .8 .8$N` $ ( &L  X*2%X*$tH $*P<<t z        $N`Y $ (&L  X*  U"&(5.]0uX @2@82` p2Ԙ -q 82@2Z Qp%@1pAAE!p2I%]QIap2%5!5u55A E a