ana_mod.~pa

Mosaic ERP大型系统 v6.09.rar

    procedure TTIvaAfterPost(DataSet: TDataSet);
    procedure TTDepositiAfterPost(DataSet: TDataSet);
    procedure TTArtStatAfterPost(DataSet: TDataSet);
    procedure TTGruSogCodAfterPost(DataSet: TDataSet);
    procedure TTarticolilookupAfterPost(DataSet: TDataSet);
    procedure TTArticoliBancoAfterPost(DataSet: TDataSet);
    procedure TTImpostatAfterPost(DataSet: TDataSet);
    procedure TTGruSogAfterPost(DataSet: TDataSet);
    procedure TTModPagAfterPost(DataSet: TDataSet);
    procedure TTDModPagAfterPost(DataSet: TDataSet);
    procedure TTContiAfterPost(DataSet: TDataSet);
    procedure TTAgentiAfterPost(DataSet: TDataSet);
    procedure TTsoggettiAfterPost(DataSet: TDataSet);
    procedure TTTipisogAfterPost(DataSet: TDataSet);
    procedure TTConvDoc_anaAfterPost(DataSet: TDataSet);
    procedure TTSogLookAfterPost(DataSet: TDataSet);
    procedure TTArtFornAfterPost(DataSet: TDataSet);
    procedure TTDocLookupAfterPost(DataSet: TDataSet);
    procedure TTIstatAfterPost(DataSet: TDataSet);
    procedure TTIstatAfterInsert(DataSet: TDataSet);
    procedure TTCausaliAfterPost(DataSet: TDataSet);
    procedure TTCaudocAfterPost(DataSet: TDataSet);
    procedure TTListiniAfterPost(DataSet: TDataSet);
    procedure TTListinoAfterPost(DataSet: TDataSet);
    procedure TTConaiAfterPost(DataSet: TDataSet);
    procedure TTartConaiAfterPost(DataSet: TDataSet);
    procedure TTCauContabiliAfterPost(DataSet: TDataSet);
    procedure TTZoneAfterPost(DataSet: TDataSet);
    procedure TTAgZoneAfterPost(DataSet: TDataSet);
    procedure TTStatiAfterPost(DataSet: TDataSet);
    procedure TTformuleAfterPost(DataSet: TDataSet);
    procedure TTStagioniAfterPost(DataSet: TDataSet);
    procedure TTCatListAfterPost(DataSet: TDataSet);
    procedure TTPunteggiAfterPost(DataSet: TDataSet);
    procedure TTDVar1AfterPost(DataSet: TDataSet);
    procedure TTDvar2AfterPost(DataSet: TDataSet);
    procedure TTVarianti1AfterPost(DataSet: TDataSet);
    procedure TTDVarianti1AfterPost(DataSet: TDataSet);
    procedure TTVarianti2AfterPost(DataSet: TDataSet);
    procedure TTDvarianti2AfterPost(DataSet: TDataSet);
    procedure TTArtBaseAfterPost(DataSet: TDataSet);
    procedure TTVettoriAfterPost(DataSet: TDataSet);
    procedure TTDistintaAfterPost(DataSet: TDataSet);
    procedure TTanaCatRitAfterPost(DataSet: TDataSet);
    procedure TTUbicazioneAfterPost(DataSet: TDataSet);
    procedure TTCatMerBeforeDelete(DataSet: TDataSet);
    procedure TTMarcheBeforeDelete(DataSet: TDataSet);
    procedure TTTipArtBeforeDelete(DataSet: TDataSet);
    procedure TTBancheBeforeDelete(DataSet: TDataSet);
    procedure TTIvaBeforeDelete(DataSet: TDataSet);
    procedure TTDepositiBeforeDelete(DataSet: TDataSet);
    procedure TTArtStatBeforeDelete(DataSet: TDataSet);
    procedure TTGruSogCodBeforeDelete(DataSet: TDataSet);
    procedure TTarticolilookupBeforeDelete(DataSet: TDataSet);
    procedure TTArticoliBancoBeforeDelete(DataSet: TDataSet);
    procedure TTImpostatBeforeDelete(DataSet: TDataSet);
    procedure TTGiacenzaBeforeDelete(DataSet: TDataSet);
    procedure TTGruSogBeforeDelete(DataSet: TDataSet);
    procedure TTModPagBeforeDelete(DataSet: TDataSet);
    procedure TTDModPagBeforeDelete(DataSet: TDataSet);
    procedure TTContiBeforeDelete(DataSet: TDataSet);
    procedure TTAgentiBeforeDelete(DataSet: TDataSet);
    procedure TTsoggettiBeforeDelete(DataSet: TDataSet);
    procedure TTTipisogBeforeDelete(DataSet: TDataSet);
    procedure TTConvDoc_anaBeforeDelete(DataSet: TDataSet);
    procedure TTSogLookBeforeDelete(DataSet: TDataSet);
    procedure TTArtFornBeforeDelete(DataSet: TDataSet);
    procedure TTIstatBeforeDelete(DataSet: TDataSet);
    procedure TTDocLookupBeforeDelete(DataSet: TDataSet);
    procedure TTCausaliBeforeDelete(DataSet: TDataSet);
    procedure TTCaudocBeforeDelete(DataSet: TDataSet);
    procedure TTListinoBeforeDelete(DataSet: TDataSet);
    procedure TTConaiBeforeDelete(DataSet: TDataSet);
    procedure TTartConaiBeforeDelete(DataSet: TDataSet);
    procedure TTCauContabiliBeforeDelete(DataSet: TDataSet);
    procedure TTZoneBeforeDelete(DataSet: TDataSet);
    procedure TTAgZoneBeforeDelete(DataSet: TDataSet);
    procedure TTStatiBeforeDelete(DataSet: TDataSet);
    procedure TTformuleBeforeDelete(DataSet: TDataSet);
    procedure TTStagioniBeforeDelete(DataSet: TDataSet);
    procedure TTCatListBeforeDelete(DataSet: TDataSet);
    procedure TTPunteggiBeforeDelete(DataSet: TDataSet);
    procedure TTDVar1BeforeDelete(DataSet: TDataSet);
    procedure TTDvar2BeforeDelete(DataSet: TDataSet);
    procedure TTVarianti1BeforeDelete(DataSet: TDataSet);
    procedure TTDVarianti1BeforeDelete(DataSet: TDataSet);
    procedure TTVarianti2BeforeDelete(DataSet: TDataSet);
    procedure TTDvarianti2BeforeDelete(DataSet: TDataSet);
    procedure TTArtBaseBeforeDelete(DataSet: TDataSet);
    procedure TTVettoriBeforeDelete(DataSet: TDataSet);
    procedure TTDistintaBeforeDelete(DataSet: TDataSet);
    procedure TTanaCatRitBeforeDelete(DataSet: TDataSet);
    procedure TTUbicazioneBeforeDelete(DataSet: TDataSet);
    procedure TTTipArtPostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure TTMarchePostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure TTimballiPostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure TTListinoBeforeEdit(DataSet: TDataSet);
    procedure TTListiniPostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure TTArticoliBeforeCancel(DataSet: TDataSet);
    procedure TTCompatAfterInsert(DataSet: TDataSet);
    procedure TTCompatAfterPost(DataSet: TDataSet);
    procedure TTCompatBeforeDelete(DataSet: TDataSet);
    procedure TTAttinenzeBeforeDelete(DataSet: TDataSet);
    procedure TTAttinenzeAfterPost(DataSet: TDataSet);
    procedure TTAttinenzeAfterInsert(DataSet: TDataSet);
    procedure TTCompatBeforeEdit(DataSet: TDataSet);
    procedure TTArticoliUCChange(Sender: TField);
    procedure TTAg_docAfterInsert(DataSet: TDataSet);
    procedure TTAg_provvigioniAfterInsert(DataSet: TDataSet);
    procedure TTAg_docBeforeDelete(DataSet: TDataSet);
    procedure TTAg_docAfterPost(DataSet: TDataSet);
    procedure TTAg_provvigioniAfterPost(DataSet: TDataSet);
    procedure TTAg_provvigioniBeforeDelete(DataSet: TDataSet);
    procedure TTsoggettiZonaChange(Sender: TField);
    procedure TTArticoliSconto3Change(Sender: TField);
    procedure TTArtFornSconto2Change(Sender: TField);
    procedure TTArtFornSconto3Change(Sender: TField);
    procedure TTArtFornBeforePost(DataSet: TDataSet);
    procedure TTContattiAfterInsert(DataSet: TDataSet);
    procedure TTContattiAfterPost(DataSet: TDataSet);
    procedure TTContattiBeforeDelete(DataSet: TDataSet);
    procedure TTAreaAfterInsert(DataSet: TDataSet);
    procedure TTAreaAfterPost(DataSet: TDataSet);
    procedure TTAreaBeforeDelete(DataSet: TDataSet);
    procedure TTAg_Prov_artAfterInsert(DataSet: TDataSet);
    procedure TTAg_Prov_artAfterPost(DataSet: TDataSet);
    procedure TTAg_Prov_artBeforeDelete(DataSet: TDataSet);
    procedure TTAg_Prov_artArticoloChange(Sender: TField);
    procedure TTArea_DocAfterInsert(DataSet: TDataSet);
    procedure TTArea_provvigioniAfterInsert(DataSet: TDataSet);
    procedure TTArea_prov_artAfterInsert(DataSet: TDataSet);
    procedure TTArea_DocAfterPost(DataSet: TDataSet);
    procedure TTArea_provvigioniAfterPost(DataSet: TDataSet);
    procedure TTArea_prov_artAfterPost(DataSet: TDataSet);
    procedure TTArea_DocBeforeDelete(DataSet: TDataSet);
    procedure TTArea_provvigioniBeforeDelete(DataSet: TDataSet);
    procedure TTArea_prov_artBeforeDelete(DataSet: TDataSet);
    procedure TTArea_prov_artArticoloChange(Sender: TField);
    procedure TTsoggettiBeforePost(DataSet: TDataSet);
    procedure TTAgentiBeforePost(DataSet: TDataSet);
    procedure TTGru_docAfterInsert(DataSet: TDataSet);
    procedure TTGru_provvigioniAfterInsert(DataSet: TDataSet);
    procedure TTGru_Prov_artAfterInsert(DataSet: TDataSet);
    procedure TTGru_docAfterPost(DataSet: TDataSet);
    procedure TTGru_provvigioniAfterPost(DataSet: TDataSet);
    procedure TTGru_Prov_artAfterPost(DataSet: TDataSet);
    procedure TTGru_docBeforeDelete(DataSet: TDataSet);
    procedure TTGru_provvigioniBeforeDelete(DataSet: TDataSet);
    procedure TTGru_Prov_artBeforeDelete(DataSet: TDataSet);
    procedure TTGru_Prov_artArticoloChange(Sender: TField);
    procedure TTFilialiAfterInsert(DataSet: TDataSet);
    procedure TTFilialiAfterPost(DataSet: TDataSet);
    procedure TTFilialiBeforeDelete(DataSet: TDataSet);
    procedure TTFilialiBeforePost(DataSet: TDataSet);
    procedure TTArticoliPrezzoconsigliatoLChange(Sender: TField);
    procedure TTArticoliPrezzoconsigliatoEChange(Sender: TField);
    procedure TTArticoliPrezzoconsigliatoivatoLChange(Sender: TField);
    procedure TTArticoliPrezzoconsigliatoivatoEChange(Sender: TField);
    procedure TTdefaultsAfterPost(DataSet: TDataSet);
    procedure TTdefaultsBeforeEdit(DataSet: TDataSet);
    procedure TTdefaultsBeforeInsert(DataSet: TDataSet);
    procedure TTAg_premioArticoloChange(Sender: TField);
    procedure TTAg_premioAfterInsert(DataSet: TDataSet);
    procedure TTAg_premioAfterPost(DataSet: TDataSet);
    procedure TTAg_premioBeforeDelete(DataSet: TDataSet);
  private
    { private declarations }
  public
    { public declarations }
    importazione_in_corso : boolean ;
    mod_manuale : boolean ;
    calcola_listino : boolean ;
    el_old : string ;
    Function LeggiEuro: real ;
    Function EuroLire(euro:Currency):Currency;
    Function LireEuro(lire:Currency) : Currency ;
    Function FormatoEuro : string ;
    Function FormatoLire : string ;
    Function FormatoQta : string ;
    Function LeggiChiave(chiave:string;var valore:string) : boolean ;
    Function ScriviChiave(chiave:string; valore:string) : boolean ;
    Function IncNumeratore(Codice, Anno, Mese, Giorno : string) : longint ;
    //Function Listino(causale,listino,articolo : string;var PrezzoNettoL,PrezzoIvatoL,PrezzoNettoE,PrezzoIvatoE : currency; var scA,scB,scC : real) : boolean ;
    Function ArrotondaLire(Valore : Currency) : Currency ;
    Function ArrotondaEuro(Valore : Currency) : Currency ;
    Procedure AutoSalva ;
    Procedure Calcola_prezzi ;
    Procedure Calcola_punti ;
    Procedure Controlla_listino ;
    Function Controlla_se_articoli : boolean ;
    Procedure Genera_varianti ;
    Procedure Error_dump(Var Tabella : TTable; Error_desc : String) ;
    Procedure AutoListinoCategorie ;
    Function Euro2000Path : string ;
    Procedure PulisciVarianti ;
    Procedure ControlloConversioni ;
    Function Generacodice(Tabella,campo,filtro:string) : string ;
    procedure SwapFornitore;
    procedure SwapFornitoreSoloPrincipale;
    procedure NotificaBanco(articolo, deposito: string);
    function LogI(NomeTab: String): String;
    procedure LogM(IdGiornale, NomeTab: String);
    procedure LogC(IdGiornale, NomeTab: String);
    function Netto(Ivato: Currency; Aliquota: Real;
      Valuta: String): Currency;
    function Ivato(Netto: Currency; Aliquota: Real;
      Valuta: String): Currency;
    function CalcImposta(Netto: Currency; Aliquota: Real;
      Valuta: String): Currency;
    Function EL : string ;
    procedure ImpostaID(tabella:String; rinumera:boolean);
    function SerieDefault: string;
    function CheckPiva(piva:string): boolean;
    procedure prepara_formati;
