AQDX(U*zXp ConPro.pas*r ConPro.DFM*dchecazXgrutaocdExtCtrlsc&fTPanel02afTShape fTBevelM#-g.TPanel R%g.TShape佼g.TBevelDcdGridsc&cdDBTablesc&fTTableDg.TTabletwgTDBDataSet.SetDatabaseName#gTTable.FindNearest#cdDBGridsc&fTDBGridM)g.TDBGridYngTCustomDBGrid.SetSelectedIndex#cdDbc&f TFloatField+f TDataSourcev f TStringFieldxg .TFloatFieldeg .TDataSourceOjg .TStringFieldHg TDataSet.Open#gTDataSet.FieldByName#gTDataSet.First#g TDataSet.Edit#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.Close#cdStdCtrlsc&fTLabel>g.TLabel_vcdControlsc&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#gTWinControl.GetHandle#cdGraphicsc&cdClassesc&f TShiftStateYgTComponent.WriteState#gTComponent.SafeCallException#gTPersistent.AssignTo#gTPersistent.Assign#gTComponent.GetComponentCount#gTComponent.GetComponent#cdMessageskg WM_SYSCOMMAND̫6cdWindowskgReleaseCaptureB Pg SendMessagehkcdSysUtilskcdSysInitkcdSystemkfTObject!fWord@fChar^y^fInteger`LgTObject.NewInstance#gTObject.FreeInstance#fStringHDf AnsiStringHDg@IsClassQg@LStrClr'@g@HandleFinallyQgOrdceFactuzXg FormaFactura^pwceCompraszXg FormaComprasS:xcemovinvzXgFormaMovimientosInventarioc&.TFormaConProducto's(*TFormaConProduct6* FormaConProduct検*f .1f,(rutase. I"c(TFormaConProduct.FormCreate#.!Self*!Senderc( TFormaConProduct.DBGrid1DblClick#!.!Self*!Senderc(TFormaConProduct.DBGrid1KeyDown#$.!Self*!Sender"Key!Shift&c(TFormaConProduct.FormActivate#.!Self*!Senderc(TFormaConProduct.Panel4Click# .!Self*!Senderc(TFormaConProduct.FormKeyDown#$.!Self*!Sender"Key!Shift&c(TFormaConProduct.DBGrid1KeyUp#a.!Self*!Sender"Key!Shift&c( TFormaConProduct.DBGrid1KeyPress#Q.!Self*!Sender"Key c( TFormaConProduct.Panel3MouseDown#P.!Self*!Sender!Button!Shift& !X&"!Y&"c( TFormaConProduct.Label2MouseDown#P.!Self*!Sender!Button!Shift& !X&"!Y&"c( FinalizationQ\! .c(ConPro!.cG*E FR@v,TablaConProductoPPUBL_I q,TablaConProductoEXIST_I ,DBGrid1 , DBNavigator,Panel1, DataSource1,Panel2,TablaConProducto,TablaConProductoDSCPR_I,Shape1,Panel3,Bevel20!,Bevel211,Bevel22A,Panel4Q,Label1a,Label2q,TablaConProductoCLPRO_I- FormCreate-DBGrid1DblClick-DBGrid1KeyDown- FormActivate- Panel4Click - FormKeyDown- DBGrid1KeyUp)-DBGrid1KeyPress=-Panel3MouseDownM-Label2MouseDownicD,@l*@ $TablaConProductoPPUBL_ITablaConProductoEXIST_IDBGrid1 DBNavigatorPanel1 DataSource1Panel2TablaConProductoTablaConProductoDSCPR_IShape1Panel3Bevel20 Bevel21Bevel22Panel4 Label1 Label2 TablaConProductoCLPRO_I  FormCreateDBGrid1DblClickDBGrid1KeyDown FormActivate Panel4Click FormKeyDown DBGrid1KeyUpDBGrid1KeyPressPanel3MouseDownLabel2MouseDownTFormaConProduct TFormaConProduct@;ConProUjSVW3Uhd0d N|MF3ۋӋt.UEPӋZӋCNu3ZYYdhE_^[Y]Uj3Uh\d0d x uPpUQHEPZQx3҉P x uPpUQHEPZQx3҉P $x uPpUQHEPZQx$3҉P 3ZYYdhcEY]CLPRO_IclaveUf9u]US3ɉM3UhNd0d x u@ Rx$x ubdUQHEEE U3ɋ$x ubdUQHEEE U3ɋ3ZYYdhUE[]claveUf9u]UjS3Uhhd0d f< 3x uPUQHEPZQx3҉P x uPUQHEPZQx3҉P $x uPUQHEPZQx$3҉P 3ZYYdhoE[Y]CLPRO_IclaveUjS3Uhgd0d < 3x uP|UQHEPZQx3҉P x uP|UQHEPZQx3҉P $x uP|UQHEPZQx$3҉P 3ZYYdhnE[Y]CLPRO_IclaveUjhhP] UjhhP] U3Uh%d0d 3ZYYdh,]Ã-m HRjTZ\`dhXbfJ|LNPV~^ln 9",*& $$)&=,M,iN0$B24v,F&  "  6" & 8" 8$& 8" 8$& 8" 8$ p Vp$: .&<  8D $& &<  8D $& : p p)),&) 8") 8$&) 8") 8$&) 8") 8$ p) ^==*&= 8"= 8$&= 8"= 8$&= 8"= 8$ p= XM"  i"    9 6"0@@ &&|$&|$&|$NJ  8 &$r.&$r h . (&|$&|$&| $NR(&|$&|$&| $NL 8 8r*J*X@pXM `@8 @   `!!)@5(5>=@I(I