umenu.~pa

Mosaic ERP大型系统 v6.09.rar

    tblJoin: TTable;
    dsJoin: TDataSource;
    plJoin: TppBDEPipeline;
    Shape13: TShape;
    Label3: TLabel;
    Shape14: TShape;
    Shape18: TShape;
    Label9: TLabel;
    Shape19: TShape;
    tblTable: TTable;
    dsTable: TDataSource;
    plTable: TppBDEPipeline;
    tblField: TTable;
    dsField: TDataSource;
    plField: TppBDEPipeline;
    CanaleServer: TDdeServerConv;
    ServerItem: TDdeServerItem;
    MessaggioServer: TMemo;
    MostraMessaggioServer: TMenuItem;
    ExtraOptions1: TExtraOptions;
    Compatibilita: TAction;
    Compatibilit1: TMenuItem;
    ImpostaId: TAction;
    ImpostaId1: TMenuItem;
    Mostra_il_gobbo: TAction;
    Cerca_Articoli: TAction;
    CercaArticoli1: TMenuItem;
    calendario: TMonthCalendar;
    Mostra_calendario: TAction;
    Mostracalendario1: TMenuItem;
    Help_act: TAction;
    ImportaReport: TAction;
    ImportaReport1: TMenuItem;
    Nuovo_tipo: TAction;
    Nuovotipo1: TMenuItem;
    Gobbo1: TMenuItem;
    VerificaPrezzi: TAction;
    MostraGPL: TAction;
    MostraGPL1: TMenuItem;
    Assistenza: TAction;
    Analisi_ScorteImpegni: TAction;
    AnalisiScorteImpegni1: TMenuItem;
    Provvigioni_Agenti: TAction;
    ProvvigioniAgenti1: TMenuItem;
    Nuovo_agente: TAction;
    Nuovoagente1: TMenuItem;
    Internet1: TMenuItem;
    Area: TAction;
    Area1: TMenuItem;
    Gestione_Operatori: TAction;
    GestioneOperatori1: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    Nuovoagente2: TMenuItem;
    Menu_Report: TMainMenu;
    Help_report: TMenuItem;
    Aiuto1: TMenuItem;
    DispositivoEsterno: TAction;
    Verificaprezzi2: TMenuItem;
    Analisi_Art_scadenza: TAction;
    AnalisiArtscadenza1: TMenuItem;
    Imp_Exp_doc: TAction;
    ImportExportdocumenti1: TMenuItem;
    Fatturazione_riepilo: TAction;
    Fatturazioneriepilo1: TMenuItem;
    procedure Elimina1Click(Sender: TObject);
    procedure Fine_prgExecute(Sender: TObject);
    procedure ImballiExecute(Sender: TObject);
    procedure Categorie_merceologicheExecute(Sender: TObject);
    procedure MarcheExecute(Sender: TObject);
    procedure Categorie_ArticoliExecute(Sender: TObject);
    procedure BancheExecute(Sender: TObject);
    procedure Tabelle_ivaExecute(Sender: TObject);
    procedure DepositiExecute(Sender: TObject);
    procedure Gruppi_soggettiExecute(Sender: TObject);
    procedure Modalita_pagamentoExecute(Sender: TObject);
    procedure TipidocExecute(Sender: TObject);
    procedure NumeratoriExecute(Sender: TObject);
    procedure Causali_documentoExecute(Sender: TObject);
    procedure Impostazioni_globaliExecute(Sender: TObject);
    procedure ContiExecute(Sender: TObject);
    procedure TipisoggettoExecute(Sender: TObject);
    procedure Apri_soggettiExecute(Sender: TObject);
    procedure AgentiExecute(Sender: TObject);
    procedure ZoneExecute(Sender: TObject);
    procedure ListiniExecute(Sender: TObject);
    procedure Apri_articoliExecute(Sender: TObject);
    procedure VariantiExecute(Sender: TObject);
    procedure StagioniExecute(Sender: TObject);
    procedure Nuovo_articoloExecute(Sender: TObject);
    procedure Nuovo_soggettoExecute(Sender: TObject);
    procedure scorri_documentiExecute(Sender: TObject);
    procedure VettoriExecute(Sender: TObject);
    procedure Nuovo_documentoExecute(Sender: TObject);
    procedure UbicazioniExecute(Sender: TObject);
    procedure EtichetteExecute(Sender: TObject);
    procedure SituazioneExecute(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Mostra_toolbarExecute(Sender: TObject);
    procedure scheda_soggettoExecute(Sender: TObject);
    procedure OrologioTimer(Sender: TObject);
    procedure ScadenziarioExecute(Sender: TObject);
    procedure ReportManagerExecute(Sender: TObject);
    procedure document_managerExecute(Sender: TObject);
    procedure ImportazioniExecute(Sender: TObject);
    procedure ZippatoreMessage(Sender: TObject; ErrCode: Integer;
      Message: String);
    procedure BackupExecute(Sender: TObject);
    procedure StoricoRbExecute(Sender: TObject);
    procedure generaRbExecute(Sender: TObject);
    procedure DiscoRbExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ConfiguraMenuExecute(Sender: TObject);
    procedure TTMenuBeforeEdit(DataSet: TDataSet);
    procedure TTMenuAfterInsert(DataSet: TDataSet);
    procedure TTMenuBeforePost(DataSet: TDataSet);
    procedure TTMenuAfterPost(DataSet: TDataSet);
    procedure TTMenuBeforeDelete(DataSet: TDataSet);
    procedure StatisticheExecute(Sender: TObject);
    procedure informazioniExecute(Sender: TObject);
    procedure PrimanotaExecute(Sender: TObject);
    procedure ContaMenuClick(Sender: Tobject) ;
    procedure IntestazioneExecute(Sender: TObject);
    procedure RitenuteExecute(Sender: TObject);
    procedure GestioneRitenuteExecute(Sender: TObject);
    procedure Importa_articoliExecute(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure Imposta_DocumentiExecute(Sender: TObject);
    procedure CalcolatriceExecute(Sender: TObject);
    procedure ServerItemPokeData(Sender: TObject);
    procedure CanaleServerExecuteMacro(Sender: TObject; Msg: TStrings);
    procedure MostraMessaggioServerClick(Sender: TObject);
    procedure CompatibilitaExecute(Sender: TObject);
    procedure ImpostaIdExecute(Sender: TObject);
    procedure Mostra_il_gobboExecute(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Cerca_ArticoliExecute(Sender: TObject);
    procedure Mostra_calendarioExecute(Sender: TObject);
    procedure calendarioDblClick(Sender: TObject);
    procedure lista_ComandiExecute(Action: TBasicAction;
      var Handled: Boolean);
    procedure Help_actExecute(Sender: TObject);
    procedure ImportaReportExecute(Sender: TObject);
    procedure Nuovo_tipoExecute(Sender: TObject);
    procedure VerificaPrezziExecute(Sender: TObject);
    procedure MostraGPLExecute(Sender: TObject);
    procedure AssistenzaExecute(Sender: TObject);
    procedure Analisi_ScorteImpegniExecute(Sender: TObject);
    procedure Provvigioni_AgentiExecute(Sender: TObject);
    procedure Nuovo_agenteExecute(Sender: TObject);
    procedure Internet1Click(Sender: TObject);
    procedure AreaExecute(Sender: TObject);
    procedure Gestione_OperatoriExecute(Sender: TObject);
    procedure Aiuto1Click(Sender: TObject);
    procedure DispositivoEsternoExecute(Sender: TObject);
    procedure Analisi_Art_scadenzaExecute(Sender: TObject);
    procedure Imp_Exp_docExecute(Sender: TObject);
    procedure Fatturazione_riepiloExecute(Sender: TObject);
  private
    { Private declarations }
    procedure ImpostaAzioni;
    Function SpiegaAccess : String ;
    Function SpiegaKey : String ;
    Procedure GestisciErrore(Sender:Tobject;E:exception) ;
  public
    { Public declarations }
    procedure AzionaMenu(Sender: TObject);
    Procedure AggiungiMenu ;
    Procedure EliminaMenu ;
    Procedure Status(testo:string) ;
    function Campo(Stringa: String): String;
    function Valore(Stringa: String): string;
    function Nuova_Categoria_Macro(Msg: TStrings): String;
    function Aggiorna_Categoria_Macro(Msg: TStrings): String;
    function Nuovo_Articolo_Macro(Msg: Tstrings): String;
    function Aggiorna_Articolo_Macro(msg: Tstrings): String;
    function Estrai_Campo_Da_Macro(Msg: TStrings; Campo_cercato: string ; Var Valore_trovato:string): boolean;
    function Elimina_Articolo_Macro(Msg: TStrings): string;
    function Aggiorna_Listino_Macro(Msg: Tstrings): String;
    function Aggiorna_TipoArticolo_Macro(Msg: Tstrings): string;
    function Aggiorna_tipoArticoloID_Macro(Msg: Tstrings): string;
    function DataE2k: TDateTime;
    procedure Aiuto(nomefile: string; pagina: integer);
    Function Carica_pdf : boolean ;
  end;

var
  menu_form: Tmenu_form;
  gobbo_visto: boolean;
  Data_e2kVar: Tdatetime;
  Pdf_Caricato: boolean;

implementation

uses ana_imballi_u, ana_catmer, ana_marche_u, ana_tipart_u, ana_banche_u,
  ana_iva_u, ana_dep_u, ana_grusog_u, ana_modpag_u, ana_tipidoc_u,
  ana_numera_u, ana_causali_u, defaults_u, ana_conti_u, ana_tipisog_u,
  ana_sog_u, ana_zone_u, ana_agenti_u, ana_listini_u, ana_articoli_u,
  ana_varianti_u, ana_stagio, ana_mod, doc_form, ana_vettori_u, doc_wiz_u,
  ana_catmer_dett_u, ana_ubicazioni_u, etichette_u, agg_dep, giacenza_u,
  uTools, scheda_sog, U_scadenziario_form, u_doc_manager,
  StoricoRb_u, RibaWizard_u, DiscoRb_u, menu_tools,
  statistiche_u, aboutOS, gestModExt, pnota_u,
  nuovo_articolo_u, nuovo_soggetto_u, intestazione_u, ana_cat_rit_u,
  u_ritenute, importart, Doc_mod, impostazioniDoc, ana_compat_u, id_form_U,
  U_gobbo, uPdf, UImportRerport, uNuovo_tipoDoc,
  u_analisi_scorte_imp, u_prov_agenti, u_ana_provvigioni, u_ana_area,
  gest_oper, u_nuova_causale, disp_ext, u_analisi_scadenza,
  Import_export_doc_u, u_fatturazione_main;

{$R *.DFM}
Function TMenu_form.SpiegaAccess :string ;
begin
 Result:= ('Istruzioni : ') + #13 +
         ('Generalmente questo errore si verifica in due casi :')+ #13 +
         ('1. La memoria del sistema non