u_importqdz.~pa

Mosaic ERP大型系统 v6.09.rar

unit U_importQDZ;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ActnList, StdCtrls, ExtCtrls, ComCtrls, Db, DBTables, Grids, DBGrids,
  DBCtrls, Mask, DBCGrids;

type
  TQuick_Wiz = class(TForm)
    Bevel1: TBevel;
    azioni_wiz: TActionList;
    Annulla: TAction;
    Cerca_dir: TOpenDialog;
    Localizzazione_label: TLabel;
    Selezione_pacchetto_label: TLabel;
    Pagine: TPageControl;
    Localizzazione: TTabSheet;
    Selezione_pacchetto: TTabSheet;
    Label3: TLabel;
    Memo2: TMemo;
    Label2: TLabel;
    Memo1: TMemo;
    Label1: TLabel;
    percorso: TEdit;
    Sfoglia: TButton;
    Avanti_a_categorie: TButton;
    Avanti_a_backup: TButton;
    Categorie: TTabSheet;
    Categorie_label: TLabel;
    Elenco_prg: TRadioGroup;
    Label4: TLabel;
    Memo6: TMemo;
    Annulla_da_categorie: TButton;
    Avanti_a_varianti: TButton;
    Annulla_localizzazione: TButton;
    Annulla_da_localizzazione: TButton;
    Elenco_cate: TMemo;
    Elenco_categorie: TLabel;
    Varianti: TTabSheet;
    Categorie_merceologiche: TTabSheet;
    Label6: TLabel;
    Memo3: TMemo;
    Label7: TLabel;
    Button1: TButton;
    Avanti_a_categorie_merceologiche: TButton;
    Impostazione_Varianti_label: TLabel;
    Label8: TLabel;
    QTaglie: TQuery;
    DSTaglie: TDataSource;
    DSColori: TDataSource;
    Qcolori: TQuery;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    QcoloriCOLORENUM: TSmallintField;
    QcoloriCOLORE: TStringField;
    QTaglieTAGLIANUM: TSmallintField;
    QTaglieTAGLIA: TStringField;
    Iva: TTabSheet;
    Label9: TLabel;
    Memo5: TMemo;
    Label10: TLabel;
    Griglia_Iva: TDBGrid;
    Tabelle_IVA_label: TLabel;
    Button2: TButton;
    Avanti_iva: TButton;
    Marche_label: TLabel;
    Marche: TTabSheet;
    DBNavigator1: TDBNavigator;
    Categorie_merceologiche_label: TLabel;
    Button4: TButton;
    Avanti_categorie_merceologiche: TButton;
    Label11: TLabel;
    Memo7: TMemo;
    multirecord: TDBCtrlGrid;
    DBEdit1: TDBEdit;
    DBCheckBox1: TDBCheckBox;
    DBLookupComboBox1: TDBLookupComboBox;
    DBNavigator2: TDBNavigator;
    Label15: TLabel;
    Memo8: TMemo;
    Label16: TLabel;
    Elenco_marche: TMemo;
    Indietro_categorie_merceologiche: TButton;
    Button5: TButton;
    Indietro_marche: TButton;
    Avanti_marche: TButton;
    QMarche: TQuery;
    Panel1: TPanel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Banche: TTabSheet;
    banche_label: TLabel;
    Label17: TLabel;
    Testo_banche: TMemo;
    Avanti_banche: TButton;
    Indietro_banche: TButton;
    Button8: TButton;
    Listini: TTabSheet;
    Listini_label: TLabel;
    Label19: TLabel;
    Memo11: TMemo;
    Button9: TButton;
    Indietro_listini: TButton;
    Avanti_listini: TButton;
    multilistini: TDBCtrlGrid;
    Panel2: TPanel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    DBEdit2: TDBEdit;
    DBLookupComboBox2: TDBLookupComboBox;
    DBEdit3: TDBEdit;
    DBNavigator3: TDBNavigator;
    QBanche: TQuery;
    Conti: TTabSheet;
    DBGrid4: TDBGrid;
    Label18: TLabel;
    DSBanche: TDataSource;
    Conti_label: TLabel;
    Label23: TLabel;
    Memo9: TMemo;
    Button6: TButton;
    Indietro_conti: TButton;
    Avanti_conti: TButton;
    Elenco_conti: TMemo;
    Agenti: TTabSheet;
    Agenti_label: TLabel;
    Label24: TLabel;
    Testo_agenti: TMemo;
    Button7: TButton;
    Indietro_Agenti: TButton;
    Avanti_agenti: TButton;
    Qagenti: TQuery;
    Soggetti: TTabSheet;
    Griglia_Agenti: TDBGrid;
    Articoli: TTabSheet;
    Conclusioni: TTabSheet;
    Soggetti_label: TLabel;
    Articoli_label: TLabel;
    Conclusioni_label: TLabel;
    Label25: TLabel;
    Testo_soggetti: TMemo;
    Button10: TButton;
    Avanti_soggetti: TButton;
    Label26: TLabel;
    Testo_articoli: TMemo;
    Button11: TButton;
    Avanti_articoli: TButton;
    Label27: TLabel;
    Fine: TButton;
    Memo13: TMemo;
    Pagamenti: TTabSheet;
    Label28: TLabel;
    Testo_pagamenti: TMemo;
    Button12: TButton;
    Indietro_pagamenti: TButton;
    avanti_pagamenti: TButton;
    Pagamenti_label: TLabel;
    Griglia_pagamenti: TDBGrid;
    Mostra_Pagamenti: TButton;
    TModPagTb: TTable;
    TModPagTbCodice: TStringField;
    TModPagTbDescrizione: TStringField;
    TModPagTbConto: TStringField;
    TModPagTbTipo: TStringField;
    TModPagTbScontogenerale: TFloatField;
    DSModPag: TDataSource;
    DmodPagTb: TTable;
    DmodPagTbModalitadipagamento: TStringField;
    DmodPagTbNumerorata: TFloatField;
    DmodPagTbPercentualerata: TFloatField;
    TSoggetti: TTable;
    TSoggettiCodice: TStringField;
    TSoggettiTiporapporto: TStringField;
    TSoggettiRagionesociale: TStringField;
    TSoggettiRagionesociale1: TStringField;
    TSoggettiIndirizzo: TStringField;
    TSoggettiLocalit: TStringField;
    TSoggettiCap: TStringField;
    TSoggettiProvincia: TStringField;
    TSoggettiFax: TMemoField;
    TSoggettiTelefono: TMemoField;
    TSoggettiPersonadacontattare: TMemoField;
    TSoggettiCodiceFiscale: TStringField;
    TSoggettiPartitaiva: TStringField;
    TSoggettiFido: TCurrencyField;
    TSoggettiAgente: TStringField;
    TSoggettiEsenzioneIva: TStringField;
    TSoggettiImportominimoriordino: TCurrencyField;
    TSoggettiModalitadipagamento: TStringField;
    TSoggettiBancaappoggio: TStringField;
    TSoggettiCategoria: TStringField;
    TSoggettiDatainiziorapporto: TDateField;
    TSoggettiScontogenerale: TFloatField;
    TSoggettiScontogenerale2: TFloatField;
    TSoggettiScontogenerale3: TFloatField;
    TSogrif: TTable;
    TSogrifCodice: TStringField;
    TSogrifRagionesocialefattura: TStringField;
    TSogrifIndirizzofattura: TStringField;
    TSogrifLocalitafattura: TStringField;
    TSogrifCapfattura: TStringField;
    TSogrifProvinciafattura: TStringField;
    TSogrifRagionesocialemerce: TStringField;
    TSogrifIndirizzomerce: TStringField;
    TSogrifLocalitamerce: TStringField;
    TSogrifCapmerce: TStringField;
    TSogrifProvinciamerce: TStringField;
    TClientiDb: TTable;
    TClientiDbNUMCLI: TFloatField;
    TClientiDbCLIENTE: TStringField;
    TClientiDbINDIRIZZO: TStringField;
    TClientiDbCAP: TStringField;
    TClientiDbCITTA: TStringField;
    TClientiDbPROV: TStringField;
    TClientiDbTELEFONO1: TStringField;
    TClientiDbTELEFONO2: TStringField;
    TClientiDbFAX: TStringField;
    TClientiDbPART_IVA: TStringField;
    TClientiDbCOD_FIS: TStringField;
    TClientiDbBANCA: TStringField;
    TClientiDbFILIALE: TStringField;
    TClientiDbNUM_CONTO: TStringField;
    TClientiDbCAB: TStringField;
    TClientiDbABI: TStringField;
    TClientiDbFIDO: TFloatField;
    TClientiDbNOTE: TStringField;
    TClientiDbLISTINO: TStringField;
    TClientiDbDEST_MERCE: TStringField;
    TClientiDbPAGAMENTO: TStringField;
    TFornitoriDb: TTable;
    TFornitoriDbNUMFOR: TSmallintField;
    TFornitoriDbFORNITORE: TStringField;
    TFornitoriDbINDIRIZZO: TStringField;
    TFornitoriDbCAP: TStringField;
    TFornitoriDbCITTA: TStringField;
    TFornitoriDbPROV: TStringField;
    TFornitoriDbTELEFONO1: TStringField;
    TFornitoriDbTELEFONO2: TStringField;
    TFornitoriDbFAX: TStringField;
    TFornitoriDbPART_IVA: TStringField;
    TFornitoriDbCOD_FIS: TStringField;
    TFornitoriDbBANCA: TStringField;
    TFornitoriDbFILIALE: TStringField;
    TFornitoriDbNUM_CONTO: TStringField;
    TFornitoriDbCAB: TStringField;
    TFornitoriDbABI: TStringField;
    TFornitoriDbFIDO: TFloatField;
    TFornitoriDbNOTE: TStringField;
    TFornitoriDbLISTINO: TStringField;
    TFornitoriDbDEST_MERCE: TStringField;
    TFornitoriDbPAGAMENTO: TStringField;
    TFornitoriDbPROGRESSIV: TFloatField;
    TFornitoriDbANNUALE: TFloatField;
    TFornitoriDbESER_PREC: TFloatField;
    Avanzamento_Soggetti_bar: TProgressBar;
    Avanzamento_soggetti_label: TLabel;
    Avanzamento_clienti_label: TLabel;
    Avanzamento_clienti_bar: TProgressBar;
    Avanzamento_fornitori_label: TLabel;
    Avanzamento_fornitori_bar: TProgressBar;
    Avanzamento_articoli_bar: TProgressBar;
    Avanzamento_articoli_label: TLabel;
    Scadenziario: TTabSheet;
    PrimaNota: TTabSheet;
    Label29: TLabel;
    Memo10: TMemo;
    Avanzamento_scadenziario_clienti_label: TLabel;
    Avanzamento_scadenziario_clienti_bar: TProgressBar;
    Avanti_scadenziario: TButton;
    Button14: TButton;
    Avanzamento_scadenziario_fornitori_label: TLabel;
    Avanzamento_scadenziario_fornitori_bar: TProgressBar;
    Scadenziario_label: TLabel;
    PrimaNota_Label: TLabel;
    Salta_scadenziario: TButton;