AQDiV;B1zXp consulta.pasP)r consulta.DFM3)dGaugesc&fTGauge,'g.TGaugeGgTGauge.SetProgress#cdDialogsc&f TOpenDialog=Şg .TOpenDialogbgTOpenDialog.GetFileName#cdchecazXg leecamposScdconverzXg convierteKcdDBCtrlsc&cdButtonsc&f TSpeedButton\g .TSpeedButtonװ cdDBTablesc&fTTableDg.TTabletwgTTable.FindNearest#gTTable.SetRange#gTTable.CancelRange#gTDBDataSet.SetDatabaseName#cdDbc&f TDataSourcev g .TDataSourceOjg TDataSet.Open#gTDataSet.FieldByName#gTDataSet.GetField#gTDataSet.First#g TDataSet.Next#gTDataSet.Close#cdTabnotbkc&cdComCtrlsc&cdExtCtrlsc&fTBevelM#-fTShape fTPanel02ag.TBevelDg.TShape佼g.TPanel R%cdStdCtrlsc&fTEdit+b.fTLabel>fTListBox f TGroupBoxy5 fTMemo+Af TComboBoxf TRadioButtong.TEdit˃g.TLabel_vg .TListBoxxAYg .TGroupBoxJVg.TMemoag .TComboBoxhg .TRadioButtonɗ6SgTCustomListBox.Clear#gTCustomListBox.SetItemHeight#gTCustomListBox.GetItemIndex#cdGridsc&f TStringGridOg .TStringGridgTCustomGrid.SetRowCount#gTStringGrid.SetCells#gTStringGrid.GetCells#gTCustomGrid.SetColWidths#cddialogoszXgMuestraMensaje>f%cdFormsc&fTFormH)f TCloseActiong.TForm!gTCustomForm.AlignControls#gTCustomForm.CreateParams#gTCustomForm.CreateWindowHandle#gTCustomForm.CreateWnd#gTCustomForm.DefaultHandler#gTCustomForm.DefineProperties#gTCustomForm.DestroyWindowHandle#gTCustomForm.GetClientRect#gTCustomForm.Loaded#gTCustomForm.Notification#gTCustomForm.PaintWindow#gTCustomForm.ReadState#gTCustomForm.SetParent#gTCustomForm.ValidateRename#gTCustomForm.WndProc#gTCustomForm.Create#gTCustomForm.Destroy#gTCustomForm.SetFocus#gTCustomForm.WantChildKey#gTCustomForm.ShowModal#gTCustomForm.Close#cdControlsc&f TMouseButton|gTWinControl.CreateHandle#gTWinControl.DestroyWnd#gTWinControl.GetClientOrigin#gTWinControl.GetDeviceContext#gTWinControl.ShowControl#gTWinControl.Invalidate#gTWinControl.Repaint#gTWinControl.SetBounds#gTWinControl.Update#gTControl.GetDragImages#gTControl.SetDragMode#gTControl.SetName#gTControl.GetText#gTControl.SetText#gTControl.SetVisible#gTControl.SetEnabled#gTWinControl.GetHandle#cdGraphicsc&cdClassesc&f TShiftStateYgTComponent.WriteState#gTComponent.SafeCallException#gTPersistent.AssignTo#gTPersistent.Assign#cdSysUtilskg FileExistsۛ cdMessageskg WM_SYSCOMMAND̫6cdWindowskgReleaseCaptureB Pg SendMessagehkcdSysInitkcdSystemkfTObject!fWord@fInteger`LgTObject.NewInstance#gTObject.FreeInstance#fStringHDf AnsiStringHDg AssignFileg@Assign/PgRewriteg @RewritFileQgResetg @ResetFileQgFileSizeg @FileSizeQgReadg@ReadRecQg CloseFileg@CloseQg@LStrCatQg@_IOTestQg@LStrClr'@g@HandleFinallyQfTextFile:fReal{OfBooleanaUfChar^y^gValg@ValLongQgFalsejQgTruejQg@ValExtQgLengthg@LStrLenO:gOrdg @LStrAddRefQg@LStrCmpQg @LStrArrayClrQg @LStrToStringQg @PStrNCpyQg@AStrCmpQg @LStrLAsgQfLongint`Lg @RewritText igWriteg@Write0LStringQg@Flush igWritelng@WriteLnQg @Write0StringQgTruncg@LStrFromStringR!g@PStrCpyQg @PStrNCatQg@TRUNCQceantgrazXgFormaAnteriorGrafica\McegraficaszXg FormaGraficasgejecutaQc&.TFormaConsultaM*TFormaConsultatkD@* ArchivoLineasDPB FormaConsulta]@A nn[f.E ncondn[f.E .1fD( filtrabaseFc(actualizaarchivoaF*datosH datfHE dat2FH archfJ arch2fJ i.c(LimpiaListaCamposF i. j. c(limpiacondicionesF i. j. c(leearchivovistaF*datosL datFL archFN i.c( concentraF i. j. codigo. numcampo. valorFP archF4 arch2F4 num6 evaluar8c(comparaq8!valorf2!tipodatof2 Result8 tip. codigof. numi. numFf6 cadauxFR ultimo:c(leearchivocamposi'F!inicio.!fin. contador. i.c( iniciabase"Fc(calculaparametros)Fc(tipoq.!valorf2 Result. numi. codigo. numf6 cadauxF2c( restriccion=8!valorf2!ncond. Result8 tip. num. codigo. cam. condicionf8 campofT cadauxfV caso:c( generareporteqF i< j< codigof< tamodatosf< cuentaf< valorfXj archf4 numf6 evaluarf8c(camposmF i.c( operadoresqFc(TFormaConsulta.CondicionesClick#F!Self@!Sender*c("TFormaConsulta.ListaOpcionDblClick# F!Self@!Sender*c(TFormaConsulta.EjecutarClick#aF!Self@!Sender*c(TFormaConsulta.FormActivate#F!Self@ !Sender* i. j.c( TFormaConsulta.SpeedButton2Click#F!Self@!Sender*c(TFormaConsulta.FormClose#F!Self@!Sender*"Action$c(TFormaConsulta.CondicionesKeyUp#F!Self@!Sender*"Key,!Shift&( letrafZc(TFormaConsulta.FormCreate#AF!Self@!Sender*c( TFormaConsulta.SpeedButton7Click#F!Self@ !Sender** datoscampo\ datF\ archF^ i. j.c(TFormaConsulta.ConcentrarClick#F!Self@!Sender*c(TFormaConsulta.ArchivoChange#8F!Self@!Sender*c(TFormaConsulta.Panel4Click# F!Self@!Sender*c(TFormaConsulta.Panel3MouseDown#PF!Self@!Sender*!Button&!Shift&( !X&.!Y&.c(TFormaConsulta.Label4MouseDown#PF!Self@!Sender*!Button&!Shift&( !X&.!Y&.c( FinalizationQ\! Fc(consulta!FcG@FR" @v, TablaConsultaq, RutaCampos,numcampo,Destino,Fuente1 , TipoVista, AbreArchivo, AreaClaves,ListaCondiciones , ListaCampos , ReporteDe,Archi!, Descripcion1,ArchivoA,Bevel1 Q,Dea,Label1q,Label2,Hasta, Concentrar,Detallar,Bevel2 , Condiciones ,Label5,Bevel3 , ListaOpcion ,Ejecutar , SpeedButton2! ,Shape11 ,Panel3A ,Bevel20 Q ,Bevel21 a ,Bevel22 q ,Panel4 ,Label3 ,Label4 ,Avance -CondicionesClickU-ListaOpcionDblClicka- EjecutarClickm- FormActivatey-SpeedButton2Click- FormClose-CondicionesKeyUp- FormCreate-SpeedButton7Click-ConcentrarClick- ArchivoChange- Panel4Click-Panel3MouseDown-Label4MouseDown-cM ,linea`cDD@M%,archivob,descripdzcO1HMY,archivof,descriphzcO1LKjlKnlKplKrlKtlKvlM!,campox, descripcionz,tipo|l,longitud.cO1\K~lKzlKlKzlKlDBlDDDDDKlKRlKlDDxDDxDDDDDPDlY@p%( TablaConsulta RutaCamposnumcampoDestinoFuente1 TipoVista AbreArchivo AreaClavesListaCondiciones ListaCampos ReporteDeArchi  Descripcion Archivo Bevel1DeLabel1 Label2$Hasta( Concentrar, Detallar0 Bevel24 Condiciones8Label5< Bevel3@ ListaOpcionD EjecutarH SpeedButton2L Shape1PPanel3T Bevel20X Bevel21\ Bevel22`Panel4dLabel3hLabel4lAvanceCondicionesClickListaOpcionDblClick EjecutarClick FormActivateSpeedButton2Click FormCloseCondicionesKeyUp FormCreateSpeedButton7ClickConcentrarClick ArchivoChange Panel4ClickPanel3MouseDownLabel4MouseDownTFormaConsultaTFormaConsulta@;consultaUĨS33Uh@d0d TK|CEKu獅3ZYYdhG[]2SVWUX~;(|C3jϋFKuGMu]_^[SVWUX~=(~j΋FKuGMuȡ4X~=4(~j4΋FKuGMu]_^[Uj3Uhd0d UEt;UU  3ZYYdhEY]El Archivo No ExisteUSVUEEE3Uhd0d EuE0uE@uEPuNt Nt!Nt9Nt__UE}t3JFUE؃}t3/+EUDЀ/v :s3EP4κUE3Ã> <Hfk Yt HZ EPκElu3ۍEPκEEHtHHWH uEEPκURDE;EK EP4κE؋E;] ET }u ExuQEPκUR@ݝEܝrEK EP4κE۽Eۭ E } uQEPκUR<ݝEܝrEK1 EP4κEݝEܝ E EP4κUE E EPκElu3ۍEPκEEHtHHWH; uEEPκURDE;|EK EP4κE؋E; E }u ExuQEPκUR@ݝEܝwEK< EP4κE۽EۭE}uQEPκUR<ݝEܝwEKEP4κEݝEܝHE?EP4κUEE EPκElu3ۍEPκEEHtHHWHuEEPκURDE;uEKBEP4κE؋E; E}u ExuQEPκUR@ݝEܝuEKEP4κE۽EۭQEH}>uQEPκUR<ݝEܝuEKEP4κEݝEܝEEP4κUEkEbEPκElu3ۍEPκEEHtHHjH}u ExuEEPκURDE;~EKEP4κE؋E;REI}u ExuQEPκUR@ݝEܝsEKEP4κE۽EۭE}uQEPκUR<ݝEܝsEK&EP4κEݝEܝEEP4κUEEEPκElu3ۍEPκEEHtHHjH 0}u ExKEPκURD؋E;} EEP4κE؋E;E}u ExuQEPκUR@ݝEܝvEKEP4κE۽EۭE}uQEPκUR<ݝEܝvEKtoEP4κEݝEܝv2E,EP4κUEvE]3ZYYdhSEE_^[]>=<=10USVW3|3Uhd0d ;}QӋ8W ;|3ҍ3JS8W H;|3ҍƅ 3ЋQH$ƅ 3ЋQH$$ƅ Pjƅ 3El33EfEEP˺tY}tJP˺QHu3ECMy}3^Ӌ8W QHj}S8W ju fDžj0jU؃}uSP|j|3ɸj}j~H;3ҍEE ЋlExYld3ZYYdh|_^[] ###,###,##0.00 BUjSVW3Uhd0d @X|=F3ۍEP˺M@Ӌ8WTCNu3ZYYdhE_^[Y]SV@@@3ҋ0VT@0VT@0VT@0VT@ 0VT@ST^[=<><=>=<>S؋44HtHt Ht 48[UjjSVW3Uhid0d @ЍM@8W EP48444HtHHEP@ȺEP48֋EP@ȺEP484BL@ЍM@8W EP48BEP48JEPEP@ȺUXEP@ȺEP484EP@ȺEP484Bh484 3ZYYdhpE_^[YY]1No son compatibles los tiposUjS3Uhd0d UEtP(xEu@  3ZYYdhE[Y]#El Archivo De consulta No Existe...SVW,j΋Ӌ4CuF uދ@_^[áËUSV3ۉ3Uhd0d 44P8EE 3ɊAtcP48PP48Zu ,3ZYYdh^[]* Valor ErroneoSع 3ҋ4P4P4P4h3ɺ4h3ɺ4h3ɺ4[CamposOperadorValorUjSVW3Uhd0d R4tV UU(j΋Ӌ4CuF uދ@3ZYYdhE_^[Y] c:\proyectoc:\proyecto\tempo\repcli.repS3ҋl[UjhhP] UjhhP] U3Uh%d0d 3ZYYdh,]Ã-m  ! U.a4m(y&0 ."0,($,-J&df4h|jlnNp PR("!,!" & "1 ! ]"1 9 a A a   ~I a2Q aY a!e i.=  4 4 "I  4 8  4 8 "UU     *U Ue iTi$    @20` i$=   ~4 $ $ $ $  $~* 0 iP 6  r  , ,e i    (e i4 $& $ 8" $&  $  $&  $& | $ ( $^ $ 80 $>  $ 8(> $d $ 8(> $B $0 $ ( $^ $ 80 $>  $ 8(> $d $ 8(> $B $0 $ ( $^ $ 80 $>  $ 8(> $d $ 8(> $B $0 $ ( $^  $ 80 $>  $ 8(> $d $ 8(> $B $0 $ ( $^   $ 8, $>  $ 8(> $d $ 8(6 $4 $,ee i^!N !2"1 aP! ]"  a  aV! ]"  a$  a&P(&:<&P(&:<&^P*! NY a,!eeee itII r  8 $ HIe iQ r$t&Q4Q:Q:Q:Q:QU6IQI" a a"vffv$:v$D vhF&v$*v$Bv$D a@a a imm( !"i   m me iny 6.r   @ >d, JL   iV"*** $ $ $v4  .  <    <6.re iU I  "   -"   III iM M}M@RNn***0, ` "40, 44, 44, &>L* N2HX((((L 8 *TTTT.fRD & Xp <(((fXJl|,,T|jbF: |&   jbF: |&   jbF: |&   jbF:& |&   jbF:&|&   XTNrH   . .vv&*H ^$B |.DF$$  h , 0n @ $4:::::. "4|H|NXx,4   ( N b    $   R&~(^J$***... n0* *8   $  P     8 8r!"@tBH@ $@ @ aL@ :@ }@ "@ @  @ i@ - @ m @  \  ! a =`E< AlAEIQ< MpMQQ M)MQU i (02XX))5}p88 pyy  @2<5p2XX!E ! e ]   M  =      Qa    ]" # )% '}() * + I- y. 0 2i33 U4 u6 58 e9 :