object clientes: Tclientes Left = 0 Top = 0 Caption = 'Clientes' ClientHeight = 611 ClientWidth = 1134 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] KeyPreview = True OldCreateOrder = True Position = poScreenCenter WindowState = wsMaximized OnClose = FormClose OnKeyDown = FormKeyDown OnKeyPress = FormKeyPress OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 0 Top = 0 Width = 1134 Height = 611 Align = alClient TabOrder = 0 object Panel2: TPanel Left = 1 Top = 1 Width = 179 Height = 609 Align = alLeft TabOrder = 0 object Panel5: TPanel Left = 1 Top = 1 Width = 177 Height = 64 Align = alTop TabOrder = 0 object Label1: TLabel Left = 3 Top = 18 Width = 38 Height = 16 Caption = 'Filtrar' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object todosclientes: TCheckBox Left = 88 Top = 6 Width = 84 Height = 17 Alignment = taLeftJustify BiDiMode = bdRightToLeftNoAlign Caption = 'Ver Todos' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentBiDiMode = False ParentFont = False TabOrder = 0 OnClick = todosclientesClick end object tbuscar: TEdit Left = 4 Top = 37 Width = 168 Height = 21 CharCase = ecUpperCase TabOrder = 1 OnChange = tbuscarChange end end object DBGrid1: TDBGrid Left = 1 Top = 65 Width = 177 Height = 543 Align = alClient DataSource = dmclientes.dsqclientes ReadOnly = True TabOrder = 1 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'Tahoma' TitleFont.Style = [] OnTitleClick = DBGrid1TitleClick Columns = < item Expanded = False FieldName = 'id' Title.Caption = 'Id' Width = 24 Visible = True end item Expanded = False FieldName = 'nombre_corto' Title.Caption = 'Nombre' Width = 117 Visible = True end> end end object Panel3: TPanel Left = 180 Top = 1 Width = 953 Height = 609 Align = alClient TabOrder = 1 object DatosClientes: TPageControl Left = 1 Top = 1 Width = 951 Height = 607 ActivePage = TDatosDestinos Align = alClient TabOrder = 0 object TDatosClientes: TTabSheet Caption = 'Datos Generales' object Panel14: TPanel Left = 0 Top = 40 Width = 943 Height = 539 Align = alClient Enabled = False TabOrder = 1 object Label10: TLabel Left = 304 Top = 105 Width = 55 Height = 13 Caption = 'Provincia:' FocusControl = DBEdit9 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label11: TLabel Left = 12 Top = 144 Width = 52 Height = 13 Caption = 'Tel'#233'fono:' FocusControl = DBEdit10 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label12: TLabel Left = 321 Top = 144 Width = 39 Height = 13 Caption = 'e-mail:' FocusControl = DBEdit11 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label13: TLabel Left = 11 Top = 157 Width = 54 Height = 26 Caption = 'N'#186' Prov. asignado:' FocusControl = DBEdit12 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False WordWrap = True end object Label14: TLabel Left = 11 Top = 263 Width = 53 Height = 13 Caption = 'Observa.:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label15: TLabel Left = 296 Top = 166 Width = 63 Height = 13 Caption = 'C.Contable:' FocusControl = DBEdit13 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 23 Top = 5 Width = 41 Height = 13 Caption = 'C'#243'digo:' FocusControl = DBEdit1 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label4: TLabel Left = 27 Top = 26 Width = 37 Height = 13 Caption = 'Nif/Cif:' FocusControl = DBEdit3 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label5: TLabel Left = 20 Top = 45 Width = 44 Height = 13 Caption = 'Nombre' FocusControl = DBEdit4 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label6: TLabel Left = -1 Top = 65 Width = 65 Height = 13 Caption = 'Nom. Corto:' FocusControl = DBEdit5 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label7: TLabel Left = 9 Top = 85 Width = 55 Height = 13 Caption = 'Direcci'#243'n:' FocusControl = DBEdit6 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label8: TLabel Left = 7 Top = 105 Width = 57 Height = 13 Caption = 'Poblaci'#243'n:' FocusControl = DBEdit7 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label9: TLabel Left = 231 Top = 105 Width = 20 Height = 13 Caption = 'C.P.' FocusControl = DBEdit8 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label22: TLabel Left = 133 Top = 144 Width = 23 Height = 13 Caption = 'Fax:' FocusControl = DBEdit21 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label23: TLabel Left = 223 Top = 144 Width = 33 Height = 13 Caption = 'M'#243'vil:' FocusControl = DBEdit22 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label25: TLabel Left = 38 Top = 125 Width = 26 Height = 13 Caption = 'Pais:' FocusControl = DBEdit23 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label27: TLabel Left = 21 Top = 184 Width = 43 Height = 13 Alignment = taRightJustify Caption = 'F. Pago:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label28: TLabel Left = 305 Top = 185 Width = 54 Height = 13 Caption = 'Comisi'#243'n:' FocusControl = DBEdit25 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label38: TLabel Left = 8 Top = 203 Width = 56 Height = 13 Alignment = taRightJustify Caption = 'Cta. pago:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object DBText1: TDBText Left = 70 Top = 224 Width = 30 Height = 17 DataField = 'cciban' DataSource = dsqcuentas end object DBText2: TDBText Left = 105 Top = 224 Width = 30 Height = 17 DataField = 'ccentidad' DataSource = dsqcuentas end object DBText16: TDBText Left = 141 Top = 224 Width = 30 Height = 17 DataField = 'ccoficina' DataSource = dsqcuentas end object DBText17: TDBText Left = 179 Top = 224 Width = 15 Height = 17 DataField = 'ccdc' DataSource = dsqcuentas end object DBText18: TDBText Left = 201 Top = 224 Width = 80 Height = 17 DataField = 'cccc' DataSource = dsqcuentas end object Label33: TLabel Left = 411 Top = 184 Width = 49 Height = 13 Caption = 'Tipo Iva:' FocusControl = DBEdit3 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label39: TLabel Left = 321 Top = 31 Width = 69 Height = 13 Caption = 'Tipo Cliente:' FocusControl = DBEdit1 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label24: TLabel Left = 411 Top = 204 Width = 44 Height = 13 Caption = 'Tipo RE:' FocusControl = DBEdit3 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label40: TLabel Left = 40 Top = 243 Width = 24 Height = 13 Alignment = taRightJustify Caption = 'EAN:' FocusControl = DBEdit2 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object DBCheckBox2: TDBCheckBox Left = 445 Top = 6 Width = 60 Height = 17 Alignment = taLeftJustify Caption = 'Activo' DataField = 'activo' DataSource = dmclientes.dsclientes Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False TabOrder = 18 ValueChecked = '1' ValueUnchecked = '0' end object DBEdit1: TDBEdit Left = 70 Top = 2 Width = 82 Height = 21 CharCase = ecUpperCase DataField = 'id' DataSource = dmclientes.dsclientes TabOrder = 0 end object DBEdit10: TDBEdit Left = 70 Top = 142 Width = 63 Height = 21 CharCase = ecUpperCase DataField = 'telefono' DataSource = dmclientes.dsclientes TabOrder = 9 end object DBEdit11: TDBEdit Left = 361 Top = 142 Width = 150 Height = 21 CharCase = ecLowerCase DataField = 'email' DataSource = dmclientes.dsclientes TabOrder = 12 end object DBEdit12: TDBEdit Left = 70 Top = 162 Width = 202 Height = 21 CharCase = ecUpperCase DataField = 'personacontacto' DataSource = dmclientes.dsclientes TabOrder = 13 end object DBEdit13: TDBEdit Left = 361 Top = 162 Width = 150 Height = 21 CharCase = ecUpperCase DataField = 'ccontable' DataSource = dmclientes.dsclientes TabOrder = 14 end object DBEdit3: TDBEdit Left = 70 Top = 22 Width = 82 Height = 21 CharCase = ecUpperCase DataField = 'nif' DataSource = dmclientes.dsclientes TabOrder = 1 end object DBEdit4: TDBEdit Left = 70 Top = 42 Width = 202 Height = 21 CharCase = ecUpperCase DataField = 'nombre' DataSource = dmclientes.dsclientes TabOrder = 2 end object DBEdit5: TDBEdit Left = 70 Top = 62 Width = 202 Height = 21 CharCase = ecUpperCase DataField = 'nombre_corto' DataSource = dmclientes.dsclientes TabOrder = 3 end object DBEdit6: TDBEdit Left = 70 Top = 82 Width = 202 Height = 21 CharCase = ecUpperCase DataField = 'direccion' DataSource = dmclientes.dsclientes TabOrder = 4 end object DBEdit7: TDBEdit Left = 70 Top = 102 Width = 150 Height = 21 CharCase = ecUpperCase DataField = 'poblacion' DataSource = dmclientes.dsclientes TabOrder = 5 end object DBEdit8: TDBEdit Left = 257 Top = 102 Width = 38 Height = 21 CharCase = ecUpperCase DataField = 'codpost' DataSource = dmclientes.dsclientes TabOrder = 6 end object DBEdit9: TDBEdit Left = 361 Top = 102 Width = 150 Height = 21 CharCase = ecUpperCase DataField = 'provincia' DataSource = dmclientes.dsclientes TabOrder = 7 end object DBMemo1: TDBMemo Left = 70 Top = 262 Width = 441 Height = 91 DataField = 'observaciones' DataSource = dmclientes.dsclientes TabOrder = 17 end object DBEdit21: TDBEdit Left = 157 Top = 142 Width = 63 Height = 21 CharCase = ecUpperCase DataField = 'telefono2' DataSource = dmclientes.dsclientes TabOrder = 10 end object DBEdit22: TDBEdit Left = 257 Top = 142 Width = 63 Height = 21 CharCase = ecUpperCase DataField = 'movil' DataSource = dmclientes.dsclientes TabOrder = 11 end object DBEdit23: TDBEdit Left = 70 Top = 122 Width = 150 Height = 21 CharCase = ecUpperCase DataField = 'pais' DataSource = dmclientes.dsclientes TabOrder = 8 end object comboformapago: TDBLookupComboBox Left = 70 Top = 182 Width = 167 Height = 21 DataField = 'idformapago' DataSource = dmclientes.dsclientes DropDownWidth = 300 KeyField = 'id' ListField = 'descripcion' ListSource = dsqformaspago TabOrder = 15 end object DBEdit25: TDBEdit Left = 361 Top = 182 Width = 48 Height = 21 CharCase = ecUpperCase DataField = 'comision' DataSource = dmclientes.dsclientes TabOrder = 16 end object combocuenta: TDBLookupComboBox Left = 70 Top = 202 Width = 167 Height = 21 DataField = 'idcp' DataSource = dmclientes.dsclientes DropDownWidth = 300 KeyField = 'id' ListField = 'banco;cciban;ccentidad;ccoficina;ccdc;cccc' ListSource = dsqcuentas TabOrder = 19 end object DBLookupComboBox1: TDBLookupComboBox Left = 466 Top = 182 Width = 87 Height = 21 DataField = 'exento_iva' DataSource = dmclientes.dsclientes DropDownWidth = 300 KeyField = 'id' ListField = 'descripcion' ListSource = dsqtiposiva TabOrder = 20 end object gridclientesexcel: TDBGrid Left = 89 Top = 395 Width = 320 Height = 120 DataSource = dsqclientesexcel TabOrder = 21 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'Tahoma' TitleFont.Style = [] Visible = False Columns = < item Expanded = False FieldName = 'id' Title.Caption = 'ID' Visible = True end item Expanded = False FieldName = 'nif' Title.Caption = 'NIF/CIF' Visible = True end item Expanded = False FieldName = 'nombre' Title.Caption = 'NOMBRE' Visible = True end item Expanded = False FieldName = 'direccion' Title.Caption = 'DIRECCION' Visible = True end item Expanded = False FieldName = 'poblacion' Title.Caption = 'POBLACION' Visible = True end item Expanded = False FieldName = 'codpost' Title.Caption = 'CODIGO POSTAL' Visible = True end item Expanded = False FieldName = 'provincia' Title.Caption = 'PROVINCIA' Visible = True end item Expanded = False FieldName = 'pais' Title.Caption = 'PAIS' Visible = True end item Expanded = False FieldName = 'telefono' Title.Caption = 'TELEFONO1' Visible = True end item Expanded = False FieldName = 'telefono2' Title.Caption = 'TELEFONO2' Visible = True end item Expanded = False FieldName = 'movil' Title.Caption = 'MOVIL' Visible = True end item Expanded = False FieldName = 'email' Visible = True end item Expanded = False FieldName = 'personacontacto' Title.Caption = 'CONTACTO' Visible = True end item Expanded = False FieldName = 'observaciones' Title.Caption = 'OBSERVACIONES' Visible = True end item Expanded = False FieldName = 'ccontable' Title.Caption = 'CUENTA CONTABLE' Visible = True end item Expanded = False FieldName = 'codigo' Title.Caption = 'DEST_ID' Visible = True end item Expanded = False FieldName = 'descripcion' Title.Caption = 'DEST_NOMBRE' Visible = True end item Expanded = False FieldName = 'direccion_1' Title.Caption = 'DEST_DIRECCION' Visible = True end item Expanded = False FieldName = 'poblacion_1' Title.Caption = 'DEST_POBLACION' Visible = True end item Expanded = False FieldName = 'codpost_1' Title.Caption = 'DEST_CODPOSTAL' Visible = True end item Expanded = False FieldName = 'provincia_1' Title.Caption = 'DEST_PROVINCIA' Visible = True end item Expanded = False FieldName = 'pais_1' Title.Caption = 'DEST_PAIS' Visible = True end> end object listadatos: TCheckListBox Left = 382 Top = 50 Width = 129 Height = 46 ItemHeight = 13 Items.Strings = ( 'NACIONAL' 'INTRACOMUNITARIO' 'EXTRANJERO') TabOrder = 22 Visible = False OnClick = listadatosClick OnExit = listadatosExit end object DBEdit26: TDBEdit Left = 396 Top = 29 Width = 118 Height = 21 CharCase = ecUpperCase DataField = 'tipocliente' DataSource = dmclientes.dsclientes TabOrder = 23 OnEnter = DBEdit26Enter end object DBCheckBox1: TDBCheckBox Left = 349 Top = 203 Width = 60 Height = 17 Alignment = taLeftJustify Caption = 'Usar RE' DataField = 'usa_re' DataSource = dmclientes.dsclientes Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False TabOrder = 24 ValueChecked = '1' ValueUnchecked = '0' end object DBLookupComboBox2: TDBLookupComboBox Left = 466 Top = 202 Width = 87 Height = 21 DataField = 'exento_iva' DataSource = dmclientes.dsclientes DropDownWidth = 300 KeyField = 'id' ListField = 'tipo_req' ListSource = dsqtiposiva TabOrder = 25 end object DBEdit2: TDBEdit Left = 70 Top = 241 Width = 167 Height = 21 CharCase = ecUpperCase DataField = 'ean' DataSource = dmclientes.dsclientes TabOrder = 26 end end object Panel6: TPanel Left = 0 Top = 0 Width = 943 Height = 40 Align = alTop TabOrder = 0 object Label37: TLabel Left = 382 Top = 2 Width = 179 Height = 38 Caption = ' CLIENTES' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -27 Font.Name = 'Arial Black' Font.Style = [fsBold, fsItalic] ParentFont = False end object BtCcancelar: TButton Left = 221 Top = 1 Width = 55 Height = 38 Align = alLeft Caption = 'Cancelar' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 3 Images = BASE.listaiconos ParentFont = False TabOrder = 0 OnClick = BtCcancelarClick end object btCmodificar: TButton Left = 111 Top = 1 Width = 55 Height = 38 Align = alLeft Caption = 'Editar' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 2 Images = BASE.listaiconos ParentFont = False TabOrder = 1 OnClick = btCmodificarClick end object BtCborrar: TButton Left = 56 Top = 1 Width = 55 Height = 38 Align = alLeft Caption = 'Borrar' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 1 Images = BASE.listaiconos ParentFont = False TabOrder = 2 OnClick = BtCborrarClick end object BtCNuevo: TButton Left = 1 Top = 1 Width = 55 Height = 38 Align = alLeft Caption = 'Nuevo' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 0 Images = BASE.listaiconos ParentFont = False TabOrder = 3 OnClick = BtCNuevoClick end object BtCguardar: TButton Left = 166 Top = 1 Width = 55 Height = 38 Align = alLeft Caption = 'Guardar' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 140 Images = BASE.listaiconos ParentFont = False TabOrder = 4 OnClick = BtCguardarClick end object Button2: TButton Left = 276 Top = 1 Width = 55 Height = 38 Align = alLeft Caption = 'A Excel' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 0 ParentFont = False TabOrder = 5 OnClick = Button2Click end end end object TDatosDestinos: TTabSheet Caption = 'Destinos' ImageIndex = 2 object Panel12: TPanel Left = 0 Top = 0 Width = 943 Height = 40 Align = alTop TabOrder = 0 object Label36: TLabel Left = 276 Top = 1 Width = 666 Height = 38 Align = alClient Caption = ' DESTINOS' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -27 Font.Name = 'Arial Black' Font.Style = [fsBold, fsItalic] ParentFont = False ExplicitWidth = 174 end object btDcancelar: TButton Left = 221 Top = 1 Width = 55 Height = 38 Align = alLeft Caption = 'Cancelar' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 3 Images = BASE.listaiconos ParentFont = False TabOrder = 0 OnClick = btDcancelarClick end object btDmodificar: TButton Left = 111 Top = 1 Width = 55 Height = 38 Align = alLeft Caption = 'Editar' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 2 Images = BASE.listaiconos ParentFont = False TabOrder = 1 OnClick = btDmodificarClick end object btDborrar: TButton Left = 56 Top = 1 Width = 55 Height = 38 Align = alLeft Caption = 'Borrar' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 1 Images = BASE.listaiconos ParentFont = False TabOrder = 2 OnClick = btDborrarClick end object btDnuevo: TButton Left = 1 Top = 1 Width = 55 Height = 38 Align = alLeft Caption = 'Nuevo' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 0 Images = BASE.listaiconos ParentFont = False TabOrder = 3 OnClick = btDnuevoClick end object btDguardar: TButton Left = 166 Top = 1 Width = 55 Height = 38 Align = alLeft Caption = 'Guardar' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 140 Images = BASE.listaiconos ParentFont = False TabOrder = 4 OnClick = btDguardarClick end end object Panel15: TPanel Left = 0 Top = 40 Width = 943 Height = 539 Align = alClient TabOrder = 1 object Panel18: TPanel Left = 1 Top = 1 Width = 312 Height = 537 Align = alLeft TabOrder = 0 object DBGrid4: TDBGrid Left = 1 Top = 22 Width = 310 Height = 514 Align = alClient DataSource = dmclientes.dsqdestinos ReadOnly = True TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'Tahoma' TitleFont.Style = [] Columns = < item Expanded = False FieldName = 'codigo' Title.Caption = 'C'#243'digo' Width = 72 Visible = True end item Expanded = False FieldName = 'descripcion' Title.Caption = 'Nombre' Width = 201 Visible = True end> end object Panel20: TPanel Left = 1 Top = 1 Width = 310 Height = 21 Align = alTop TabOrder = 1 object todosdestinos: TCheckBox Left = 4 Top = 2 Width = 84 Height = 16 Alignment = taLeftJustify BiDiMode = bdRightToLeftNoAlign Caption = 'Ver Todos' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentBiDiMode = False ParentFont = False TabOrder = 0 OnClick = todosdestinosClick end end end object Panel19: TPanel Left = 313 Top = 1 Width = 629 Height = 537 Align = alClient Enabled = False TabOrder = 1 object Label16: TLabel Left = 21 Top = 5 Width = 41 Height = 13 Caption = 'C'#243'digo:' FocusControl = DBEdit15 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label17: TLabel Left = 15 Top = 25 Width = 47 Height = 13 Caption = 'Nombre:' FocusControl = DBEdit16 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label19: TLabel Left = 7 Top = 44 Width = 55 Height = 13 Caption = 'Direcci'#243'n:' FocusControl = DBEdit14 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label21: TLabel Left = 5 Top = 64 Width = 57 Height = 13 Caption = 'Poblaci'#243'n:' FocusControl = DBEdit17 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label29: TLabel Left = 39 Top = 84 Width = 23 Height = 13 Caption = 'C.P.:' FocusControl = DBEdit18 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label30: TLabel Left = 7 Top = 104 Width = 55 Height = 13 Caption = 'Provincia:' FocusControl = DBEdit20 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label26: TLabel Left = 36 Top = 124 Width = 26 Height = 13 Caption = 'Pais:' FocusControl = DBEdit24 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label41: TLabel Left = 36 Top = 143 Width = 24 Height = 13 Alignment = taRightJustify Caption = 'EAN:' FocusControl = DBEdit19 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label42: TLabel Left = 15 Top = 163 Width = 45 Height = 13 Alignment = taRightJustify Caption = 'EAN CLI:' FocusControl = DBEdit27 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label43: TLabel Left = 5 Top = 183 Width = 55 Height = 13 Alignment = taRightJustify Caption = 'EAN Recp.' FocusControl = DBEdit28 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label44: TLabel Left = 15 Top = 203 Width = 45 Height = 13 Alignment = taRightJustify Caption = 'Depart.:' FocusControl = DBEdit29 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object DBCheckBox4: TDBCheckBox Left = 322 Top = -1 Width = 60 Height = 17 Alignment = taLeftJustify Caption = 'Activo' DataField = 'activo' DataSource = dmclientes.dsdestinos Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False TabOrder = 7 ValueChecked = '1' ValueUnchecked = '0' end object DBEdit14: TDBEdit Left = 66 Top = 41 Width = 316 Height = 21 CharCase = ecUpperCase DataField = 'direccion' DataSource = dmclientes.dsdestinos TabOrder = 2 end object DBEdit15: TDBEdit Left = 66 Top = 2 Width = 95 Height = 21 CharCase = ecUpperCase DataField = 'codigo' DataSource = dmclientes.dsdestinos TabOrder = 0 end object DBEdit16: TDBEdit Left = 66 Top = 22 Width = 316 Height = 21 CharCase = ecUpperCase DataField = 'descripcion' DataSource = dmclientes.dsdestinos TabOrder = 1 end object DBEdit17: TDBEdit Left = 66 Top = 61 Width = 316 Height = 21 CharCase = ecUpperCase DataField = 'poblacion' DataSource = dmclientes.dsdestinos TabOrder = 3 end object DBEdit18: TDBEdit Left = 66 Top = 81 Width = 96 Height = 21 CharCase = ecUpperCase DataField = 'codpost' DataSource = dmclientes.dsdestinos TabOrder = 4 end object DBEdit20: TDBEdit Left = 66 Top = 101 Width = 316 Height = 21 CharCase = ecUpperCase DataField = 'provincia' DataSource = dmclientes.dsdestinos TabOrder = 5 end object DBEdit24: TDBEdit Left = 66 Top = 121 Width = 316 Height = 21 CharCase = ecUpperCase DataField = 'pais' DataSource = dmclientes.dsdestinos TabOrder = 6 end object DBEdit19: TDBEdit Left = 66 Top = 141 Width = 167 Height = 21 CharCase = ecUpperCase DataField = 'ean' DataSource = dmclientes.dsdestinos TabOrder = 8 end object DBEdit27: TDBEdit Left = 66 Top = 161 Width = 167 Height = 21 CharCase = ecUpperCase DataField = 'ean2' DataSource = dmclientes.dsdestinos TabOrder = 9 end object DBEdit28: TDBEdit Left = 66 Top = 181 Width = 167 Height = 21 CharCase = ecUpperCase DataField = 'eanreceptor' DataSource = dmclientes.dsdestinos TabOrder = 10 end object DBEdit29: TDBEdit Left = 66 Top = 201 Width = 167 Height = 21 CharCase = ecUpperCase DataField = 'dep' DataSource = dmclientes.dsdestinos TabOrder = 11 end end end end object TDatosArticulos: TTabSheet Caption = 'Articulos/Calidades/Formatos' ImageIndex = 2 object Panel17: TPanel Left = 0 Top = 0 Width = 943 Height = 579 Align = alClient TabOrder = 0 object Panel22: TPanel Left = 1 Top = 1 Width = 941 Height = 152 Align = alTop TabOrder = 0 object Panel7: TPanel Left = 1 Top = 1 Width = 939 Height = 26 Align = alTop TabOrder = 0 object Panel4: TPanel Left = 1 Top = 1 Width = 439 Height = 24 Align = alLeft TabOrder = 0 object Label35: TLabel Left = 126 Top = 1 Width = 128 Height = 22 Align = alLeft Alignment = taCenter Caption = 'ARTICULOS ' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Arial Black' Font.Style = [fsBold, fsItalic] ParentFont = False ExplicitHeight = 23 end object btAcancelar: TButton Left = 101 Top = 1 Width = 25 Height = 22 Align = alLeft Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 3 Images = BASE.listaiconos ParentFont = False TabOrder = 0 OnClick = btAcancelarClick end object btAguardar: TButton Left = 76 Top = 1 Width = 25 Height = 22 Align = alLeft Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 140 Images = BASE.listaiconos ParentFont = False TabOrder = 1 OnClick = btAguardarClick end object btAmodificar: TButton Left = 51 Top = 1 Width = 25 Height = 22 Align = alLeft Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 2 Images = BASE.listaiconos ParentFont = False TabOrder = 2 OnClick = btAmodificarClick end object btAborrar: TButton Left = 26 Top = 1 Width = 25 Height = 22 Align = alLeft Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 1 Images = BASE.listaiconos ParentFont = False TabOrder = 3 OnClick = btAborrarClick end object btAnuevo: TButton Left = 1 Top = 1 Width = 25 Height = 22 Align = alLeft Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 0 Images = BASE.listaiconos ParentFont = False TabOrder = 4 OnClick = btAnuevoClick end end object Panel9: TPanel Left = 440 Top = 1 Width = 439 Height = 24 Align = alLeft TabOrder = 1 object Label3: TLabel Left = 126 Top = 1 Width = 135 Height = 22 Align = alLeft Alignment = taCenter Caption = 'CALIDADES ' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Arial Black' Font.Style = [fsBold, fsItalic] ParentFont = False ExplicitHeight = 23 end object btClcancelar: TButton Left = 101 Top = 1 Width = 25 Height = 22 Align = alLeft Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 3 Images = BASE.listaiconos ParentFont = False TabOrder = 0 OnClick = btClcancelarClick end object btClguardar: TButton Left = 76 Top = 1 Width = 25 Height = 22 Align = alLeft Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 140 Images = BASE.listaiconos ParentFont = False TabOrder = 1 OnClick = btClguardarClick end object btClmodificar: TButton Left = 51 Top = 1 Width = 25 Height = 22 Align = alLeft Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 2 Images = BASE.listaiconos ParentFont = False TabOrder = 2 OnClick = btClmodificarClick end object btClborrar: TButton Left = 26 Top = 1 Width = 25 Height = 22 Align = alLeft Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 1 Images = BASE.listaiconos ParentFont = False TabOrder = 3 OnClick = btClborrarClick end object btClnuevo: TButton Left = 1 Top = 1 Width = 25 Height = 22 Align = alLeft Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 0 Images = BASE.listaiconos ParentFont = False TabOrder = 4 OnClick = btClnuevoClick end end end object Panel25: TPanel Left = 1 Top = 27 Width = 440 Height = 124 Align = alLeft Caption = 'Panel25' TabOrder = 1 object DBGrid6: TDBGrid Left = 1 Top = 1 Width = 438 Height = 122 Align = alClient DataSource = dmclientes.dsqarticulos TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'Tahoma' TitleFont.Style = [] Columns = < item Expanded = False FieldName = 'id' Title.Caption = 'Referencia' Width = 100 Visible = True end item Expanded = False FieldName = 'desc_cliente' Title.Caption = 'Descripci'#243'n' Visible = True end> end end object Panel26: TPanel Left = 441 Top = 27 Width = 440 Height = 124 Align = alLeft Caption = 'Panel26' TabOrder = 2 object DBGrid3: TDBGrid Left = 1 Top = 1 Width = 438 Height = 122 Align = alClient DataSource = dmclientes.dsqclientescalidad TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'Tahoma' TitleFont.Style = [] Columns = < item Expanded = False FieldName = 'id' Title.Caption = 'Referencia' Width = 100 Visible = True end item Expanded = False FieldName = 'descripcion' Title.Caption = 'Descripci'#243'n' Visible = True end> end end end object Panel23: TPanel Left = 1 Top = 153 Width = 941 Height = 208 Align = alTop TabOrder = 1 object DBGrid2: TDBGrid Left = 1 Top = 25 Width = 939 Height = 176 Align = alTop DataSource = dmclientes.dsarticulosformato TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'Tahoma' TitleFont.Style = [] Columns = < item Expanded = False FieldName = 'id' Title.Caption = 'Referencia' Width = 100 Visible = True end item Expanded = False FieldName = 'des_envase' Title.Caption = 'Descripci'#243'n' Width = 220 Visible = True end item Expanded = False FieldName = 'ean' Title.Caption = 'EAN' Width = 130 Visible = True end item Expanded = False FieldName = 'marca' Title.Caption = 'Marca' Width = 130 Visible = True end item Expanded = False FieldName = 'observaciones' Title.Caption = 'Observaciones' Width = 600 Visible = True end> end object Panel24: TPanel Left = 1 Top = 1 Width = 939 Height = 24 Align = alTop TabOrder = 1 object Label18: TLabel Left = 126 Top = 1 Width = 119 Height = 22 Align = alLeft Alignment = taCenter Caption = 'ENVASES ' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Arial Black' Font.Style = [fsBold, fsItalic] ParentFont = False ExplicitHeight = 23 end object btADcancelar: TButton Left = 101 Top = 1 Width = 25 Height = 22 Align = alLeft Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -7 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 3 Images = BASE.listaiconos ParentFont = False TabOrder = 0 OnClick = btADcancelarClick end object btADmodificar: TButton Left = 51 Top = 1 Width = 25 Height = 22 Align = alLeft Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -7 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 2 Images = BASE.listaiconos ParentFont = False TabOrder = 1 OnClick = btADmodificarClick end object btADborrar: TButton Left = 26 Top = 1 Width = 25 Height = 22 Align = alLeft Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -7 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 1 Images = BASE.listaiconos ParentFont = False TabOrder = 2 OnClick = btADborrarClick end object btADnuevo: TButton Left = 1 Top = 1 Width = 25 Height = 22 Align = alLeft Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -7 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 0 Images = BASE.listaiconos ParentFont = False TabOrder = 3 OnClick = btADnuevoClick end object btADguardar: TButton Left = 76 Top = 1 Width = 25 Height = 22 Align = alLeft Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -7 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 140 Images = BASE.listaiconos ParentFont = False TabOrder = 4 OnClick = btADguardarClick end end end object Panel16: TPanel Left = 1 Top = 361 Width = 941 Height = 208 Align = alTop TabOrder = 2 object DBGrid9: TDBGrid Left = 1 Top = 25 Width = 939 Height = 176 Align = alTop DataSource = dmclientes.dsqclientesacabados TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'Tahoma' TitleFont.Style = [] Columns = < item Expanded = False FieldName = 'id' Title.Caption = 'Referencia' Width = 100 Visible = True end item Expanded = False FieldName = 'descripcion' Title.Caption = 'Descripci'#243'n' Width = 220 Visible = True end item Expanded = False FieldName = 'ean' Title.Caption = 'EAN' Width = 130 Visible = True end item Expanded = False FieldName = 'marca' Title.Caption = 'Marca' Width = 130 Visible = True end item Expanded = False FieldName = 'observaciones' Title.Caption = 'Observaciones' Width = 600 Visible = True end> end object Panel21: TPanel Left = 1 Top = 1 Width = 939 Height = 24 Align = alTop TabOrder = 1 object Label20: TLabel Left = 126 Top = 1 Width = 132 Height = 22 Align = alLeft Alignment = taCenter Caption = 'ACABADOS ' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Arial Black' Font.Style = [fsBold, fsItalic] ParentFont = False ExplicitHeight = 23 end object btCAcancelar: TButton Left = 101 Top = 1 Width = 25 Height = 22 Align = alLeft Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -7 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 3 Images = BASE.listaiconos ParentFont = False TabOrder = 0 OnClick = btCAcancelarClick end object btCAmodificar: TButton Left = 51 Top = 1 Width = 25 Height = 22 Align = alLeft Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -7 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 2 Images = BASE.listaiconos ParentFont = False TabOrder = 1 OnClick = btCAmodificarClick end object btCAborrar: TButton Left = 26 Top = 1 Width = 25 Height = 22 Align = alLeft Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -7 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 1 Images = BASE.listaiconos ParentFont = False TabOrder = 2 OnClick = btCAborrarClick end object btCAnuevo: TButton Left = 1 Top = 1 Width = 25 Height = 22 Align = alLeft Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -7 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 0 Images = BASE.listaiconos ParentFont = False TabOrder = 3 OnClick = btCAnuevoClick end object btCAguardar: TButton Left = 76 Top = 1 Width = 25 Height = 22 Align = alLeft Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -7 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 140 Images = BASE.listaiconos ParentFont = False TabOrder = 4 OnClick = btCAguardarClick end end end end end object TabSheet1: TTabSheet Caption = 'Documentos' ImageIndex = 3 object Detallesclientes: TPageControl Left = 0 Top = 0 Width = 943 Height = 579 ActivePage = TabPedidos Align = alClient TabOrder = 0 object TabPedidos: TTabSheet Caption = 'Pedidos' object Panel8: TPanel Left = 0 Top = 0 Width = 935 Height = 40 Align = alTop TabOrder = 0 object Label34: TLabel Left = 1 Top = 1 Width = 933 Height = 38 Align = alClient Alignment = taCenter Caption = 'PEDIDOS' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -27 Font.Name = 'Arial Black' Font.Style = [fsBold, fsItalic] ParentFont = False ExplicitWidth = 135 end end object DBGrid5: TDBGrid Left = 0 Top = 40 Width = 935 Height = 511 Align = alClient DataSource = dmclientes.dsqpedidosclientes TabOrder = 1 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'Tahoma' TitleFont.Style = [] OnDblClick = DBGrid5DblClick OnTitleClick = DBGrid5TitleClick Columns = < item Expanded = False FieldName = 'id' Title.Caption = 'Id pedido' Visible = True end item Expanded = False FieldName = 'id_1' Title.Caption = 'Linea pedido' Visible = True end item Expanded = False FieldName = 'pedidocliente' Title.Caption = 'Ref. Pedido Cliente' Width = 104 Visible = True end item Expanded = False FieldName = 'iddestino' Title.Caption = 'Destino' Width = 156 Visible = True end item Expanded = False FieldName = 'fecha_pedido' Title.Caption = 'Fecha Pedido' Visible = True end item Expanded = False FieldName = 'fecha_carga' Title.Caption = 'Fecha carga' Visible = True end item Expanded = False FieldName = 'idalbaran' Title.Caption = 'Albaran' Width = 63 Visible = True end item Expanded = False FieldName = 'idexpedicion' Title.Caption = 'Factura' Width = 67 Visible = True end> end end object TAbalbaranes: TTabSheet Caption = 'Albaranes' ImageIndex = 3 object Panel10: TPanel Left = 0 Top = 0 Width = 935 Height = 40 Align = alTop TabOrder = 0 object Label32: TLabel Left = 1 Top = 1 Width = 933 Height = 38 Align = alClient Alignment = taCenter Caption = ' ALBARANES' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -27 Font.Name = 'Arial Black' Font.Style = [fsBold, fsItalic] ParentFont = False ExplicitWidth = 212 end object Button8: TButton Left = 5 Top = 4 Width = 63 Height = 30 Caption = 'A Excel' ImageIndex = 0 TabOrder = 0 Visible = False OnClick = Button8Click end end object DBGrid7: TDBGrid Left = 0 Top = 40 Width = 935 Height = 511 Align = alClient DataSource = dmclientes.dsqalbaranes TabOrder = 1 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'Tahoma' TitleFont.Style = [] OnDblClick = DBGrid7DblClick OnTitleClick = DBGrid7TitleClick Columns = < item Expanded = False FieldName = 'serie' Title.Caption = 'Serie' Width = 50 Visible = True end item Expanded = False FieldName = 'id' Title.Caption = 'Albaran' Width = 65 Visible = True end item Expanded = False FieldName = 'nomdestino' Title.Caption = 'Destino' Width = 210 Visible = True end item Expanded = False FieldName = 'total' Title.Caption = 'Total' Width = 65 Visible = True end item Expanded = False FieldName = 'idfactura' Title.Caption = 'Factura' Width = 65 Visible = True end item Expanded = False FieldName = 'observaciones' Title.Caption = 'Observaciones' Width = 335 Visible = True end> end object gridalbaranesaexcel: TDBGrid Left = 0 Top = 40 Width = 935 Height = 511 Align = alClient DataSource = dmclientes.dsqalbaranes TabOrder = 2 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'Tahoma' TitleFont.Style = [] Visible = False OnDblClick = DBGrid7DblClick OnTitleClick = DBGrid7TitleClick Columns = < item Expanded = False FieldName = 'serie' Title.Caption = 'Serie' Width = 50 Visible = True end item Expanded = False FieldName = 'id' Title.Caption = 'Albaran' Width = 65 Visible = True end item Expanded = False FieldName = 'nomdestino' Title.Caption = 'Destino' Width = 210 Visible = True end item Expanded = False FieldName = 'total' Title.Caption = 'Total' Width = 65 Visible = True end item Expanded = False FieldName = 'idfactura' Title.Caption = 'Factura' Width = 65 Visible = True end item Expanded = False FieldName = 'observaciones' Title.Caption = 'Observaciones' Width = 335 Visible = True end> end end object TabFacturas: TTabSheet Caption = 'Facturas' ImageIndex = 4 object Panel11: TPanel Left = 0 Top = 0 Width = 935 Height = 40 Align = alTop TabOrder = 0 object Label31: TLabel Left = 1 Top = 1 Width = 933 Height = 38 Align = alClient Alignment = taCenter Caption = ' FACTURAS' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -27 Font.Name = 'Arial Black' Font.Style = [fsBold, fsItalic] ParentFont = False ExplicitWidth = 188 end object Button1: TButton Left = 5 Top = 4 Width = 63 Height = 30 Caption = 'A Excel' ImageIndex = 0 TabOrder = 0 OnClick = Button1Click end end object DBGrid8: TDBGrid Left = 0 Top = 40 Width = 935 Height = 511 Align = alClient DataSource = dmclientes.dsqfacturas TabOrder = 1 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'Tahoma' TitleFont.Style = [] OnDblClick = DBGrid8DblClick OnTitleClick = DBGrid8TitleClick Columns = < item Expanded = False FieldName = 'serie' Title.Caption = 'Serie' Width = 50 Visible = True end item Expanded = False FieldName = 'id' Title.Caption = 'Factura' Width = 65 Visible = True end item Expanded = False FieldName = 'nomdestino' Title.Caption = 'Destino' Width = 210 Visible = True end item Expanded = False FieldName = 'total' Title.Caption = 'Total' Width = 65 Visible = True end item Expanded = False FieldName = 'observaciones' Title.Caption = 'Observaciones' Width = 400 Visible = True end> end object gridfacturasaexcel: TDBGrid Left = 0 Top = 40 Width = 935 Height = 511 Align = alClient DataSource = dsqfacturasclientes TabOrder = 2 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'Tahoma' TitleFont.Style = [] Visible = False OnDblClick = DBGrid8DblClick OnTitleClick = DBGrid8TitleClick Columns = < item Expanded = False FieldName = 'serie' Title.Caption = 'Serie' Width = 50 Visible = True end item Expanded = False FieldName = 'id' Title.Caption = 'Factura' Width = 65 Visible = True end item Expanded = False FieldName = 'nomdestino' Title.Caption = 'Destino' Width = 210 Visible = True end item Expanded = False FieldName = 'neto' Title.Caption = 'Base' Visible = True end item Expanded = False FieldName = 'total' Title.Caption = 'Total' Width = 65 Visible = True end item Expanded = False FieldName = 'observaciones' Title.Caption = 'Observaciones' Width = 400 Visible = True end item Expanded = False FieldName = 'tipo' Title.Caption = '% Iva' Visible = True end item Expanded = False FieldName = 'base' Title.Caption = 'Base Iva' Visible = True end item Expanded = False FieldName = 'iva' Title.Caption = 'Total Iva' Visible = True end> end end end end end end end object dsqformaspago: TDataSource DataSet = qformaspago Left = 704 Top = 80 end object qformaspago: TZQuery Connection = DM.DBagrigest SQL.Strings = ( 'select * from formas_pago order by descripcion') Params = <> MasterFields = 'id' MasterSource = DM.dsempresa LinkedFields = 'ide' Left = 656 Top = 176 object qformaspagoide: TIntegerField FieldName = 'ide' Required = True end object qformaspagoid: TIntegerField FieldName = 'id' Required = True end object qformaspagocodigo: TWideStringField FieldName = 'codigo' Required = True Size = 40 end object qformaspagodescripcion: TWideStringField FieldName = 'descripcion' Required = True Size = 200 end object qformaspagodias: TIntegerField FieldName = 'dias' Required = True end end object qaux: TZReadOnlyQuery Connection = DM.DBagrigest Params = <> Left = 496 Top = 80 end object SaveDialog1: TSaveDialog Left = 80 Top = 112 end object dsqfacturasclientes: TDataSource DataSet = qfacturasclientes Left = 568 Top = 424 end object qfacturasclientes: TZReadOnlyQuery Connection = DM.DBagrigest SQL.Strings = ( 'select * from facturas f,facturas_iva fi where f.idempresa=fi.id' + 'e and f.serie=fi.serie and f.id=fi.idfactura order by f.serie,fe' + 'cha desc,f.id desc') Params = <> MasterFields = 'Idempresa;id' LinkedFields = 'idempresa;idcliente' Left = 648 Top = 424 object qfacturasclientesserie: TWideStringField FieldName = 'serie' Required = True Size = 10 end object qfacturasclientesid: TIntegerField FieldName = 'id' Required = True end object qfacturasclientesidempresa: TIntegerField FieldName = 'idempresa' Required = True end object qfacturasclientesidcliente: TIntegerField FieldName = 'idcliente' Required = True end object qfacturasclientesiddestino: TWideStringField FieldName = 'iddestino' Size = 40 end object qfacturasclientesnif: TWideStringField FieldName = 'nif' Size = 22 end object qfacturasclientesdireccion: TWideStringField FieldName = 'direccion' Size = 100 end object qfacturasclientespoblacion: TWideStringField FieldName = 'poblacion' Size = 100 end object qfacturasclientesprovincia: TWideStringField FieldName = 'provincia' Size = 50 end object qfacturasclientescodpost: TWideStringField FieldName = 'codpost' Size = 10 end object qfacturasclientesfecha: TDateField FieldName = 'fecha' Required = True end object qfacturasclientesreferencia: TWideStringField FieldName = 'referencia' Size = 50 end object qfacturasclientestelefono: TWideStringField FieldName = 'telefono' Size = 30 end object qfacturasclientesnomcliente: TWideStringField FieldName = 'nomcliente' Size = 100 end object qfacturasclientespaiscliente: TWideStringField FieldName = 'paiscliente' Size = 50 end object qfacturasclientesnomdestino: TWideStringField FieldName = 'nomdestino' Size = 100 end object qfacturasclientesdirecciondestino: TWideStringField FieldName = 'direcciondestino' Size = 100 end object qfacturasclientespoblaciondestino: TWideStringField FieldName = 'poblaciondestino' Size = 50 end object qfacturasclientescodpostdestino: TWideStringField FieldName = 'codpostdestino' Size = 50 end object qfacturasclientesprovinciadestino: TWideStringField FieldName = 'provinciadestino' Size = 50 end object qfacturasclientespaisdestino: TWideStringField FieldName = 'paisdestino' Size = 50 end object qfacturasclientesneto: TFloatField FieldName = 'neto' Required = True end object qfacturasclientestotal: TFloatField FieldName = 'total' Required = True end object qfacturasclientesdocumento: TWideStringField FieldName = 'documento' Size = 50 end object qfacturasclientesdescuento_lin: TFloatField FieldName = 'descuento_lin' Required = True end object qfacturasclientesdescuento_com: TFloatField FieldName = 'descuento_com' Required = True end object qfacturasclientesdescuento_pp: TFloatField FieldName = 'descuento_pp' Required = True end object qfacturasclientesdescuento_total: TFloatField FieldName = 'descuento_total' Required = True end object qfacturasclientestotaliva: TFloatField FieldName = 'totaliva' Required = True end object qfacturasclientesobservaciones: TWideStringField FieldName = 'observaciones' Size = 510 end object qfacturasclientesbultos: TFloatField FieldName = 'bultos' Required = True end object qfacturasclienteskilos: TFloatField FieldName = 'kilos' Required = True end object qfacturasclientesidformapago: TIntegerField FieldName = 'idformapago' Required = True end object qfacturasclientesserie_1: TWideStringField FieldName = 'serie_1' Required = True Size = 10 end object qfacturasclientesidfactura: TIntegerField FieldName = 'idfactura' Required = True end object qfacturasclienteside: TIntegerField FieldName = 'ide' Required = True end object qfacturasclientesbase: TFloatField FieldName = 'base' Required = True end object qfacturasclientestipo: TFloatField FieldName = 'tipo' Required = True end object qfacturasclientesiva: TFloatField FieldName = 'iva' Required = True end object qfacturasclientescobrado: TIntegerField FieldName = 'cobrado' end end object qcuentas: TZReadOnlyQuery Connection = DM.DBagrigest SQL.Strings = ( 'select * from cuentas_bancarias order by banco') Params = <> MasterFields = 'id' MasterSource = DM.dsempresa LinkedFields = 'ide' Left = 32 Top = 232 object qcuentaside: TIntegerField FieldName = 'ide' Required = True end object qcuentasid: TIntegerField FieldName = 'id' Required = True end object qcuentasbanco: TWideStringField FieldName = 'banco' Required = True Size = 100 end object qcuentascciban: TWideStringField FieldName = 'cciban' Required = True Size = 8 end object qcuentasccentidad: TWideStringField FieldName = 'ccentidad' Required = True Size = 8 end object qcuentasccoficina: TWideStringField FieldName = 'ccoficina' Required = True Size = 8 end object qcuentasccdc: TWideStringField FieldName = 'ccdc' Required = True Size = 4 end object qcuentascccc: TWideStringField FieldName = 'cccc' Required = True end end object dsqcuentas: TDataSource DataSet = qcuentas Left = 32 Top = 176 end object dsqtiposiva: TDataSource DataSet = qtipos_iva Left = 96 Top = 176 end object qtipos_iva: TZReadOnlyQuery Connection = DM.DBagrigest SQL.Strings = ( 'select * from tipos_iva') Params = <> MasterFields = 'tipoiva' LinkedFields = 'id' Left = 96 Top = 248 object qtipos_ivaid: TIntegerField FieldName = 'id' Required = True end object qtipos_ivadescripcion: TWideStringField FieldName = 'descripcion' Required = True Size = 50 end object qtipos_ivatipo: TIntegerField FieldName = 'tipo' Required = True end object qtipos_ivatipo_req: TFloatField FieldName = 'tipo_req' Required = True end end object qclientesexcel: TZReadOnlyQuery Connection = DM.DBagrigest SQL.Strings = ( 'select * from clientes c, clientes_destinos cd where c.id=cd.idc' + 'liente and c.idempresa=cd.idempresa order by c.nombre') Params = <> Left = 600 Top = 16 object qclientesexcelid: TIntegerField FieldName = 'id' Required = True end object qclientesexcelIdempresa: TIntegerField FieldName = 'Idempresa' Required = True end object qclientesexcelnif: TWideStringField FieldName = 'nif' Required = True Size = 30 end object qclientesexcelnombre: TWideStringField FieldName = 'nombre' Required = True Size = 80 end object qclientesexcelnombre_corto: TWideStringField FieldName = 'nombre_corto' Required = True Size = 30 end object qclientesexceldireccion: TWideStringField FieldName = 'direccion' Size = 80 end object qclientesexcelpoblacion: TWideStringField FieldName = 'poblacion' Size = 80 end object qclientesexcelcodpost: TWideStringField FieldName = 'codpost' Size = 10 end object qclientesexcelprovincia: TWideStringField FieldName = 'provincia' Size = 60 end object qclientesexceltelefono: TWideStringField FieldName = 'telefono' Size = 24 end object qclientesexceltelefono2: TWideStringField FieldName = 'telefono2' Size = 30 end object qclientesexcelmovil: TWideStringField FieldName = 'movil' Size = 30 end object qclientesexcelemail: TWideStringField FieldName = 'email' Size = 80 end object qclientesexcelpersonacontacto: TWideStringField FieldName = 'personacontacto' Size = 80 end object qclientesexcelcodigomercado: TIntegerField FieldName = 'codigomercado' end object qclientesexcelactivo: TIntegerField FieldName = 'activo' end object qclientesexcelobservaciones: TWideStringField FieldName = 'observaciones' Size = 500 end object qclientesexcelccontable: TIntegerField FieldName = 'ccontable' end object qclientesexceldescuento: TFloatField FieldName = 'descuento' Required = True end object qclientesexcelpais: TWideStringField FieldName = 'pais' Size = 50 end object qclientesexcelidformapago: TIntegerField FieldName = 'idformapago' Required = True end object qclientesexcelexento_iva: TIntegerField FieldName = 'exento_iva' Required = True end object qclientesexcelcomision: TFloatField FieldName = 'comision' Required = True end object qclientesexcelidcp: TIntegerField FieldName = 'idcp' end object qclientesexcelcodigo: TWideStringField FieldName = 'codigo' Required = True Size = 40 end object qclientesexcelidcliente: TIntegerField FieldName = 'idcliente' Required = True end object qclientesexcelidempresa_1: TIntegerField FieldName = 'idempresa_1' Required = True end object qclientesexceldescripcion: TWideStringField FieldName = 'descripcion' Required = True Size = 80 end object qclientesexcelseleccionado: TIntegerField FieldName = 'seleccionado' Required = True end object qclientesexcelactivo_1: TIntegerField FieldName = 'activo_1' Required = True end object qclientesexceldireccion_1: TWideStringField FieldName = 'direccion_1' Size = 50 end object qclientesexcelpoblacion_1: TWideStringField FieldName = 'poblacion_1' Size = 50 end object qclientesexcelcodpost_1: TWideStringField FieldName = 'codpost_1' Size = 10 end object qclientesexcelprovincia_1: TWideStringField FieldName = 'provincia_1' Size = 50 end object qclientesexcelpais_1: TWideStringField FieldName = 'pais_1' Size = 50 end end object dsqclientesexcel: TDataSource DataSet = qclientesexcel Left = 464 Top = 16 end end