AQDh|)zXp CodBarra.pas bw)r CodBarra.DFM bw)dchecazXgrutaocdSpinc&f TSpinEdit:uUg .TSpinEditFvgTSpinEdit.GetValue#cdDBTablesc&fTTableDg.TTabletwgTDBDataSet.SetDatabaseName#cdDbc&gTDataSet.First#gTDataSet.FieldByName#g TDataSet.Next#gTDataSet.Prior#f TDataSetState6 gdsBrowsehlgTDataSet.Close#g TDataSet.Open#cdPrintersc&gPrintergTPrinter.BeginDoc#gTPrinter.GetCanvas#gTPrinter.NewPage#gTPrinter.EndDoc#cdButtonsc&fTBitBtnQg.TBitBtnj"4hcdBarcodezXfTBarcode:g .TBarcode gTBarcode.DrawBarcode#f TBarcodeTypeUR]cdStdCtrlsc&f TGroupBoxy5 fTEdit+b.f TComboBoxfTLabel>f TCheckBox+lg .TGroupBoxJVg.TEdit˃g .TComboBoxhg.TLabel_vg .TCheckBoxvgTCustomComboBox.GetItemIndex#cdExtCtrlsc&fTImageVJfTBevelM#-fTPanel02afTShape g.TImageWwg.TBevelDg.TPanel R%g.TShape佼gTImage.SetPicture#gTImage.GetCanvas#cdDialogsc&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#cdControlsc&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.GetText#gTControl.SetText#gTWinControl.GetHandle#cdGraphicsc&cdClassesc&f TShiftStateYgTComponent.WriteState#gTComponent.SafeCallException#gTPersistent.AssignTo#gTPersistent.Assign#cdSysUtilskcdMessageskg WM_SYSCOMMAND̫6cdWindowskgReleaseCaptureB Pg SendMessagehkcdSysInitkcdSystemkfTObject!fInteger`LgTObject.NewInstance#gTObject.FreeInstance#fStringHDf AnsiStringHDg@LStrAsgQg@LStrClr'@g@HandleFinallyQg@HandleAnyExceptionQg @DoneExceptQc&.TFormaCodigoBarras!QnU0*TFormaCodigoBarrasHM2 FormaCodigoBarrasVf2x .1f4(TFormaCodigoBarras.Edit1Change#6!Self2!Sender(c(TFormaCodigoBarras.BitBtn2Click#6!Self2!Sender( i*c(#TFormaCodigoBarras.TipoCodigoChange#6!Self2!Sender(c(%TFormaCodigoBarras.AnchodeBarraChange#26!Self2!Sender(c(!TFormaCodigoBarras.ResaltarChange#26!Self2!Sender(c(TFormaCodigoBarras.BitBtn4Click#6!Self2!Sender(c(TFormaCodigoBarras.BitBtn5Click#6!Self2!Sender(c(TFormaCodigoBarras.FormCreate#6!Self2!Sender(c(TFormaCodigoBarras.BitBtn3Click# 6!Self2!Sender(c(TFormaCodigoBarras.FormActivate#a6!Self2!Sender(c(TFormaCodigoBarras.FormClose#6!Self2!Sender("Action"c(TFormaCodigoBarras.Panel4Click# 6!Self2!Sender(c("TFormaCodigoBarras.Label4MouseDown#P6!Self2!Sender(!Button$!Shift&& !X&*!Y&*c( FinalizationQ\! 6c(CodBarra!6cG2FZ 1 @v,Barcode1 q,Image1,BitBtn1,BitBtn2,BitBtn3,Barcode2 ,TablaInventario, GroupBox1,Edit1, TipoCodigo,Resaltar, AnchodeBarra!,Label11,Label2A,BitBtn4Q,BitBtn5a,Bevel1q, CheckBox1, CheckBox2,Articulo,Panel1,Bevel2,Bevel3,Bevel4,Panel4,Label3 ,Label4 ,Shape1! - Edit1Change- BitBtn2Click-TipoCodigoChange!-AnchodeBarraChange--ResaltarChange9- BitBtn4ClickE- BitBtn5ClickQ- FormCreate]- BitBtn3Clicki- FormActivateu- FormClose- Panel4Click-Label4MouseDowncD4@l(@Z[LnBarcode1Image1BitBtn1BitBtn2BitBtn3Barcode2TablaInventario GroupBox1Edit1 TipoCodigoResaltar AnchodeBarra Label1Label2BitBtn4BitBtn5 Bevel1  CheckBox1$ CheckBox2(Articulo, Panel10 Bevel24 Bevel38 Bevel4< Panel4@Label3DLabel4H Shape1  Edit1Change BitBtn2ClickTipoCodigoChangeAnchodeBarraChangeResaltarChange BitBtn4Click BitBtn5Click FormCreate BitBtn3Click FormActivate FormClose Panel4ClickLabel4MouseDownTFormaCodigoBarras TFormaCodigoBarras@;CodBarraUjS3Uhpd0d 3ҋUU0Ћ3ZYYdhwE[Y]UjSV3Uhd0d @$,@(33ҋi& B4,UQHU0ЋЋF u 3xY\@(3ZYYdhE^[Y]CLPRO_IUjSVW3Uhd0d 3Uhd0d 3UU0BH֋Ћ3ZYYd 3ZYYdhE_^[Y]S؋B([S؋B,[UjSVW3Uhd0d 3Uhd0d 3UQHU0ЋUQHU(3ZYYd 3ZYYdhE_^[Y]CLPRO_IDSCPR_IUjSVW3Uhd0d 3Uhd0d 3UQHU0ЋUQHU(3ZYYd 3ZYYdhE_^[Y]CLPRO_IDSCPR_IUjSVW3Uh*d0d x x]uUU3Uhd2d"3@4@8@UQHU0ЋPUQHU(3ZYYd @ 3ZYYdh1E_^[Y]CLPRO_IDSCPR_I3҉P UjhhP] U3Uh%d0d 3ZYYdh,]Ã-m5 z|~ q$&!.-29*E&Q&]"i&u& $R>f8PRT VhXjl0v"&n"p@ * ,>(n.2 * .@p@* 0.* 24 6! !!&n"Z$p@ ! - 9 EE"E&nE 2p@E , E XQQ"Q&nQ 2p@Q , Q X]i uu6$&u&n>u 2p@u ,  (u Z "    E,>j .$R.0 & T*4>(ND ((0R0jDL0R0jDL 0 6R0j R N  8r)2\p@ , 0.=m}!`pR%4)4)%a-@11.9@==.E@pRI0IQ@pRU0U] i@mm u@pRy0y  @    a