AQDBsB1zXp concupag.pas`B1r concupag.DFM+dAperturazXgAbreTablaTotalicddialogoszXgMuestraMensaje>f%cdimpresorzXginiciaimpresorabgfinalizaimpresora}9(cdComCtrlsc&f TStatusBar4g .TStatusBarUIgTDateTimePicker.GetDate#cddescribezXg describirW$cdconverzXg convierteKcdButtonsc&f TSpeedButton\fTBitBtnQg .TSpeedButtonװ g.TBitBtnj"4hcdMenusc&f TMainMenuf TMenuItem%) g .TMainMenuqg .TMenuItem-CcdchecazXgrutaog AgregaTitulo2Fgleerutas5hgImpresoraListaPCcdExtCtrlsc&fTPanel02afTBevelM#-g.TPanel R%g.TBevelDcdMaskc&gTCustomMaskEdit.GetText#cdStdCtrlsc&fTLabel>g.TLabel_vcdDBCtrlsc&fTDBEdit毤f TDBNavigatorPf TNavigateBtng.TDBEditūg .TDBNavigator!=LcdDBGridsc&fTDBGridM)g.TDBGridYncdGridsc&cdDBTablesc&fTTableDg.TTabletwgTTable.CancelRange#gTTable.SetRange#gTDBDataSet.SetDatabaseName#gTTable.FindNearest#gTTable.SetIndexName#gTTable.SetTableName#cdDbc&f TDataSourcev fTDataSet1mbg .TDataSourceOjgTDataSet.First#gTDataSet.FieldByName#g TDataSet.Next#g TDataSet.Edit#gTDataSet.UpdateRecord#gTDataSet.GetFieldValue#g TDataSet.Open#g TDataSet.Last#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#g Application^gTCustomForm.Close#gTCustomForm.Show#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.SetText#gTControl.Refresh#gTControl.SetVisible#gTControl.GetText#cdGraphicsc&cdClassesc&f TShiftStateYgTComponent.WriteState#gTComponent.SafeCallException#gTPersistent.AssignTo#gTPersistent.Assign#gTStrings.Append#gTComponent.GetComponentCount#gTComponent.GetComponent#cdSysUtilskg FileExistsۛ g CurrToStrߎg DateToStrT> gDate6cdMessageskcdWindowskcdSysInitkcdSystemkfTObject!fBooleanaUfInteger`LgTObject.NewInstance#gTObject.FreeInstance#g AssignFilefStringHDf AnsiStringHDg@Assign/PgResetg @ResetFileQgTruejQgFileSizeg @FileSizeQgReadg@ReadRecQgFalsejQg CloseFileg@CloseQgRewriteg @RewritFileQgWriteg @WriteRecQg@LStrCatQg@_IOTestQg@LStrFromStringR!g@LStrClr'@g@HandleFinallyQfReal{Og @LStrAddRefQg @LStrCat3Qg @Real2ExtQg @Ext2RealQg @LStrArrayClrQfCurrencyhg@IsClassQg TObject.Free#g@AsClassQg @LStrLAsgQg @VarFromLStrSg@VarCmpQfVariantdg@FinalizeArrayQceconsultazXg FormaConsulta]fTFormaConsultatkDceprogresozXg concentrarNYg poneetiquetast'g PoneAnchosxicebuscarzXg FormaBusquedaefTFormaBusqueda9eg.TFormaBusqueda )cebarraszXg FormaBarrasf TFormaBarras꓀g .TFormaBarrasdbceformatoszXg FormaFormatosJ3ZfTFormaFormatosf%gFormaCxPDetalle grangoimprimecuentaxpagari'c&.TFormaConsultaCuePagar&@*TFormaConsultaCuePagarM5B FormaConsultaCuePagar[B .1fD( asignatipo!F*datosH datfHE faltan* archfJ arch2fJ i,c(saldosqF!iniciof0!finalf0 abonof2 cargof2c(rangosq F cargof4 abonof4c(rutaseF I,c(+TFormaConsultaCuePagar.ClaveProveedorChange# F!SelfB!Sender(c(&TFormaConsultaCuePagar.DetalleDblClick#qF!SelfB!Sender(c(#TFormaConsultaCuePagar.FormActivate#pF!SelfB!Sender(c(/TFormaConsultaCuePagar.ProvedoresconSaldo1Click# F!SelfB!Senderf( desdef0 . c(0TFormaConsultaCuePagar.TodoslosProveedores1Click#q F!SelfB!Sender(c(,TFormaConsultaCuePagar.TablaDetaFilterRecord#F!SelfB!DataSet"Accept*c((TFormaConsultaCuePagar.DBNavigator1Click# F!SelfB!Sender(!Buttonc('TFormaConsultaCuePagar.BotonBuscarClick#F!SelfB!Sender(c(/TFormaConsultaCuePagar.ActualizalosSaldos1Click#F!SelfB!Sender(c(%TFormaConsultaCuePagar.Consulta1Click#F!SelfB!Sender(c(+TFormaConsultaCuePagar.BotonBuscarMouseDown#zF!SelfB!Sender(!Button$!Shift&& !X&,!Y&,c(+TFormaConsultaCuePagar.BotonSaldosMouseDown#zF!SelfB!Sender(!Button$!Shift&& !X&,!Y&,c("TFormaConsultaCuePagar.Salir1Click# F!SelfB!Sender(c( TFormaConsultaCuePagar.FormClose#F!SelfB!Sender("Action"c()TFormaConsultaCuePagar.ImprimeRango1Click#F!SelfB!Sender( uno1, dos1f,c(#TFormaConsultaCuePagar.BitBtn1Click#qF!SelfB!Sender(c(&TFormaConsultaCuePagar.BotonSalirClick# F!SelfB!Sender(c( FinalizationQ\! Fc(concupag!FcGBFb1 a -@v,Panel1 q,Panel2 ,Label1,ClaveProveedor,Nombre,Saldo, DBNavigator1,Detalle, TablaDeta, TablaProveedo, DataSource1, DataSource2!, MainMenu11,Archivo1 A, Procesos1 Q, Reportes1 a,Salir1 q,ActualizalosSaldos1 ,EliminaCuentasSaldadas1 ,ProvedoresconSaldo1 ,TodoslosProveedores1 , BotonBuscar, BotonSaldos,Bevel1,Abonos,Cargos ,BitBtn1 , Consulta1 ! , StatusBar11 , ImprimeRango1 A , BotonSalirQ -ClaveProveedorChange-DetalleDblClick- FormActivate-ProvedoresconSaldo1Click-TodoslosProveedores1Click-TablaDetaFilterRecord-DBNavigator1Click-BotonBuscarClick-ActualizalosSaldos1Click-Consulta1Click-BotonBuscarMouseDown -BotonSaldosMouseDown%- Salir1ClickA- FormCloseM-ImprimeRango1Click]- BitBtn1Clickq-BotonSalirClick}cDD@MA,archivoL,descripNzcO1HKzPRKTRDVxBRDVDDl y@zXPanel1Panel2Label1ClaveProveedorNombreSaldo DBNavigator1Detalle TablaDeta TablaProveedo DataSource1 DataSource2  MainMenu1Archivo1 Procesos1 Reportes1Salir1 ActualizalosSaldos1$EliminaCuentasSaldadas1(ProvedoresconSaldo1,TodoslosProveedores10 BotonBuscar4 BotonSaldos8 Bevel1<Abonos@CargosD BitBtn1H Consulta1L StatusBar1P ImprimeRango1T BotonSalirClaveProveedorChangeDetalleDblClick FormActivateProvedoresconSaldo1Click TodoslosProveedores1ClickTablaDetaFilterRecordDBNavigator1ClickBotonBuscarClickActualizalosSaldos1ClickConsulta1ClickBotonBuscarMouseDownBotonSaldosMouseDown Salir1Click FormCloseImprimeRango1Click BitBtn1ClickBotonSalirClickTFormaConsultaCuePagar TFormaConsultaCuePagar@;concupagUĨSVW33Uhd0d R@ N|iFEEt1E3NuN|LFEEtENuN|LFEEtENu3ҋ0V U 0Q4@3ZYYdh_^[]\report\Cxp.for\report\Cxp2.forReporte de Cuentas Por PagarCxp.forUV3ɉMMUEEE3Uh>d0d 3ҋTUQHMEdU3EfE3EfEy}}xR<]ܛE])xR<]ԛE]R@]ܛEE܍ER@]ܛR@m}țEmE|R@]ܛEE܍ER@]ܛR@m}țEmExYuE$RpE$RpE}țEm$RpxY43ZYYdhEEE^]NOMBR_PNombre FEAPL_CPIMCUE_CPSALDO_CPCARGO_PABONO_PSALDO_PUSV3EE؉EԻ3UhYd0d UEEE EPjU؋E؉EE U܋3pU؋QHM؍E亄U3EE3EEqƺR@ m}R@]蛋R@m m}~YtEPuuEUԹM؍EU@EPuuEUԹM؍EU<mm}EPuuEUԹM؍EU3ZYYdh`EԺE^[]NOMBR_CP Nombre: IMCUE_CP@FSALDO_CP$###,###,##0.00 Cargos : Abonos : - Saldo : UjSVW3Uhd0d N|MF3ۋӋt.UEPӋZӋCNu3ZYYdhE_^[Y]UjV3Uh|d0d UQHE3ZYYdhE^Y]NUDOC_CPS؋x u@ [U3QQQQQQSVWU=3UhKd0d  3$EEP$EEZhdhdhdhphhhhjjjjjhj!hhUhEPUdU苆Yhhjjjjjjjjjjjjjjfff@ 3҉P @ EEV$UEPEM,EMZU3ZYYdhREE_^[]fCLAVE_PNOMBR_PCARGO_PABONO_PSALDO_P0DAbonosSaldoCargosNombre Proveedor Reporte de U3QQQQSVW؋5=3Uh1d0d  3$EEP$EEZhHhHhHhThdhthhjjjjjhj!hhUhEPUdUYhhjjjjjjjjjjjjjjfff@ 3҉P @ UEP,H$EEMZU3ZYYdh8EE_^[]fCLAVE_PNOMBR_PCARGO_PABONO_PSALDO_P0DAbonosSaldoCargosNombre Proveedor Reporte de UjjjjjjjjSV3Uhtd0d MEPEຠUX3ZYYdh{E^[]TIMOV_CP51US3ɉM3Uhd0d UEEE U3ɋ3ZYYdhE[]33UjS3Uh+d0d UU@TEElUEEUEEU3ZYYdh2E[Y]CLPRO_CP Cuepagar.DBF\consulta\cxp.cmp\consulta\ctaxp.vis\tempo\repcxp.rep0USVj/[00Z05v4r4r<Ƌчڋȋ^[] USVj0[04Z05v4r4r<Ƌчڋȋ^[] Ë@ U3QQQQQQSV3Uh4d0d $EMELEPUUfX$RDU~YtjsUEPU싃<EPU苃@EZY 3ZYYdh;EE^[]/Reporte de Cuentas por Cobrar Detallado al Da NUCOM_CP%La Impresora No Se Encuentra Lista...UjV3Uh|d0d UQHE3ZYYdhE^Y]NUDOC_CPU3Uh%d0d 3ZYYdh,]Ã-mA-- 1---15 -y6,&>@80.>* 6%6A$M ]2q&}ZDPZ\bj~02&F(118-"=<=,6= EM  02Y *a "*&m 06= EM  6= "E u Y *a "*} m m  6= Eu  6= "E M Y 2a ""} m m @0=  = = Y2 5Y&HY &Y  bLY "2Y "2Y "Y ,Y (Y "Y ,Y (>(Y (Y 2Y D>Y um(5ml J@J8nm &m  :m m,m ,m m,@ m m m  $ m m m  < m m m  m  y5y& j "6 p "y m  ! %6 >  5y*5*    " " Y          (  "   B|2   8      " " Y          (  "   B* 8 :   ^m $  4r m   Y &6 p t v:  :  :    = a 5$50%5$50A M]&]<&  ] $ %])8$$ %] ] -qqq ! %6q >} 9 9 =ePZ"0*($@bZ"b*($@,  Z"b*0,@$  dX.n p$$t$$(\ \"$LLn F ]Lt@  6"0@@  ,@V2   Z,,TB  tlP,,TB lN R 88^ R 4:$$JJJ$DI d  d   :" |r,@V2 lBnH8bB5IJB5*B5q a=`a pIUI1I9IY p 2m X0y@p}X}M @ , @T`0pZ%Q@ pP`@0NN @8   `0    nn%`0) 1 )n1nA@EE M@QQ]`00a:i]i}aq@ u,u }@   a