AQDJh|)zXp ConPromo.pas(r ConPromo.DFMt(dchecazXgrutaocdExtCtrlsc&fTPanel02afTShape fTBevelM#-g.TPanel R%g.TShape佼g.TBevelDcdGridsc&cdDBTablesc&fTTableDg.TTabletwgTDBDataSet.SetDatabaseName#gTTable.FindNearest#cdDBGridsc&fTDBGridM)g.TDBGridYngTCustomDBGrid.SetSelectedIndex#cdDbc&f TStringFieldxf TDataSourcev g .TStringFieldHg .TDataSourceOjg TDataSet.Open#gTDataSet.FieldByName#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.ShowModal#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#gTControl.SetText#gTWinControl.GetHandle#cdGraphicsc&cdClassesc&f TShiftStateYgTComponent.WriteState#gTComponent.SafeCallException#gTPersistent.AssignTo#gTPersistent.Assign#gTComponent.GetComponentCount#gTComponent.GetComponent#cdMessageskg WM_SYSCOMMAND̫6cdWindowskgReleaseCaptureB Pg SendMessagehkcdSysUtilskcdSysInitkcdSystemkfTObject!fWord@fInteger`LgTObject.NewInstance#gTObject.FreeInstance#f AnsiStringHDfStringHDg@IsClassQg@LStrClr'@g@HandleFinallyQg @LStrAddRefQgOrdfChar^y^ceMaskc&gTCustomMaskEdit.SetText#gTCustomMaskEdit.GetText#ceCompraszXg FormaCompras7cemovinvzXgFormaMovimientosInventarioͤc&.TFormaConProveeD_&*TFormaConProvees>( FormaConProveeW(^ .1f*(rutase, Ic( leeproveedorWC !clavef #Result c(TFormaConProvee.FormCreate#,!Self(!Senderc(TFormaConProvee.DBGrid1DblClick#,!Self(!Senderc(TFormaConProvee.DBGrid1KeyDown#Q,!Self(!Sender"Key!Shift&c(TFormaConProvee.FormActivate#,!Self(!Senderc(TFormaConProvee.Panel4Click# ,!Self(!Senderc(TFormaConProvee.FormKeyDown#$,!Self(!Sender"Key!Shift&c(TFormaConProvee.Panel3MouseDown#P,!Self(!Sender!Button!Shift& !X&!Y&c(TFormaConProvee.Label2MouseDown#P,!Self(!Sender!Button!Shift& !X&!Y&c( FinalizationQ\! ,c(ConPromo!,cG( FTq@v,TablaConProveeCLAVE_P q,TablaConProveeNOMBR_P ,DBGrid1 , DBNavigator,Panel1, DataSource1,Panel2,TablaConProvee,Shape1,Panel3,Bevel20,Bevel21!,Bevel221,Panel4A,Label1Q,Label2a- FormCreate-DBGrid1DblClick-DBGrid1KeyDown- FormActivate - Panel4Click- FormKeyDown!-Panel3MouseDown5-Label2MouseDownQcD*@lY#@k{TablaConProveeCLAVE_PTablaConProveeNOMBR_PDBGrid1 DBNavigatorPanel1 DataSource1Panel2TablaConProveeShape1Panel3Bevel20Bevel21 Bevel22Panel4Label1Label2 FormCreateDBGrid1DblClickDBGrid1KeyDown FormActivate Panel4Click FormKeyDownPanel3MouseDownLabel2MouseDownTFormaConProvee TFormaConProvee@;ConPromoUjSVW3Uhd0d N|MF3ۋӋt.UEPӋZӋCNu3ZYYdhE_^[Y]USډEE3Uhd0d x u @ EEE U3ӋQH3ZYYdhE[]CLAVE_PUjS3UhWd0d x u2lUQHUx lUQHU|UQHUUQHUUQHU3ZYYdh^E[Y]CLAVE_PNOMBR_PDIREC_PPOBLA_PUjSVً3Uhd0d f;uf< =x uDUQHU3҉P x UQHUUQHUUQHUUQHU3ZYYdhE^[Y]CLAVE_PNOMBR_PDIREC_PPOBLA_PUS3ɉM3Uhd0d x u @ UEEE U3ɋ3ҋRx3ZYYdhE[]Uf9u]UjhhP] UjhhP] U3Uh%d0d 3ZYYdh,]Ã-m! @JbLRTX\`zP|Z^BvDFHNxV~df 1",* &$!$5,QL.$:0p*>"&  "  2"  2  h  4( 8" 4  *4   4   4   4   j Ƙ&j " 4  $*4   4   4   4   j ƞ $ 4&0  j !j5"  Q"  mmm q q~5- 6"0@@ D>r,,"d*ZhhhN2 "d$*ZhhhN8^P   8 8r%(@((T@pXM@2D @,m`022b! @ 8 y@ !`%-%-5 Q m q a