end;

var
  old_tipo : string ;
  arrotondamento : integer ;
  ModuloDatiAnagrafiche: TModuloDatiAnagrafiche;
  potenza10: extended;
  esportasubanco : string ;
  GeneraCodiceAutoMatico : Boolean ;
  old_conf: real;
  compat_old : string ;
  Utente : string ;
  Utente_Ok : boolean ;
  descr_utente : String ;
  valuta_default: string;


implementation

uses display_processo, Umenu, gestModExt, rica_art_u_fornit, scade_mod,
  Doc_mod;



{$R *.DFM}

Function TmoduloDatiAnagrafiche.Generacodice(Tabella,campo,filtro:string) : string ;
Var
   TArt : TTable ;
   Ultcod : string ;
   Lung,i,riporto,carattere,maxlung : integer ;
   prefisso : String;

begin
     result := '' ;
     If Not GeneraCodiceAutomatico then exit ;
     prefisso := '' ;
     leggichiave('PREFISSO',prefisso);
     UltCod := '' ;
     Tart := TTAble.Create(self);
     TArt.databaseName := 'euro2000' ;
     Tart.TableName := tabella ;
     If filtro = '' then
       filtro := prefisso
     else
       filtro := filtro + prefisso ;
     If Filtro <> '' then
      begin
       Tart.Filter := Campo + ' = ''' + filtro + '*''' ;
       Tart.Filtered := true ;
      end ;
     Tart.Open ;
     MaxLung := Tart.FieldByName(campo).Size ;
     MaxLung := MaxLung ;
     While not Tart.Eof do
      begin
       If Tart[campo] > ultCod then
        ultCod := Tart[campo] ;
       Tart.Next ;
      end;
     Tart.Close ;
     Tart.Free ;
     If UltCod = '' then
      begin
       if prefisso <> '' then
          maxlung := maxlung-2;
       for i:= 1 to maxlung -1 do
        ultcod := ultcod  + '0' ;
       Ultcod := filtro + ultcod ;
       result := ultcod + '1';
       exit ;
      end
     else
      begin
       // Assegnamo il codice ascii successivo all'ultimo carattere del codice,
       // se