From 6fa1850d67ad677cae2191ebdb295ac05e143125 Mon Sep 17 00:00:00 2001 From: guy Date: Thu, 10 Nov 1994 14:42:21 +0000 Subject: [PATCH] Cancellate e updatate git-svn-id: svn://10.65.10.50/trunk@591 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- ba/bastasf.uml | 84 ++++++++++++++--------------- ba/bastcco.uml | 84 ++++++++++++++--------------- ba/bastcfi.uml | 84 ++++++++++++++--------------- ba/bastcrs.uml | 86 +++++++++++++++--------------- ba/bastcve.uml | 90 +++++++++++++++---------------- ba/bastleg.uml | 84 ++++++++++++++--------------- ba/bastlis.uml | 84 ++++++++++++++--------------- ba/bastmsp.uml | 84 ++++++++++++++--------------- ba/bastndo.uml | 84 ++++++++++++++--------------- ba/bastnot.uml | 88 +++++++++++++++---------------- ba/bastois.uml | 140 ++++++++++++++++++++++++------------------------- ba/bastpor.uml | 84 ++++++++++++++--------------- ba/bastsad.uml | 84 ++++++++++++++--------------- ba/bastsco.uml | 86 +++++++++++++++--------------- ba/baststa.uml | 86 +++++++++++++++--------------- ba/baststt.uml | 82 ++++++++++++++--------------- ba/basttit.uml | 84 ++++++++++++++--------------- ba/bastues.uml | 86 +++++++++++++++--------------- ba/bastvet.uml | 88 +++++++++++++++---------------- ba/bastzon.uml | 84 ++++++++++++++--------------- 20 files changed, 878 insertions(+), 878 deletions(-) diff --git a/ba/bastasf.uml b/ba/bastasf.uml index 787e4521b..f62a4290f 100755 --- a/ba/bastasf.uml +++ b/ba/bastasf.uml @@ -1,42 +1,42 @@ -#include "ba3200.h" - -PAGE "Stampa Assoggettamento" -1 -1 50 8 -STRING F_INIZIO1 3 -BEGIN - PROMPT 2 1 "Da codice " - FLAGS "U" - HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" - FIELD LF_TABCOM->CODTAB - USE %ASF - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 -END - -STRING F_FINE1 3 -BEGIN - PROMPT 2 3 "A codice " - FLAGS "U" - HELP "Codice di fine. Vuoto = fine archivio" - FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 -END - -BUTTON DLG_OK 8 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 8 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE -ENDMASK +#include "ba3200.h" + +PAGE "Stampa Assoggettamento" -1 -1 50 8 +STRING F_INIZIO1 3 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "U" + HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" + FIELD LF_TABCOM->CODTAB + USE %ASF + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 3 +BEGIN + PROMPT 2 3 "A codice " + FLAGS "U" + HELP "Codice di fine. Vuoto = fine archivio" + FIELD LF_TABCOM->CODTAB + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +BUTTON DLG_OK 8 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 8 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ba/bastcco.uml b/ba/bastcco.uml index 2ccf942c3..6cb1170c3 100755 --- a/ba/bastcco.uml +++ b/ba/bastcco.uml @@ -1,42 +1,42 @@ -#include "ba3200.h" - -PAGE "Stampa Categorie contabili" -1 -1 50 8 -STRING F_INIZIO1 3 -BEGIN - PROMPT 2 1 "Da codice " - FLAGS "U" - HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" - FIELD LF_TABCOM->CODTAB - USE %CCO - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 -END - -STRING F_FINE1 3 -BEGIN - PROMPT 2 3 "A codice " - FLAGS "U" - HELP "Codice di fine. Vuoto = fine archivio" - FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 -END - -BUTTON DLG_OK 8 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 8 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE -ENDMASK +#include "ba3200.h" + +PAGE "Stampa Categorie contabili" -1 -1 50 8 +STRING F_INIZIO1 3 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "U" + HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" + FIELD LF_TABCOM->CODTAB + USE %CCO + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 3 +BEGIN + PROMPT 2 3 "A codice " + FLAGS "U" + HELP "Codice di fine. Vuoto = fine archivio" + FIELD LF_TABCOM->CODTAB + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +BUTTON DLG_OK 8 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 8 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ba/bastcfi.uml b/ba/bastcfi.uml index 2e1dc0028..98093a396 100755 --- a/ba/bastcfi.uml +++ b/ba/bastcfi.uml @@ -1,42 +1,42 @@ -#include "ba3200.h" - -PAGE "Stampa Categorie finanziarie" -1 -1 50 8 -STRING F_INIZIO1 3 -BEGIN - PROMPT 2 1 "Da codice " - FLAGS "U" - HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" - FIELD LF_TABCOM->CODTAB - USE %CFI - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 -END - -STRING F_FINE1 3 -BEGIN - PROMPT 2 3 "A codice " - FLAGS "U" - HELP "Codice di fine. Vuoto = fine archivio" - FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 -END - -BUTTON DLG_OK 8 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 8 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE -ENDMASK +#include "ba3200.h" + +PAGE "Stampa Categorie finanziarie" -1 -1 50 8 +STRING F_INIZIO1 3 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "U" + HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" + FIELD LF_TABCOM->CODTAB + USE %CFI + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 3 +BEGIN + PROMPT 2 3 "A codice " + FLAGS "U" + HELP "Codice di fine. Vuoto = fine archivio" + FIELD LF_TABCOM->CODTAB + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +BUTTON DLG_OK 8 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 8 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ba/bastcrs.uml b/ba/bastcrs.uml index 079536a7d..540b27625 100755 --- a/ba/bastcrs.uml +++ b/ba/bastcrs.uml @@ -1,43 +1,43 @@ -#include "ba3200.h" - -PAGE "Stampa cariche sociali" -1 -1 50 8 - -STRING F_INIZIO1 2 -BEGIN - PROMPT 2 1 "Da codice " - FLAGS "RZ" - HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" - FIELD LF_TABCOM->CODTAB - USE %CRS - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Carica@25" S0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 -END - -STRING F_FINE1 2 -BEGIN - PROMPT 2 3 "A codice " - FLAGS "RZ" - HELP "Codice di fine. Vuoto = fine archivio" - FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 -END - -BUTTON DLG_OK 8 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 8 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE -ENDMASK +#include "ba3200.h" + +PAGE "Stampa cariche sociali" -1 -1 50 8 + +STRING F_INIZIO1 2 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "RZ" + HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" + FIELD LF_TABCOM->CODTAB + USE %CRS + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Carica@25" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 2 +BEGIN + PROMPT 2 3 "A codice " + FLAGS "RZ" + HELP "Codice di fine. Vuoto = fine archivio" + FIELD LF_TABCOM->CODTAB + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +BUTTON DLG_OK 8 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 8 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ba/bastcve.uml b/ba/bastcve.uml index ebcc880af..0e1f4d0b0 100755 --- a/ba/bastcve.uml +++ b/ba/bastcve.uml @@ -1,45 +1,45 @@ -#include "ba3200.h" - -PAGE "Stampa Categorie Vendita" -1 -1 50 8 -STRING F_INIZIO1 3 -BEGIN - PROMPT 2 1 "Da codice " - FLAGS "U" - HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" - FIELD LF_TABCOM->CODTAB - USE %CVE - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - DISPLAY "Provvigione" R0 - DISPLAY "Gruppo" I1 - DISPLAY "Conto" I2 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 -END - -STRING F_FINE1 3 -BEGIN - PROMPT 2 3 "A codice " - FLAGS "U" - HELP "Codice di fine. Vuoto = fine archivio" - FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 -END - -BUTTON DLG_OK 8 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 8 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE -ENDMASK +#include "ba3200.h" + +PAGE "Stampa Categorie Vendita" -1 -1 50 8 +STRING F_INIZIO1 3 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "U" + HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" + FIELD LF_TABCOM->CODTAB + USE %CVE + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + DISPLAY "Provvigione" R0 + DISPLAY "Gruppo" I1 + DISPLAY "Conto" I2 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 3 +BEGIN + PROMPT 2 3 "A codice " + FLAGS "U" + HELP "Codice di fine. Vuoto = fine archivio" + FIELD LF_TABCOM->CODTAB + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +BUTTON DLG_OK 8 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 8 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ba/bastleg.uml b/ba/bastleg.uml index 1596e6525..da1b377f7 100755 --- a/ba/bastleg.uml +++ b/ba/bastleg.uml @@ -1,42 +1,42 @@ -#include "ba3200.h" - -PAGE "Stampa Legali" -1 -1 50 8 -STRING F_INIZIO1 3 -BEGIN - PROMPT 2 1 "Da codice " - FLAGS "U" - HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" - FIELD LF_TABCOM->CODTAB - USE %LEG - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 -END - -STRING F_FINE1 3 -BEGIN - PROMPT 2 3 "A codice " - FLAGS "U" - HELP "Codice di fine. Vuoto = fine archivio" - FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 -END - -BUTTON DLG_OK 8 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 8 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE -ENDMASK +#include "ba3200.h" + +PAGE "Stampa Legali" -1 -1 50 8 +STRING F_INIZIO1 3 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "U" + HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" + FIELD LF_TABCOM->CODTAB + USE %LEG + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 3 +BEGIN + PROMPT 2 3 "A codice " + FLAGS "U" + HELP "Codice di fine. Vuoto = fine archivio" + FIELD LF_TABCOM->CODTAB + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +BUTTON DLG_OK 8 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 8 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ba/bastlis.uml b/ba/bastlis.uml index 49d139811..256a0ba46 100755 --- a/ba/bastlis.uml +++ b/ba/bastlis.uml @@ -1,42 +1,42 @@ -#include "ba3200.h" - -PAGE "Stampa listini" -1 -1 50 8 -STRING F_INIZIO1 3 -BEGIN - PROMPT 2 1 "Da codice " - FLAGS "U" - HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" - FIELD LF_TABCOM->CODTAB - USE %LIS - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 -END - -STRING F_FINE1 3 -BEGIN - PROMPT 2 3 "A codice " - FLAGS "U" - HELP "Codice di fine. Vuoto = fine archivio" - FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 -END - -BUTTON DLG_OK 8 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 8 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE -ENDMASK +#include "ba3200.h" + +PAGE "Stampa listini" -1 -1 50 8 +STRING F_INIZIO1 3 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "U" + HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" + FIELD LF_TABCOM->CODTAB + USE %LIS + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 3 +BEGIN + PROMPT 2 3 "A codice " + FLAGS "U" + HELP "Codice di fine. Vuoto = fine archivio" + FIELD LF_TABCOM->CODTAB + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +BUTTON DLG_OK 8 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 8 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ba/bastmsp.uml b/ba/bastmsp.uml index 5502040bd..a6156cd1d 100755 --- a/ba/bastmsp.uml +++ b/ba/bastmsp.uml @@ -1,42 +1,42 @@ -#include "ba3200.h" - -PAGE "Stampa Modalita' di spedizione" -1 -1 50 8 -STRING F_INIZIO1 3 -BEGIN - PROMPT 2 1 "Da codice " - FLAGS "U" - HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" - FIELD LF_TABCOM->CODTAB - USE %MSP - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 -END - -STRING F_FINE1 3 -BEGIN - PROMPT 2 3 "A codice " - FLAGS "U" - HELP "Codice di fine. Vuoto = fine archivio" - FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 -END - -BUTTON DLG_OK 8 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 8 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE -ENDMASK +#include "ba3200.h" + +PAGE "Stampa Modalita' di spedizione" -1 -1 50 8 +STRING F_INIZIO1 3 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "U" + HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" + FIELD LF_TABCOM->CODTAB + USE %MSP + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 3 +BEGIN + PROMPT 2 3 "A codice " + FLAGS "U" + HELP "Codice di fine. Vuoto = fine archivio" + FIELD LF_TABCOM->CODTAB + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +BUTTON DLG_OK 8 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 8 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ba/bastndo.uml b/ba/bastndo.uml index eaad9ba94..69d6bda07 100755 --- a/ba/bastndo.uml +++ b/ba/bastndo.uml @@ -1,42 +1,42 @@ -#include "ba3200.h" - -PAGE "Stampa Note documento" -1 -1 50 8 -STRING F_INIZIO1 3 -BEGIN - PROMPT 2 1 "Da codice " - FLAGS "U" - HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" - FIELD LF_TABCOM->CODTAB - USE %NDO - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 -END - -STRING F_FINE1 3 -BEGIN - PROMPT 2 3 "A codice " - FLAGS "U" - HELP "Codice di fine. Vuoto = fine archivio" - FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 -END - -BUTTON DLG_OK 8 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 8 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE -ENDMASK +#include "ba3200.h" + +PAGE "Stampa Note documento" -1 -1 50 8 +STRING F_INIZIO1 3 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "U" + HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" + FIELD LF_TABCOM->CODTAB + USE %NDO + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 3 +BEGIN + PROMPT 2 3 "A codice " + FLAGS "U" + HELP "Codice di fine. Vuoto = fine archivio" + FIELD LF_TABCOM->CODTAB + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +BUTTON DLG_OK 8 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 8 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ba/bastnot.uml b/ba/bastnot.uml index 0206ab9bd..3cf40e384 100755 --- a/ba/bastnot.uml +++ b/ba/bastnot.uml @@ -1,44 +1,44 @@ -#include "ba3200.h" - -PAGE "Stampa Codici note" -1 -1 50 8 -STRING F_INIZIO1 3 -BEGIN - PROMPT 2 1 "Da codice " - FLAGS "U" - HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" - FIELD LF_TABCOM->CODTAB - USE %NOT - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Destinazione@30" S0 - DISPLAY "Blocca imm." B0 - DISPLAY "Documento" B1 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 -END - -STRING F_FINE1 3 -BEGIN - PROMPT 2 3 "A codice " - FLAGS "U" - HELP "Codice di fine. Vuoto = fine archivio" - FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 -END - -BUTTON DLG_OK 8 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 8 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE -ENDMASK +#include "ba3200.h" + +PAGE "Stampa Codici note" -1 -1 50 8 +STRING F_INIZIO1 3 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "U" + HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" + FIELD LF_TABCOM->CODTAB + USE %NOT + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Destinazione@30" S0 + DISPLAY "Blocca imm." B0 + DISPLAY "Documento" B1 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 3 +BEGIN + PROMPT 2 3 "A codice " + FLAGS "U" + HELP "Codice di fine. Vuoto = fine archivio" + FIELD LF_TABCOM->CODTAB + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +BUTTON DLG_OK 8 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 8 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ba/bastois.uml b/ba/bastois.uml index 991e24581..3356addd6 100755 --- a/ba/bastois.uml +++ b/ba/bastois.uml @@ -1,70 +1,70 @@ -#include "ba3200.h" - -PAGE "Stampa vecchi codici attivita'" -1 -1 60 8 - -STRING F_INIZIO1 4 -BEGIN - PROMPT 2 1 "Da codice " - FLAGS "RZ" - HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" - USE %OIS - FIELD CODTAB[1,4] - INPUT CODTAB[1,4] F_INIZIO1 - INPUT CODTAB[5,] F_INIZIO2 - DISPLAY "Codice" CODTAB[1,4] - DISPLAY "Subcodice" CODTAB[5,] - DISPLAY "Descrizione@50" S0 - OUTPUT F_INIZIO1 CODTAB[1,4] - OUTPUT F_INIZIO2 CODTAB[5,] - GROUP 1 -END - -STRING F_INIZIO2 1 -BEGIN - PROMPT 28 1 "subcodice " - HELP "Subcodice da cui iniziare la stampa. Vuoto = inizio archivio" - FLAGS "U" - FIELD CODTAB[5,] - COPY ALL F_INIZIO1 - GROUP 1 -END - - -STRING F_FINE1 4 -BEGIN - PROMPT 2 3 "A codice " - FLAGS "RZ" - HELP "Codice di fine. Vuoto = fine archivio" - COPY USE F_INIZIO1 - FIELD CODTAB[1,4] - INPUT CODTAB[1,4] F_FINE1 - INPUT CODTAB[5,] F_FINE2 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB[1,4] - OUTPUT F_FINE2 CODTAB[5,] - GROUP 2 -END - - -STRING F_FINE2 1 -BEGIN - PROMPT 28 3 "subcodice " - FLAGS "U" - FIELD CODTAB[5,] - HELP "Subcodice di fine. Vuoto = fine archivio" - COPY ALL F_FINE1 - GROUP 2 -END - -BUTTON DLG_OK 8 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 8 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE -ENDMASK +#include "ba3200.h" + +PAGE "Stampa vecchi codici attivita'" -1 -1 60 8 + +STRING F_INIZIO1 4 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "RZ" + HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" + USE %OIS + FIELD CODTAB[1,4] + INPUT CODTAB[1,4] F_INIZIO1 + INPUT CODTAB[5,] F_INIZIO2 + DISPLAY "Codice" CODTAB[1,4] + DISPLAY "Subcodice" CODTAB[5,] + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB[1,4] + OUTPUT F_INIZIO2 CODTAB[5,] + GROUP 1 +END + +STRING F_INIZIO2 1 +BEGIN + PROMPT 28 1 "subcodice " + HELP "Subcodice da cui iniziare la stampa. Vuoto = inizio archivio" + FLAGS "U" + FIELD CODTAB[5,] + COPY ALL F_INIZIO1 + GROUP 1 +END + + +STRING F_FINE1 4 +BEGIN + PROMPT 2 3 "A codice " + FLAGS "RZ" + HELP "Codice di fine. Vuoto = fine archivio" + COPY USE F_INIZIO1 + FIELD CODTAB[1,4] + INPUT CODTAB[1,4] F_FINE1 + INPUT CODTAB[5,] F_FINE2 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB[1,4] + OUTPUT F_FINE2 CODTAB[5,] + GROUP 2 +END + + +STRING F_FINE2 1 +BEGIN + PROMPT 28 3 "subcodice " + FLAGS "U" + FIELD CODTAB[5,] + HELP "Subcodice di fine. Vuoto = fine archivio" + COPY ALL F_FINE1 + GROUP 2 +END + +BUTTON DLG_OK 8 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 8 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ba/bastpor.uml b/ba/bastpor.uml index c65d1b250..e314effbd 100755 --- a/ba/bastpor.uml +++ b/ba/bastpor.uml @@ -1,42 +1,42 @@ -#include "ba3200.h" - -PAGE "Stampa Modalita' di consegna" -1 -1 50 8 -STRING F_INIZIO1 3 -BEGIN - PROMPT 2 1 "Da codice " - FLAGS "U" - HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" - FIELD LF_TABCOM->CODTAB - USE %POR - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 -END - -STRING F_FINE1 3 -BEGIN - PROMPT 2 3 "A codice " - FLAGS "U" - HELP "Codice di fine. Vuoto = fine archivio" - FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 -END - -BUTTON DLG_OK 8 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 8 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE -ENDMASK +#include "ba3200.h" + +PAGE "Stampa Modalita' di consegna" -1 -1 50 8 +STRING F_INIZIO1 3 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "U" + HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" + FIELD LF_TABCOM->CODTAB + USE %POR + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 3 +BEGIN + PROMPT 2 3 "A codice " + FLAGS "U" + HELP "Codice di fine. Vuoto = fine archivio" + FIELD LF_TABCOM->CODTAB + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +BUTTON DLG_OK 8 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 8 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ba/bastsad.uml b/ba/bastsad.uml index ec5824236..42af00b2a 100755 --- a/ba/bastsad.uml +++ b/ba/bastsad.uml @@ -1,42 +1,42 @@ -#include "ba3200.h" - -PAGE "Stampa Spese da addebitare" -1 -1 50 8 -STRING F_INIZIO1 3 -BEGIN - PROMPT 2 1 "Da codice " - FLAGS "U" - HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" - FIELD LF_TABCOM->CODTAB - USE %SAD - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@20" S0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 -END - -STRING F_FINE1 3 -BEGIN - PROMPT 2 3 "A codice " - FLAGS "U" - HELP "Codice di fine. Vuoto = fine archivio" - FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 -END - -BUTTON DLG_OK 8 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 8 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE -ENDMASK +#include "ba3200.h" + +PAGE "Stampa Spese da addebitare" -1 -1 50 8 +STRING F_INIZIO1 3 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "U" + HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" + FIELD LF_TABCOM->CODTAB + USE %SAD + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@20" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 3 +BEGIN + PROMPT 2 3 "A codice " + FLAGS "U" + HELP "Codice di fine. Vuoto = fine archivio" + FIELD LF_TABCOM->CODTAB + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +BUTTON DLG_OK 8 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 8 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ba/bastsco.uml b/ba/bastsco.uml index 9522bdb33..9c54a99ea 100755 --- a/ba/bastsco.uml +++ b/ba/bastsco.uml @@ -1,43 +1,43 @@ -#include "ba3200.h" - -PAGE "Stampa sconti incondizionati" -1 -1 50 8 -STRING F_INIZIO1 3 -BEGIN - PROMPT 2 1 "Da codice " - FLAGS "U" - HELP "Codice da cui iniziare la stampa. Vuoto = inizio archvio" - FIELD LF_TABCOM->CODTAB - USE %SCO - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - DISPLAY "Percentuale" R0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 -END - -STRING F_FINE1 3 -BEGIN - PROMPT 2 3 "A codice " - FLAGS "U" - HELP "Codice di fine. Vuoto = fine archivio" - FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 -END - -BUTTON DLG_OK 8 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 8 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE -ENDMASK +#include "ba3200.h" + +PAGE "Stampa sconti incondizionati" -1 -1 50 8 +STRING F_INIZIO1 3 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "U" + HELP "Codice da cui iniziare la stampa. Vuoto = inizio archvio" + FIELD LF_TABCOM->CODTAB + USE %SCO + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + DISPLAY "Percentuale" R0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 3 +BEGIN + PROMPT 2 3 "A codice " + FLAGS "U" + HELP "Codice di fine. Vuoto = fine archivio" + FIELD LF_TABCOM->CODTAB + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +BUTTON DLG_OK 8 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 8 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ba/baststa.uml b/ba/baststa.uml index 490191c66..22ec5f68c 100755 --- a/ba/baststa.uml +++ b/ba/baststa.uml @@ -1,43 +1,43 @@ -#include "ba3200.h" - -PAGE "Stampa stati" -1 -1 50 8 - -STRING F_INIZIO1 3 -BEGIN - PROMPT 2 1 "Da codice " - FLAGS "RZ" - HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" - FIELD LF_TABCOM->CODTAB - USE %STA - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Stato@50" S0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 -END - -STRING F_FINE1 3 -BEGIN - PROMPT 2 3 "A codice " - FLAGS "RZ" - HELP "Codice di fine. Vuoto = fine archivio" - FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 -END - -BUTTON DLG_OK 8 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 8 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE -ENDMASK +#include "ba3200.h" + +PAGE "Stampa stati" -1 -1 50 8 + +STRING F_INIZIO1 3 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "RZ" + HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" + FIELD LF_TABCOM->CODTAB + USE %STA + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Stato@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 3 +BEGIN + PROMPT 2 3 "A codice " + FLAGS "RZ" + HELP "Codice di fine. Vuoto = fine archivio" + FIELD LF_TABCOM->CODTAB + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +BUTTON DLG_OK 8 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 8 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ba/baststt.uml b/ba/baststt.uml index 63696d345..42fb21078 100755 --- a/ba/baststt.uml +++ b/ba/baststt.uml @@ -1,41 +1,41 @@ -#include "ba3200.h" - -PAGE "Stampa codici statistici" -1 -1 50 8 - -STRING F_INIZIO1 7 -BEGIN - PROMPT 2 1 "Da codice " - HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" - FIELD LF_TABCOM->CODTAB - USE %STT - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@40" S0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 -END - -STRING F_FINE1 7 -BEGIN - PROMPT 2 3 "A codice " - HELP "Codice di fine. Vuoto = fine archivio" - FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 -END - -BUTTON DLG_OK 8 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 8 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE -ENDMASK +#include "ba3200.h" + +PAGE "Stampa codici statistici" -1 -1 50 8 + +STRING F_INIZIO1 7 +BEGIN + PROMPT 2 1 "Da codice " + HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" + FIELD LF_TABCOM->CODTAB + USE %STT + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@40" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 7 +BEGIN + PROMPT 2 3 "A codice " + HELP "Codice di fine. Vuoto = fine archivio" + FIELD LF_TABCOM->CODTAB + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +BUTTON DLG_OK 8 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 8 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ba/basttit.uml b/ba/basttit.uml index 50c060017..47f385c46 100755 --- a/ba/basttit.uml +++ b/ba/basttit.uml @@ -1,42 +1,42 @@ -#include "ba3200.h" - -PAGE "Stampa Titoli onorifici" -1 -1 50 8 -STRING F_INIZIO1 3 -BEGIN - PROMPT 2 1 "Da codice " - FLAGS "U" - HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" - FIELD LF_TABCOM->CODTAB - USE %TIT - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 -END - -STRING F_FINE1 3 -BEGIN - PROMPT 2 3 "A codice " - FLAGS "U" - HELP "Codice di fine. Vuoto = fine archivio" - FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 -END - -BUTTON DLG_OK 8 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 8 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE -ENDMASK +#include "ba3200.h" + +PAGE "Stampa Titoli onorifici" -1 -1 50 8 +STRING F_INIZIO1 3 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "U" + HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" + FIELD LF_TABCOM->CODTAB + USE %TIT + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 3 +BEGIN + PROMPT 2 3 "A codice " + FLAGS "U" + HELP "Codice di fine. Vuoto = fine archivio" + FIELD LF_TABCOM->CODTAB + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +BUTTON DLG_OK 8 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 8 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ba/bastues.uml b/ba/bastues.uml index cf49451e2..471480e86 100755 --- a/ba/bastues.uml +++ b/ba/bastues.uml @@ -1,43 +1,43 @@ -#include "ba3200.h" - -PAGE "Stampa uffici esattoria" -1 -1 50 8 - -NUMBER F_INIZIO1 3 -BEGIN - PROMPT 3 1 "Da codice " - HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" - USE %UES - FLAGS "RZ" - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@25" S0 - OUTPUT F_INIZIO1 CODTAB - FIELD LF_TABCOM->CODTAB - GROUP 1 -END - -NUMBER F_FINE1 3 -BEGIN - PROMPT 3 3 "A codice " - HELP "Codice di fine. Vuoto = fine archivio" - COPY USE F_INIZIO1 - FLAGS "RZ" - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - FIELD LF_TABCOM->CODTAB - GROUP 2 -END - -BUTTON DLG_OK 8 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 8 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE -ENDMASK +#include "ba3200.h" + +PAGE "Stampa uffici esattoria" -1 -1 50 8 + +NUMBER F_INIZIO1 3 +BEGIN + PROMPT 3 1 "Da codice " + HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" + USE %UES + FLAGS "RZ" + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@25" S0 + OUTPUT F_INIZIO1 CODTAB + FIELD LF_TABCOM->CODTAB + GROUP 1 +END + +NUMBER F_FINE1 3 +BEGIN + PROMPT 3 3 "A codice " + HELP "Codice di fine. Vuoto = fine archivio" + COPY USE F_INIZIO1 + FLAGS "RZ" + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + FIELD LF_TABCOM->CODTAB + GROUP 2 +END + +BUTTON DLG_OK 8 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 8 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ba/bastvet.uml b/ba/bastvet.uml index af1bc5c8e..ba7ca9267 100755 --- a/ba/bastvet.uml +++ b/ba/bastvet.uml @@ -1,44 +1,44 @@ -#include "ba3200.h" - -PAGE "Stampa vettori" -1 -1 50 8 - -NUMBER F_INIZIO1 3 -BEGIN - PROMPT 2 1 "Da codice " - FLAGS "RZ" - HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" - FIELD LF_TABCOM->CODTAB - USE %VET - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice vettore" CODTAB - DISPLAY "Ragione sociale@50" S0 - OUTPUT F_INIZIO1 CODTAB - KEY 1 - GROUP 1 -END - -NUMBER F_FINE1 3 -BEGIN - PROMPT 2 3 "A codice " - FLAGS "RZ" - HELP "Codice di fine. Vuoto = fine archivio" - FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 -END - -BUTTON DLG_OK 8 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 8 2 -BEGIN - PROMPT -22 -3 "" -END - -ENDPAGE -ENDMASK +#include "ba3200.h" + +PAGE "Stampa vettori" -1 -1 50 8 + +NUMBER F_INIZIO1 3 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "RZ" + HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" + FIELD LF_TABCOM->CODTAB + USE %VET + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice vettore" CODTAB + DISPLAY "Ragione sociale@50" S0 + OUTPUT F_INIZIO1 CODTAB + KEY 1 + GROUP 1 +END + +NUMBER F_FINE1 3 +BEGIN + PROMPT 2 3 "A codice " + FLAGS "RZ" + HELP "Codice di fine. Vuoto = fine archivio" + FIELD LF_TABCOM->CODTAB + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +BUTTON DLG_OK 8 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 8 2 +BEGIN + PROMPT -22 -3 "" +END + +ENDPAGE +ENDMASK diff --git a/ba/bastzon.uml b/ba/bastzon.uml index 3ef7fac81..4141e1a49 100755 --- a/ba/bastzon.uml +++ b/ba/bastzon.uml @@ -1,42 +1,42 @@ -#include "ba3200.h" - -PAGE "Stampa Zone" -1 -1 50 8 -STRING F_INIZIO1 3 -BEGIN - PROMPT 2 1 "Da codice " - FLAGS "U" - HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" - FIELD LF_TABCOM->CODTAB - USE %ZON - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 -END - -STRING F_FINE1 3 -BEGIN - PROMPT 2 3 "A codice " - FLAGS "U" - HELP "Codice di fine. Vuoto = fine archivio" - FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 -END - -BUTTON DLG_OK 8 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 8 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE -ENDMASK +#include "ba3200.h" + +PAGE "Stampa Zone" -1 -1 50 8 +STRING F_INIZIO1 3 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "U" + HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" + FIELD LF_TABCOM->CODTAB + USE %ZON + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 3 +BEGIN + PROMPT 2 3 "A codice " + FLAGS "U" + HELP "Codice di fine. Vuoto = fine archivio" + FIELD LF_TABCOM->CODTAB + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +BUTTON DLG_OK 8 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 8 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK