u_importqdz.~pa

Mosaic ERP大型系统 v6.09.rar

    TTSoggettiZona: TStringField;
    TTSoggettiDepositopreferenziale: TStringField;
    TTSoggettiVettorepreferenziale: TStringField;
    TTSoggettiListino: TStringField;
    TTSoggettiBanca: TStringField;
    TTSoggettiConto: TStringField;
    TTSoggettiValutaconto: TStringField;
    TTSoggettiPagamento: TStringField;
    TTSoggettiGruppo: TStringField;
    TTSoggettiIva: TStringField;
    TTSoggettiTestoesenzioniIVA: TMemoField;
    TTSoggettiContocorrente: TStringField;
    TTSoggettiSconto: TFloatField;
    TTSoggettiRicarico: TFloatField;
    TTSoggettiNote: TMemoField;
    TTSoggettiPartitaPC: TStringField;
    TTSoggettiCausalecontabile: TStringField;
    TTSoggettiCodiceritenuta: TStringField;
    TTSoggettiIdGiornale: TStringField;
    Qubicazione: TQuery;
    TClientiSizeDb: TTable;
    TClientiSizeDbNUMCLI: TSmallintField;
    TClientiSizeDbCLIENTE: TStringField;
    TClientiSizeDbINDIRIZZO: TStringField;
    TClientiSizeDbCAP: TStringField;
    TClientiSizeDbCITTA: TStringField;
    TClientiSizeDbPROV: TStringField;
    TClientiSizeDbTELEFONO1: TStringField;
    TClientiSizeDbTELEFONO2: TStringField;
    TClientiSizeDbFAX: TStringField;
    TClientiSizeDbPART_IVA: TStringField;
    TClientiSizeDbCOD_FIS: TStringField;
    TClientiSizeDbBANCA: TStringField;
    TClientiSizeDbFILIALE: TStringField;
    TClientiSizeDbNUM_CONTO: TStringField;
    TClientiSizeDbCAB: TStringField;
    TClientiSizeDbABI: TStringField;
    TClientiSizeDbFIDO: TFloatField;
    TClientiSizeDbNOTE: TStringField;
    TClientiSizeDbLISTINO: TStringField;
    TClientiSizeDbDEST_MERCE: TStringField;
    TClientiSizeDbPAGAMENTO: TStringField;
    TClientiSizeDbPROGRESSIV: TFloatField;
    TClientiSizeDbANNUALE: TFloatField;
    TClientiSizeDbESER_PREC: TFloatField;
    procedure AnnullaExecute(Sender: TObject);
    procedure PagineEnter(Sender: TObject);
    procedure percorsoChange(Sender: TObject);
    procedure SfogliaClick(Sender: TObject);
    procedure LocalizzazioneShow(Sender: TObject);
    procedure LocalizzazioneHide(Sender: TObject);
    procedure Selezione_pacchettoShow(Sender: TObject);
    procedure Selezione_pacchettoHide(Sender: TObject);
    procedure CategorieShow(Sender: TObject);
    procedure CategorieHide(Sender: TObject);
    procedure Elenco_prgClick(Sender: TObject);
    procedure Annulla_da_localizzazioneClick(Sender: TObject);
    procedure Avanti_a_categorieClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Avanti_a_variantiClick(Sender: TObject);
    procedure Elenco_cateChange(Sender: TObject);
    procedure VariantiShow(Sender: TObject);
    procedure VariantiHide(Sender: TObject);
    procedure Avanti_a_categorie_merceologicheClick(Sender: TObject);
    procedure IvaShow(Sender: TObject);
    procedure IvaHide(Sender: TObject);
    procedure Avanti_ivaClick(Sender: TObject);
    procedure Categorie_merceologicheShow(Sender: TObject);
    procedure Categorie_merceologicheHide(Sender: TObject);
    procedure MarcheShow(Sender: TObject);
    procedure MarcheHide(Sender: TObject);
    procedure Avanti_categorie_merceologicheClick(Sender: TObject);
    procedure Indietro_categorie_merceologicheClick(Sender: TObject);
    procedure Elenco_marcheChange(Sender: TObject);
    procedure Indietro_marcheClick(Sender: TObject);
    procedure Avanti_marcheClick(Sender: TObject);
    procedure BancheShow(Sender: TObject);
    procedure BancheHide(Sender: TObject);
    procedure Indietro_listiniClick(Sender: TObject);
    procedure ListiniShow(Sender: TObject);
    procedure ListiniHide(Sender: TObject);
    procedure Avanti_listiniClick(Sender: TObject);
    procedure Avanti_bancheClick(Sender: TObject);
    procedure ContiShow(Sender: TObject);
    procedure ContiHide(Sender: TObject);
    procedure Elenco_contiChange(Sender: TObject);
    procedure Indietro_contiClick(Sender: TObject);
    procedure Indietro_bancheClick(Sender: TObject);
    procedure Avanti_contiClick(Sender: TObject);
    procedure AgentiShow(Sender: TObject);
    procedure AgentiHide(Sender: TObject);
    procedure Indietro_AgentiClick(Sender: TObject);
    procedure Avanti_agentiClick(Sender: TObject);
    procedure SoggettiShow(Sender: TObject);
    procedure SoggettiHide(Sender: TObject);
    procedure ArticoliShow(Sender: TObject);
    procedure ArticoliHide(Sender: TObject);
    procedure ConclusioniShow(Sender: TObject);
    procedure ConclusioniHide(Sender: TObject);
    procedure PagamentiShow(Sender: TObject);
    procedure PagamentiHide(Sender: TObject);
    procedure Indietro_pagamentiClick(Sender: TObject);
    procedure avanti_pagamentiClick(Sender: TObject);
    procedure Avanti_soggettiClick(Sender: TObject);
    procedure Avanti_articoliClick(Sender: TObject);
    procedure ScadenziarioShow(Sender: TObject);
    procedure ScadenziarioHide(Sender: TObject);
    procedure PrimaNotaShow(Sender: TObject);
    procedure PrimaNotaHide(Sender: TObject);
    procedure Avanti_a_backupClick(Sender: TObject);
    procedure FineClick(Sender: TObject);
    procedure Backup_btnClick(Sender: TObject);
    procedure Avanti_scadenziarioClick(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Salta_scadenziarioClick(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure SaltaArtBtnClick(Sender: TObject);
  private
    { Private declarations }
    Procedure Check_dir ;
    Procedure Importa_categorie_da_banco ;
    Procedure Importa_categorie_da_quickdata ;
    Procedure Impostazione_manuale_Categorie ;
    Procedure Crea_elenco_varianti ;
    Procedure Importa_marche_banco ;
    Procedure Importa_marche_ZqsPlus ;
    Procedure Imposta_listino_manuale ;
    Procedure Imposta_listino_banco ;
    Procedure Imposta_Listino_Quick ;
    Procedure Importa_Banche_da_banco ;
    Procedure Importa_Banche_Da_Quick ;
    Procedure Importa_Banche_da_banco_2 ;
    Procedure Importa_banche_da_Quick_2 ;
    Procedure Importa_Agenti_da_Banco ;
    Procedure Importa_Agenti_da_Quick ;
    Procedure Importa_pagamenti_da_banco ;
    Procedure Importa_pagamenti_da_Quick ;
    Procedure Importa_soggetti_da_quick ;
    Procedure Importa_soggetti_da_banco ;
    Procedure Crea_tipo_rapporto ;
    Procedure Crea_deposito ;
    Procedure Importa_Articoli_da_banco ;
    Procedure Importa_Articoli_da_Quick ;
    Procedure Importa_Articoli_Da_quickplus ;
    Procedure Importa_Articoli_da_Quicksize ;
    Procedure Importa_Scadenziario_da_banco ;
    Procedure Importa_Scadenziario_Da_Quick ;
    Procedure Importa_Scadenziario_Da_QuickPlus ;
    Procedure Inserisci_categorie_nei_listini ;
    Procedure Importa_primanota_da_banco ;
    Procedure Importa_primanota_da_quick ;
    Procedure Importa_primanota_Da_quickplus ;
  public
    function Ricarico(Vendita, Acquisto: currency): Real;
    procedure PredisponiUbicazione;
    procedure Importa_Soggetti_Da_QuickSize;
    { Public declarations }
  end;

var
  Quick_Wiz: TQuick_Wiz;

implementation

uses Umenu, ana_mod, scade_mod, Doc_mod, selezionadir; // selezionadir;

{$R *.DFM}

Procedure TQuick_wiz.Importa_Primanota_Da_Banco ;
begin
 //Da fare
end ;

Procedure Tquick_wiz.Importa_Primanota_Da_Quick ;
Begin
 If QPnotaQuick.Active then QPnotaQuick.Close ;
 QPnotaQuick.DatabaseName := Percorso.text ;
 QPnotaQuick.Params[0].Value := datamax.Date ;
 QPnotaQuick.Prepare ;
 QPnotaQuick.open ;
 QPnotaQuick.First ;
 Avanzamento_Primanota_bar.Max := QPnotaQuick.RecordCount ;
 With ModuloDatiScadenziario do
  While Not QPnotaQuick.eof do
    begin
     Avanzamento_primanota_bar.Position := QPnotaQuick.RecNo ;
     Avanzamento_primanota_bar.Update ;
     TTTPnota.Filtered := False ;
     If Not TTTPnota.Locate('Registrazione',QPnotaQuickN_Prog.asInteger,[]) then
      begin
       TTTPnota.Insert ;
       TTTPnotaRegistrazione.AsInteger := QPnotaQuickN_prog.AsInteger ;
       TTTPnotaData.asDateTime := QPnotaQuickData.asdatetime ;
       TTTPnotaDescrizione.asString := QPnotaQuickOperazione.AsString ;
       TTTPnotaMezzo.asString := QPnotaQuickTramite.AsString ;
       TTTPnotaC1E.AsCurrency := QPnotaQuickCassa_E.asCurrency ;
       TTTPnotaC1U.asCurrency := QPnotaQuickCassa_U.AsCurrency ;
       TTTPnotaC2E.AsCurrency := QPnotaQuickBanca1_E.AsCurrency ;
       TTTPnotaC2U.AsCurrency := QPnotaQuickBanca1_U.AsCurrency ;
       TTTPnotaC3E.AsCurrency := QPnotaQuickBanca2_E.AsCurrency ;
       TTTPnotaC3U.AsCurrency := QPnotaQuickBanca2_U.AsCurrency ;
       TTTPnotaC4E.AsCurrency := QPnotaQuickBanca3_E.AsCurrency ;
       TTTPnotaC4U.AsCurrency := QPnotaQuickBanca3_U.AsCurrency ;
       TTTPnotaEntrata.AsCurrency := TTTPnotaC1E.AsCurrency + TTTPnotaC2E.AsCurrency + TTTPnotaC3E.AsCurrency +TTTPnotaC4E.AsCurrency ;
       TTTPnotaUscita.AsCurrency := TTTPnotaC1U.AsCurrency + TTTPnotaC2U.AsCurrency + TTTPnotaC3U.AsCurrency +TTTPnotaC4U.AsCurrency ;
       If TTTPnotaDescrizione.asString = '' then
        TTTPnotaDescrizione.AsString := '-' ;
       If QPnotaQuickMark.AsString = '' then
        TTTPnotaStampato.AsBoolean := False
       else
        TTTPnotaStampato.AsBoolean := True ;
       TTTPnota.Post ;
      end ;
     QPnotaQuick.Next ;
    end ;
 QPnotaQuick.Close ;
 QPnotaQuick.UnPrepare ;
 Pagine.ActivePage := Conclusioni ;
end ;

Procedure Tquick_wiz.Importa_Primanota_Da_Quickplus ;
begin
 If QPnotaQuickPlus.Active then QPnotaQuickPlus.Close ;
 QPnotaQuickPlus.DatabaseName := Percorso.text ;
 QPnotaQuickPlus.Params[0].Value := datamax.Date ;
 QPnotaQuickPlus.Prepare ;
 QPnotaQuickPlus.open ;
 QPnotaQuickPlus.First ;
 Avanzamento_Primanota_bar.Max := QPnotaQuickPlus.RecordCount ;
 With ModuloDatiScadenziario do
  While Not QPnotaQuickPlus.eof do
    begin
     Avanzamento_primanota_bar.Position := QPnotaQuickPlus.RecNo ;
     Avanzamento_primanota_bar.Update ;
     TTTPnota.Filtered := False ;
     If Not TTTPnota.Locate('Registrazione',QPnotaQuickPlusN_Prog.asInteger,[]) then
      begin
       TTTPnota.Insert ;
       TTTPnotaRegistrazione.AsInteger := QPnotaQuickPlusN_prog.AsInteger ;
       TTTPnotaData.asDateTime := QPnotaQuickPlusData.AsDateTime ;
       TTTPnotaDescrizione.asString := QPnotaQuickPlusOperazione.AsString + ' ' +
                                       QPnotaQuickPlusRagione.AsString ;
       TTTPnotaMezzo.asString := QPnotaQuickPlusA_MEZZO.AsString ;
       TTTPnotaC1E.AsCurrency := QPnotaQuickPlusCassa_E.asCurrency ;
       TTTPnotaC1U.asCurrency := QPnotaQuickPlusCassa_U.AsCurrency ;
       TTTPnotaC2E.AsCurrency := QPnotaQuickPlusBanca1_E.AsCurrency ;
       TTTPnotaC2U.AsCurrency := QPnotaQuickPlusBanca1_U.AsCurrency ;
       TTTPnotaC3E.AsCurrency := QPnotaQuickPlusBanca2_E.AsCurrency ;
       TTTPnotaC3U.AsCurrency := QPnotaQuickPlusBanca2_U.AsCurrency ;
       TTTPnotaC4E.AsCurrency := QPnotaQuickPlusBanca3_E.AsCurrency ;
       TTTPnotaC4U.AsCurrency := QPnotaQuickPlusBanca3_U.AsCurrency ;
       TTTPnotaEntrata.AsCurrency := TTTPnotaC1E.AsCurrency + TTTPnotaC2E.AsCurrency + TTTPnotaC3E.AsCurrency +TTTPnotaC4E.AsCurrency ;
       TTTPnotaUscita.AsCurrency := TTTPnotaC1U.AsCurrency + TTTPnotaC2U.AsCurrency + TTTPnotaC3U.AsCurrency +TTTPnotaC4U.AsCurrency ;
       If TTTPnotaDescrizione.asString = '' then
        TTTPnotaDescrizione.AsString := '-' ;
       If QPnotaQuickPlusMark.AsString = '' then
        TTTPnotaStampato.AsBoolean := False
       else
        TTTPnotaStampato.AsBoolean := True ;
       TTTPnota.Post ;
      end ;
     QPnotaQuickPlus.Next ;
    end ;
 QPnotaQuickPlus.Close ;
 QPnotaQuickPlus.UnPrepare ;
 Pagine.ActivePage := Conclusioni ;

end ;
Procedure Tquick_wiz.Importa_Articoli_da_quickplus ;
Var
 Cod_art,cod_fornitore,etichetta : string ;
 Cod_num : longint ;
 DataMov : TDate ;

begin
 If ModuloDatiAnagrafiche.TTDepositiDeposito.IsNull then
  begin
   ShowMessage('Attenzione, non