AQD@j|)zXp SQLRepo.pasVw)r SQLRepo.DFM0Vw)ddialogoszXcdPrintersc&gPrintergTPrinter.GetOrientation#fTPrinterOrientation 0g poPortraitXNgTPrinter.GetCanvas#gTPrinter.BeginDoc#gTPrinter.GetPageWidth#gTPrinter.GetPageHeight#gTPrinter.NewPage#gTPrinter.EndDoc#cdchecazXg rangoscamposog leecamposSgrutaogImpresoraListaPCcdExtCtrlsc&fTPanel02afTBevelM#-fTShape g.TPanel R%g.TBevelDg.TShape佼cdButtonsc&fTBitBtnQf TSpeedButton\g.TBitBtnj"4hg .TSpeedButtonװ cdStdCtrlsc&fTMemo+AfTLabel>f TComboBoxg.TMemoag.TLabel_vg .TComboBoxhcdDBGridsc&fTDBGridM)g.TDBGridYngTCustomDBGrid.GetFieldCount#gTDBGridColumns.GetColumn#gTCustomDBGrid.GetFields#gTColumn.SetColor#gTColumnTitle.GetCaption#gTCustomDBGrid.SetSelectedIndex#gTCustomDBGrid.GetDataSource#cdGridsc&f TStringGridOg .TStringGridgTStringGrid.GetCells#gTCustomGrid.SetRowCount#gTStringGrid.SetCells#gTCustomGrid.SetColWidths#gTCustomGrid.GetSelection#cdDbc&f TDataSourcev g .TDataSourceOjgTDataSet.MoveBy#gTDataSet.First#gTDataSet.GetFieldCount#gTDataSet.GetField#g TDataSet.Next#f TFieldTypeY gftFloatAg ftCurrencyAgTField.GetDisplayWidth#f TDataSetState6 gdsBrowsehlgTDataSet.Close#g TDataSet.Open#cdDBTablesc&fTQueryCvBg.TQuerycdDialogsc&f TPrintDialogI$2f TSaveDialog}g .TPrintDialog"Rg .TSaveDialogXAgTOpenDialog.GetFileName#cdFormsc&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.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.SetEnabled#gTControl.GetText#gTWinControl.GetHandle#cdGraphicsc&fTColor0bg TPen.SetWidth#gTFont.SetColor#g TFont.SetSize#g TFont.SetName#gTCanvas.TextWidth#gTCanvas.Rectangle#gTCanvas.TextOut#gclRedNE g TFont.GetSize#gclGray% gclBlackOD cdClassesc&f TShiftStateYgTComponent.WriteState#gTComponent.SafeCallException#gTPersistent.AssignTo#gTPersistent.Assign#cdSysUtilskg FormatCurrό7Ag StrToCurrߎcdMessageskg WM_SYSCOMMAND̫6cdWindowskfTRectg"gReleaseCaptureB Pg SendMessagehkcdSysInitkcdSystemkfTObject!fInteger`LgTObject.NewInstance#gTObject.FreeInstance#f AnsiStringHDfChar^y^fLongint`LgFalsejQgTruejQfStringHDfTextFile:g AssignFileg@Assign/PgRewriteg @RewritText igWritelng@Write0LStringQg@WriteLnQg CloseFileg@CloseQg @LStrAddRefQg@_IOTestQg@LStrClr'@g @LStrCatNQg @LStrArrayClrQg@HandleFinallyQgTruncg@TRUNCQfReal{OgValg@ValExtQg @LStrLAsgQg@LStrCatQg@LStrCmpQg@HandleAnyExceptionQg @DoneExceptQfWord@g@LStrAsgQfPChar[fLongBool\,g@FinalizeArrayQc& .TFormaSQLa1D* TFormaSQLؐF FormaSQL)Ft factoranchon[f0v factorlargon[f0v cuentan[f0v encabezadoozHx .1fJ( PaginaAvanceL! direccion4 actual6c(AsciiDelimitadoL!DetaImpr!Archivof2 archif:, auxf2 i0c(ActualizaEncabezados~L!DetaImpr anchocolumna0 numecampos0 i0 k0 linea0 paginasxancho0 numerodepagina0 tamoletra0 sumaancho0 ultimo0 anchopagina0 maximodelineas0 ultimapagina0 limitesFN recF,c( CalculaAncho40 Result0c(CalculaNumeroPaginas0!campos6 Result0 pag0c( DibujaCeldaL!inicio0!linea0!anchof0! tamoletra0 !textof20!relleno&((! colorletra&( ! nombreletraf2!tipo& recf, alfa0 numf< codigof0c(DibujaCeldaCanvasL!inicio0! tamoletra0!ancho0 !textof2!relleno&( recf,c(ImprimeDetalleL!DetaImpr!iniciof0!fin0 anchocolumna0 numecamposf0 i0 kf0 lineaf0 paginasxancho0 numerodepaginaf0 tamoletra0 sumaancho0 ultimof0 anchopagina0 maximodelineasf0 ultimapaginaf0 limitesfP recF,c( tipotabla 2#Result2c( condiciones2#Resultf2 i0 auxf2c( ponecampos1L!tablaf2 inicio0 finf0 i0 cuenta0c(TFormaSQL.BitBtn1Click#L!SelffF!Sender.c(TFormaSQL.Label11MouseDown#PL!SelfF!Sender.!Button&!Shift&* !X&0!Y&0c(TFormaSQL.Panel4Click# L!SelfF!Sender.c(TFormaSQL.FormCreate#AL!SelfF!Sender.c(TFormaSQL.NombreTablaChange# L!SelfF!Sender.c(TFormaSQL.BitBtn2Click#L!SelfF!Sender.c(TFormaSQL.TablaFiltrosDblClick#L!SelfF!Sender. RecF, i>c(TFormaSQL.BitBtn3Click#9L!SelfF!Sender. inicio0 fin0c(TFormaSQL.BitBtn4Click#L!SelfF!Sender. arch2F: fuente@ destino@ nombreFR nombre2FR fBc(TFormaSQL.BotonAnteriorClick#L!SelfF!Sender.c(TFormaSQL.BotonSiguienteClick#L!SelfF!Sender.c( FinalizationQ! Lc(SQLRepo!LcGFYFF$1 @v,Codigoq,BitBtn1 ,BitBtn2 ,BitBtn3 ,DBGrid1, DataSource1,Query1,Label1,Label2,Panel3,Bevel20,Bevel21!,Bevel221,Label10A,Label11Q,Panel4a,Shape1q, TablaFiltros, NombreTabla,Label3,Bevel1,Bevel2,Bevel3,Imprimir ,BitBtn4 , DialogoGuarda" , BotonAnterior  ,BotonSiguiente ! - BitBtn1Clickm-Label11MouseDowny- Panel4Click- FormCreate-NombreTablaChange- BitBtn2Click-TablaFiltrosDblClick- BitBtn3Click- BitBtn4Click-BotonAnteriorClick-BotonSiguienteClickcLAT2DJ@LxV0LxX0KZ\DJFDJDJD^B\DJlp@dRL\CodigoBitBtn1BitBtn2BitBtn3DBGrid1 DataSource1Query1Label1Label2Panel3Bevel20Bevel21 Bevel22Label10Label11Panel4Shape1  TablaFiltros$ NombreTabla(Label3,Bevel10Bevel24Bevel38 Imprimir<BitBtn4@ DialogoGuardaD BotonAnteriorH BotonSiguiente  BitBtn1ClickLabel11MouseDown Panel4Click FormCreateNombreTablaChange BitBtn2ClickTablaFiltrosDblClick BitBtn3Click BitBtn4ClickBotonAnteriorClickBotonSiguienteClick TFormaSQL TFormaSQL@;SQLRepoSء+tt,2xYtH3HxXtD3[áD[U(SVW3ɉ(MUE3Uh!d0d U,,wEH|>@3u(QH(h8EFKuNjU,{Yw,3ZYYdh((E_^[] SVWUN|&F3@Q GNu]_^[unøSQnu&$$-`ȋû2t'A$$$-lȋû&tAZ[ ףp= ף?^Cy 5?USVW3ۉ]܉M؋}EE 3Uhd0d -E-Ѓ UUU ЉU@@ U@ @ U 3}t}ugUE؃}uT}=-+E<$UܸU܍EU+E-P P EP 5΃< 3ZYYdhEE E_^[]###,###,##0.00USVW؋E 3Uhpd0d -E-Ѓ U=} ЉU3ZYYdhwE _^[]UĀSVW3ۉ]ىU3Uhd0d EHxMEE}EEmEEEE-nu E2E&]EEUJKu3E3EEH@E3ۋӋ;|jӋӋUQ EEPӋZQӋE\ECMsE@E܍EE3E3EnukU2PkU&733EEԋEԋ@+@E؋Ӌ;}u[FPPӋ@UEPhjhӋ@,PӋȋUERFPPӋUQHEPhjhӋ@,PӋȋUE}ӋCM}tEE;Eu3EExYu E;E}t EM93ZYYdhE_^[] ףp= ף? >ArialUjSVؾ3Uhd0d U$Eu úU$Eu úU$E u ú4U$ELu ú`U$Exu úU$Eu úU$Eu úU$Eu úU$E0u úT3ZYYdhE^[Y]Clientes cliente.dbf Proveedores proveedo.dbf Vendedores vendedor.dbf Facturacin facturae.dbfCompras comprase.dbfCuentas x Cobrar CuCobrar.dbfCuentas x pagar CuePagar.dbf Inventario inventar.dbfMovimientos al Inventario Movinven.DBFU3QQQQQQSVWE3Uh$d0d E XEP ˺}uEP 3uh<EP ˺uh<EP ˺uh<EP ˺uh<E CNIEU3ZYYdh+E_^[]*USVW3҉UUEE3Uhd0d EEE-؋Ei+‰E E+@EMEP 3MEP κj κj κMEP κ XBM}tME躼tFCM3ZYYdhEE_^[];On? No DisponibleUSVW3ɉME3Uhd0d 3Uhd2d"EP]uER@UEUEQ,EE3ZYYd,EER@3ZYYdhE_^[YY]UjhhP] S3-3ҋ x < <  h33ҋ h3ɺ h3ɺ h3ɺ [ClaveCampo CondicinValorUjS3Uhd0d U$Eu U$Eu U$Eu U$E$u 8U$EPu `U$Exu U$Eu U$Eu U$Eu 3ZYYdhE[Y]Clientes clientes.cmp Proveedores proveedo.cmp Vendedores vendedor.cmp Facturacin facturae.cmpCompras comprase.cmpCuentas x Cobrarcxp.cmpCuentas x pagarcxc.cmp Inventario inventar.cmpMovimientos al Inventario movinven.cmpUjjjS3Uhd0d 30Q403ҋQ403ҋQ403ҋQ4hUuhEuh$EU0Q43ZYYdhE[]SelectFrom "\"USVW3ɉM3Uhd0d 0RfMJ08W }t=MJ08W E0MJ08W EPU싻 M3ҋM֋00VTEPU싳 MU3ZYYdh!E_^[],SVt~8@X@$8F\FL@$8FPƋR4t8HPPL^[UjS3UhWd0d @R4tU@U3ZYYdh^E[Y]ð-ð+U3Uh<d0d u$3ZYYdhC]Ã-m !ae%) m&y.$"0&6&&2HD8NrF,.0bH: > t t " " )< )&v x8z,)$  |: ) 4APR4 ( ">j8  (         2(  5 1                 N&  "  * 2(             >PT "RVR  "RT vv ttXT , RX TT  T0TT Z*|  F $  n==,= =  = =  = =  = =  = =  = =  = =  = =  = = = E$EfdDdE0dE0dE0dE&E 6U0 UUDf<*h0h,h,h0h(f*U 4U fm*mm8JJA2m yI"  M  $j*j*j*j*j h $h $h $h(  U  U  U  U  U  U  U  U  U  > =B ( XldVld   2 "8\ 6\ VF)   ))} ) - -% &. *"($"( $j$"j 0 $z( .   * *<l  .*(* ,N(  BJ VF \*D $ .r :&   2 2 .  (   P: xNb8>>>>>>>>>RH6D5Z *^:& $HN,,N(ff Z>" (P:l  8 $****(...,:::::::::Ni4,&&& z<.<znnF & HH.,r FXF4F :FF&@!!D)@ap2==AE MQ8 M8QtEt FbhhH0p2lll   }}} p2JJJ pFF ) Y!a !=!  ! e! 5  !  =@0A8AE@0pMMU0p2]ie]e}i}m pRy @ @%@,@4`(p<j@0-@,  ) - a