AQD]#JA1zXp XPrecio.pas~x/r XPrecio.DFMd:0dDbc&g TDataSet.Edit#gTDataSet.FieldByName#g TDataSet.Last#gTDataSet.Append#cdButtonsc&fTBitBtnQg.TBitBtnj"4hcdDBCtrlsc&fTDBEdit毤g.TDBEditūgTDBEdit.SetDataSource#gTDBEdit.SetReadOnly#cdMaskc&cdStdCtrlsc&fTLabel>g.TLabel_vcdDialogsc&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&gTWinControl.CreateHandle#gTWinControl.DestroyWnd#gTWinControl.GetClientOrigin#gTWinControl.GetDeviceContext#gTWinControl.ShowControl#gTWinControl.Invalidate#gTWinControl.Repaint#gTWinControl.SetBounds#gTWinControl.Update#gTControl.GetDragImages#gTControl.SetDragMode#gTControl.SetName#cdGraphicsc&cdClassesc&f TShiftStateYgTComponent.WriteState#gTComponent.SafeCallException#gTPersistent.AssignTo#gTPersistent.Assign#cdSysUtilskcdMessageskcdWindowskcdSysInitkcdSystemkfTObject!fWord@gTObject.NewInstance#gTObject.FreeInstance#fStringHDf AnsiStringHDg@LStrCmpQg @LStrArrayClrQg@HandleFinallyQfReal{OfInteger`Lg @Ext2RealQg @Real2ExtQg@HandleAnyExceptionQg @DoneExceptQg@LStrClr'@gFalsejQceDBGridsc&gTCustomDBGrid.SetSelectedIndex#ceDBTablesc&gTTable.FindKey#ceConProzXg BuscaClavew:ceCaptuRapzXgFormaCapturaRapida{GRfTFormaCapturaRapidam8c&.TFormaCalculaxPrecio *TFormaCalculaxPrecio5\ FormaCalculaxPrecioɛ\F .1f(#TFormaCalculaxPrecio.DBEdit2KeyDown#1 !Selff!Sender "Key!Shift& c(!TFormaCalculaxPrecio.BitBtn1Click#  !Self!Sender c(!TFormaCalculaxPrecio.BitBtn2Click#  !Self!Sender c(#TFormaCalculaxPrecio.DBEdit1KeyDown#0 !Self!Sender "Key!Shift& c( TFormaCalculaxPrecio.DBEdit2Exit#q' !Self!Sender  Preciosf" cantif precf ic(TFormaCalculaxPrecio.FormShow# !Self!Sender c( TFormaCalculaxPrecio.FormKeyDown#$ !Self!Sender "Key!Shift& c( FinalizationQ\! c(XPrecio! cG1F\@v,Label1q,DBEdit1,Clave,DBEdit2,Label3,BitBtn2,BitBtn1-DBEdit2KeyDown- BitBtn1Click- BitBtn2Click-DBEdit1KeyDown- DBEdit2Exit-FormShow- FormKeyDowncD@LQ$&DL(DlmI@$Label1DBEdit1ClaveDBEdit2Label3BitBtn2BitBtn1DBEdit2KeyDown BitBtn1Click BitBtn2ClickDBEdit1KeyDown DBEdit2ExitFormShow FormKeyDownTFormaCalculaxPrecioTFormaCalculaxPrecio@;XPrecioUSV3ۉ]]E3Uh+d0d f>q@ DUQHEMfEPDZQxTUQHEEE U3dUQHEtUQHEPZQxUQHEPZQxR@$RpUQHEPZQx UQHEt  UQH}u8,UQHEP<ZQx6LUQHEP<ZQx\UQHEPlZQxR@]웋R@}$RpTUQH}tIUQH}t)Qx|Rxf> uERx3ZYYdh2E^[]claveClaveCLAVE COMENTARIODSCPR_IProductoUEMPA_IFactorPPUBL_IPRECIOUMEDI_IUnidadTICOS_IPROMCPROM_ICostoULCOS_IPIVA1_IImpuestoimportePreciocantidadCantidad1Uf9 u Rx]UĄSVW3ɉMM3Uhxd0d UQHEEE U3UQHER@ER@ER@ER@ER@ER@E$R@E4R@]EMEDR@]EMETR@]EMEdR@]EMEtR@]EMER@]EMER@]EMEUQHEPZQxUQHEPZQxR@E]vE Nuپ]E}mw#CvCE FuEu-E$Rp+E$Rp UQHEP ZQx, UQHE< t%, UQH}uBL UQHEP\ ZQx@l UQHEP\ ZQx| UQHEP ZQx3Uhyd0d R@] R@}$ Rp3ZYYd UQH}tXUQH}t3 Qx|Rx3ZYYdhEE_^[]ClaveCLAVE COMENTARIOPPUBL_IPLIS2_IPLIS3_IPLIS4_IPMINI_IPLIS6_IPLIS7_IPOLI1_IPOLI2_IPOLI3_IPOLI4_IPOLI5_IPOLI6_IPOLI7_IDSCPR_IProductoUEMPA_IFactorimportePRECIOUMEDI_IUnidadTICOS_IPROMCPROM_ICostoULCOS_IPIVA1_IImpuestoPreciocantidadCantidad1Sء3ҋRx[Uf9u]U3Uh%d0d 3ZYYdh,]Ã-mE *v4Lx6z<>BlFtJZ:\hjDH`bdf,V.028X@^NP *&&*$N"4( .X: ." & H*   & 2 & 2 & 2 $ 2 &    6 2 * 2 & 2 & , 8 D 6 6   .  R\ R R 0* 4                  "  "  "  "  "  "  "    "  "   ,$     "     & "  "  "   ( (  *  & &   $  R 4  & &"R  ZR  lljlpll 8$  `i   >HHHHHHHfffffff $$H$` &ZV *$$B.nu 00  rM*vT@(0R @ @ `(pR)@`  a