AQD3,zXp ConsCata.pasҎ,r ConsCata.DFMPX*dMenusc&f TMainMenuf TMenuItem%) g .TMainMenuqg .TMenuItem-CcddialogoszXgMuestraMensaje>f%cdReporte2zXgmoneda_raDgAsignaCampoMoneda>f%gAbreReporteVisual*BMgTipoDatoI)+cdconverzXg convierteKcdPrintersc&gPrintergTPrinter.GetOrientation#fTPrinterOrientation 0g poPortraitXNgTPrinter.GetCanvas#gTPrinter.BeginDoc#gTPrinter.GetPageWidth#gTPrinter.GetPageHeight#gTPrinter.NewPage#gTPrinter.EndDoc#cdGaugesc&fTGauge,'g.TGaugeGcddescribezXg describirW$cdDBCtrlsc&f TDBNavigatorPf TNavigateBtng .TDBNavigator!=LcdButtonsc&f TSpeedButton\g .TSpeedButtonװ cdStdCtrlsc&fTListBox g .TListBoxxAYgTCustomListBox.Clear#gTCustomCheckBox.GetChecked#cdComCtrlsc&f TStatusBar4g .TStatusBarUIcdchecazXg rangoscamposog leecamposSg tipooperadorPgleerutas5hgrutaogImpresoraListaPCcdExtCtrlsc&fTPanel02afTImageVJf TPaintBox2g.TPanel R%g.TImageWwg .TPaintBoxw_SdcdDBGridsc&fTDBGridM)fTColumn;'g.TDBGridYngTDBGridColumns.GetColumn#gTColumnTitle.GetCaption#gTCustomDBGrid.GetFields#gTColumn.SetColor#gTCustomDBGrid.SetSelectedIndex#gTColumn.SetFieldName#gTCustomDBGrid.GetDataSource#gTColumn.GetField#gTColumnTitle.SetColor#gTCustomDBGrid.GetSelectedField#cdGridsc&cdDBTablesc&fTTableDg.TTabletwgTTable.FindNearest#gTDBDataSet.SetDatabaseName#gTTable.SetTableName#gTTable.SetIndexName#gTTable.GetIndexNames#gTTable.GetIndexName#cdDbc&f TDataSourcev fTDataSet1mbg .TDataSourceOjgTDataSet.GetFieldCount#gTDataSet.GetField#gTField.SetVisible#gTDataSet.FieldByName#gTField.GetDisplayWidth#gTDataSet.First#gTDataSet.MoveBy#gTField.GetEditText#g TDataSet.Next#gTDataSet.GetFieldValue#gTDataSet.Close#g TDataSet.Open#f TDataSetState6 gdsBrowsehlgTDataSource.SetDataSet#g dsInactiveglgTIndexDefs.GetItem#gTIndexDef.GetFields#f TFieldTypeY gftFloatAg ftIntegerAg ftSmallintAcdDialogsc&f TPrintDialogI$2g .TPrintDialog"RcdFormsc&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.Show#g Application^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.SetText#gTControl.SetVisible#gTControl.GetText#gTControl.Refresh#cdGraphicsc&fTColor0bg TPen.SetWidth#gTFont.SetColor#g TFont.SetSize#g TFont.SetName#gTCanvas.Rectangle#gTCanvas.TextOut#gclRedNE g TFont.GetSize#gclGray% gclBlackOD gTPicture.LoadFromFile#fTGraphicgclLimeOC cdClassesc&f TShiftStateYgTComponent.WriteState#gTComponent.SafeCallException#gTPersistent.AssignTo#gTPersistent.Assign#gTCollection.GetCount#f TAlignment)=g taLeftJustifyNgtaCenterPgtaRightJustifyOgTCollectionItem.GetIndex#cdSysUtilskg StrToDateTimeT> g FileExistsۛf%g condicioness5hcebuscarzXg FormaBusquedafTFormaBusquedag.TFormaBusquedadvceConCobrazXgFormaConsultaCobranzacecxcdzXg posicionacxc>f%gFormaCxCDetalleP>ceProveedozXg FormaProveedo1ceClientezXgposicionacliente>f%g FormaClientesϿcemovinvzXgposicionamovimientos>f%gFormaMovimientosInventario1]oceInvenzXgposicionainventario>f%gFormaInventarioMTceCompraszXgposicionacompras>f%g FormaCompras&@ceFactuzXg FormaFactura:f TFormaFactura!g.TFormaFacturajBgposicionafactura>f%ceVendedorzXgposicionavendedor>f%g FormaVendedorXc&.TFormaCatalogod,Z*TFormaCatalogo? \*campj^ FormaCatalogo晥$\ contadorn[fB tamodatosn[fB tablalocal撀aDD condfiltro)` campos棦b operadores棦b valores棦b factoranchon[f> factorlargon[f> .1fd(AsignaCampoMoneda1>f%f! campo_monedafDc( letraTipoJH!numero@!moneda@!cadena@! no_visible&@ ResultHc( PalabraLineaD!lineafD!numf>#ResultfD i> cuenta> auxfDc( MuestraCampos>f%Af!cadfD i> palabfhc(ActualizaEncabezadosf anchocolumna> numecampos> if> kf> linea> paginasxancho> numerodepagina> tamoletra> sumaancho> ultimo> anchopagina> maximodelineas> ultimapagina> limitesFj recF8 inicio> fin>c( CalculaAncho4> Result>c(CalculaNumeroPaginas>!camposB Result> pag>c( DibujaCelda!f!inicio>!linea>!anchof>! tamoletra> !textofD0!relleno&0(! colorletra&0 ! nombreletrafD!alin&H recf8c(DibujaCeldaCanvasf!inicio>! tamoletra>!ancho> !textofD!relleno&0 recf8c(ImprimeDetalleqf!DetaImpr!iniciof>!fin> anchocolumna> numecamposf> i> kf> lineaf> paginasxancho> numerodepaginaf> tamoletra> sumaancho> ultimof> anchopagina> maximodelineasf> ultimapaginaf> limitesfl recF8 alineacionfHc( tipofecha@!tipofD Result@c( BuscaCadena%@!cad1fD!cad2fD Result@c(FiltraPorTablaf!DataSetf""Acceptf@ i> cuenta> casosfn casosaux@c(FiltraPorTabla2D#ResultD i> cuenta> casosfp casosaux@ auxfDc(datosdefiltradof!condfD i> pos> auxfDc(filtratablatipo4>! nombredetabla" Result>c( tipodetablaqD! nombredetablafD#ResultDc( numerodetablaX>! nombredetabla"!clave1FD Result>c( buscarcampof!clave1fDc(datosdelproductoA#fc( poneimagenesQa fc( abredocumento!f!tablafD cadenafDc( abretabla>f%f!tablafDc(abrepanelimagenQJf imagen2c(poneparametros[mAf!tablaFD!c1fD!c2fD!c3fD!c4fD!c5fD!c6fDq!c7fDa!c8fDQ!c9fDA!e1fD1!e2fD!!e3fD!e4fD!e5fDx!e6fDp!e7fDh!e8fD`!e9fDX!t1fDP!t2fDH!t3fD@!t4fD8!t5fD0!t6fD(!t7fD !t8fD!t9fDc(TFormaCatalogo.Panel2Click# f!Self\!Sender:c(&TFormaCatalogo.DetalleCatalogoDblClick#f!Self\!Sender:c(TFormaCatalogo.BotonSalirClick# f!Self\!Sender:c(TFormaCatalogo.BotonBuscarClick#qf!Self\!Sender:c( TFormaCatalogo.DBNavigator1Click#$f!Self\!Sender:!Button c(TFormaCatalogo.FormClose#xf!Self\!Sender:"Action,c(%TFormaCatalogo.DetalleCatalogoKeyDown#.f!Self\!Sender:"Key<!Shift&4c(#TFormaCatalogo.BotonBuscarMouseDown#zf!Self\!Sender:!Button.!Shift&4 !X&>!Y&>c(%TFormaCatalogo.BotonImprimirMouseDown#zf!Self\!Sender:!Button.!Shift&4 !X&>!Y&>c("TFormaCatalogo.BotonOrdenMouseDown#zf!Self\!Sender:!Button.!Shift&4 !X&>!Y&>c((TFormaCatalogo.TablaCuCobrarFilterRecord#af!Self\!DataSet""Accept@c((TFormaCatalogo.TablaCuePagarFilterRecord#f!Self\!DataSet""Accept@c(TFormaCatalogo.BotonOrdenClick#f!Self\ !Sender: i>c('TFormaCatalogo.TablaClienteFilterRecord#f!Self\!DataSet""Accept@c((TFormaCatalogo.TablaVendedorFilterRecord#f!Self\!DataSet""Accept@c((TFormaCatalogo.TablaProveedoFilterRecord#f!Self\!DataSet""Accept@c('TFormaCatalogo.TablaFacturaFilterRecord#f!Self\!DataSet""Accept@c('TFormaCatalogo.TablaComprasFilterRecord#f!Self\!DataSet""Accept@c('TFormaCatalogo.TablaInventaFilterRecord#f!Self\!DataSet""Accept@c(&TFormaCatalogo.TablaMovinvFilterRecord#f!Self\!DataSet""Accept@c(!TFormaCatalogo.BotonImprimirClick#9f!Self\!Sender:c( TFormaCatalogo.BotonReporteClick#8f!Self\!Sender:c( TFormaCatalogo.BotonCambiosClick#f!Self\!Sender:c((TFormaCatalogo.TablaConsultaFilterRecord#Qf!Self\!DataSet""Accept@ c( TFormaCatalogo.BotonIndicesClick# f!Selff\!Sender: datf^ archfrH if> j> inicio> finf> auxfD aux2fDc(TFormaCatalogo.TodosCamposClick#lf!Self\ !Sender: i>c((TFormaCatalogo.DetalleCatalogoTitleClick#Qf!Self\!Column auxfDc(TFormaCatalogo.Salir1Click# f!Self\!Sender:c(TFormaCatalogo.Sumar1Click#Qf!Self\!Sender: sumafLc(TFormaCatalogo.VerReporte1Click#8f!Self\!Sender:c( FinalizationQ9! fc(ConsCata!fcG\AFR* @v,DetalleCatalogoq, DataSource1 , BarraDeEstado,Panel1, BotonBuscar, BotonImprimir, BotonSalir, BotonOrden,Panel2,Image1,Image2,Image3!,Image41, PaintBox1A, PaintBox2Q, PaintBox3a, PaintBox4q, PanelProgreso, BarraProgreso,Imprimir(, DBNavigator1 , TablaConsulta, BotonReporte, BotonCambios, BotonIndices,Indices , TodosCampos , MainMenu1! ,Archivo11 ,Orden1A , AsignaOrden1Q ,Ver1a ,Salir1q ,TodoslosCampos1 , Operaciones1 ,Sumar1 , VerReporte1 - Panel2ClickU-DetalleCatalogoDblClicka-BotonSalirClickm-BotonBuscarClicky-DBNavigator1Click- FormClose-DetalleCatalogoKeyDown-BotonBuscarMouseDown-BotonImprimirMouseDown-BotonOrdenMouseDown-TablaCuCobrarFilterRecord -TablaCuePagarFilterRecord-BotonOrdenClick--TablaClienteFilterRecord=-TablaVendedorFilterRecordM-TablaProveedoFilterRecord]-TablaFacturaFilterRecordm-TablaComprasFilterRecord}-TablaInventaFilterRecord-TablaMovinvFilterRecord-BotonImprimirClick-BotonReporteClick-BotonCambiosClick-TablaConsultaFilterRecord-BotonIndicesClick-TodosCamposClick -DetalleCatalogoTitleClick - Salir1Click- - Sumar1Click9 -VerReporte1ClickI cMM,numerot,campov , descripcionx ,tipozh,tamo|~,tabla~ cLDLDDd@K Lx>Lx>L<@L<@O1^K KKHKKK DdDd<DBDdDdDd<Dd<DDDFDDDDdl+5@.Gp%VDetalleCatalogo DataSource1 BarraDeEstadoPanel1 BotonBuscar BotonImprimir BotonSalir BotonOrdenPanel2Image1Image2Image3 Image4 PaintBox1 PaintBox2 PaintBox3 PaintBox4  PanelProgreso$ BarraProgreso(Imprimir, DBNavigator10 TablaConsulta4 BotonReporte8 BotonCambios< BotonIndices@ IndicesD TodosCamposH MainMenu1L Archivo1P Orden1T AsignaOrden1X Ver1\ Salir1` TodoslosCampos1d Operaciones1h Sumar1l VerReporte1 Panel2ClickDetalleCatalogoDblClickBotonSalirClickBotonBuscarClickDBNavigator1Click FormCloseDetalleCatalogoKeyDownBotonBuscarMouseDownBotonImprimirMouseDownBotonOrdenMouseDown TablaCuCobrarFilterRecord TablaCuePagarFilterRecordBotonOrdenClickTablaClienteFilterRecord TablaVendedorFilterRecord TablaProveedoFilterRecordTablaFacturaFilterRecordTablaComprasFilterRecordTablaInventaFilterRecordTablaMovinvFilterRecordBotonImprimirClickBotonReporteClickBotonCambiosClick TablaConsultaFilterRecordBotonIndicesClickTodosCamposClick DetalleCatalogoTitleClick Salir1Click Sumar1ClickVerReporte1ClickTFormaCatalogoTFormaCatalogo@;ConsCataUQEE3UhJd0d U3ZYYdhQEY]UStntmtc}ti[]USVW3ۉ]]MUEE3Uhd0d EEE~JE|,u;}u EU)GEEUTUECNu3ZYYdhEE_^[],USVW3҉UEE3Uhd0d E 0O| G303FOuEE~[E\0,u+EUU0EEUӈPUEFOu3ZYYdhEE_^[],USVW3E3Uhd0d 0k2C3EH+|j@E]3Uhd0d MEEPU@ZQ E3ZYYd EMu3ZYYdhE_^[]unøSQnu&$$-`ȋû2t'A$$$-lȋû&tAZ[ ףp= ף?^Cy 5?USVW3ۉ]M؋}EE 3Uhd0d -E-Ѓ UUU ЉU@@ U@ @ U }t3EU|.u!EPUUEE-P =Pσ EP 5΃<3ZYYdhEE E_^[]$ #,###,##0.00USVW؋E 3Uhpd0d -E-Ѓ U=} ЉU3ZYYdhwE _^[]U|SVW3ۉ|ىU3Uhd0d EE}EEmEEEE-nu E2E&]3E3ۋӋ@||tECuӻEUJKu3E3EEH@E3ۋӋ;|sӋӋ|Q ||PӋZQӋE\ECMjE@E؍EE3E3E@$nukU2@$zkU&@$^33EEЋEЋ@+@EԋӋ;ExӋ@/,rttEi EcEd}uVFPPӋ@||PhjhjxӋȋUEOFPPӋ||PhjhEPӋȋUE}ӋCM}t@$EE;Eu3EE@$xYu E;E}t EM3ZYYdh|_^[] ףp= ף? >ArialUQSEE3UhId0d E`u33ZYYdhPE[Y]ftDateUS3ɉMUEEE3Uh{d0d 0UUQHUE~33ZYYdhE[]UĸSVW3ɉMȉM̉MЉMԉMMMMĉUE3UhYd0d E@Nu<%XM@]@m>}>><200@0 . @- $9 $I L~ZrJtv8DP ("1 5 95 =J<15 QIJU5"YQ"]5 =4*1 Q  IDiBm"55 =2-$-"^",-,`(6q u*-5 =u "(} u"}}>}}j811( (  (  (  (I& U  (  ( 555 =h&1"*5 => *  ,u }   ,}  .}  uX u", Q( v uX u*Z& & *  0L 0$ 25 =j%1%% *%5 =<1,111&.1] =AZAP % b , , , , , & b.AAFAAAAAAAA , , , , &   1A =]]H5(%&]]:Z]5 =6y&1y 5&I895"YQ"y] =01  U  U  U  U  U  U  U  U  U5 =& =105 =: : : R R R : : : R R R : : : R R R : : : R R R5 =A&  " <d Q,  " <d Q,  " <d Q,  " <d Q, 5 =`"1 "  ] a! U!   ! % 0 &f  i f    ) % 0 &f  i  f   ) % 0 &f  i f    ) % 0 &f  i f    ) A! A-   I M!   !  u y!  i m! ] =}(1 *mm&*6f 6P 9 -] =m m "111111111111111111111111111  .D$ 4J$ 4J$ 4J$ 4J$ 4J$ 4J$ 4J$ . 4 4 4 4 4 4 4]] =AU- a  m- yy(%9  11)1q 1y y55 =h mmF $0<$0<$0< :  0 0.  =F:   =^--%!  54% )u  )y.-5 ==A MA ]A mA }A A A  h8 }6 }V  %  ) 8 $|@. 00*A =rN%    R L55&d Q"   "^  .*i&iB "U >  ]] =f .  %  ) 5 T& & & "&&T6& & & & & "&&T6&   & ] =- - 9 $9 "":9 (,9 (9 9 9 9 ] =I  U U -  -  -  -   5U =Y  Y %:T     ` &  4,Z(N44&J 6P&82 Hl$ D   * *<l  .*(* $Bz \J VR\*D H  $ . :&  &8 8 . 0    @ & h@ )T^<B,`TL n  (~~~~~ ~ttttnn.v"  ZB   N 6N " J*J  &4J. @RHR>x2DDDvvvDDDvvvDDDvvvDDDvvvT)2Ld VLdVLdVLd V D TRDD&,R:$$:$ D&,R:$$$:D &,R:$$:$D&,R:$$:$D JDDD^eV *. 6PN $$b>hDhDhDhDhDhDhDX^^^^^^^)   0(8:^ \    d  d  d NQ:N R08 8   R       HH . 8tT0bfb8:Hp X*2 P$&R& > "| Z ** D,`NJBxNJBrR6Rz 8R X]\^ \ "\ \M :\ :\y \ T\i L\%U\:\- \] 2 ,@(p2z  11`8p2%%% %-@ pRmjmu }Fbhh00p2lll ii p2JJJ pRR u} %  A A  % 21 2ApYrMMQ MMYQYMyMMMY]HpqFeVedeneeeeeqyp2^lrx @0@2@ 0 2   2 02  2U@YY a m@qq y@}0}X@@t@`0  nn`0  nn`0  nn `H0NN`@0%N)N%)-p10 999919=`EIEIM`UYUY]`eieim`uyuy}```@0-@4@HpTTT pQ E `p  4 d d p% D! D% ! % ! % y ! y % ! % ! - @1 1 9 @(0= 8= I @M M 4U Y a