From 8b6051e6893d4556747d7a7eda6cb4797e7470f7 Mon Sep 17 00:00:00 2001 From: villa Date: Thu, 25 Aug 1994 09:34:49 +0000 Subject: [PATCH] Correzioni varie git-svn-id: svn://10.65.10.50/trunk@60 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- ba/ba3700.cpp | 8 +- ba/ba6000a.uml | 594 ++++++++++++++++++++++++------------------------- ba/ba6000b.uml | 2 +- 3 files changed, 301 insertions(+), 303 deletions(-) diff --git a/ba/ba3700.cpp b/ba/ba3700.cpp index 4cf957618..9001b47f9 100755 --- a/ba/ba3700.cpp +++ b/ba/ba3700.cpp @@ -32,15 +32,15 @@ Riga_tabrpg::Riga_tabrpg(long num_giorni,const char* perc,const char* tipo_pag, class TRighe_tabrpg : public TArray { public: - void add_riga(long=0l,const char* percent="",const char* tipo_pagam="", const char* ult_class=""); + void add_riga(long=0l,const char* percent="",const char* tipo_pagam="", + const char* ult_class=""); TRighe_tabrpg() {} }; void TRighe_tabrpg::add_riga(long num_giorni,const char* perc, const char* tipo_pag,const char* ulter_class) { - Riga_tabrpg* r=new Riga_tabrpg(num_giorni,perc,tipo_pag,ulter_class); - add(r); + add(new Riga_tabrpg(num_giorni,perc,tipo_pag,ulter_class)); } @@ -50,8 +50,6 @@ class BA3700_application : public TRelation_application static bool rate_differenziate (TMask_field& f, KEY k); static bool tipo_prima_rata (TMask_field& f, KEY k); static bool numero_rate (TMask_field& f, KEY k); -// static bool ricalcolo_percentuale (TMask_field& f, KEY k); -// static bool ricalcola_numero_giorni (TMask_field& f, KEY k); static bool mese_commerciale (TMask_field& f, KEY k); static bool riga_sheet(int r, KEY k); diff --git a/ba/ba6000a.uml b/ba/ba6000a.uml index 666e3913a..ba44efeb0 100755 --- a/ba/ba6000a.uml +++ b/ba/ba6000a.uml @@ -1,297 +1,297 @@ -#include "ba6000a.h" -#include - -PAGE "Definizione Stampe" -1 -1 70 17 - -RADIOBUTTON RDB_BA6_TYPE 26 -BEGIN - PROMPT 4 1 "Oggetto" - HELP "Selezionare l'archivio che si desidera stampare" - ITEM "0|Persone Fisiche" - MESSAGE HIDE,FLD_DITTE_RAGSOCFR|HIDE,FLD_DITTE_RAGSOCTO - MESSAGE HIDE,FLD_ANG_CODFR|HIDE,FLD_ANG_CODTO|HIDE,FLD_ANG_RAGSOCFR - MESSAGE HIDE,FLD_ANG_RAGSOCTO|HIDE,FLD_DITTE_CODTO - MESSAGE SHOW,FLD_ANF_CODFR|SHOW,FLD_ANF_CODTO|SHOW,FLD_ANF_RAGSOCFR - MESSAGE SHOW,FLD_ANF_RAGSOCTO|HIDE,FLD_DITTE_CODFR - MESSAGE ENABLE,CHK_BA6_INCLDI - ITEM "1|Persone Giuridiche" - MESSAGE HIDE,FLD_DITTE_CODTO|HIDE,FLD_DITTE_RAGSOCFR - MESSAGE HIDE,FLD_DITTE_RAGSOCTO|HIDE,FLD_ANF_CODFR|HIDE,FLD_ANF_CODTO - MESSAGE HIDE,FLD_ANF_RAGSOCFR|HIDE,FLD_ANF_RAGSOCTO - MESSAGE SHOW,FLD_ANG_CODFR|SHOW,FLD_ANG_CODTO|SHOW,FLD_ANG_RAGSOCFR - MESSAGE SHOW,FLD_ANG_RAGSOCTO|HIDE,FLD_DITTE_CODFR - MESSAGE ENABLE,CHK_BA6_INCLDI - MESSAGE DISABLE,BUT_BA6_ETICHETTE|RESET,BUT_BA6_ETICHETTE - MESSAGE ENABLE,BUT_BA6_ETICHETTE|RESET,BUT_BA6_ETICHETTE - ITEM "2|Ditte" - MESSAGE HIDE,FLD_ANF_CODFR|HIDE,FLD_ANF_CODTO - MESSAGE HIDE,FLD_ANF_RAGSOCFR|HIDE,FLD_ANF_RAGSOCTO - MESSAGE HIDE,FLD_ANG_CODFR|HIDE,FLD_ANG_CODTO - MESSAGE HIDE,FLD_ANG_RAGSOCFR|HIDE,FLD_ANG_RAGSOCTO - MESSAGE SHOW,FLD_DITTE_CODFR|SHOW,FLD_DITTE_CODTO - MESSAGE SHOW,FLD_DITTE_RAGSOCFR|SHOW,FLD_DITTE_RAGSOCTO - MESSAGE DISABLE,CHK_BA6_INCLDI - MESSAGE RESET,CHK_BA6_INCLDI - MESSAGE ENABLE,BUT_BA6_ETICHETTE|RESET,BUT_BA6_ETICHETTE -END - -RADIOBUTTON RDB_BA6_SORT 26 - PROMPT 4 6 "Ordinamento" - HELP "Selezionare il tipo di ordinamento dei record stampati" - ITEM "1|per Codice" - MESSAGE DISABLE,FLD_ANF_RAGSOCFR|DISABLE,FLD_ANF_RAGSOCTO - MESSAGE RESET,FLD_ANF_RAGSOCFR|RESET,FLD_ANF_RAGSOCTO - MESSAGE DISABLE,FLD_ANG_RAGSOCFR|DISABLE,FLD_ANG_RAGSOCTO - MESSAGE RESET,FLD_ANG_RAGSOCFR|RESET,FLD_ANG_RAGSOCTO - MESSAGE DISABLE,FLD_DITTE_RAGSOCFR|DISABLE,FLD_DITTE_RAGSOCTO - MESSAGE RESET,FLD_DITTE_RAGSOCFR|RESET,FLD_DITTE_RAGSOCTO - MESSAGE ENABLE,FLD_ANF_CODFR|ENABLE,FLD_ANF_CODTO - MESSAGE ENABLE,FLD_ANG_CODFR|ENABLE,FLD_ANG_CODTO - MESSAGE ENABLE,FLD_DITTE_CODFR|ENABLE,FLD_DITTE_CODTO - ITEM "2|per Ragione Sociale" - MESSAGE DISABLE,FLD_ANF_CODFR|DISABLE,FLD_ANF_CODTO - MESSAGE RESET,FLD_ANF_CODFR|RESET,FLD_ANF_CODTO - MESSAGE DISABLE,FLD_ANG_CODFR|DISABLE,FLD_ANG_CODTO - MESSAGE RESET,FLD_ANG_CODFR|RESET,FLD_ANG_CODTO - MESSAGE DISABLE,FLD_DITTE_CODFR|DISABLE,FLD_DITTE_CODTO - MESSAGE RESET,FLD_DITTE_CODFR|RESET,FLD_DITTE_CODTO - MESSAGE ENABLE,FLD_ANF_RAGSOCFR|ENABLE,FLD_ANF_RAGSOCTO - MESSAGE ENABLE,FLD_ANG_RAGSOCFR|ENABLE,FLD_ANG_RAGSOCTO - MESSAGE ENABLE,FLD_DITTE_RAGSOCFR|ENABLE,FLD_DITTE_RAGSOCTO -END - -GROUPBOX DLG_NULL 47 3 -BEGIN - PROMPT 2 13 "Stampa" -END - -GROUPBOX DLG_NULL 34 10 -BEGIN - PROMPT 32 1 "Selezione " -END - -TEXT DLG_NULL -BEGIN - PROMPT 34 5 "da Ragione Sociale" -END -TEXT DLG_NULL -BEGIN - PROMPT 34 7 "a Ragione Sociale" -END -TEXT DLG_NULL -BEGIN - PROMPT 34 2 "da Codice" -END -TEXT DLG_NULL -BEGIN - PROMPT 48 2 "a Codice" -END - -STRING FLD_ANF_CODFR 5 -BEGIN - PROMPT 34 3 "" - USE LF_ANAG KEY 1 - INPUT TIPOA "F" - INPUT CODANAGR FLD_ANF_CODFR - DISPLAY "Codice" CODANAGR - DISPLAY "Codice Fiscale " COFI - DISPLAY "Ragione sociale " RAGSOC - OUTPUT FLD_ANF_CODFR CODANAGR - OUTPUT FLD_ANF_RAGSOCFR RAGSOC - HELP "Introdurre codice di inizio stampa: vuoto = inizio archivio" -END - -STRING FLD_ANF_CODTO 5 -BEGIN - PROMPT 48 3 "" - COPYUSE FLD_ANF_CODFR - INPUT TIPOA "F" - INPUT CODANAGR FLD_ANF_CODTO - DISPLAY "Codice" CODANAGR - DISPLAY "Codice Fiscale " COFI - DISPLAY "Ragione sociale " RAGSOC - OUTPUT FLD_ANF_CODTO CODANAGR - OUTPUT FLD_ANF_RAGSOCTO RAGSOC - HELP "Introdurre codice di fine stampa: vuoto = fine archivio" -END - -STRING FLD_ANF_RAGSOCFR 29 -BEGIN - PROMPT 34 6 "" - USE LF_ANAG KEY 2 SELECT 'TIPOA=="F"' - INPUT RAGSOC FLD_ANF_RAGSOCFR - DISPLAY "Codice" CODANAGR - DISPLAY "Codice Fiscale " COFI - DISPLAY "Ragione sociale " RAGSOC - OUTPUT FLD_ANF_RAGSOCFR RAGSOC - OUTPUT FLD_ANF_CODFR CODANAGR - HELP "Introdurre ragione soc. di inizio stampa: vuoto = inizio archivio" -END - -STRING FLD_ANF_RAGSOCTO 29 -BEGIN - PROMPT 34 8 "" - COPYUSE FLD_ANF_RAGSOCFR - INPUT RAGSOC FLD_ANF_RAGSOCTO - DISPLAY "Codice" CODANAGR - DISPLAY "Codice Fiscale " COFI - DISPLAY "Ragione sociale " RAGSOC - OUTPUT FLD_ANF_RAGSOCTO RAGSOC - OUTPUT FLD_ANF_CODTO CODANAGR - HELP "Introdurre ragione soc. di fine stampa: vuoto = fine archivio" -END - -STRING FLD_ANG_CODFR 5 -BEGIN - PROMPT 34 3 "" - FLAGS "H" - COPYUSE FLD_ANF_CODFR - INPUT TIPOA "G" - INPUT CODANAGR FLD_ANG_CODPR - DISPLAY "Codice" CODANAGR - DISPLAY "Codice Fiscale " COFI - DISPLAY "Ragione sociale " RAGSOC - OUTPUT FLD_ANG_CODFR CODANAGR - OUTPUT FLD_ANG_RAGSOCFR RAGSOC - HELP "Introdurre codice di inizio stampa: vuoto = inizio archivio" -END - -STRING FLD_ANG_CODTO 5 -BEGIN - PROMPT 48 3 "" - FLAGS "H" - COPYUSE FLD_ANF_CODFR - INPUT TIPOA "G" - INPUT CODANAGR FLD_ANG_CODTO - DISPLAY "Codice" CODANAGR - DISPLAY "Codice Fiscale " COFI - DISPLAY "Ragione sociale " RAGSOC - OUTPUT FLD_ANG_CODTO CODANAGR - OUTPUT FLD_ANG_RAGSOCTO RAGSOC - HELP "Introdurre codice di fine stampa: vuoto = fine archivio" -END - -STRING FLD_ANG_RAGSOCFR 29 -BEGIN - PROMPT 34 6 "" - FLAGS "H" - USE LF_ANAG KEY 2 SELECT 'TIPOA=="G"' - INPUT RAGSOC FLD_ANG_RAGSOCFR - DISPLAY "Codice" CODANAGR - DISPLAY "Codice Fiscale " COFI - DISPLAY "Ragione sociale " RAGSOC - OUTPUT FLD_ANG_RAGSOCFR RAGSOC - OUTPUT FLD_ANG_CODFR CODANAGR - HELP "Introdurre ragione soc. di inizio stampa: vuoto = inizio archivio" -END - -STRING FLD_ANG_RAGSOCTO 29 -BEGIN - PROMPT 34 8 "" - FLAGS "H" - COPYUSE FLD_ANG_RAGSOCFR - INPUT RAGSOC FLD_ANG_RAGSOCTO - DISPLAY "Codice" CODANAGR - DISPLAY "Codice Fiscale " COFI - DISPLAY "Ragione sociale " RAGSOC - OUTPUT FLD_ANG_RAGSOCTO RAGSOC - OUTPUT FLD_ANG_CODTO CODANAGR - HELP "Introdurre ragione soc. di fine stampa: vuoto = fine archivio" -END - -STRING FLD_DITTE_CODFR 5 -BEGIN - PROMPT 34 3 "" - FLAGS "H" - USE LF_NDITTE KEY 1 - INPUT CODDITTA FLD_DITTE_CODFR - DISPLAY "Codice" CODDITTA - DISPLAY "Persona Rif. " PERRIF - DISPLAY "Ragione sociale " RAGSOC - OUTPUT FLD_DITTE_CODFR CODDITTA - OUTPUT FLD_DITTE_RAGSOCFR RAGSOC - HELP "Introdurre codice di inizio stampa: vuoto = inizio archivio" -END - -STRING FLD_DITTE_CODTO 5 -BEGIN - PROMPT 48 3 "" - FLAGS "H" - COPYUSE FLD_DITTE_CODFR - INPUT CODDITTA FLD_DITTE_CODFR - INPUT RAGSOC FLD_ANF_RAGSOCFR - DISPLAY "Codice" CODDITTA - DISPLAY "Persona Rif. " PERRIF - DISPLAY "Ragione sociale " RAGSOC - OUTPUT FLD_DITTE_RAGSOCTO RAGSOC - OUTPUT FLD_DITTE_CODTO CODDITTA - HELP "Introdurre codice di fine stampa: vuoto = fine archivio" -END - -STRING FLD_DITTE_RAGSOCFR 29 -BEGIN - PROMPT 34 6 "" - FLAGS "H" - USE LF_NDITTE KEY 2 - INPUT RAGSOC FLD_DITTE_RAGSOCFR - DISPLAY "Codice" CODDITTA - DISPLAY "Persona Rif. " PERRIF - DISPLAY "Ragione sociale " RAGSOC - OUTPUT FLD_DITTE_RAGSOCFR RAGSOC - OUTPUT FLD_DITTE_CODFR CODDITTA - HELP "Introdurre ragione soc. di inizio stampa: vuoto = inizio archivio" -END - -STRING FLD_DITTE_RAGSOCTO 29 -BEGIN - PROMPT 34 8 "" - FLAGS "H" - COPYUSE FLD_DITTE_RAGSOCFR - INPUT CODDITTA FLD_DITTE_RAGSOCTO - DISPLAY "Codice" CODDITTA - DISPLAY "Persona Rif. " PERRIF - DISPLAY "Ragione sociale " RAGSOC - OUTPUT FLD_DITTE_RAGSOCTO RAGSOC - OUTPUT FLD_DITTE_CODTO CODDITTA - HELP "Introdurre ragione soc. di fine stampa: vuoto = fine archivio" -END - -BOOLEAN CHK_BA6_INCLDI -BEGIN - PROMPT 4 10 "Includi ditte" - HELP "Selezionare per includere informazioni relative alle ditte" -END - -BOOLEAN CHK_BA6_PRINTONE -BEGIN - PROMPT 4 11 "Stampa un solo record" - HELP "Selezionare per stampare soltanto il record nel campo DA" -END - -BUTTON BUT_BA6_ELENCO 6 -BEGIN - PROMPT 4 14 "Elenco" -END - -BUTTON BUT_BA6_SCHEDE 6 -BEGIN - PROMPT 15 14 "Schede" -END - -BUTTON BUT_BA6_RUBRICHE 8 -BEGIN - PROMPT 26 14 "Rubriche" -END - -BUTTON BUT_BA6_ETICHETTE 9 -BEGIN - PROMPT 37 14 "Etichette" -END - -BUTTON DLG_CANCEL -BEGIN - PROMPT 53 14 "" -END - -ENDPAGE -ENDMASK +#include "ba6100a.h" +#include + +PAGE "Definizione Stampe" -1 -1 70 17 + +RADIOBUTTON RDB_BA6_TYPE 26 +BEGIN + PROMPT 4 1 "Oggetto" + HELP "Selezionare l'archivio che si desidera stampare" + ITEM "0|Persone Fisiche" + MESSAGE HIDE,FLD_DITTE_RAGSOCFR|HIDE,FLD_DITTE_RAGSOCTO + MESSAGE HIDE,FLD_ANG_CODFR|HIDE,FLD_ANG_CODTO|HIDE,FLD_ANG_RAGSOCFR + MESSAGE HIDE,FLD_ANG_RAGSOCTO|HIDE,FLD_DITTE_CODTO + MESSAGE SHOW,FLD_ANF_CODFR|SHOW,FLD_ANF_CODTO|SHOW,FLD_ANF_RAGSOCFR + MESSAGE SHOW,FLD_ANF_RAGSOCTO|HIDE,FLD_DITTE_CODFR + MESSAGE ENABLE,CHK_BA6_INCLDI + ITEM "1|Persone Giuridiche" + MESSAGE HIDE,FLD_DITTE_CODTO|HIDE,FLD_DITTE_RAGSOCFR + MESSAGE HIDE,FLD_DITTE_RAGSOCTO|HIDE,FLD_ANF_CODFR|HIDE,FLD_ANF_CODTO + MESSAGE HIDE,FLD_ANF_RAGSOCFR|HIDE,FLD_ANF_RAGSOCTO + MESSAGE SHOW,FLD_ANG_CODFR|SHOW,FLD_ANG_CODTO|SHOW,FLD_ANG_RAGSOCFR + MESSAGE SHOW,FLD_ANG_RAGSOCTO|HIDE,FLD_DITTE_CODFR + MESSAGE ENABLE,CHK_BA6_INCLDI + MESSAGE DISABLE,BUT_BA6_ETICHETTE|RESET,BUT_BA6_ETICHETTE + MESSAGE ENABLE,BUT_BA6_ETICHETTE|RESET,BUT_BA6_ETICHETTE + ITEM "2|Ditte" + MESSAGE HIDE,FLD_ANF_CODFR|HIDE,FLD_ANF_CODTO + MESSAGE HIDE,FLD_ANF_RAGSOCFR|HIDE,FLD_ANF_RAGSOCTO + MESSAGE HIDE,FLD_ANG_CODFR|HIDE,FLD_ANG_CODTO + MESSAGE HIDE,FLD_ANG_RAGSOCFR|HIDE,FLD_ANG_RAGSOCTO + MESSAGE SHOW,FLD_DITTE_CODFR|SHOW,FLD_DITTE_CODTO + MESSAGE SHOW,FLD_DITTE_RAGSOCFR|SHOW,FLD_DITTE_RAGSOCTO + MESSAGE DISABLE,CHK_BA6_INCLDI + MESSAGE RESET,CHK_BA6_INCLDI + MESSAGE ENABLE,BUT_BA6_ETICHETTE|RESET,BUT_BA6_ETICHETTE +END + +RADIOBUTTON RDB_BA6_SORT 26 + PROMPT 4 6 "Ordinamento" + HELP "Selezionare il tipo di ordinamento dei record stampati" + ITEM "1|per Codice" + MESSAGE DISABLE,FLD_ANF_RAGSOCFR|DISABLE,FLD_ANF_RAGSOCTO + MESSAGE RESET,FLD_ANF_RAGSOCFR|RESET,FLD_ANF_RAGSOCTO + MESSAGE DISABLE,FLD_ANG_RAGSOCFR|DISABLE,FLD_ANG_RAGSOCTO + MESSAGE RESET,FLD_ANG_RAGSOCFR|RESET,FLD_ANG_RAGSOCTO + MESSAGE DISABLE,FLD_DITTE_RAGSOCFR|DISABLE,FLD_DITTE_RAGSOCTO + MESSAGE RESET,FLD_DITTE_RAGSOCFR|RESET,FLD_DITTE_RAGSOCTO + MESSAGE ENABLE,FLD_ANF_CODFR|ENABLE,FLD_ANF_CODTO + MESSAGE ENABLE,FLD_ANG_CODFR|ENABLE,FLD_ANG_CODTO + MESSAGE ENABLE,FLD_DITTE_CODFR|ENABLE,FLD_DITTE_CODTO + ITEM "2|per Ragione Sociale" + MESSAGE DISABLE,FLD_ANF_CODFR|DISABLE,FLD_ANF_CODTO + MESSAGE RESET,FLD_ANF_CODFR|RESET,FLD_ANF_CODTO + MESSAGE DISABLE,FLD_ANG_CODFR|DISABLE,FLD_ANG_CODTO + MESSAGE RESET,FLD_ANG_CODFR|RESET,FLD_ANG_CODTO + MESSAGE DISABLE,FLD_DITTE_CODFR|DISABLE,FLD_DITTE_CODTO + MESSAGE RESET,FLD_DITTE_CODFR|RESET,FLD_DITTE_CODTO + MESSAGE ENABLE,FLD_ANF_RAGSOCFR|ENABLE,FLD_ANF_RAGSOCTO + MESSAGE ENABLE,FLD_ANG_RAGSOCFR|ENABLE,FLD_ANG_RAGSOCTO + MESSAGE ENABLE,FLD_DITTE_RAGSOCFR|ENABLE,FLD_DITTE_RAGSOCTO +END + +GROUPBOX DLG_NULL 47 3 +BEGIN + PROMPT 2 13 "Stampa" +END + +GROUPBOX DLG_NULL 34 10 +BEGIN + PROMPT 32 1 "Selezione " +END + +TEXT DLG_NULL +BEGIN + PROMPT 34 5 "da Ragione Sociale" +END +TEXT DLG_NULL +BEGIN + PROMPT 34 7 "a Ragione Sociale" +END +TEXT DLG_NULL +BEGIN + PROMPT 34 2 "da Codice" +END +TEXT DLG_NULL +BEGIN + PROMPT 48 2 "a Codice" +END + +STRING FLD_ANF_CODFR 5 +BEGIN + PROMPT 34 3 "" + USE LF_ANAG KEY 1 + INPUT TIPOA "F" + INPUT CODANAGR FLD_ANF_CODFR + DISPLAY "Codice" CODANAGR + DISPLAY "Codice Fiscale " COFI + DISPLAY "Ragione sociale " RAGSOC + OUTPUT FLD_ANF_CODFR CODANAGR + OUTPUT FLD_ANF_RAGSOCFR RAGSOC + HELP "Introdurre codice di inizio stampa: vuoto = inizio archivio" +END + +STRING FLD_ANF_CODTO 5 +BEGIN + PROMPT 48 3 "" + COPYUSE FLD_ANF_CODFR + INPUT TIPOA "F" + INPUT CODANAGR FLD_ANF_CODTO + DISPLAY "Codice" CODANAGR + DISPLAY "Codice Fiscale " COFI + DISPLAY "Ragione sociale " RAGSOC + OUTPUT FLD_ANF_CODTO CODANAGR + OUTPUT FLD_ANF_RAGSOCTO RAGSOC + HELP "Introdurre codice di fine stampa: vuoto = fine archivio" +END + +STRING FLD_ANF_RAGSOCFR 29 +BEGIN + PROMPT 34 6 "" + USE LF_ANAG KEY 2 SELECT 'TIPOA=="F"' + INPUT RAGSOC FLD_ANF_RAGSOCFR + DISPLAY "Codice" CODANAGR + DISPLAY "Codice Fiscale " COFI + DISPLAY "Ragione sociale " RAGSOC + OUTPUT FLD_ANF_RAGSOCFR RAGSOC + OUTPUT FLD_ANF_CODFR CODANAGR + HELP "Introdurre ragione soc. di inizio stampa: vuoto = inizio archivio" +END + +STRING FLD_ANF_RAGSOCTO 29 +BEGIN + PROMPT 34 8 "" + COPYUSE FLD_ANF_RAGSOCFR + INPUT RAGSOC FLD_ANF_RAGSOCTO + DISPLAY "Codice" CODANAGR + DISPLAY "Codice Fiscale " COFI + DISPLAY "Ragione sociale " RAGSOC + OUTPUT FLD_ANF_RAGSOCTO RAGSOC + OUTPUT FLD_ANF_CODTO CODANAGR + HELP "Introdurre ragione soc. di fine stampa: vuoto = fine archivio" +END + +STRING FLD_ANG_CODFR 5 +BEGIN + PROMPT 34 3 "" + FLAGS "H" + COPYUSE FLD_ANF_CODFR + INPUT TIPOA "G" + INPUT CODANAGR FLD_ANG_CODPR + DISPLAY "Codice" CODANAGR + DISPLAY "Codice Fiscale " COFI + DISPLAY "Ragione sociale " RAGSOC + OUTPUT FLD_ANG_CODFR CODANAGR + OUTPUT FLD_ANG_RAGSOCFR RAGSOC + HELP "Introdurre codice di inizio stampa: vuoto = inizio archivio" +END + +STRING FLD_ANG_CODTO 5 +BEGIN + PROMPT 48 3 "" + FLAGS "H" + COPYUSE FLD_ANF_CODFR + INPUT TIPOA "G" + INPUT CODANAGR FLD_ANG_CODTO + DISPLAY "Codice" CODANAGR + DISPLAY "Codice Fiscale " COFI + DISPLAY "Ragione sociale " RAGSOC + OUTPUT FLD_ANG_CODTO CODANAGR + OUTPUT FLD_ANG_RAGSOCTO RAGSOC + HELP "Introdurre codice di fine stampa: vuoto = fine archivio" +END + +STRING FLD_ANG_RAGSOCFR 29 +BEGIN + PROMPT 34 6 "" + FLAGS "H" + USE LF_ANAG KEY 2 SELECT 'TIPOA=="G"' + INPUT RAGSOC FLD_ANG_RAGSOCFR + DISPLAY "Codice" CODANAGR + DISPLAY "Codice Fiscale " COFI + DISPLAY "Ragione sociale " RAGSOC + OUTPUT FLD_ANG_RAGSOCFR RAGSOC + OUTPUT FLD_ANG_CODFR CODANAGR + HELP "Introdurre ragione soc. di inizio stampa: vuoto = inizio archivio" +END + +STRING FLD_ANG_RAGSOCTO 29 +BEGIN + PROMPT 34 8 "" + FLAGS "H" + COPYUSE FLD_ANG_RAGSOCFR + INPUT RAGSOC FLD_ANG_RAGSOCTO + DISPLAY "Codice" CODANAGR + DISPLAY "Codice Fiscale " COFI + DISPLAY "Ragione sociale " RAGSOC + OUTPUT FLD_ANG_RAGSOCTO RAGSOC + OUTPUT FLD_ANG_CODTO CODANAGR + HELP "Introdurre ragione soc. di fine stampa: vuoto = fine archivio" +END + +STRING FLD_DITTE_CODFR 5 +BEGIN + PROMPT 34 3 "" + FLAGS "H" + USE LF_NDITTE KEY 1 + INPUT CODDITTA FLD_DITTE_CODFR + DISPLAY "Codice" CODDITTA + DISPLAY "Persona Rif. " PERRIF + DISPLAY "Ragione sociale " RAGSOC + OUTPUT FLD_DITTE_CODFR CODDITTA + OUTPUT FLD_DITTE_RAGSOCFR RAGSOC + HELP "Introdurre codice di inizio stampa: vuoto = inizio archivio" +END + +STRING FLD_DITTE_CODTO 5 +BEGIN + PROMPT 48 3 "" + FLAGS "H" + COPYUSE FLD_DITTE_CODFR + INPUT CODDITTA FLD_DITTE_CODFR + INPUT RAGSOC FLD_ANF_RAGSOCFR + DISPLAY "Codice" CODDITTA + DISPLAY "Persona Rif. " PERRIF + DISPLAY "Ragione sociale " RAGSOC + OUTPUT FLD_DITTE_RAGSOCTO RAGSOC + OUTPUT FLD_DITTE_CODTO CODDITTA + HELP "Introdurre codice di fine stampa: vuoto = fine archivio" +END + +STRING FLD_DITTE_RAGSOCFR 29 +BEGIN + PROMPT 34 6 "" + FLAGS "H" + USE LF_NDITTE KEY 2 + INPUT RAGSOC FLD_DITTE_RAGSOCFR + DISPLAY "Codice" CODDITTA + DISPLAY "Persona Rif. " PERRIF + DISPLAY "Ragione sociale " RAGSOC + OUTPUT FLD_DITTE_RAGSOCFR RAGSOC + OUTPUT FLD_DITTE_CODFR CODDITTA + HELP "Introdurre ragione soc. di inizio stampa: vuoto = inizio archivio" +END + +STRING FLD_DITTE_RAGSOCTO 29 +BEGIN + PROMPT 34 8 "" + FLAGS "H" + COPYUSE FLD_DITTE_RAGSOCFR + INPUT CODDITTA FLD_DITTE_RAGSOCTO + DISPLAY "Codice" CODDITTA + DISPLAY "Persona Rif. " PERRIF + DISPLAY "Ragione sociale " RAGSOC + OUTPUT FLD_DITTE_RAGSOCTO RAGSOC + OUTPUT FLD_DITTE_CODTO CODDITTA + HELP "Introdurre ragione soc. di fine stampa: vuoto = fine archivio" +END + +BOOLEAN CHK_BA6_INCLDI +BEGIN + PROMPT 4 10 "Includi ditte" + HELP "Selezionare per includere informazioni relative alle ditte" +END + +BOOLEAN CHK_BA6_PRINTONE +BEGIN + PROMPT 4 11 "Stampa un solo record" + HELP "Selezionare per stampare soltanto il record nel campo DA" +END + +BUTTON BUT_BA6_ELENCO 6 +BEGIN + PROMPT 4 14 "Elenco" +END + +BUTTON BUT_BA6_SCHEDE 6 +BEGIN + PROMPT 15 14 "Schede" +END + +BUTTON BUT_BA6_RUBRICHE 8 +BEGIN + PROMPT 26 14 "Rubriche" +END + +BUTTON BUT_BA6_ETICHETTE 9 +BEGIN + PROMPT 37 14 "Etichette" +END + +BUTTON DLG_CANCEL +BEGIN + PROMPT 53 14 "" +END + +ENDPAGE +ENDMASK diff --git a/ba/ba6000b.uml b/ba/ba6000b.uml index d8cc7613d..cd4c47bb3 100755 --- a/ba/ba6000b.uml +++ b/ba/ba6000b.uml @@ -1,4 +1,4 @@ -#include "ba6000b.h" +#include "ba6100b.h" PAGE "Impostazione Etichette" -1 -1 57 15 TEXT DLG_NULL