AQD=T;1zXpcxpd.pas{+rcxpd.DFM*+dAperturazXgAbreTablaTotalicdPrintersc&gPrintergTPrinter.GetCanvas#gTPrinter.EndDoc#cdimpresorzXgimprime|gsaltaQginiciaimpresorabcddescribezXg describirW$cdconverzXg tipocampoYg convierteKcdchecazXgrutaogImpresoraListaPCcdprocesoszXgfechasocdButtonsc&f TSpeedButton\g .TSpeedButtonװ cdMaskc&gTCustomMaskEdit.SetText#cdExtCtrlsc&fTPanel02afTBevelM#-fTShape g.TPanel R%g.TBevelDg.TShape佼cdGridsc&gTCustomGrid.SetFixedColor#cdDBTablesc&fTTableDg.TTabletwgTDBDataSet.SetDatabaseName#gTTable.CancelRange#gTTable.FindKey#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.Last#g TDataSet.Edit#gTDataSource.SetEnabled#gTDataSet.Insert#cdDBCtrlsc&f TDBNavigatorPg .TDBNavigator!=LcdFormsc&fTFormH)g.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% gclBlueOD 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@LStrCmpQg @Real2ExtQg @Ext2RealQgFalsejQgTruejQg @LStrAddRefQgOrdfChar^y^ceCXPzXg FormaCxPagar]ceconcupagzXceconcepzXgFormaConceptosXc&.TFormaCxPDetalleh].*TFormaCxPDetallex0 FormaCxPDetalle 0I sumaO$M .1f2(imprimecuentaxpagara 4 i" r" campoc(rangoimprimecuentaxpagari'4!uno*!dos* i" r" campoc(rutas4 If"c( vencimiento4 ven" apl" dias"c(actualizaencabezadoA4c( calculasaldo4 valorf& operacion"c(establecerango 4c( actualizaCxP>f%4!clavef&c(actualizacampos4c( posicionacxp>f%e4!clavef&c(TFormaCxPDetalle.DetalleKeyDown#4!Self0!Sender"Key !Shift&c( TFormaCxPDetalle.DetalleColEnter# 4!Self0!Senderc(TFormaCxPDetalle.FacturaExit# 4!Self0!Senderc(TFormaCxPDetalle.FormActivate#|4!Self0!Senderc(TFormaCxPDetalle.FacturaKeyDown#44!Self0!Sender"Key !Shift&c( TFormaCxPDetalle.BotonNuevoClick#4!Self0!Senderc("TFormaCxPDetalle.BotonEliminaClick#4!Self0!Senderc("TFormaCxPDetalle.BotonCambiosClick#4!Self0!Senderc(TFormaCxPDetalle.FacturaEnter#4!Self0!Senderc(TFormaCxPDetalle.Panel4Click# 4!Self0!Senderc($TFormaCxPDetalle.BotonNuevoMouseDown#z4!Self0!Sender!Button!Shift& !X&"!Y&"c(&TFormaCxPDetalle.BotonCambiosMouseDown#z4!Self0!Sender!Button!Shift& !X&"!Y&"c(&TFormaCxPDetalle.BotonEliminaMouseDown#z4!Self0!Sender!Button!Shift& !X&"!Y&"c(&TFormaCxPDetalle.BotonImprimeMouseDown#z4!Self0!Sender!Button!Shift& !X&"!Y&"c( TFormaCxPDetalle.Panel3MouseDown#P4!Self0!Sender!Button!Shift& !X&"!Y&"c( TFormaCxPDetalle.Label5MouseDown#P4!Self0!Sender!Button!Shift& !X&"!Y&"c("TFormaCxPDetalle.BotonImprimeClick#4!Self0!Senderc(TFormaCxPDetalle.FacturaChange#4!Self0!Senderc( TFormaCxPDetalle.BotonSalirClick# 4!Self0!Senderc( FinalizationQ\! 4c(cxpd!4cG0FN @v,Detalle q, DBNavigator,Panel1, DataSource1,Panel2,TablaCxP ,Label1,Label2, ClaveCliente,Factura,Label4,Saldo!,SaldoE1,EstadoA,FechaQ,FechaAplicaciona,FechaVq,FechaVencimiento,Bevel1,tiempo,Bevel2, BotonNuevo, BotonElimina, BotonCambios, BotonImprime,Shape1 ,Panel3 ,Bevel20! ,Bevel211 ,Bevel22A ,Panel4Q ,Label3a ,Label5q ,Label6 , BotonSalir -DetalleKeyDown1-DetalleColEnterE- FacturaExitQ- FormActivate]-FacturaKeyDowni-BotonNuevoClick}-BotonEliminaClick-BotonCambiosClick- FacturaEnter- Panel4Click-BotonNuevoMouseDown-BotonCambiosMouseDown-BotonEliminaMouseDown-BotonImprimeMouseDown -Panel3MouseDown)-Label5MouseDownE-BotonImprimeClicka- FacturaChangem-BotonSalirClickycD2@lUg@}h#Detalle DBNavigatorPanel1 DataSource1Panel2TablaCxPLabel1Label2 ClaveClienteFacturaLabel4Saldo SaldoEEstadoFechaFechaAplicacionFechaV FechaVencimiento$Bevel1(tiempo,Bevel20 BotonNuevo4 BotonElimina8 BotonCambios< BotonImprime@ Shape1DPanel3HBevel20LBevel21PBevel22TPanel4XLabel3\Label5`Label6d BotonSalirDetalleKeyDownDetalleColEnter FacturaExit FormActivateFacturaKeyDownBotonNuevoClickBotonEliminaClickBotonCambiosClick FacturaEnter Panel4ClickBotonNuevoMouseDownBotonCambiosMouseDownBotonEliminaMouseDownBotonImprimeMouseDownPanel3MouseDownLabel5MouseDownBotonImprimeClick FacturaChangeBotonSalirClickTFormaCxPDetalle TFormaCxPDetalle@;cxpdU3QQQQSVW3Uhd0d jjchUuhU(uEMjjcUMEMjjcUMEMjjcU ME$MN|:F3jjc@UM3CNuN|`F3ۋUEP@,PUQHM3CNuxYhjjcU MEDM:jjcT3ҋCQu3ZYYdhEEE_^[] Compra No.  Estado Proveedor 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.U3QQQQQSV3UhJd0d U EUE$EE؍U }U E]]rV+ޅu(`NhxUuhEU((3ZYYdhQEEE^[] Se vence Hoy vencido  dias no vencidoUjS3Uhd0d UQHUUQHU UQHU3ZYYdhE[Y]CLPRO_CPFEVEN_CPFEAPL_CPUSVW3EE3Uhd0d 3fGpƺUQHEuR@uE}蛋m~YtEP<$EUU Uv)@P'@P3ZYYdhE_^[]OPERA_CPAIMCUE_CP$###,###,##0.00DeudorSaldadaUS3EE3Uhd0d 3UEEE U3tjUEEE EPjUEEE U33ZYYdhEE[]UQEE3UhKd0d U3ZYYdhREY]UjV3Uhd0d UEPZQxUEPZQxU EPZQx3ZYYdhE^Y]CLPRO_CPFEAPL_CPFEVEN_CPUQEE3Uhd0d x uU@ 3EU3ZYYdhEY]USV؋u%f.@,   a$( e$( e$( e$n ZF\^$Z2`p&` `."r .( e$imi q  i q$ 8  J u""  L  y   }2i q (( %!($)%& a iii q  &n  t0  t0  t0v i q $  6n  t   2  t0r6x-        4  .   m q- *zN 8P&z @8R     ii q i q%%,"% t,"% t,"% t&%i q))  z )i q1 b $(bdE,E"b@x1 Et%  Et4P&x E t"EtE t"Et EtE bdE t4D&Eii q Q ] (z  i4}}"| 2 2}   nx  }t@}i qn    nx  tx   >(i q $0$0$0 $0)"  E"  a$"       a jmm(mi qy  q U}>lll .f . $ l & n,:D8<8HB$L 4:6<:X.r2TTTT RF  lX  $* (* hD`  T :&D2XX: &$`,$. @@Z rrP 2> p   :<<$ LVb. Lb$.6,(D   d  d  d  d  8 8 . b,(D  lI00B0U 0 0"0Q0D050} 00 pUY  @,f pR(0nY=   @0p 0 2%  ) 21`05==5E` 0I@IIIQ ]@aani`muum,}@0:@ - @,T@ `0  nn`0  nn`0  nn `0  nn) E a m@q,qTy@}}   a