AQD1c*zXp Lista.pas)r Lista.DFM)dFileCtrlc&gDirectoryExistsۛf TComboBoxg.TMemoag .TListBoxxAYg.TEdit˃g.TLabel_vg .TComboBoxhgTCustomListBox.Clear#gTCustomListBox.GetItemIndex#cdControlsc&f TDragStatef>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.GetText#gTWinControl.GetHandle#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.Close#cdGraphicsc&cdClassesc&f TShiftStateYgTComponent.WriteState#gTComponent.SafeCallException#gTPersistent.AssignTo#gTPersistent.Assign#cdWinProcskgReleaseCaptureB Pg SendMessagehkcdWinTypeskcdWindowskcdMessageskg WM_SYSCOMMAND̫6cdSysInitkcdSystemkfTObject!fInteger`LfBooleanaUgTObject.NewInstance#gTObject.FreeInstance#fStringHDf AnsiStringHDg@LStrCmpQg @LStrArrayClrQg@HandleFinallyQgLengthg@LStrLenO:g UniqueString'@g @LStrCatNQg@LStrClr'@g @LStrAddRefQg@LStrCatQfTextFile:g AssignFileg@Assign/PgRewriteg @RewritText igWriteg @Write0StringQg@Flush igWritelng@Write0LStringQg@WriteLnQg CloseFileg@CloseQg@_IOTestQg @LStrToStringQg @PStrNCpyQg@PStrCpyQg @PStrNCatQg@IsClassQg@AsClassQg @RewritFileQgResetg @ResetFileQgSeekgFileSizeg @FileSizeQg@SeekQg @WriteRecQc&.TFormaDisenoVista 0*TFormaDisenoVista2* datoscampo΁4 FormaDisenoVista$2 nn[f& dat+4! .1f6(leerangocampos1(!inicio&!fin& Resultf( i& conta& numeF8c( leeclaves1:! archcamposF, archF< i& nombref,c(leenombrecamposm: i&c( ponecampos:!archivof,c( iniciabase1:c(calculaparametros:c( generareporte: i& valorf> archf.(c( borraclaveP:!claveF,c(&TFormaDisenoVista.AreaCreacionDragOver#::!Self2!Sender$!Source$!X&&(!Y&& !State&"Accept&(c(&TFormaDisenoVista.AreaCreacionDragDrop#q:!Self2!Sender$!Source$!X&&!Y&& Datof, Dato2f,c( asignatipo:*datos@ datf@E archfBc($TFormaDisenoVista.BotonGuardar2Click#:!Self2!Sender$ arch1F. i&c(TFormaDisenoVista.Abrir1Click#y:!Self2!Sender$c(TFormaDisenoVista.FormActivate#n:!Self2!Sender$c(TFormaDisenoVista.ListaChange#:!Self2!Sender$c(!TFormaDisenoVista.BotonSalirClick# :!Self2!Sender$c(%TFormaDisenoVista.BotonAbrirMouseDown#z:!Self2!Sender$!Button!Shift&" !X&&!Y&&c((TFormaDisenoVista.BotonGuardar2MouseDown#z:!Self2!Sender$!Button!Shift&" !X&&!Y&&c(!TFormaDisenoVista.Panel2MouseDown#P:!Self2!Sender$!Button!Shift&" !X&&!Y&&c(TFormaDisenoVista.FormClose#:!Self2!Sender$"Action c(TFormaDisenoVista.Salir1Click# :!Self2!Sender$c( FinalizationQ\! :c(Lista!:cG2EFRq m@v, AreaCreacionq, ListaCampos, MainMenu1 ,Archivo1,Salir1,Ayuda1, ListaClaves, TablaReporte,Abrir1,AbreBase,Guardar2, GuardaBase!, AreaClaves1,DescrA,DescribeQ,Label1a,Tiposq,Label2,Panel1, BotonAbrir , BotonGuardar2 ,Temas1,Label3,Lista, BotonSalir -AreaCreacionDragOver-AreaCreacionDragDrop -BotonGuardar2Click9- Abrir1ClickM- FormActivateY- ListaChangee-BotonSalirClickq-BotonAbrirMouseDown}-BotonGuardar2MouseDown-Panel2MouseDown- FormClose- Salir1ClickcM!u,campoD, descripcionF,tipoHl,longitud&cD6K JL@O14KNLM-,archivoP, descripcionRzcO1@KTLKRVLKXLDZ BLDZKz\LK^LDZDZPDZD6DZxDZlT@@M@_ AreaCreacion ListaCampos MainMenu1Archivo1Salir1Ayuda1 ListaClaves TablaReporteAbrir1AbreBaseGuardar2 GuardaBase  AreaClavesDescrDescribeLabel1Tipos Label2$ Panel1( BotonAbrir, BotonGuardar20Temas14Label38 Lista< BotonSalir AreaCreacionDragOverAreaCreacionDragDropBotonGuardar2Click Abrir1Click FormActivate ListaChangeBotonSalirClickBotonAbrirMouseDownBotonGuardar2MouseDownPanel2MouseDown FormClose Salir1ClickTFormaDisenoVista TFormaDisenoVista@;ListaUjjjSV3Uh$d1d!؋+FM}ME<MUQ4MUQ4MUQ4MUQ4CN3ZYYdh+EE^[] No DisponibleUjjjS3Uhd0d E؍EDrE؍EDoE؍EDfEuhuEU3ZYYdhE[]\report\UjSVW3Uhd0d 1MӋ8W UQ4RH;|3ZYYdhE_^[Y]U3҉UEE3Uhd0d Eu7EEUEu7=/EEUE4u7 EEPUEhu72'EEUEu7eJEEUEu7EEUEu7EE(UEHu7"EE\UE|u7=/EEU3ZYYdhEYY]Clientes\report\clientes.forCompras\report\comprasE.forCuentas por Cobrar\report\cxc.forCuentas por Pagar\report\cxp.for Facturacin\report\facturaE.for Inventario\report\Inventar.forMovimientos al Inventario\report\MovInven.for Vendedores\report\vendedor.for Proveedores\report\proveedo.forXl c:\proyecto FACTURAE.DBFINUMENC  0TQX 0Rc:\Listas\Reporte.visUSVW3$3Uhvd0d ((KC3$ 0֋8W $$QH$((EU (FKX3ҍ(xY (3ZYYdh}$_^[]c:\listas\repor.rep*U3Uhd0d 3ZYYdh&]USًËU[]UjjjjSVW3Uhd0d M03ҋ8W uhPƋMZ0V uE0M3ҋ0V u#ЍM0V $M0V 0UQ4M0V 0UQ4M0V 0UQ4BM0V 0UQ43ZYYdhE_^[] U33Uh d0d  u& E<E}ЍE3ZYYdh]\reportU3QQQQSV3Uhd0d R4UU 0QdM03ҋ0V uM00V uM00V uEU3ZYYdhE^[]UjS3Uhd0d  R4t&UE3ZYYdhE[Y]S؋ [UjS3UhRd0d U8E3ZYYdhYE[Y]USVjd[0(Z05v4r4r<Ƌчڋȋ^[] USVje[0,Z05v4r4r<Ƌчڋȋ^[] UjhhP] <@ U3Uh%d0d 3ZYYdh,]Ã-mmm qmmmrtxz|~npv m 6 692M$Y&e$q,}4:, HZ\JL,"$^`Bbqq.mD 2  * y@ y@ y@ yL N y @y0d $ " y " y " y " y " y " y " y " y " y  y . y 0 y 2 y6y&y"y,}N0  1 y8}.y<y:B5 9= A"  1*! % 1 y< y6- 1 Z& \ E , H f\ I>BffFfpfvfvfv  6)6)"y&) ) y" M 1- 1y" U 1y&,5&9y,5 9a 1e 1"i 1- 1) 49"9N& )9 MM"ddld& M YddDeeyde q }y$y0y$y0"y     eI 2vPPPPX<0...> 46 \ j 2HPPPPPPPPPN*** z&66FD  *$v. *` NL $ @,FH(N(N(J l* JRTLN* N*~xD,v(6&D N ,,D , f  d  d  8  l2$R4|2y$2yu2y) 2yU 2y(@2y(022LLL 2@p@U 2  @ pE 0@  0 ` p @@ ) A 9@ 0=6=M@Q,QY@]]je@i,iq@uu }`0  nn`0  nn @@   a