AQDAT;1zXpcxcd.pas{+rcxcd.DFM+dAperturazXgAbreTablaTotalicddescribezXg describirW$cdimpresorzXgimprime|gsaltaQginiciaimpresorabcdPrintersc&gPrintergTPrinter.GetCanvas#gTPrinter.EndDoc#cdconverzXg tipocampoYg convierteKcdchecazXgrutaogImpresoraListaPCcdprocesoszXgfechasocdButtonsc&f TSpeedButton\g .TSpeedButtonװ cdMaskc&gTCustomMaskEdit.SetText#cdExtCtrlsc&fTPanel02afTBevelM#-fTShape g.TPanel R%g.TBevelDg.TShape佼cdGridsc&cdDBTablesc&fTTableDg.TTabletwgTDBDataSet.SetDatabaseName#gTTable.FindKey#gTTable.CancelRange#gTTable.SetRange#cdDBGridsc&fTDBGridM)g.TDBGridYngTCustomDBGrid.GetFieldCount#gTDBGridColumns.GetColumn#gTColumnTitle.GetCaption#gTCustomDBGrid.GetFields#gTCustomDBGrid.GetSelectedIndex#gTCustomDBGrid.SetSelectedIndex#cdDbc&f TDataSourcev g .TDataSourceOjfTFieldχgTDataSet.First#gTField.GetDisplayText#g TDataSet.Next#gTDataSet.FieldByName#g TDataSet.Edit#g TDataSet.Last#f TDataSetState6 gdsEditilgdsInsertjlgTDataSource.SetEnabled#gTDataSet.Insert#cdDBCtrlsc&f TDBNavigatorPg .TDBNavigator!=LcdFormsc&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#cdStdCtrlsc&fTLabel>fTEdit+b.g.TLabel_vg.TEdit˃cddialogoszXgMuestraMensaje>f%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.SetEnabled#gTWinControl.GetHandle#cdGraphicsc&gTFont.SetColor#gclRedNE gclNavyOD% g TFont.SetSize#cdClassesc&f TShiftStateYgTComponent.WriteState#gTComponent.SafeCallException#gTPersistent.AssignTo#gTPersistent.Assign#gTComponent.GetComponentCount#gTComponent.GetComponent#cdMessageskg WM_SYSCOMMAND̫6cdWindowskgReleaseCaptureB Pg SendMessagehkcdSysUtilskgIntToStrog DateToStrT> gDate6g StrToDateTimeT> g FloatToStr4AgStrToIntocdSysInitkcdSystemkfTObject!fWord@fInteger`LgTObject.NewInstance#gTObject.FreeInstance#fReal{Of AnsiStringHDfStringHDfLongint`Lg @LStrCatNQg @LStrCat3Qg@LStrClr'@g @LStrArrayClrQg@HandleFinallyQg@IsClassQg@HandleAnyExceptionQg @DoneExceptQg @Real2ExtQg@LStrCmpQg @Ext2RealQgFalsejQgTruejQg @LStrAddRefQgOrdfChar^y^ceCucobrazXg FormaCuCobrabNceConCobrazXgFormaConsultaCobranzaceconcepzXgFormaConceptosXc&.TFormaCxCDetalleE2*TFormaCxCDetalle$4 FormaCxCDetalleP>4Q sumaO(U abonosO(U cargosO(U .1f6(imprimecuentaxcobrarq 8 i& r& campoc(rangoimprimecuentaxcobrari'8!uno.!dos. i& r& campoc(rutas8 If&c(actualizacliente!8c( vencimiento8 ven& apl& dias&c(actualizacampos8c(actualizaencabezadoA8c( calculasaldoa 8 valorf* operacion&c(rangos 8c( posicionacxc>f%8!clavef*c(TFormaCxCDetalle.FormCreate#8!Self4!Sender"c(TFormaCxCDetalle.DetalleKeyDown#8!Self4!Sender""Key$!Shift& c( TFormaCxCDetalle.DetalleColEnter#8!Self4!Sender"c(TFormaCxCDetalle.FacturaExit# 8!Self4!Sender"c(TFormaCxCDetalle.FormActivate#8!Self4!Sender"c(TFormaCxCDetalle.FacturaKeyDown#48!Self4!Sender""Key$!Shift& c(TFormaCxCDetalle.FacturaEnter#8!Self4!Sender"c(TFormaCxCDetalle.FormClose#:8!Self4!Sender""Actionc(TFormaCxCDetalle.BotonCxCClick#8!Self4!Sender" claveF: nufac.c("TFormaCxCDetalle.BotonEliminaClick#!8!Self4!Sender"c("TFormaCxCDetalle.BotonCambiosClick#q8!Self4!Sender"c(TFormaCxCDetalle.Panel1Click#<8!Self4!Sender"c(TFormaCxCDetalle.Panel4Click# 8!Self4!Sender"c("TFormaCxCDetalle.BotonImprimeClick#8!Self4!Sender"c("TFormaCxCDetalle.BotonCxCMouseDown#z8!Self4!Sender"!Button!Shift& !X&&!Y&&c(&TFormaCxCDetalle.BotonCambiosMouseDown#z8!Self4!Sender"!Button!Shift& !X&&!Y&&c(&TFormaCxCDetalle.BotonEliminaMouseDown#z8!Self4!Sender"!Button!Shift& !X&&!Y&&c(&TFormaCxCDetalle.BotonImprimeMouseDown#z8!Self4!Sender"!Button!Shift& !X&&!Y&&c( TFormaCxCDetalle.Panel3MouseDown#P8!Self4!Sender"!Button!Shift& !X&&!Y&&c( TFormaCxCDetalle.Label6MouseDown#P8!Self4!Sender"!Button!Shift& !X&&!Y&&c( TFormaCxCDetalle.BotonSalirClick# 8!Self4!Sender"c( FinalizationQ\! 8c(cxcd!8cG4FN @v,Detalle q, DBNavigator,Panel1, DataSource1,Panel2,TablaCxC ,Label1,Label2, ClaveCliente,Factura,Label4,Saldo!,SaldoE1,EstadoA,FechaQ,FechaAplicaciona,FechaVq,FechaVencimiento,Bevel1,tiempo,Bevel2, TablaClientes ,BotonCxC, BotonElimina, BotonCambios, BotonImprime ,Shape1 ,Panel3! ,Bevel201 ,Bevel21A ,Bevel22Q ,Panel4a ,Label3q ,Label5 ,Label6 , BotonSalir - FormCreateA-DetalleKeyDownM-DetalleColEntera- FacturaExitm- FormActivatey-FacturaKeyDown- FacturaEnter- FormClose- BotonCxCClick-BotonEliminaClick-BotonCambiosClick- Panel1Click- Panel4Click-BotonImprimeClick-BotonCxCMouseDown-BotonCambiosMouseDown!-BotonEliminaMouseDown=-BotonImprimeMouseDownY-Panel3MouseDownu-Label6MouseDown-BotonSalirClickcD6@K"<>D@ B>D6lq@l$Detalle DBNavigatorPanel1 DataSource1Panel2TablaCxCLabel1Label2 ClaveClienteFacturaLabel4Saldo SaldoEEstadoFechaFechaAplicacionFechaV FechaVencimiento$Bevel1(tiempo,Bevel20 TablaClientes4BotonCxC8 BotonElimina< BotonCambios@ BotonImprimeD Shape1HPanel3LBevel20PBevel21TBevel22XPanel4\Label3`Label5dLabel6h BotonSalir FormCreateDetalleKeyDownDetalleColEnter FacturaExit FormActivateFacturaKeyDown FacturaEnter FormClose BotonCxCClickBotonEliminaClickBotonCambiosClick Panel1Click Panel4ClickBotonImprimeClickBotonCxCMouseDownBotonCambiosMouseDownBotonEliminaMouseDownBotonImprimeMouseDownPanel3MouseDownLabel6MouseDownBotonSalirClickTFormaCxCDetalle TFormaCxCDetalle@;cxcdU3QQQQSVW3Uhd0d jjchUuhU(uEMjjcUMEMjjcUMEMjjcU ME(MN|:F3jjc@UM3CNuN|`F3ۋUEP@,PUQHM3CNuxYhjjcU MEHM:jjcX3ҋCQu3ZYYdhEEE_^[] Factura No.  Estado Cliente Fecha de Aplicacion Fecha de Vencimiento Saldo -UjS3UhNd0d UU3ZYYdhUE[Y]USVW3E3Uhd0d H@EEUtbUEPUZ3Uhd0d U3ZYYdEMv3ZYYdhE_^[]8Ha Ocurrido un Error al Abrir una de las Bases de Datos.U3E3Uhd0d 0,UQHEEE U0300@R@]m}蛸}ܛmm$0@Rp03ZYYdhE]CLCLI_CCSALDO_CU3QQQQQSV3UhJd0d U EUE$EE؍U }U E]]rV+ޅu(`NhxUuhEU((3ZYYdhQEEE^[] Se vence Hoy vencido  dias no vencidoUjV3Uhd0d UEPZQxUEPZQxU EPZQx3ZYYdhE^Y]CLCLI_CCFEAPL_CCFEVEN_CCUjS3Uhd0d UQHUUQHU UQHU3ZYYdhE[Y]CLCLI_CCFEVEN_CCFEAPL_CCUSVW3EE3Uhzd0d 3fG3f@]<t<uúUQHEuu4R@]E2R@]ER@]E}m{YEP<$EUU U$Rpv)@P'@P3ZYYdhE_^[]OPERA_CCAIMCUE_CC$###,###,##0.00SALDO_CCDeudorSaldadaUS3EE3Uhd0d 3UEEE U3tjUEEE EPjUEEE U33ZYYdhEE[]US3҉UEE3Uhd0d x u @ 3{ u)UQHUU3ZYYdhE[YY]NUFAC_CCUSV؋u%f.@,   i$ ( m$ ( m$ ( m$ l XFZ\ $X2^n&^ ^. "p .( m$  quq y % q y$ 8   H }""   J      2q y  l   r4Lt   r   ,  r6 q y^ (( -)($1-& %i qqq y!!,"! r,"! r,"! r&!q y%%&l% r0% r0% r0v%q y)$ ),`l) r ) <) r  ) r  ) r0p:5) )   lt() r8 )4) .) )u yu5 5*~N 8L&~ @8P ) % 5qq y9&9~ "9 r$  59u yBAM ` $(`ba` m5 yy(~8y r$ 5yq yD4(5q y:" *r9 r r 2    )qq y"tr9 r r 2    )qq y"t *r9 r r 2   6)qq y  $"       j$0!$0=$0Y$0u"  "    y !1>lll .f . $ l & n,:D,8<8HB"L2  ` R4:6<:X.r2XX2TTTT R& $F   hdl$X  J $*(* h]D`  T J$"R&N6,$. L .RD8,(D  0P(Z(Z.T0P(Z(Z.T2P(Z(Z.T    . b d  d  d  d  8 8  l 44)B4 4Q44"4Q44X44 pUY  @,f pR  H(0nY=!  % )@@p11 5 09 2A M`0QYYQa@eem y@0}.} `,@,T@`4@0e@05@`2M @  `0    nn!`0% - %n-n=`0A I AnInY`0] e ]nenu  @   a