From 9a9d1b349e1b8483d9a6616b13fbf142c79c24b7 Mon Sep 17 00:00:00 2001 From: guy Date: Mon, 14 Nov 1994 09:58:25 +0000 Subject: [PATCH] Maschere Andrea? git-svn-id: svn://10.65.10.50/trunk@607 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- ba/ba3300a.uml | 386 +++++++++++++++++++++++------------------------ ba/batbpim.uml | 326 +++++++++++++++++++-------------------- ba/batbpimc.uml | 394 ++++++++++++++++++++++++------------------------ 3 files changed, 553 insertions(+), 553 deletions(-) diff --git a/ba/ba3300a.uml b/ba/ba3300a.uml index 224bb7ddf..49efc56d0 100755 --- a/ba/ba3300a.uml +++ b/ba/ba3300a.uml @@ -1,193 +1,193 @@ -#include "ba3300.h" - -PAGE "Stampa fogli libro bollato" -1 -1 74 20 - -NUMBER F_ANNO 4 -BEGIN - PROMPT 3 3 "Anno Riferimento " - HELP "Anno a cui si riferisce il bollato" - USE REG - INPUT CODTAB[1,4] F_ANNO - INPUT CODTAB[5,7] F_CODICE - DISPLAY "Anno " CODTAB[1,4] - DISPLAY "Codice Registro" CODTAB[5,7] - DISPLAY "Descrizione@50" S0 - DISPLAY "Tipo" I0 - OUTPUT F_ANNO CODTAB[1,4] - OUTPUT F_CODICE CODTAB[5,7] - OUTPUT F_REGISTRO S0 - FLAGS "URZ" - CHECKTYPE REQUIRED - KEY 1 -END - -STRING F_CODDITTA 5 -BEGIN - PROMPT 3 2 "Ditta " - FLAGS "DFR" - KEY 1 -END - -STRING F_CODICE 3 -BEGIN - PROMPT 3 4 "Codice Registro " - HELP "Codice del registro da numerare" - FLAGS "U" - COPY ALL F_ANNO - CHECKTYPE REQUIRED - KEY 1 -END - -STRING F_REGISTRO 50 -BEGIN - PROMPT 3 6 "Registro " - HELP "Descrizione del registro da numerare" - USE REG KEY 2 - INPUT S0 F_REGISTRO - DISPLAY "Descrizione@50" S0 - DISPLAY "Anno " CODTAB[1,4] - DISPLAY "Codice Registro" CODTAB[5,7] - DISPLAY "Tipo" I0 - COPY OUTPUT F_CODICE - CHECKTYPE REQUIRED -END - -STRING F_RAGSOC 50 -BEGIN - PROMPT 3 7 "Ragione sociale " - FLAGS "U" - HELP "Ragione sociale dell'intestatario del registro" -// USE LF_NDITTE KEY 2 -// INPUT RAGSOC F_RAGSOC -// DISPLAY "Ragione sociale @50" RAGSOC -// DISPLAY "Ditta" CODDITTA -// OUTPUT F_RAGSOC RAGSOC -// OUTPUT F_CODDITTA CODDITTA -END - -STRING F_INDIRIZZO 35 -BEGIN - PROMPT 3 8 "Indirizzo " - HELP "Indirizzo dell'intestatario del registro" -// USE LF_UNLOC -// CHECKTYPE NORMAL -// INPUT CODULC "1" -// INPUT CODDITTA F_CODDITTA -// DISPLAY "Ditta" CODDITTA -// DISPLAY "Indirizzo @35" INDULC -// OUTPUT F_INDIRIZZO INDULC -// OUTPUT F_CODDITTA CODDITTA -// WARNING "Indirizzo assente" -END - -STRING F_CIV 10 -BEGIN - PROMPT 51 8 "N.civico " - HELP "Numero civico dell'intestatario del registro" -END - -STRING F_CAP 5 -BEGIN - PROMPT 3 9 "CAP " - HELP "CAP del comune dell'intestatario del registro" -END - -STRING F_CODCOM 4 -BEGIN - PROMPT 15 9 "Comune " - HELP "Codice del comune dell'intestatario del registro" -END - -STRING F_COM 28 -BEGIN - PROMPT 29 9 "" - HELP "Nome del comune dell'intestatario del registro" -END - -STRING F_PROV 5 -BEGIN - PROMPT 60 9 "Prov." - HELP "Provincia dell'intestatario del registro" -END - -STRING F_COFI 16 -BEGIN - PROMPT 3 10 "Codice fiscale " - HELP "Codice fiscale dell'intestatario del registro" -// USE LF_ANAG KEY 2 -// INPUT RAGSOC F_RAGSOC -// DISPLAY "Tipo" TIPOA -// DISPLAY "Codice" CODANAGR -// DISPLAY "Ragione sociale @50" RAGSOC -// OUTPUT F_RAGSOC RAGSOC -// OUTPUT F_COFI COFI -// OUTPUT F_PAIV PAIV -END - -STRING F_PAIV 12 -BEGIN - PROMPT 44 10 "Partita I.V.A " - HELP "Partita IVA dell'intestatario del registro" -// USE LF_ANAG KEY 2 -// INPUT RAGSOC F_RAGSOC -// DISPLAY "Tipo" TIPOA -// DISPLAY "Codice" CODANAGR -// DISPLAY "Ragione sociale @50" RAGSOC -// OUTPUT F_RAGSOC RAGSOC -// OUTPUT F_COFI COFI -// OUTPUT F_PAIV PAIV -END - -NUMBER F_NPAGINI 6 -BEGIN - PROMPT 3 12 "Numero pagina iniziale " - HELP "Numero della prima pagina da numerare" - FLAGS "RU" - NUM_EXPR {#THIS_FIELD >= 0} - WARNING "Numero pagina iniziale errato: non puo' essere negativo" -END - -NUMBER F_NPAGFI 6 -BEGIN - PROMPT 3 13 "Numero pagina finale " - HELP "Numero dell'ultima pagina da numerare" - FLAGS "R" - NUM_EXPR {#THIS_FIELD >= #F_NPAGINI} - WARNING "Numero pagina finale errato: deve essere maggiore o uguale a quello iniziale" -END - -BOOLEAN F_PRIMO -BEGIN - PROMPT 3 14 "Inizio numerazione dopo primo foglio " - HELP "Indicare se iniziare la numerazione nel secondo foglio" -END - -LIST F_TIPOST 7 -BEGIN - PROMPT 3 15 "Tipo di stampa " - HELP "Larghezza del foglio" - ITEM "0|132" - ITEM "1|132 c." - ITEM "2|198" -END - -NUMBER F_LUNG 2 -BEGIN - PROMPT 3 16 "Numero di righe " - HELP "Lunghezza del foglio" - FLAGS "R" -END - -BUTTON DLG_OK 9 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 9 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE - -ENDMASK +#include "ba3300.h" + +PAGE "Stampa fogli libro bollato" -1 -1 74 20 + +NUMBER F_ANNO 4 +BEGIN + PROMPT 3 3 "Anno Riferimento " + HELP "Anno a cui si riferisce il bollato" + USE REG + INPUT CODTAB[1,4] F_ANNO + INPUT CODTAB[5,7] F_CODICE + DISPLAY "Anno " CODTAB[1,4] + DISPLAY "Codice Registro" CODTAB[5,7] + DISPLAY "Descrizione@50" S0 + DISPLAY "Tipo" I0 + OUTPUT F_ANNO CODTAB[1,4] + OUTPUT F_CODICE CODTAB[5,7] + OUTPUT F_REGISTRO S0 + FLAGS "URZ" + CHECKTYPE REQUIRED + KEY 1 +END + +STRING F_CODDITTA 5 +BEGIN + PROMPT 3 2 "Ditta " + FLAGS "DFR" + KEY 1 +END + +STRING F_CODICE 3 +BEGIN + PROMPT 3 4 "Codice Registro " + HELP "Codice del registro da numerare" + FLAGS "U" + COPY ALL F_ANNO + CHECKTYPE REQUIRED + KEY 1 +END + +STRING F_REGISTRO 50 +BEGIN + PROMPT 3 6 "Registro " + HELP "Descrizione del registro da numerare" + USE REG KEY 2 + INPUT S0 F_REGISTRO + DISPLAY "Descrizione@50" S0 + DISPLAY "Anno " CODTAB[1,4] + DISPLAY "Codice Registro" CODTAB[5,7] + DISPLAY "Tipo" I0 + COPY OUTPUT F_CODICE + CHECKTYPE REQUIRED +END + +STRING F_RAGSOC 50 +BEGIN + PROMPT 3 7 "Ragione sociale " + FLAGS "U" + HELP "Ragione sociale dell'intestatario del registro" +// USE LF_NDITTE KEY 2 +// INPUT RAGSOC F_RAGSOC +// DISPLAY "Ragione sociale @50" RAGSOC +// DISPLAY "Ditta" CODDITTA +// OUTPUT F_RAGSOC RAGSOC +// OUTPUT F_CODDITTA CODDITTA +END + +STRING F_INDIRIZZO 35 +BEGIN + PROMPT 3 8 "Indirizzo " + HELP "Indirizzo dell'intestatario del registro" +// USE LF_UNLOC +// CHECKTYPE NORMAL +// INPUT CODULC "1" +// INPUT CODDITTA F_CODDITTA +// DISPLAY "Ditta" CODDITTA +// DISPLAY "Indirizzo @35" INDULC +// OUTPUT F_INDIRIZZO INDULC +// OUTPUT F_CODDITTA CODDITTA +// WARNING "Indirizzo assente" +END + +STRING F_CIV 10 +BEGIN + PROMPT 51 8 "N.civico " + HELP "Numero civico dell'intestatario del registro" +END + +STRING F_CAP 5 +BEGIN + PROMPT 3 9 "CAP " + HELP "CAP del comune dell'intestatario del registro" +END + +STRING F_CODCOM 4 +BEGIN + PROMPT 15 9 "Comune " + HELP "Codice del comune dell'intestatario del registro" +END + +STRING F_COM 28 +BEGIN + PROMPT 29 9 "" + HELP "Nome del comune dell'intestatario del registro" +END + +STRING F_PROV 5 +BEGIN + PROMPT 60 9 "Prov." + HELP "Provincia dell'intestatario del registro" +END + +STRING F_COFI 16 +BEGIN + PROMPT 3 10 "Codice fiscale " + HELP "Codice fiscale dell'intestatario del registro" +// USE LF_ANAG KEY 2 +// INPUT RAGSOC F_RAGSOC +// DISPLAY "Tipo" TIPOA +// DISPLAY "Codice" CODANAGR +// DISPLAY "Ragione sociale @50" RAGSOC +// OUTPUT F_RAGSOC RAGSOC +// OUTPUT F_COFI COFI +// OUTPUT F_PAIV PAIV +END + +STRING F_PAIV 12 +BEGIN + PROMPT 44 10 "Partita I.V.A " + HELP "Partita IVA dell'intestatario del registro" +// USE LF_ANAG KEY 2 +// INPUT RAGSOC F_RAGSOC +// DISPLAY "Tipo" TIPOA +// DISPLAY "Codice" CODANAGR +// DISPLAY "Ragione sociale @50" RAGSOC +// OUTPUT F_RAGSOC RAGSOC +// OUTPUT F_COFI COFI +// OUTPUT F_PAIV PAIV +END + +NUMBER F_NPAGINI 6 +BEGIN + PROMPT 3 12 "Numero pagina iniziale " + HELP "Numero della prima pagina da numerare" + FLAGS "RU" + NUM_EXPR {#THIS_FIELD >= 0} + WARNING "Numero pagina iniziale errato: non puo' essere negativo" +END + +NUMBER F_NPAGFI 6 +BEGIN + PROMPT 3 13 "Numero pagina finale " + HELP "Numero dell'ultima pagina da numerare" + FLAGS "R" + NUM_EXPR {#THIS_FIELD >= #F_NPAGINI} + WARNING "Numero pagina finale errato: deve essere maggiore o uguale a quello iniziale" +END + +BOOLEAN F_PRIMO +BEGIN + PROMPT 3 14 "Inizio numerazione dopo primo foglio " + HELP "Indicare se iniziare la numerazione nel secondo foglio" +END + +LIST F_TIPOST 7 +BEGIN + PROMPT 3 15 "Tipo di stampa " + HELP "Larghezza del foglio" + ITEM "0|132" + ITEM "1|132 c." + ITEM "2|198" +END + +NUMBER F_LUNG 2 +BEGIN + PROMPT 3 16 "Numero di righe " + HELP "Lunghezza del foglio" + FLAGS "R" +END + +BUTTON DLG_OK 9 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 9 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE + +ENDMASK diff --git a/ba/batbpim.uml b/ba/batbpim.uml index 1cd08dd90..3a384b619 100755 --- a/ba/batbpim.uml +++ b/ba/batbpim.uml @@ -1,163 +1,163 @@ -#include "batbpim.h" -#define F_IMPORTO1 1000 - -TOOLBAR "" 0 20 0 2 -#include -ENDPAGE - -PAGE "" -1 -1 78 16 - -NUMBER F_CODDITTA 5 -BEGIN - PROMPT 4 1 "Ditta " - FLAGS "FRD" - USE LF_NDITTE KEY 1 - CHECKTYPE REQUIRED - INPUT CODDITTA F_CODDITTA - DISPLAY "Codice" CODDITTA - DISPLAY "Ragione sociale@50" RAGSOC - OUTPUT F_CODDITTA CODDITTA - OUTPUT F_RAGSOC RAGSOC - KEY 1 -END - -STRING F_RAGSOC 50 -BEGIN - PROMPT 4 2 "Ragione sociale " - FLAGS "D" - KEY 1 -END - -NUMBER F_ANNO 4 -BEGIN - PROMPT 4 4 "Anno " - HELP "Anno d'esercizio di competenza" - FLAGS "A" - FIELD LF_TAB->CODTAB[1,4] - USE PIM - INPUT CODTAB[1,4] F_ANNO - INPUT CODTAB[5,9] F_ATTIVITA - INPUT CODTAB[10,12] F_REGISTRO - INPUT CODTAB[13,14] F_MESE - INPUT CODTAB[15,15] F_TIPOCR - INPUT CODTAB[16,18] F_CODIVA - DISPLAY "Anno" CODTAB[1,4] - DISPLAY "Attivita'" CODTAB[5,9] - DISPLAY "Cod. registro" CODTAB[10,12] - DISPLAY "Mese" CODTAB[13,14] - DISPLAY "Tipo c/r" CODTAB[15,15] - DISPLAY "Codice IVA" CODTAB[16,18] - OUTPUT F_ANNO CODTAB[1,4] - OUTPUT F_ATTIVITA CODTAB[5,9] - OUTPUT F_REGISTRO CODTAB[10,12] - OUTPUT F_MESE CODTAB[13,14] - OUTPUT F_TIPOCR CODTAB[15,15] - OUTPUT F_CODIVA CODTAB[16,18] - KEY 1 -END - -STRING F_ATTIVITA 5 -BEGIN - PROMPT 4 5 "Codice attivita " - HELP "Codice dell' attivita' della ditta" - FIELD LF_TAB->CODTAB[5,9] - USE LF_ATTIV - JOIN %AIS TO LF_ATTIV INTO CODTAB=CODATT - CHECKTYPE NORMAL - INPUT CODDITTA F_CODDITTA - INPUT CODATT F_ATTIVITA - DISPLAY "Codice attivita'" LF_TABCOM->CODTAB - DISPLAY "Descrizione@30" LF_TABCOM->S0 - OUTPUT F_ATTIVITA CODATT - WARNING "Codice attivita' non presente" - KEY 1 -END - -STRING F_REGISTRO 3 -BEGIN - PROMPT 4 6 "Codice registro " - HELP "Codice registro di riferimento" - FIELD LF_TAB->CODTAB[10,12] - FLAGS "R" - USE REG - CHECKTYPE NORMAL - INPUT CODTAB[1,4] F_REGISTRO - INPUT CODTAB[5,7] F_ANNO - DISPLAY "Codice registro" CODTAB[1,3] - DISPLAY "Anno" CODTAB[4,7] - DISPLAY "Descrizione@50" S0 - OUTPUT F_REGISTRO CODTAB[1,4] - OUTPUT F_ANNO CODTAB[5,7] - WARNING "Codice registro assente" - KEY 1 -END - -LIST F_MESE 10 -BEGIN - PROMPT 4 7 "Mese " - HELP "Mese a cui si fa riferimento" - FIELD LF_TAB->CODTAB[13,14] - FLAGS "MA" - VALIDATE MTCHECK_FUNC - KEY 1 -END - -NUMBER F_TIPOCR 1 -BEGIN - PROMPT 4 8 "Tipo Costo/Ricavo " - HELP "Tipo di conto costo o ricavo" - FIELD LF_TAB->CODTAB[15,15] - COPY ALL F_ANNO - KEY 1 -END - -STRING F_CODIVA 3 -BEGIN - PROMPT 4 10 "Codice IVA " - HELP "Codice IVA da applicare" - FIELD LF_TAB->CODTAB[16,18] - USE %IVA - INPUT CODTAB F_CODIVA - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione " S0 - OUTPUT F_CODIVA CODTAB - KEY 1 -END - -LIST F_IMPORTO 5 -BEGIN - PROMPT 4 9 "Tipo Importo " - HELP "Tipo importo da applicare" - FIELD PIM->I0 - ITEM "1|Netti" MESSAGE HIDE,F_IMPLORDO|SHOW,F_IMPONIBILE|SHOW,F_IVA - ITEM "2|Lordi" MESSAGE HIDE,F_IMPONIBILE|HIDE,F_IVA|SHOW,F_IMPLORDO - KEY 1 -END - -NUMBER F_IMPONIBILE 15 -BEGIN - PROMPT 4 11 "Imponibile " - HELP "Importo dell'imponibile IVA" - FIELD LF_TAB->R0 - FLAGS "R" -END - -NUMBER F_IVA 15 -BEGIN - PROMPT 4 12 "IVA " - HELP "Importo dell'imposta IVA" - FIELD LF_TAB->R1 - FLAGS "R" -END - -NUMBER F_IMPLORDO 15 -BEGIN - PROMPT 4 13 "Importo lordo " - HELP "Importo imponibile+IVA" - FIELD LF_TAB->R2 - FLAGS "R" -END - -ENDPAGE - -ENDMASK +#include "batbpim.h" +#define F_IMPORTO1 1000 + +TOOLBAR "" 0 20 0 2 +#include +ENDPAGE + +PAGE "" -1 -1 78 16 + +NUMBER F_CODDITTA 5 +BEGIN + PROMPT 4 1 "Ditta " + FLAGS "FRD" + USE LF_NDITTE KEY 1 + CHECKTYPE REQUIRED + INPUT CODDITTA F_CODDITTA + DISPLAY "Codice" CODDITTA + DISPLAY "Ragione sociale@50" RAGSOC + OUTPUT F_CODDITTA CODDITTA + OUTPUT F_RAGSOC RAGSOC + KEY 1 +END + +STRING F_RAGSOC 50 +BEGIN + PROMPT 4 2 "Ragione sociale " + FLAGS "D" + KEY 1 +END + +NUMBER F_ANNO 4 +BEGIN + PROMPT 4 4 "Anno " + HELP "Anno d'esercizio di competenza" + FLAGS "A" + FIELD LF_TAB->CODTAB[1,4] + USE PIM + INPUT CODTAB[1,4] F_ANNO + INPUT CODTAB[5,9] F_ATTIVITA + INPUT CODTAB[10,12] F_REGISTRO + INPUT CODTAB[13,14] F_MESE + INPUT CODTAB[15,15] F_TIPOCR + INPUT CODTAB[16,18] F_CODIVA + DISPLAY "Anno" CODTAB[1,4] + DISPLAY "Attivita'" CODTAB[5,9] + DISPLAY "Cod. registro" CODTAB[10,12] + DISPLAY "Mese" CODTAB[13,14] + DISPLAY "Tipo c/r" CODTAB[15,15] + DISPLAY "Codice IVA" CODTAB[16,18] + OUTPUT F_ANNO CODTAB[1,4] + OUTPUT F_ATTIVITA CODTAB[5,9] + OUTPUT F_REGISTRO CODTAB[10,12] + OUTPUT F_MESE CODTAB[13,14] + OUTPUT F_TIPOCR CODTAB[15,15] + OUTPUT F_CODIVA CODTAB[16,18] + KEY 1 +END + +STRING F_ATTIVITA 5 +BEGIN + PROMPT 4 5 "Codice attivita " + HELP "Codice dell' attivita' della ditta" + FIELD LF_TAB->CODTAB[5,9] + USE LF_ATTIV + JOIN %AIS TO LF_ATTIV INTO CODTAB=CODATT + CHECKTYPE NORMAL + INPUT CODDITTA F_CODDITTA + INPUT CODATT F_ATTIVITA + DISPLAY "Codice attivita'" LF_TABCOM->CODTAB + DISPLAY "Descrizione@30" LF_TABCOM->S0 + OUTPUT F_ATTIVITA CODATT + WARNING "Codice attivita' non presente" + KEY 1 +END + +STRING F_REGISTRO 3 +BEGIN + PROMPT 4 6 "Codice registro " + HELP "Codice registro di riferimento" + FIELD LF_TAB->CODTAB[10,12] + FLAGS "R" + USE REG + CHECKTYPE NORMAL + INPUT CODTAB[1,4] F_REGISTRO + INPUT CODTAB[5,7] F_ANNO + DISPLAY "Codice registro" CODTAB[1,3] + DISPLAY "Anno" CODTAB[4,7] + DISPLAY "Descrizione@50" S0 + OUTPUT F_REGISTRO CODTAB[1,4] + OUTPUT F_ANNO CODTAB[5,7] + WARNING "Codice registro assente" + KEY 1 +END + +LIST F_MESE 10 +BEGIN + PROMPT 4 7 "Mese " + HELP "Mese a cui si fa riferimento" + FIELD LF_TAB->CODTAB[13,14] + FLAGS "MA" + VALIDATE MTCHECK_FUNC + KEY 1 +END + +NUMBER F_TIPOCR 1 +BEGIN + PROMPT 4 8 "Tipo Costo/Ricavo " + HELP "Tipo di conto costo o ricavo" + FIELD LF_TAB->CODTAB[15,15] + COPY ALL F_ANNO + KEY 1 +END + +STRING F_CODIVA 3 +BEGIN + PROMPT 4 10 "Codice IVA " + HELP "Codice IVA da applicare" + FIELD LF_TAB->CODTAB[16,18] + USE %IVA + INPUT CODTAB F_CODIVA + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione " S0 + OUTPUT F_CODIVA CODTAB + KEY 1 +END + +LIST F_IMPORTO 5 +BEGIN + PROMPT 4 9 "Tipo Importo " + HELP "Tipo importo da applicare" + FIELD PIM->I0 + ITEM "1|Netti" MESSAGE HIDE,F_IMPLORDO|SHOW,F_IMPONIBILE|SHOW,F_IVA + ITEM "2|Lordi" MESSAGE HIDE,F_IMPONIBILE|HIDE,F_IVA|SHOW,F_IMPLORDO + KEY 1 +END + +NUMBER F_IMPONIBILE 15 +BEGIN + PROMPT 4 11 "Imponibile " + HELP "Importo dell'imponibile IVA" + FIELD LF_TAB->R0 + FLAGS "R" +END + +NUMBER F_IVA 15 +BEGIN + PROMPT 4 12 "IVA " + HELP "Importo dell'imposta IVA" + FIELD LF_TAB->R1 + FLAGS "R" +END + +NUMBER F_IMPLORDO 15 +BEGIN + PROMPT 4 13 "Importo lordo " + HELP "Importo imponibile+IVA" + FIELD LF_TAB->R2 + FLAGS "R" +END + +ENDPAGE + +ENDMASK diff --git a/ba/batbpimc.uml b/ba/batbpimc.uml index 1d5036e4c..abfb6ecf7 100755 --- a/ba/batbpimc.uml +++ b/ba/batbpimc.uml @@ -1,197 +1,197 @@ -#include "batbpim.h" -#define F_IMPORTO1 1000 - -TOOLBAR "" 0 20 0 2 -#include -ENDPAGE - -PAGE "" -1 -1 78 16 - -NUMBER F_CODDITTA 5 -BEGIN - PROMPT 4 1 "Ditta " - FLAGS "FRD" - USE LF_NDITTE KEY 1 - CHECKTYPE REQUIRED - INPUT CODDITTA F_CODDITTA - DISPLAY "Codice" CODDITTA - DISPLAY "Ragione sociale@50" RAGSOC - OUTPUT F_CODDITTA CODDITTA - OUTPUT F_RAGSOC RAGSOC - KEY 1 -END - -STRING F_RAGSOC 50 -BEGIN - PROMPT 4 2 "Ragione sociale " - FLAGS "D" - KEY 1 -END - -NUMBER F_ANNO 4 -BEGIN - PROMPT 4 4 "Anno " - HELP "Anno d'esercizio di competenza" - FLAGS "A" - FIELD LF_TAB->CODTAB[1,4] - USE PIM - INPUT CODTAB[1,4] F_ANNO - INPUT CODTAB[5,9] F_ATTIVITA - INPUT CODTAB[10,12] F_REGISTRO - INPUT CODTAB[13,14] F_MESE - INPUT CODTAB[15,17] F_CODIVA - DISPLAY "Anno" CODTAB[1,4] - DISPLAY "Attivita'" CODTAB[5,9] - DISPLAY "Codice registro" CODTAB[10,12] - DISPLAY "Mese" CODTAB[13,14] - DISPLAY "Codice IVA" CODTAB[15,17] - OUTPUT F_ANNO CODTAB[1,4] - OUTPUT F_ATTIVITA CODTAB[5,9] - OUTPUT F_REGISTRO CODTAB[10,12] - OUTPUT F_MESE CODTAB[13,14] - OUTPUT F_CODIVA CODTAB[15,17] - KEY 1 -END - -STRING F_ATTIVITA 5 -BEGIN - PROMPT 4 5 "Codice attivita " - HELP "Codice dell' attivita' della ditta" - FIELD LF_TAB->CODTAB[5,9] - USE LF_ATTIV - JOIN %AIS TO LF_ATTIV INTO CODTAB=CODATT - CHECKTYPE NORMAL - INPUT CODDITTA F_CODDITTA - INPUT CODATT F_ATTIVITA - DISPLAY "Codice attivita'" LF_TABCOM->CODTAB - DISPLAY "Descrizione@30" LF_TABCOM->S0 - OUTPUT F_ATTIVITA CODATT - WARNING "Codice attivita' non presente" - KEY 1 -END - -STRING F_REGISTRO 3 -BEGIN - PROMPT 4 6 "Codice registro " - HELP "Codice registro di riferimento" - FIELD LF_TAB->CODTAB[10,12] - FLAGS "R" - USE REG - CHECKTYPE NORMAL - INPUT CODTAB[1,3] F_REGISTRO - INPUT CODTAB[4,7] F_ANNO - DISPLAY "Codice registro" CODTAB[1,3] - DISPLAY "Anno" CODTAB[4,7] - DISPLAY "Descrizione@50" S0 - OUTPUT F_REGISTRO CODTAB[1,3] - OUTPUT F_ANNO CODTAB[4,7] - WARNING "Codice registro assente" - KEY 1 -END - -NUMBER F_MESE 2 -BEGIN - PROMPT 4 7 "Mese " - HELP "Mese a cui si fa riferimento" - FIELD LF_TAB->CODTAB[13,14] - FLAGS "RZ" - COPYUSE F_ANNO - INPUT CODTAB[1,4] F_ANNO - INPUT CODTAB[5,9] F_ATTIVITA - INPUT CODTAB[10,12] F_REGISTRO - INPUT CODTAB[13,14] F_MESE - INPUT CODTAB[15,17] F_CODIVA - DISPLAY "Anno" CODTAB[1,4] - DISPLAY "Attivita'" CODTAB[5,9] - DISPLAY "Codice registro" CODTAB[10,12] - DISPLAY "Mese" CODTAB[13,14] - DISPLAY "Codice IVA" CODTAB[15,17] - OUTPUT F_ANNO CODTAB[1,4] - OUTPUT F_ATTIVITA CODTAB[5,9] - OUTPUT F_REGISTRO CODTAB[10,12] - OUTPUT F_MESE CODTAB[13,14] - OUTPUT F_CODIVA CODTAB[15,17] - VALIDATE MTCHECK_FUNC - KEY 1 -END - -NUMBER F_TIPOCR 1 -BEGIN - PROMPT 4 8 "Tipo Costo/Ricavo " - HELP "Tipo di conto costo o ricavo" - FIELD LF_TAB->CODTAB[15,15] - KEY 1 -END - -LIST F_IMPORTO 5 -BEGIN - PROMPT 4 9 "Tipo importo " - HELP "Tipo importo da applicare" - ITEM "1|Netti" - MESSAGE HIDE,F_IMPLORDO|SHOW,F_IMPONIBILE|SHOW,F_IVA - ITEM "2|Lordi" - MESSAGE HIDE,F_IMPONIBILE|HIDE,F_IVA|SHOW,F_IMPLORDO - KEY 1 -END - -STRING F_CODIVA 3 -BEGIN - PROMPT 4 10 "Codice IVA " - HELP "Codice IVA da applicare" - FIELD LF_TAB->CODTAB[15,17] - COPYUSE F_ANNO - INPUT CODTAB[1,4] F_ANNO - INPUT CODTAB[5,9] F_ATTIVITA - INPUT CODTAB[10,12] F_REGISTRO - INPUT CODTAB[13,14] F_MESE - INPUT CODTAB[15,17] F_CODIVA - DISPLAY "Anno" CODTAB[1,4] - DISPLAY "Attivita'" CODTAB[5,9] - DISPLAY "Codice registro" CODTAB[10,12] - DISPLAY "Mese" CODTAB[13,14] - DISPLAY "Codice IVA" CODTAB[15,17] - OUTPUT F_ANNO CODTAB[1,4] - OUTPUT F_ATTIVITA CODTAB[5,9] - OUTPUT F_REGISTRO CODTAB[10,12] - OUTPUT F_MESE CODTAB[13,14] - OUTPUT F_CODIVA CODTAB[15,17] - KEY 1 -END - -NUMBER F_IMPONIBILE 15 -BEGIN - PROMPT 4 11 "Imponibile " - HELP "Importo dell'imponibile IVA" - FIELD LF_TAB->R0 - FLAGS "R" -END - -NUMBER F_IVA 15 -BEGIN - PROMPT 4 12 "IVA " - HELP "Importo dell'imposta IVA" - FIELD LF_TAB->R1 - FLAGS "R" -END - -NUMBER F_IMPLORDO 15 -BEGIN - PROMPT 4 13 "Importo lordo " - HELP "Importo imponibile+IVA" - FIELD LF_TAB->R2 - FLAGS "R" -END - -BUTTON DLG_OK -BEGIN - PROMPT 42 14 "" -END - -BUTTON DLG_CANCEL -BEGIN - PROMPT 53 14 "" -END - -ENDPAGE - -ENDMASK +#include "batbpim.h" +#define F_IMPORTO1 1000 + +TOOLBAR "" 0 20 0 2 +#include +ENDPAGE + +PAGE "" -1 -1 78 16 + +NUMBER F_CODDITTA 5 +BEGIN + PROMPT 4 1 "Ditta " + FLAGS "FRD" + USE LF_NDITTE KEY 1 + CHECKTYPE REQUIRED + INPUT CODDITTA F_CODDITTA + DISPLAY "Codice" CODDITTA + DISPLAY "Ragione sociale@50" RAGSOC + OUTPUT F_CODDITTA CODDITTA + OUTPUT F_RAGSOC RAGSOC + KEY 1 +END + +STRING F_RAGSOC 50 +BEGIN + PROMPT 4 2 "Ragione sociale " + FLAGS "D" + KEY 1 +END + +NUMBER F_ANNO 4 +BEGIN + PROMPT 4 4 "Anno " + HELP "Anno d'esercizio di competenza" + FLAGS "A" + FIELD LF_TAB->CODTAB[1,4] + USE PIM + INPUT CODTAB[1,4] F_ANNO + INPUT CODTAB[5,9] F_ATTIVITA + INPUT CODTAB[10,12] F_REGISTRO + INPUT CODTAB[13,14] F_MESE + INPUT CODTAB[15,17] F_CODIVA + DISPLAY "Anno" CODTAB[1,4] + DISPLAY "Attivita'" CODTAB[5,9] + DISPLAY "Codice registro" CODTAB[10,12] + DISPLAY "Mese" CODTAB[13,14] + DISPLAY "Codice IVA" CODTAB[15,17] + OUTPUT F_ANNO CODTAB[1,4] + OUTPUT F_ATTIVITA CODTAB[5,9] + OUTPUT F_REGISTRO CODTAB[10,12] + OUTPUT F_MESE CODTAB[13,14] + OUTPUT F_CODIVA CODTAB[15,17] + KEY 1 +END + +STRING F_ATTIVITA 5 +BEGIN + PROMPT 4 5 "Codice attivita " + HELP "Codice dell' attivita' della ditta" + FIELD LF_TAB->CODTAB[5,9] + USE LF_ATTIV + JOIN %AIS TO LF_ATTIV INTO CODTAB=CODATT + CHECKTYPE NORMAL + INPUT CODDITTA F_CODDITTA + INPUT CODATT F_ATTIVITA + DISPLAY "Codice attivita'" LF_TABCOM->CODTAB + DISPLAY "Descrizione@30" LF_TABCOM->S0 + OUTPUT F_ATTIVITA CODATT + WARNING "Codice attivita' non presente" + KEY 1 +END + +STRING F_REGISTRO 3 +BEGIN + PROMPT 4 6 "Codice registro " + HELP "Codice registro di riferimento" + FIELD LF_TAB->CODTAB[10,12] + FLAGS "R" + USE REG + CHECKTYPE NORMAL + INPUT CODTAB[1,3] F_REGISTRO + INPUT CODTAB[4,7] F_ANNO + DISPLAY "Codice registro" CODTAB[1,3] + DISPLAY "Anno" CODTAB[4,7] + DISPLAY "Descrizione@50" S0 + OUTPUT F_REGISTRO CODTAB[1,3] + OUTPUT F_ANNO CODTAB[4,7] + WARNING "Codice registro assente" + KEY 1 +END + +NUMBER F_MESE 2 +BEGIN + PROMPT 4 7 "Mese " + HELP "Mese a cui si fa riferimento" + FIELD LF_TAB->CODTAB[13,14] + FLAGS "RZ" + COPYUSE F_ANNO + INPUT CODTAB[1,4] F_ANNO + INPUT CODTAB[5,9] F_ATTIVITA + INPUT CODTAB[10,12] F_REGISTRO + INPUT CODTAB[13,14] F_MESE + INPUT CODTAB[15,17] F_CODIVA + DISPLAY "Anno" CODTAB[1,4] + DISPLAY "Attivita'" CODTAB[5,9] + DISPLAY "Codice registro" CODTAB[10,12] + DISPLAY "Mese" CODTAB[13,14] + DISPLAY "Codice IVA" CODTAB[15,17] + OUTPUT F_ANNO CODTAB[1,4] + OUTPUT F_ATTIVITA CODTAB[5,9] + OUTPUT F_REGISTRO CODTAB[10,12] + OUTPUT F_MESE CODTAB[13,14] + OUTPUT F_CODIVA CODTAB[15,17] + VALIDATE MTCHECK_FUNC + KEY 1 +END + +NUMBER F_TIPOCR 1 +BEGIN + PROMPT 4 8 "Tipo Costo/Ricavo " + HELP "Tipo di conto costo o ricavo" + FIELD LF_TAB->CODTAB[15,15] + KEY 1 +END + +LIST F_IMPORTO 5 +BEGIN + PROMPT 4 9 "Tipo importo " + HELP "Tipo importo da applicare" + ITEM "1|Netti" + MESSAGE HIDE,F_IMPLORDO|SHOW,F_IMPONIBILE|SHOW,F_IVA + ITEM "2|Lordi" + MESSAGE HIDE,F_IMPONIBILE|HIDE,F_IVA|SHOW,F_IMPLORDO + KEY 1 +END + +STRING F_CODIVA 3 +BEGIN + PROMPT 4 10 "Codice IVA " + HELP "Codice IVA da applicare" + FIELD LF_TAB->CODTAB[15,17] + COPYUSE F_ANNO + INPUT CODTAB[1,4] F_ANNO + INPUT CODTAB[5,9] F_ATTIVITA + INPUT CODTAB[10,12] F_REGISTRO + INPUT CODTAB[13,14] F_MESE + INPUT CODTAB[15,17] F_CODIVA + DISPLAY "Anno" CODTAB[1,4] + DISPLAY "Attivita'" CODTAB[5,9] + DISPLAY "Codice registro" CODTAB[10,12] + DISPLAY "Mese" CODTAB[13,14] + DISPLAY "Codice IVA" CODTAB[15,17] + OUTPUT F_ANNO CODTAB[1,4] + OUTPUT F_ATTIVITA CODTAB[5,9] + OUTPUT F_REGISTRO CODTAB[10,12] + OUTPUT F_MESE CODTAB[13,14] + OUTPUT F_CODIVA CODTAB[15,17] + KEY 1 +END + +NUMBER F_IMPONIBILE 15 +BEGIN + PROMPT 4 11 "Imponibile " + HELP "Importo dell'imponibile IVA" + FIELD LF_TAB->R0 + FLAGS "R" +END + +NUMBER F_IVA 15 +BEGIN + PROMPT 4 12 "IVA " + HELP "Importo dell'imposta IVA" + FIELD LF_TAB->R1 + FLAGS "R" +END + +NUMBER F_IMPLORDO 15 +BEGIN + PROMPT 4 13 "Importo lordo " + HELP "Importo imponibile+IVA" + FIELD LF_TAB->R2 + FLAGS "R" +END + +BUTTON DLG_OK +BEGIN + PROMPT 42 14 "" +END + +BUTTON DLG_CANCEL +BEGIN + PROMPT 53 14 "" +END + +ENDPAGE + +ENDMASK