AQD&09zXp XPrecio.pas09r XPrecio.DFMl:0dDbc&g TDataSet.Edit#gTDataSet.FieldByName#g TDataSet.Last#gTDataSet.Append#f TDataSetState6 gdsEditilgTDataSource.Edit#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`LfBooleanaUgFalsejQgTruejQg @Ext2RealQg @Real2ExtQg@HandleAnyExceptionQg @DoneExceptQg@LStrClr'@ceDBGridsc&gTCustomDBGrid.SetSelectedIndex#ceDBTablesc&gTTable.FindKey#gTTable.SetIndexName#ceConProzXg BuscaClavew:ceCaptuRapzXgFormaCapturaRapida/nfTFormaCapturaRapida!ʫc&.TFormaCalculaxPrecio *TFormaCalculaxPrecio5\ FormaCalculaxPrecioɛ\ F .1f"(#TFormaCalculaxPrecio.DBEdit2KeyDown#1$!Selff !Sender"Key!Shift& c(!TFormaCalculaxPrecio.BitBtn1Click# $!Self !Senderc(!TFormaCalculaxPrecio.BitBtn2Click# $!Self !Senderc(#TFormaCalculaxPrecio.DBEdit1KeyDown#0$!Self !Sender"Key!Shift& c( TFormaCalculaxPrecio.DBEdit2Exit#,$!Self !Sender Preciosf& cantif precf i clavF( encontradoc(TFormaCalculaxPrecio.FormShow#U$!Self !Senderc( TFormaCalculaxPrecio.FormKeyDown#$$!Self !Sender"Key!Shift& c( FinalizationQ\! $c(XPrecio!$cG 1F\ @v,Label1q,DBEdit1,Clave,DBEdit2,Label3,BitBtn2,BitBtn1-DBEdit2KeyDown- BitBtn1Click- BitBtn2Click-DBEdit1KeyDown- DBEdit2Exit-FormShow- FormKeyDown cD"@LQ*,K>.0D"L2D4<B0D"D"l-O@$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ɉMMu3Uhbd0d 3ۡxUQHEEE U3t5UQHEtxUQHEEE U3tpUQHEtBUQHEPZQxR@R@F  R@F R@F$, R@F0< R@F<L R@FH\ R@]MFl R@]F MF| R@]FMF R@]F$MF* R@]F0MF6 R@]F<MFB R@]FHMFN UQHEP ZQx UQHEP ZQx R@Eދ vE Ouٿ^NE}mw#C vCE GuF u,$$ Rp+E$$ Rp4 UQHEPD ZQxT UQHEd t%T UQH}uBt UQHEP ZQx@ UQHEP ZQx UQHEP ZQx3Uhcd0d  R@] R@}$ Rp3ZYYd xUQH}tX UQH}t3 Qx\Rx3ZYYdhiEE_^[]ClaveCLAVE COMENTARIOCODIG_ICLPRO_IclaveICLPROPPUBL_IPLIS2_IPLIS3_IPLIS4_IPMINI_IPLIS6_IPLIS7_IPOLI1_IPOLI2_IPOLI3_IPOLI4_IPOLI5_IPOLI6_IPOLI7_IDSCPR_IProductoUEMPA_IFactorimportePRECIOUMEDI_IUnidadTICOS_IPROMCPROM_ICostoULCOS_IPIVA1_IImpuestoPreciocantidadCantidad1USVWء33Uhd2d"x.t Rx3ZYYd _^[]Uf9u]U3Uh%d0d 3ZYYdh,]Ã-m 0|:R~<BDHrLzP`@bnpJNfhjl2\468>^FdTV *&&*$ N(4. .X: ." & H*   & 2 & 2 & 2 $ 2 &    6 2 * 2 & 2 & , 8 D 6 6   .  X\ X X 00 4      4    "                    "  "  "  "  "  "    "  "   ,$     "     & "  "  "   ( (  *  & &   $  X 4  & & ( 4  X!!! % %ZR  lljlpll 8$  `i   D..FHHHHHHdffffff $$H$` &XV *$$B.nm 00&4    r *v=`@(0R @ @ `(pRHYu Ye q  @p@- `! % a