root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Correzioni per XI

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@2832 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1996-05-16 09:06:53 +00:00
parent 8403ea28ad
commit 20b383cc49
76 changed files with 996 additions and 1029 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ba/ba1100b.uml
View File

@ -3,7 +3,7 @@
PAGE "Scarico Archivio" -1 -1 70 13
STRING FLD_OUTFILE 50
STRING FLD_OUTFILE 50
BEGIN
PROMPT 2 1 "File di output "
HELP "Nome del file sul quale scaricare"
@ -45,18 +45,21 @@ STRING FLD_FS 5
BEGIN
PROMPT 2 7 "Separatore di campi "
HELP "Carattere seperatore dei campi"
FLAGS "P"
END
STRING FLD_FD 5
BEGIN
PROMPT 40 7 "Delimitatore di campi "
HELP "Carattere delimitatore di campi"
FLAGS "P"
END
STRING FLD_RS 5
BEGIN
PROMPT 2 9 "Separatore di record "
HELP "Carattere delimitatore di record"
FLAGS "P"
END
BUTTON DLG_OK 10 2

7
ba/ba1100c.uml
View File

@ -3,7 +3,7 @@
PAGE "Carico Archivio" -1 -1 70 13
STRING FLD_INFILE 50
STRING FLD_INFILE 50
BEGIN
PROMPT 2 1 "File di input "
HELP "Nome del file dove caricare i dati"
@ -21,18 +21,21 @@ STRING FLD_FS 5
BEGIN
PROMPT 2 5 "Separatore di campi "
HELP "Carattere separatore dei campi"
FLAGS "P"
END
STRING FLD_FD 5
STRING FLD_FD 5
BEGIN
PROMPT 2 7 "Delimitatore di campi "
HELP "Carattere delimitatore dei campi"
FLAGS "P"
END
STRING FLD_RS 5
BEGIN
PROMPT 2 9 "Separatore di record "
HELP "Carattere delimitatore dei record"
FLAGS "P"
END
BUTTON DLG_OK 9 2

14
ba/ba1100d.uml
View File

@ -130,17 +130,17 @@ BEGIN
HELP "Descrizione del campo"
END
BUTTON DLG_OK 8 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -13 -1 ""
END
BUTTON DLG_CANCEL 8 2
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -23 -1 ""
END
BUTTON DLG_DELREC 8 2
BUTTON DLG_DELREC 10 2
BEGIN
PROMPT -33 -1 "Elimina"
MESSAGE EXIT,K_DEL
@ -152,7 +152,7 @@ ENDMASK
PAGE "Chiave" -1 -1 79 9
STRING F_KEXPR 70
STRING F_KEXPR 70 60
BEGIN
PROMPT 1 2 "Espress."
HELP "Espressione dell'archivio"
@ -164,17 +164,17 @@ BEGIN
PROMPT 1 4 "Chiavi duplicate"
END
BUTTON DLG_OK 8 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -13 -1 ""
END
BUTTON DLG_CANCEL 8 2
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -23 -1 ""
END
BUTTON DLG_DELREC 8 2
BUTTON DLG_DELREC 10 2
BEGIN
PROMPT -33 -1 "Elimina"
MESSAGE EXIT,K_DEL

40
ba/ba1300a.uml
View File

@ -12,43 +12,43 @@ END
BOOLEAN F_CONTINUO
BEGIN
PROMPT 2 2 " Continuo"
MESSAGE TRUE DISABLE,F_ITERAZIONI|RESET,F_ITERAZIONI
MESSAGE FALSE ENABLE,F_ITERAZIONI
HELP "Tipo di test da svolgere"
MESSAGE TRUE DISABLE,F_ITERAZIONI|RESET,F_ITERAZIONI
MESSAGE FALSE ENABLE,F_ITERAZIONI
HELP "Tipo di test da svolgere"
END
NUMBER F_ITERAZIONI 3
BEGIN
PROMPT 2 4 ""
HELP "Numero di iterazioni del test"
HELP "Numero di iterazioni del test"
END
TEXT F_LABEL
TEXT F_LABEL
BEGIN
PROMPT 9 4 "Iterazioni"
PROMPT 9 4 "Iterazioni"
END
BUTTON DLG_FILES 9 2
BUTTON DLG_FILES 10 2
BEGIN
PROMPT 30 1 "~Files"
PROMPT 29 1 "~Files"
MESSAGE EXIT,K_F4
END
BUTTON DLG_REPORT 9 2
BEGIN
PROMPT 30 3 "~Report"
MESSAGE EXIT,K_F5
END
BUTTON DLG_TEST 9 2
BUTTON DLG_REPORT 10 2
BEGIN
PROMPT 30 5 "~Test"
MESSAGE EXIT,K_ENTER
PROMPT 29 3 "~Report"
MESSAGE EXIT,K_F5
END
BUTTON DLG_CANCEL 9 2
BEGIN
PROMPT 30 7 ""
BUTTON DLG_TEST 10 2
BEGIN
PROMPT 29 5 "~Test"
MESSAGE EXIT,K_ENTER
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT 29 7 ""
END
ENDMASK

26
ba/ba1300b.uml
View File

@ -2,32 +2,32 @@
#include <tokens.h>
#include "ba1300a.h"
PAGE "Debugging" -1 -1 42 7
PAGE "Debugging" -1 -1 42 8
NUMBER F_FILE 3
BEGIN
PROMPT 2 1 "Numero file "
SHEET "N.@5|Nome@20|EOD@7|EOX@7|Lung. |Descrizione@43"
INPUT F_FILE
OUTPUT F_FILE
HELP "Numero del file da esaminare"
SHEET "N.@5|Nome@20|EOD@7|EOX@7|Lung. |Descrizione@43"
INPUT F_FILE
OUTPUT F_FILE
HELP "Numero del file da esaminare"
END
STRING F_SEQUENZA 20
BEGIN
PROMPT 2 3 "File Random "
PROMPT 2 3 "File Random "
HELP "Nome del file della sequenza"
END
BUTTON DLG_OK 9 2
BEGIN
PROMPT -12 6 ""
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 6 ""
END
BUTTON DLG_CANCEL 9 2
BEGIN
PROMPT -22 6 ""
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -22 6 ""
END
ENDMASK

4
ba/ba2100a.uml
View File

@ -23,12 +23,12 @@ BEGIN
END
BUTTON DLG_OK 9 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_CANCEL 9 2
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -22 -1 ""
END

2
ba/ba2100c.uml
View File

@ -1,4 +1,4 @@
PAGE "POSIZIONAMENTO MODULI" -1 -1 49 6
PAGE "POSIZIONAMENTO MODULI" -1 -1 55 6
TEXT DLG_NULL
BEGIN

104
ba/ba2100f.uml
View File

@ -3,8 +3,8 @@
TOOLBAR "" 0 20 0 2
BUTTON F_OPTIONS 10 2
BEGIN
PROMPT -13 -1 "Opzioni"
BEGIN
PROMPT -13 -1 "Opzioni"
END
BUTTON DLG_OK 10 2
@ -19,7 +19,7 @@ END
ENDPAGE
PAGE "CAMPO DI STAMPA" -1 -1 78 21
PAGE "Parametri di stampa" -1 -1 78 21
LIST F_CLASS 10
BEGIN
@ -126,16 +126,16 @@ END
NUMBER F_SPACES 2
BEGIN
PROMPT 1 6 "N. spazi davanti al campo "
PROMPT 1 6 "N. spazi davanti al campo "
END
BOOLEAN F_FINKL
BEGIN
BEGIN
PROMPT 40 6 "Fincatura prima"
END
BOOLEAN F_FINKR
BEGIN
BEGIN
PROMPT 63 6 "Fincatura dopo"
END
@ -155,7 +155,7 @@ END
LIST F_DFORMAT 16
BEGIN
PROMPT 3 9 "Tipo data "
PROMPT 3 9 "Tipo data "
ITEM "1|Giorno Mese Anno"
ITEM "2|Mese Giorno Anno"
ITEM "3|Anno Mese Giorno"
@ -164,53 +164,53 @@ ITEM "4|Anno"
ITEM "5|Mese"
ITEM "6|Giorno"
GROUP 8
END
END
LIST F_DDAY 16
BEGIN
PROMPT 42 9 "Formato giorno "
PROMPT 42 9 "Formato giorno "
ITEM "4|Con zeri(es. 02)"
ITEM "2|Normale (es. 2)"
ITEM "5|In lettere"
ITEM "6|Giorno settimana"
GROUP 8
END
END
LIST F_DMONTH 16
BEGIN
PROMPT 3 10 "Formato mese "
PROMPT 3 10 "Formato mese "
ITEM "4|Con zeri(es. 02)"
ITEM "2|Normale (es. 2)"
ITEM "5|In lettere"
ITEM "7|Trimestre"
GROUP 8
END
END
LIST F_DYEAR 16
BEGIN
PROMPT 42 10 "Formato anno "
PROMPT 42 10 "Formato anno "
ITEM "2|Breve (2 cifre)"
ITEM "4|Lungo (4 cifre)"
GROUP 8
END
END
LIST F_DSEP 5
BEGIN
PROMPT 3 11 "Separatore "
PROMPT 3 11 "Separatore "
ITEM "-|-"
ITEM "/|/"
ITEM ".|."
ITEM ",|,"
ITEM "S|Spazio"
GROUP 8
END
END
STRING F_DEXAMPLE 40
BEGIN
PROMPT 28 11 "Esempio "
PROMPT 28 11 "Esempio "
FLAGS "D"
GROUP 8
END
END
// fine gruppo 8
@ -219,29 +219,29 @@ STRING F_FILE1 80 60
BEGIN
PROMPT 2 13 "Archivio "
HELP "Nome dell'archivio relativo al campo"
FLAGS "D"
FLAGS "DB"
END
BUTTON F_BUT_FILE1 2 1
BEGIN
PROMPT 73 13 "*"
PICTURE 109
GROUP 7
END
//BUTTON F_BUT_FILE1 2 1
//BEGIN
//PROMPT 73 13 "*"
//PICTURE 109
//GROUP 7
//END
STRING F_FIELD1 80 60
BEGIN
PROMPT 2 14 "Campo 1 "
HELP "Nome del campo su file"
FLAGS "D"
FLAGS "DB"
END
BUTTON F_BUT_FIELD1 2 1
BEGIN
PROMPT 73 14 "*"
PICTURE 109
GROUP 7
END
//BUTTON F_BUT_FIELD1 2 1
//BEGIN
// PROMPT 73 14 "*"
// PICTURE 109
// GROUP 7
//END
STRING F_FIELDREF1 20 16
BEGIN
@ -253,14 +253,14 @@ NUMBER F_FROM1 2
BEGIN
PROMPT 2 15 "Da "
FLAGS "U"
GROUP 7
GROUP 7
END
NUMBER F_TO1 2
BEGIN
PROMPT 22 15 "A "
FLAGS "U"
GROUP 7
GROUP 7
END
@ -268,29 +268,29 @@ STRING F_FILE2 60
BEGIN
PROMPT 2 16 "Archivio "
HELP "Nome dell'archivio relativo al campo"
FLAGS "D"
FLAGS "DB"
END
BUTTON F_BUT_FILE2 2 1
BEGIN
PROMPT 73 16 "*"
PICTURE 109
GROUP 7
END
//BUTTON F_BUT_FILE2 2 1
//BEGIN
//PROMPT 73 16 "*"
//PICTURE 109
//GROUP 7
//END
STRING F_FIELD2 60
BEGIN
PROMPT 2 17 "Campo 2 "
HELP "Nome del campo su file"
FLAGS "D"
FLAGS "DB"
END
BUTTON F_BUT_FIELD2 2 1
BEGIN
PROMPT 73 17 "*"
PICTURE 109
GROUP 7
END
//BUTTON F_BUT_FIELD2 2 1
//BEGIN
//PROMPT 73 17 "*"
//PICTURE 109
//GROUP 7
//END
STRING F_FIELDREF2 16
BEGIN
@ -302,24 +302,24 @@ NUMBER F_FROM2 2
BEGIN
PROMPT 2 18 "Da "
FLAGS "U"
GROUP 7
GROUP 7
END
NUMBER F_TO2 2
BEGIN
PROMPT 22 18 "A "
FLAGS "U"
GROUP 7
GROUP 7
END
//GROUPBOX DLG_NULL 78 8
//BEGIN
//BEGIN
//PROMPT 1 11 "Campi su file"
//END
ENDPAGE
PAGE "SUPERPRASSI" -1 -1 78 20
PAGE "Parametri avanzati" -1 -1 78 20
GROUPBOX DLG_NULL 78 3
BEGIN

86
ba/ba2100s.uml
View File

@ -30,20 +30,20 @@ END
STRING F_CTP 1
BEGIN
PROMPT 40 3 "Carattere posizionamento"
PROMPT 38 3 "Carattere posizionamento "
HELP "Carattere da utilizzare per il posizionamento del modulo"
END
LIST F_FONT 2 16
BEGIN
BEGIN
PROMPT 3 4 "Font "
ITEM "Courier New|Courier New"
HELP "Font di stampa su video o stampante"
END
END
LIST F_SIZE 3
BEGIN
PROMPT 53 4 "Dimensione "
PROMPT 53 4 "Dimensione "
ITEM "12|12"
HELP "Dimensioni del carattere di stampa"
END
@ -51,7 +51,7 @@ END
TEXT DLG_NULL
BEGIN
PROMPT 40 5 "Colonne di posizionamento"
PROMPT 38 5 "Colonne di posizionamento"
END
NUMBER F_IPX 3
@ -79,28 +79,28 @@ END
NUMBER F_Y 3
BEGIN
PROMPT 40 6 "Spostamento verticale "
PROMPT 38 6 "Spostamento verticale "
END
SPREADSHEET F_FIELDS 0 8
BEGIN
PROMPT 0 8 ""
SPREADSHEET F_FIELDS 0 8
BEGIN
PROMPT 0 8 ""
ITEM "ID@3"
ITEM "Descrizione@40"
ITEM "Pr"
ITEM "Pr"
ITEM "Y@2"
ITEM "X@3"
ITEM "Lun."
ITEM "Col."
ITEM "Larg."
ITEM "Col."
ITEM "Intestazione colonna@40"
ITEM "Spazi"
ITEM "Finc. sin."
ITEM "Finc. dx."
ITEM "Tipo@10"
ITEM "Esempio formato di stampa@45"
ITEM "Tipo@10"
ITEM "Esempio formato di stampa@45"
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
@ -116,13 +116,13 @@ ENDPAGE
ENDMASK
PAGE "Dettaglio campo" -1 -1 65 16
NUMBER 101 3
PAGE "Dettaglio campo" -1 -1 65 16
NUMBER 101 3
BEGIN
PROMPT 1 1 "ID "
END
END
STRING 102 80 40
BEGIN
PROMPT 1 2 "Descrizione "
@ -137,7 +137,7 @@ END
BOOLEAN 103
BEGIN
PROMPT 1 4 "Non Stampare "
PROMPT 1 4 "Non Stampare "
END
NUMBER 105 3
@ -154,7 +154,7 @@ END
NUMBER 104 2
BEGIN
PROMPT 1 7 "Y "
PROMPT 1 7 "Y "
FLAGS "G"
END
@ -162,38 +162,38 @@ NUMBER 107 3
BEGIN
PROMPT 1 8 "Colonna "
FLAGS "G"
END
END
NUMBER 109 2
BEGIN
PROMPT 1 9 "Spazi inizio "
FLAGS "G"
END
END
BOOLEAN 110
BOOLEAN 110
BEGIN
PROMPT 1 10 "Finc. prima "
PROMPT 1 10 "Finc. prima "
FLAGS "G"
END
BOOLEAN 111
BOOLEAN 111
BEGIN
PROMPT 26 10 "Finc. dopo "
PROMPT 26 10 "Finc. dopo "
FLAGS "G"
END
LIST 112 10
BEGIN
PROMPT 1 11 "Tipo "
ITEM "STRINGA|Testo"
ITEM "NUMERO|Numero"
ITEM "DATA|Data"
ITEM "LISTA|Lista"
ITEM "GRUPPO|Gruppo"
ITEM "LINEA|Linea"
ITEM "BOX|Box"
PROMPT 1 11 "Tipo "
ITEM "STRINGA|Testo"
ITEM "NUMERO|Numero"
ITEM "DATA|Data"
ITEM "LISTA|Lista"
ITEM "GRUPPO|Gruppo"
ITEM "LINEA|Linea"
ITEM "BOX|Box"
ITEM "FIGURA|Figura"
END
END
STRING 113 128 45
BEGIN
@ -203,14 +203,14 @@ END
BUTTON 100 10 2
BEGIN
PROMPT -14 -1 "Dettaglio"
END
END
BUTTON DLG_DELREC 10 2
BEGIN
PROMPT -24 -1 "~Elimina"
MESSAGE EXIT,K_DEL
END
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -34 -1 ""
@ -221,6 +221,6 @@ BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -44 -1 ""
END
ENDPAGE
ENDMASK

12
ba/ba2100u.uml
View File

@ -38,14 +38,14 @@ STRING F_FILE1 50
BEGIN
PROMPT 2 3 "Archivio "
HELP "Nome dell'archivio su cui iterare la sottosezione"
// FLAGS "D"
FLAGS "B"
END
BUTTON F_BUT_FILE1 2 1
BEGIN
PROMPT 63 3 "*"
PICTURE 109
END
//BUTTON F_BUT_FILE1 2 1
//BEGIN
// PROMPT 63 3 "*"
// PICTURE 109
//END
STRING F_FIELDREF1 16
BEGIN

10
ba/ba21dt.uml
View File

@ -2,7 +2,7 @@
PAGE "Impostazione formato date" -1 -1 55 10
LIST F_DFORMAT 16
LIST F_DFORMAT 18
BEGIN
PROMPT 1 1 "Tipo data "
ITEM "1|Giorno Mese Anno"
@ -14,7 +14,7 @@ ITEM "5|Mese"
ITEM "6|Giorno"
END
LIST F_DDAY 16
LIST F_DDAY 18
BEGIN
PROMPT 1 2 "Formato giorno "
ITEM "4|Con zeri(es. 02)"
@ -23,7 +23,7 @@ ITEM "5|In lettere"
ITEM "6|Giorno settimana"
END
LIST F_DMONTH 16
LIST F_DMONTH 18
BEGIN
PROMPT 1 3 "Formato mese "
ITEM "4|Con zeri(es. 02)"
@ -32,14 +32,14 @@ ITEM "5|In lettere"
ITEM "7|Trimestre"
END
LIST F_DYEAR 16
LIST F_DYEAR 18
BEGIN
PROMPT 1 4 "Formato anno "
ITEM "2|Breve (2 cifre)"
ITEM "4|Lungo (4 cifre)"
END
LIST F_DSEP 5
LIST F_DSEP 8
BEGIN
PROMPT 1 5 "Separatore "
ITEM "-|-"

40
ba/ba3300a.uml
View File

@ -4,27 +4,27 @@ PAGE "Stampa fogli libro bollato" -1 -1 76 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 "Z"
KEY 1
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 "Z"
KEY 1
END
STRING F_CODDITTA 5
BEGIN
PROMPT 3 2 "Ditta "
FLAGS "DFR"
KEY 1
PROMPT 3 2 "Ditta "
FLAGS "DFR"
KEY 1
END
STRING F_CODICE 3
@ -54,14 +54,14 @@ BEGIN
END
STRING F_RAGSOC 60 50
BEGIN
BEGIN
PROMPT 3 7 "Ragione sociale "
HELP "Ragione sociale dell'intestatario del registro"
END
STRING F_INDIRIZZO 35
BEGIN
PROMPT 3 8 "Indirizzo "
PROMPT 3 8 "Indirizzo "
HELP "Indirizzo dell'intestatario del registro"
END
@ -95,7 +95,7 @@ BEGIN
HELP "Provincia dell'intestatario del registro"
END
LIST F_STATO 18
LIST F_STATO 20
BEGIN
PROMPT 3 10 "Stato "
FIELD LF_ANAG->STATOPAIV

4
ba/ba3500a.uml
View File

@ -6,7 +6,7 @@ TOOLBAR "" 0 20 0 2
ENDPAGE
PAGE "Tabella libro unico" -1 -1 78 18
PAGE "Tabella libro unico pag. 1" -1 -1 78 18
NUMBER F_ANNO 4
BEGIN
@ -74,7 +74,7 @@ END
ENDPAGE
PAGE "" -1 -1 78 14
PAGE "Pag. 2" -1 -1 78 14
LIST F_TIPOA 10
BEGIN

6
ba/ba4100a.uml
View File

@ -4,7 +4,7 @@ TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Tabella Comuni 1/2" -1 -1 77 18
PAGE "Pag. 1" -1 -1 77 18
GROUPBOX DLG_NULL 75 4
BEGIN
@ -243,7 +243,7 @@ END
ENDPAGE
PAGE "Tabella Comuni 2/2" -1 -1 77 18
PAGE "Pag. 2" -1 -1 77 18
GROUPBOX DLG_NULL 75 4
BEGIN
@ -370,7 +370,7 @@ END
LIST FLD_CM2_TERRMON 18
BEGIN
PROMPT 34 11 "Territorio montano "
PROMPT 34 11 "Territorio montano "
HELP "Codice identificativo di comune residente in territorio montano"
FIELD LF_COMUNI->TERRMON
ITEMS " |Non montano"

8
ba/ba4200b.uml
View File

@ -3,13 +3,13 @@
TOOLBAR "" 0 19 0 3
BUTTON DLG_CHGTIP 21 1
BUTTON DLG_CHGTIP 25 1
BEGIN
PROMPT -13 -3 "Persone Giuridiche"
MESSAGE K_F10
END
BUTTON DLG_DITTE 8 1
BUTTON DLG_DITTE 10 1
BEGIN
PROMPT -36 -3 "Ditte"
MESSAGE K_F5
@ -105,7 +105,7 @@ BEGIN
PROMPT 13 5 "Partita IVA "
END
LIST FLD_AF1_STATOPAIV 18
LIST FLD_AF1_STATOPAIV 20
BEGIN
PROMPT 14 6 "Stato "
FIELD LF_ANAG->STATOPAIV
@ -872,7 +872,7 @@ BEGIN
PROMPT 36 5 "Eventi di natura eccezionale "
HELP "Codice degli eventi di natura eccezionale"
FIELD LF_ANAG->EVECC
SHEET "Codice|Descrizione@70"
SHEET "Codice|Descrizione@50"
INPUT LST_AF4_EVECC
OUTPUT LST_AF4_EVECC
ITEM " |Nessuno"

10
ba/ba4200c.uml
View File

@ -2,13 +2,13 @@
TOOLBAR "" 0 19 0 3
BUTTON DLG_CHGTIP 21 1
BUTTON DLG_CHGTIP 25 1
BEGIN
PROMPT -13 -3 "Persone Fisiche"
MESSAGE K_F10
END
BUTTON DLG_DITTE 8 1
BUTTON DLG_DITTE 10 1
BEGIN
PROMPT -36 -3 "Ditte"
MESSAGE K_F5
@ -78,7 +78,7 @@ BEGIN
PROMPT 0 4 "Partita IVA "
END
LIST FLD_AG1_STATOPAIV 18
LIST FLD_AG1_STATOPAIV 20
BEGIN
PROMPT 2 5 "Stato "
FIELD LF_ANAG->STATOPAIV
@ -256,7 +256,7 @@ BEGIN
OUTPUT FLD_AG2_COMRES_COMUNI_DENCOM DENCOM
OUTPUT FLD_AG2_COMRES_COMUNI_PROVCOM PROVCOM
OUTPUT FLD_AG2_CAPRES CAPCOM
HELP "Codice del comune sede della persoan giuridica"
HELP "Codice del comune sede della persona giuridica"
CHECKTYPE REQUIRED
WARNING "Comune assente"
ADD RUN ba4 -0
@ -985,7 +985,7 @@ BEGIN
PROMPT 37 4 "Eventi di natura eccezionale "
FIELD LF_ANAG->EVECC
HELP "Codice degli eventi naturali eccezionali accaduti alla ditta"
SHEET "Codice|Descrizione@70"
SHEET "Codice|Descrizione@50"
INPUT LST_AG5_EVECC
OUTPUT LST_AG5_EVECC
ITEM " |Nessuno"

36
ba/ba4300a.uml
View File

@ -2,25 +2,25 @@
TOOLBAR "" 0 19 0 3
BUTTON DLG_ATT 9 1
BUTTON DLG_ATT 10 1
BEGIN
PROMPT -16 -3 "Attivita'"
MESSAGE K_F6
END
BUTTON DLG_ULC 9 1
BUTTON DLG_ULC 10 1
BEGIN
PROMPT -26 -3 "U.Locali"
MESSAGE K_F5
END
BUTTON DLG_SOC 9 1
BUTTON DLG_SOC 10 1
BEGIN
PROMPT -36 -3 "Soci"
MESSAGE K_F7
END
BUTTON DLG_REG 9 1
BUTTON DLG_REG 10 1
BEGIN
PROMPT -46 -3 "Registri"
MESSAGE K_F8
@ -29,7 +29,13 @@ END
#include <toolbar.h>
ENDPAGE
PAGE "Ditte 1/4" -1 -1 77 18
PAGE "Pag. 1" -1 -1 77 18
GROUPBOX DLG_NULL 76 4
BEGIN
PROMPT 0 0 ""
FLAGS "R"
END
NUMBER FLD_GD1_CODDITTA 5
BEGIN
@ -62,7 +68,7 @@ BEGIN
INPUT CODANAGR FLD_GD1_CODANAGR SELECT
INPUT CODDITTA FLD_GD1_CODDITTAH
COPY DISPLAY FLD_GD1_CODDITTA
COPY OUTPUT FLD_GD1_CODDITTA
COPY OUTPUT FLD_GD1_CODDITTA
CHECKTYPE REQUIRED
MESSAGE COPY,1@|COPY,FLD_GD1_CODDITTA
END
@ -100,12 +106,6 @@ BEGIN
FLAGS "HG"
END
GROUPBOX DLG_NULL 76 4
BEGIN
PROMPT 0 0 ""
FLAGS "R"
END
GROUPBOX DLG_NULL 76 4
BEGIN
PROMPT 0 4 "Anagrafica"
@ -225,7 +225,7 @@ END
ENDPAGE
PAGE "Ditte 2/4" -1 -1 77 18
PAGE "Pag. 2" -1 -1 77 18
GROUPBOX DLG_NULL 76 4
BEGIN
@ -277,7 +277,7 @@ END
STRING FLD_GD1_NISCRAA 10
BEGIN
PROMPT 1 10 "Isc.Albo/CAF N."
PROMPT 1 10 "Isc.Albo/CAF N. "
FIELD LF_NDITTE->NISCRAA
FLAGS "R"
HELP "Numero di iscrizione all'albo"
@ -367,7 +367,7 @@ END
ENDPAGE
PAGE "Ditte 3/4" -1 -1 77 18
PAGE "Pag. 3" -1 -1 77 18
GROUPBOX DLG_NULL 76 4
BEGIN
@ -389,7 +389,7 @@ BEGIN
GROUP 2
END
LIST LST_GD2_DATLAV 20
LIST LST_GD2_DATLAV 22
BEGIN
PROMPT 1 4 "Datore lavoro "
FIELD LF_NDITTE->DATLAV
@ -556,7 +556,7 @@ END
ENDPAGE
PAGE "Ditte 4/4" -1 -1 77 18
PAGE "Pag. 4" -1 -1 77 18
GROUPBOX DLG_NULL 76 4
BEGIN
@ -654,7 +654,7 @@ BEGIN
HELP "Indicare se i ricavi sono superiore al 20%"
END
LIST FLD_GD3_CARRAPP 21
LIST FLD_GD3_CARRAPP 23
BEGIN
PROMPT 1 8 "Carica "
FIELD LF_NDITTE->CARRAPP

90
ba/ba4400a.uml
View File

@ -4,12 +4,12 @@ TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Unita' locali 1/2" -1 -1 77 18
PAGE "Pag. 1" -1 -1 77 18
GROUPBOX DLG_NULL 76 6
BEGIN
PROMPT 0 0 "Unita' locale"
FLAGS "R"
FLAGS "R"
END
NUMBER FLD_UL1_CODDITTA 5
@ -92,7 +92,7 @@ BEGIN
FIELD LF_UNLOC->COMULC
FLAGS "U"
USE LF_COMUNI KEY 1
INPUT STATO ""
INPUT STATO ""
INPUT COM FLD_UL1_COMULC
#include <comdcod.h>
OUTPUT FLD_UL1_COMULC COM
@ -103,7 +103,7 @@ BEGIN
MESSAGE COPY,7@
CHECKTYPE REQUIRED
WARNING "Comune assente"
ADD RUN ba4 -0
ADD RUN ba4 -0
END
STRING FLD_UL1_COMULC_COMUNI_PROVCOM 2
@ -124,17 +124,17 @@ END
STRING FLD_UL1_COMULC_COMUNI_DENCOM 50
BEGIN
PROMPT 1 4 "Nome "
PROMPT 1 4 "Nome "
HELP "Nome del comune dell'unita' locale"
USE LF_COMUNI KEY 2 SELECT STATO=""
INPUT DENCOM FLD_UL1_COMULC_COMUNI_DENCOM
USE LF_COMUNI KEY 2 SELECT STATO=""
INPUT DENCOM FLD_UL1_COMULC_COMUNI_DENCOM
#include <comdden.h>
OUTPUT FLD_UL1_COMULC COM
OUTPUT FLD_UL1_COMULC_COMUNI_DENCOM DENCOM
OUTPUT FLD_UL1_COMULC_COMUNI_PROVCOM PROVCOM
OUTPUT FLD_UL1_CAPULC CAPCOM
MESSAGE COPY,10@
ADD RUN ba4 -0
OUTPUT FLD_UL1_COMULC COM
OUTPUT FLD_UL1_COMULC_COMUNI_DENCOM DENCOM
OUTPUT FLD_UL1_COMULC_COMUNI_PROVCOM PROVCOM
OUTPUT FLD_UL1_CAPULC CAPCOM
MESSAGE COPY,10@
ADD RUN ba4 -0
END
GROUPBOX DLG_NULL 76 6
@ -147,7 +147,7 @@ BEGIN
PROMPT 1 7 "Numero "
FIELD LF_UNLOC->NUMCCIAA
FLAGS "R"
HELP "Numero autorizzazione alla camera di commercio"
HELP "Numero autorizzazione alla camera di commercio"
END
DATE FLD_UL1_DATAICCIAA
@ -167,46 +167,46 @@ END
DATE FLD_UL1_DATAVCCIAA
BEGIN
PROMPT 40 8 "Data ultima variazione "
FIELD LF_UNLOC->DATAVCCIAA
PROMPT 40 8 "Data ultima variazione "
FIELD LF_UNLOC->DATAVCCIAA
HELP "Data dell'ultima variazione alla camera di commercio"
WARNING "Data non corretta"
VALIDATE DATE_CMP_FUNC >= FLD_UL1_DATAICCIAA
WARNING "Data non corretta"
VALIDATE DATE_CMP_FUNC >= FLD_UL1_DATAICCIAA
END
STRING FLD_UL1_COMCCIAA 4
BEGIN
PROMPT 1 9 "Comune "
FIELD LF_UNLOC->COMCCIAA
FLAGS "U"
GROUP 1
COPY USE FLD_UL1_COMULC
INPUT STATO ""
INPUT COM FLD_UL1_COMCCIAA
COPY DISPLAY FLD_UL1_COMULC
OUTPUT FLD_UL1_COMCCIAA COM
OUTPUT FLD_UL1_COMCCIAA_COMUNI_DENCOM DENCOM
PROMPT 1 9 "Comune "
FIELD LF_UNLOC->COMCCIAA
FLAGS "U"
GROUP 1
COPY USE FLD_UL1_COMULC
INPUT STATO ""
INPUT COM FLD_UL1_COMCCIAA
COPY DISPLAY FLD_UL1_COMULC
OUTPUT FLD_UL1_COMCCIAA COM
OUTPUT FLD_UL1_COMCCIAA_COMUNI_DENCOM DENCOM
HELP "Codice del comune della camera di commercio"
CHECKTYPE NORMAL
WARNING "Comune assente"
VALIDATE EMPTYCOPY_FUNC FLD_UL1_COMULC
CHECKTYPE NORMAL
WARNING "Comune assente"
VALIDATE EMPTYCOPY_FUNC FLD_UL1_COMULC
END
STRING FLD_UL1_COMCCIAA_COMUNI_DENCOM 50
BEGIN
PROMPT 1 10 "Nome "
PROMPT 1 10 "Nome "
HELP "Nome del comune delle camera di commercio"
COPY USE FLD_UL1_COMULC_COMUNI_DENCOM
INPUT DENCOM FLD_UL1_COMCCIAA_COMUNI_DENCOM
COPY DISPLAY FLD_UL1_COMULC_COMUNI_DENCOM
OUTPUT FLD_UL1_COMCCIAA COM
OUTPUT FLD_UL1_COMCCIAA_COMUNI_DENCOM DENCOM
ADD RUN ba4 -0
COPY USE FLD_UL1_COMULC_COMUNI_DENCOM
INPUT DENCOM FLD_UL1_COMCCIAA_COMUNI_DENCOM
COPY DISPLAY FLD_UL1_COMULC_COMUNI_DENCOM
OUTPUT FLD_UL1_COMCCIAA COM
OUTPUT FLD_UL1_COMCCIAA_COMUNI_DENCOM DENCOM
ADD RUN ba4 -0
END
GROUPBOX DLG_NULL 76 4
BEGIN
PROMPT 0 12 "Autorizzazioni"
PROMPT 0 12 "Autorizzazioni"
END
STRING FLD_UL1_NUMREC 7
@ -219,8 +219,8 @@ END
STRING FLD_UL1_AUTCOM 5
BEGIN
PROMPT 50 13 "N. comunale "
FIELD LF_UNLOC->AUTCOM
PROMPT 50 13 "N. comunale "
FIELD LF_UNLOC->AUTCOM
FLAGS "R"
HELP "Numero dell'autorizzazione comunale all'esercizio"
END
@ -242,12 +242,12 @@ END
ENDPAGE
PAGE "Unita' locali 2/2" -1 -1 77 18
PAGE "Pag. 2" -1 -1 77 18
GROUPBOX DLG_NULL 76 6
BEGIN
PROMPT 0 0 "Unita' locale"
FLAGS "R"
FLAGS "R"
END
NUMBER DLG_NULL 5
@ -287,7 +287,7 @@ END
STRING DLG_NULL 4
BEGIN
PROMPT 1 3 "Comune "
PROMPT 1 3 "Comune "
FLAGS "D"
GROUP 7
END
@ -383,7 +383,7 @@ END
STRING FLD_UL2_CAPTRIB 5
BEGIN
PROMPT 57 11 "CAP "
PROMPT 57 11 "CAP "
FIELD LF_UNLOC->CAPTRIB
FLAGS "RZ"
HELP "CAP del comune del tribunale"

30
ba/ba4500a.uml
View File

@ -4,7 +4,13 @@ TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Attivita' 1/2" -1 -1 77 20
PAGE "Pag. 1" -1 -1 77 20
GROUPBOX DLG_NULL 76 6
BEGIN
PROMPT 0 0 ""
FLAGS "R"
END
STRING FLD_AT1_CODDITTA 5
BEGIN
@ -107,12 +113,6 @@ BEGIN
HELP "Nome dell'attivita'"
END
GROUPBOX DLG_NULL 76 6
BEGIN
PROMPT 0 0 ""
FLAGS "R"
END
NUMBER FLD_AT1_OLDCODATT 4
BEGIN
PROMPT 1 6 "Vecchio codice "
@ -293,7 +293,13 @@ END
ENDPAGE
PAGE "Attivita' 2/2" -1 -1 77 20
PAGE "Pag. 2" -1 -1 77 20
GROUPBOX DLG_NULL 76 6
BEGIN
PROMPT 0 0 ""
FLAGS "R"
END
STRING DLG_NULL 5
BEGIN
@ -330,12 +336,6 @@ BEGIN
GROUP 4
END
GROUPBOX DLG_NULL 76 6
BEGIN
PROMPT 0 0 ""
FLAGS "R"
END
TEXT DLG_NULL
BEGIN
PROMPT 1 11 "Indirizzo (Solo se diverso)"
@ -346,7 +346,7 @@ BEGIN
PROMPT 0 6 "Tenuta Registri Contabili"
END
LIST LST_AT2_TIPOADS 9
LIST LST_AT2_TIPOADS 10
BEGIN
PROMPT 1 7 "Depositario : Tipo "
FIELD LF_ATTIV->TIPOADS

53
ba/ba4600a.uml
View File

@ -4,14 +4,14 @@ TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Soci 1/2" -1 -1 77 20
PAGE "Pag.1" -1 -1 77 20
GROUPBOX DLG_NULL 76 7
BEGIN
PROMPT 0 0 ""
FLAGS "R"
END
NUMBER FLD_SC1_CODDITTA 5
BEGIN
PROMPT 1 1 "Ditta "
@ -70,7 +70,7 @@ END
NUMBER FLD_SC1_CODANAGRSOH 5
BEGIN
PROMPT 30 4 "Codice "
PROMPT 31 4 "Codice "
FIELD LF_SOCI->CODANAGRSO
FLAGS "R"
KEY 1
@ -98,7 +98,7 @@ END
NUMBER FLD_SC1_CODANAGRSO 5
BEGIN
PROMPT 30 4 "Codice "
PROMPT 31 4 "Codice "
FIELD LF_SOCI->CODANAGRSO
FLAGS "RG"
KEY 1
@ -121,7 +121,7 @@ STRING FLD_SC1_CODANAGR_ANAGR_RAGSOC 50
BEGIN
PROMPT 7 5 ": Nome "
HELP "Nome dell'anagrafica del socio"
KEY 1
KEY 2
USE LF_ANAG KEY 2
FLAGS "GP"
INPUT TIPOA LST_SC1_TIPOASOC
@ -179,7 +179,7 @@ END
NUMBER FLD_SC1_PERCQUAZ 7 3
BEGIN
PROMPT 23 10 "%Proprieta' "
PROMPT 26 10 "%Proprieta' "
FIELD LF_SOCI->PERCQUAZ
FLAGS "R"
HELP "Percentuale delle azioni possedute dal socio"
@ -189,7 +189,7 @@ END
NUMBER FLD_SC1_PERCAZREDD 7 3
BEGIN
PROMPT 45 10 "%Reddito da quota az."
PROMPT 50 10 "%Reddito "
FIELD LF_SOCI->PERCAZREDD
FLAGS "R"
HELP "Reddito derivante da quote aziendali"
@ -199,7 +199,7 @@ END
NUMBER FLD_SC1_PERCAZPERD 7 3
BEGIN
PROMPT 45 11 "%Perdita da quota az."
PROMPT 50 11 "%Perdita "
FIELD LF_SOCI->PERCAZPERD
FLAGS "R"
HELP "Perdita derivante da quote aziendali"
@ -209,7 +209,7 @@ END
LIST LST_SC1_RICQUAL 28
BEGIN
PROMPT 1 13 "R.qualifica "
PROMPT 1 13 "R.qualifica "
FIELD LF_SOCI->RICQUAL
HELP "Qualifica del socio"
ITEM " |Nessuna"
@ -221,7 +221,7 @@ END
NUMBER FLD_SC1_EMOLUMENTO 15
BEGIN
PROMPT 47 13 "Emolumento "
PROMPT 47 13 "Emolumento "
FIELD LF_SOCI->EMOLUMENTO
FLAGS "R"
PICTURE "."
@ -230,7 +230,7 @@ END
LIST LST_SC1_PROP 1 24
BEGIN
PROMPT 1 14 "Titoli proprieta' "
PROMPT 1 14 "Titoli proprieta' "
FIELD LF_SOCI->TITPROP
ITEM "1|Intestatario"
ITEM "2|Riportatore"
@ -244,7 +244,7 @@ END
LIST LST_SC1_TIPOAZ 1 16
BEGIN
PROMPT 45 14 "Tipo azioni "
PROMPT 47 14 "Tipo azioni "
FIELD LF_SOCI->TIPOAZ
ITEM "O|Ordinarie"
ITEM "P|Privilegiate"
@ -252,6 +252,11 @@ BEGIN
HELP "Tipo di azioni posseduta dal socio"
END
GROUPBOX DLG_NULL 76 3
BEGIN
PROMPT 0 15 "Ultimo aggiornamento"
END
DATE FLD_SC1_DATAGG
BEGIN
PROMPT 1 16 "Data "
@ -259,11 +264,6 @@ BEGIN
FLAGS "DA"
END
GROUPBOX DLG_NULL 76 3
BEGIN
PROMPT 0 15 "Ultimo aggiornamento"
END
STRING F_UTENTE 10
BEGIN
PROMPT 45 16 "Utente "
@ -272,7 +272,7 @@ END
ENDPAGE
PAGE "Soci 2/2" -1 -1 77 20
PAGE "Pag. 2" -1 -1 77 20
GROUPBOX DLG_NULL 76 7
BEGIN
@ -294,7 +294,7 @@ BEGIN
GROUP 3
END
LIST DLG_NULL 9
LIST DLG_NULL 12
BEGIN
PROMPT 1 4 "Socio : Tipo "
FLAGS "D"
@ -314,14 +314,14 @@ END
NUMBER DLG_NULL 5
BEGIN
PROMPT 30 4 "Codice "
PROMPT 31 4 "Codice "
FLAGS "RD"
GROUP 5
END
STRING DLG_NULL 50
BEGIN
PROMPT 7 5 ": Nome "
PROMPT 9 5 "Nome "
FLAGS "D"
GROUP 6
END
@ -388,9 +388,14 @@ BEGIN
NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=12)}
END
TEXT DLG_NULL
BEGIN
PROMPT 1 12 "Codice del dichiarante nel caso in cui il socio sia codichiarante"
END
NUMBER FLD_SC2_CODANAGCON 5
BEGIN
PROMPT 1 12 "Coniuge: Codice "
PROMPT 10 14 "Codice "
FIELD LF_SOCI->CODANAGCON
FLAGS "R"
GROUP 1
@ -409,7 +414,7 @@ END
STRING FLD_SC2_CODANAGCON_ANAFIS_RAGSOC 50
BEGIN
PROMPT 8 13 ": Nome "
PROMPT 10 15 "Nome "
HELP "Nome del coniuge del socio"
USE LF_ANAG KEY 2
INPUT TIPOA "F"
@ -423,7 +428,7 @@ END
STRING FLD_SC2_NOTE 60
BEGIN
PROMPT 1 15 "Note "
PROMPT 1 17 "Note "
FIELD LF_SOCI->NOTE
HELP "Eventuali note riferite al socio"
END

74
ba/ba6100b.uml
View File

@ -3,110 +3,110 @@ PAGE "Impostazione Etichette" -1 -1 57 15
TEXT DLG_NULL
BEGIN
PROMPT 39 1 "Riga"
PROMPT 39 1 "Riga"
END
TEXT DLG_NULL
BEGIN
PROMPT 47 1 "Colonna"
PROMPT 47 1 "Colonna"
END
RADIOBUTTON RDB_BA6B_INDIR 23
BEGIN
PROMPT 4 1 "Indirizzo"
ITEM "1|Residenza"
ITEM "2|Domicilio fiscale"
ITEM "3|Corrispondenza"
PROMPT 4 1 "Indirizzo"
ITEM "1|Residenza"
ITEM "2|Domicilio fiscale"
ITEM "3|Corrispondenza"
HELP "Indicare l'indirizzo da includere nelle etichette"
END
NUMBER FLD_BA6B_INDROW 4
BEGIN
PROMPT 39 2 ""
HELP "N. di riga dove posizionare l'indirizzo"
PROMPT 39 2 ""
HELP "N. di riga dove posizionare l'indirizzo"
END
NUMBER FLD_BA6B_INDCOL 4
BEGIN
PROMPT 47 2 ""
HELP "N. di colonna dove posizionare l'indirizzo"
PROMPT 47 2 ""
HELP "N. di colonna dove posizionare l'indirizzo"
END
BOOLEAN CHK_BA6B_PIVA
BEGIN
PROMPT 4 7 "Partita IVA/ Codice fiscale"
MESSAGE FALSE DISABLE,FLD_BA6B_PIVROW|DISABLE,FLD_BA6B_PIVCOL
MESSAGE TRUE ENABLE,FLD_BA6B_PIVROW|ENABLE,FLD_BA6B_PIVCOL
PROMPT 4 7 "Partita IVA/ Codice fiscale"
MESSAGE FALSE DISABLE,FLD_BA6B_PIVROW|DISABLE,FLD_BA6B_PIVCOL
MESSAGE TRUE ENABLE,FLD_BA6B_PIVROW|ENABLE,FLD_BA6B_PIVCOL
HELP "Indicare se stampare la Partita IVA/Codice fiscale"
END
NUMBER FLD_BA6B_PIVROW 4
BEGIN
PROMPT 39 7 ""
FLAGS "D"
HELP "N. di riga dove posizionare la partita IVA"
PROMPT 39 7 ""
FLAGS "D"
HELP "N. di riga dove posizionare la partita IVA"
END
NUMBER FLD_BA6B_PIVCOL 4
BEGIN
PROMPT 47 7 ""
FLAGS "D"
HELP "N. di colonna dove posizionare la partita IVA"
PROMPT 47 7 ""
FLAGS "D"
HELP "N. di colonna dove posizionare la partita IVA"
END
BOOLEAN CHK_BA6B_CODICE
BEGIN
PROMPT 4 8 "Includi codice anagrafico"
MESSAGE FALSE DISABLE,FLD_BA6B_CODROW|DISABLE,FLD_BA6B_CODCOL
MESSAGE TRUE ENABLE,FLD_BA6B_CODROW|ENABLE,FLD_BA6B_CODCOL
PROMPT 4 8 "Includi codice anagrafico"
MESSAGE FALSE DISABLE,FLD_BA6B_CODROW|DISABLE,FLD_BA6B_CODCOL
MESSAGE TRUE ENABLE,FLD_BA6B_CODROW|ENABLE,FLD_BA6B_CODCOL
HELP "Indicare se stampare il codice anagrafico"
END
NUMBER FLD_BA6B_CODROW 4
BEGIN
PROMPT 39 8 ""
FLAGS "D"
HELP "N. di riga dove posizionare il codice"
PROMPT 39 8 ""
FLAGS "D"
HELP "N. di riga dove posizionare il codice"
END
NUMBER FLD_BA6B_CODCOL 4
BEGIN
PROMPT 47 8 ""
FLAGS "D"
HELP "N. di colonna dove posizionare il codice"
PROMPT 47 8 ""
FLAGS "D"
HELP "N. di colonna dove posizionare il codice"
END
NUMBER FLD_BA6B_TOTROW 4
BEGIN
PROMPT 4 10 "Numero totale di righe e colonne "
PROMPT 4 10 "Numero totale di righe e colonne "
HELP "Totale righe (altezza dell'etichetta)"
END
NUMBER FLD_BA6B_TOTCOL 4
BEGIN
PROMPT 47 10 ""
PROMPT 47 10 ""
HELP "Totale colonne (larghezza dell'etichetta)"
END
BOOLEAN CHK_BA6B_SAVE
BEGIN
PROMPT 4 11 "Salva impostazioni"
PROMPT 4 11 "Salva impostazioni"
HELP "Indicare se ritorvare le impostazioni successivamente"
END
BUTTON DLG_OK 9 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -13 -1 "Conferma"
PROMPT -13 -1 "Conferma"
END
BUTTON DLG_CANCEL 9 2
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -23 -1 "Annulla"
PROMPT -23 -1 "Annulla"
END
BUTTON BUT_BA6B_RESET 9 2
BUTTON BUT_BA6B_RESET 10 2
BEGIN
PROMPT -33 -1 "~Reset"
PROMPT -33 -1 "~Reset"
END
ENDPAGE

2
ba/ba6200a.uml
View File

@ -1,6 +1,6 @@
#include "ba6200.h"
PAGE "" -1 -1 65 16
PAGE "" -1 -1 67 16
RADIOBUTTON F_SCELTA 25
BEGIN

4
ba/bastabe.uml
View File

@ -28,12 +28,12 @@ OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END

4
ba/bastage.uml
View File

@ -28,12 +28,12 @@ OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END

4
ba/bastais.uml
View File

@ -29,12 +29,12 @@ BEGIN
GROUP 2
END
BUTTON DLG_OK 8 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END

4
ba/bastasf.uml
View File

@ -28,12 +28,12 @@ OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END

48
ba/bastban.uml
View File

@ -4,9 +4,9 @@ PAGE "Stampa banche" -1 -1 56 8
STRING F_INIZIO1 5
BEGIN
PROMPT 2 1 "DA codice (ABI) "
FLAGS "RZ"
HELP "Inserire il codice d'inizio "
PROMPT 2 1 "DA codice (ABI) "
FLAGS "RZ"
HELP "Inserire il codice d'inizio "
FIELD LF_TABCOM->CODTAB[1,5]
USE %BAN
INPUT CODTAB[1,5] F_INIZIO1
@ -17,54 +17,54 @@ BEGIN
DISPLAY "Dipendenza@35" S1
OUTPUT F_INIZIO1 CODTAB[1,5]
OUTPUT F_INIZIO2 CODTAB[6,10]
GROUP 1
GROUP 1
END
STRING F_INIZIO2 5
BEGIN
PROMPT 28 1 "DA codice (CAB) "
FLAGS "RZ"
HELP "Inserire il codice d'inizio "
PROMPT 28 1 "DA codice (CAB) "
FLAGS "RZ"
HELP "Inserire il codice d'inizio "
FIELD LF_TABCOM->CODTAB[6,10]
COPY ALL F_INIZIO1
GROUP 1
COPY ALL F_INIZIO1
GROUP 1
END
STRING F_FINE1 5
BEGIN
PROMPT 2 3 "A codice (ABI) "
FLAGS "RZ"
HELP "Inserire il codice di fine "
PROMPT 2 3 "A codice (ABI) "
FLAGS "RZ"
HELP "Inserire il codice di fine "
FIELD LF_TABCOM->CODTAB[1,5]
COPY USE F_INIZIO1
COPY USE F_INIZIO1
INPUT CODTAB[1,5] F_FINE1
INPUT CODTAB[6,10] F_FINE2
COPY DISPLAY F_INIZIO1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB[1,5]
OUTPUT F_FINE2 CODTAB[6,10]
GROUP 2
GROUP 2
END
STRING F_FINE2 5
BEGIN
PROMPT 28 3 "A codice (CAB) "
FLAGS "RZ"
HELP "Inserire il codice di fine "
PROMPT 28 3 "A codice (CAB) "
FLAGS "RZ"
HELP "Inserire il codice di fine "
FIELD LF_TABCOM->CODTAB[6,10]
COPY ALL F_FINE1
GROUP 2
COPY ALL F_FINE1
GROUP 2
END
BUTTON DLG_OK 8 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -1 ""
END
ENDPAGE

32
ba/bastcam.uml
View File

@ -15,17 +15,18 @@ BEGIN
DISPLAY "Data valuta" D0
DISPLAY "Descrizione@50" -200->S0
OUTPUT F_INIZIO1 CODTAB[1,3]
OUTPUT F_INIZIO2 CODTAB[4,11]
OUTPUT F_INIZIO2 CODTAB[4,14]
GROUP 1
END
DATE F_INIZIO2
BEGIN
PROMPT 28 1 "Da data "
HELP "Inserire la data iniziale"
FIELD LF_TABCOM->CODTAB[4,11]
COPY ALL F_INIZIO1
GROUP 1
PROMPT 28 1 "Da data "
HELP "Inserire la data iniziale"
FIELD LF_TABCOM->CODTAB[4,11]
COPY ALL F_INIZIO1
FLAGS "R"
GROUP 1
END
STRING F_FINE1 3
@ -47,21 +48,22 @@ END
DATE F_FINE2
BEGIN
PROMPT 28 3 "A data "
HELP "Inserire la data finale "
FIELD LF_TABCOM->CODTAB[4,11]
COPY ALL F_FINE1
GROUP 2
PROMPT 28 3 "A data "
HELP "Inserire la data finale "
FIELD LF_TABCOM->CODTAB[4,11]
FLAGS "R"
COPY ALL F_FINE1
GROUP 2
END
BUTTON DLG_OK 8 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -1 ""
END
ENDPAGE

38
ba/bastcco.uml
View File

@ -3,39 +3,39 @@
PAGE "Stampa Categorie contabili" -1 -1 50 8
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
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
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"
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
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -1 ""
END
ENDPAGE

38
ba/bastcfi.uml
View File

@ -3,39 +3,39 @@
PAGE "Stampa Categorie finanziarie" -1 -1 50 8
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
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
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"
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
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -1 ""
END
ENDPAGE

8
ba/bastclr.uml
View File

@ -76,14 +76,14 @@ BEGIN
GROUP 2
END
BUTTON DLG_OK 8 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -1 ""
END
ENDPAGE

8
ba/bastcpg.uml
View File

@ -29,14 +29,14 @@ BEGIN
GROUP 2
END
BUTTON DLG_OK 8 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -1 ""
END
ENDPAGE

38
ba/bastcrs.uml
View File

@ -4,39 +4,39 @@ PAGE "Stampa cariche sociali" -1 -1 50 8
STRING F_INIZIO1 2
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "RZ"
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
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"
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
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -1 ""
END
ENDPAGE

8
ba/bastctr.uml
View File

@ -6,7 +6,7 @@ BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
FIELD CODTAB
USE %CTR
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
@ -20,7 +20,7 @@ BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
FIELD CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
@ -28,12 +28,12 @@ OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END

52
ba/bastcve.uml
View File

@ -3,42 +3,42 @@
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
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD 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
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Codice di fine. Vuoto = fine archivio"
FIELD 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
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -1 ""
END
ENDPAGE

12
ba/bastdpn.uml
View File

@ -19,22 +19,22 @@ STRING F_FINE1 5
BEGIN
PROMPT 4 3 "A codice "
FLAGS "U"
COPY USE F_INIZIO1
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
COPY DISPLAY F_INIZIO1
FIELD CODTAB
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -1 ""
END
ENDPAGE

40
ba/bastesc.uml
View File

@ -10,50 +10,40 @@ END
NUMBER F_INIZIO1 4
BEGIN
PROMPT 2 3 "Da anno "
PROMPT 2 3 "Da anno "
HELP "Anno esercizio con cui iniziare la stampa"
FIELD LF_TAB->CODTAB
FLAGS "ZR"
USE ESC KEY 1
INPUT CODTAB F_INIZIO1
DISPLAY "Anno esercizio" CODTAB
DISPLAY "Data inizio esercizio" D0
USE ESC KEY 1
INPUT CODTAB F_INIZIO1
DISPLAY "Anno esercizio" CODTAB
DISPLAY "Data inizio esercizio" D0
DISPLAY "Data fine esercizio" D1
OUTPUT F_INIZIO1 CODTAB
GROUP 1
GROUP 1
END
NUMBER F_FINE1 4
BEGIN
PROMPT 25 3 "a anno "
PROMPT 25 3 "a anno "
HELP "Anno esercizio con cui finire la stampa"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
COPY USE F_INIZIO1
FLAGS "ZR"
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
GROUP 2
END
BUTTON DLG_OK 8 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -2 ""
PROMPT -12 -2 ""
END
BUTTON DLG_QUIT 8 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -2 ""
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -2 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -2 ""
PROMPT -22 -2 ""
END
ENDPAGE

8
ba/bastitl.uml
View File

@ -27,14 +27,14 @@ BEGIN
GROUP 2
END
BUTTON DLG_OK 8 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -1 ""
END
ENDPAGE

40
ba/bastiva.uml
View File

@ -4,41 +4,41 @@ PAGE "Stampa codici IVA" -1 -1 50 8
STRING F_INIZIO1 4
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se vuoto significa dall'inizio"
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se vuoto significa dall'inizio"
FIELD LF_TABCOM->CODTAB
USE %IVA
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
USE %IVA
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
GROUP 1
VALIDATE ZEROFILL_FUNC 2
END
STRING F_FINE1 4
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Inserire il codice di fine. Se vuoto significa fino all'ultimo"
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Inserire il codice di fine. Se vuoto significa fino all'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
VALIDATE ZEROFILL_FUNC 2
GROUP 2
VALIDATE ZEROFILL_FUNC 2
END
BUTTON DLG_OK 8 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -1 ""
END
ENDPAGE

38
ba/bastleg.uml
View File

@ -3,39 +3,39 @@
PAGE "Stampa Legali" -1 -1 50 8
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
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
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"
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
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -1 ""
END
ENDPAGE

38
ba/bastlis.uml
View File

@ -3,39 +3,39 @@
PAGE "Stampa listini" -1 -1 50 8
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
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
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"
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
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -1 ""
END
ENDPAGE

8
ba/bastlng.uml
View File

@ -27,14 +27,14 @@ BEGIN
GROUP 2
END
BUTTON DLG_OK 8 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -1 ""
END
ENDPAGE

38
ba/bastmsp.uml
View File

@ -3,39 +3,39 @@
PAGE "Stampa Modalita' di spedizione" -1 -1 50 8
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
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
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"
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
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -1 ""
END
ENDPAGE

38
ba/bastndo.uml
View File

@ -3,39 +3,39 @@
PAGE "Stampa Note documento" -1 -1 50 8
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
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
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"
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
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -1 ""
END
ENDPAGE

42
ba/bastnot.uml
View File

@ -3,41 +3,41 @@
PAGE "Stampa Codici note" -1 -1 50 8
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
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
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"
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
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -1 ""
END
ENDPAGE

8
ba/bastois.uml
View File

@ -56,14 +56,14 @@ BEGIN
GROUP 2
END
BUTTON DLG_OK 8 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -1 ""
END
ENDPAGE

38
ba/bastpor.uml
View File

@ -3,39 +3,39 @@
PAGE "Stampa Modalita' di consegna" -1 -1 50 8
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
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
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"
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
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -1 ""
END
ENDPAGE

38
ba/bastreg.uml
View File

@ -1,4 +1,4 @@
#include "ba3200.h"
#include "ba3200.h"
PAGE "Stampa registri" -1 -1 74 8
@ -32,31 +32,12 @@ NUMBER F_INIZIO2 4
BEGIN
PROMPT 1 4 "Stampa i registri dell'anno "
FLAGS "RZ"
// FLAGS "A"
FIELD CODTAB[1,4]
HELP "Stampa i registri dell'anno indicato. Vuoto = tutti i registri"
MESSAGE COPY, F_FINE2
GROUP 1
END
/*
STRING F_INIZIO1 3
BEGIN
PROMPT 19 4 "Da registro "
FLAGS "U"
USE REG
INPUT CODTAB[1,4] F_INIZIO2
INPUT CODTAB[5,7] F_INIZIO1
DISPLAY "Codice" CODTAB[5,7]
DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Descrizione @50" S0
OUTPUT F_INIZIO1 CODTAB[5,7]
// OUTPUT F_INIZIO2 CODTAB[1,4]
FIELD CODTAB[5,7]
GROUP 1
END
**************/
NUMBER F_FINE2 4
BEGIN
@ -65,23 +46,6 @@ BEGIN
GROUP 2
END
/**********
STRING F_FINE1 3
BEGIN
PROMPT 44 4 "A registro "
FLAGS "U"
USE REG
INPUT CODTAB[1,4] F_FINE2
INPUT CODTAB[5,7] F_FINE1
DISPLAY "Codice" CODTAB[5,7]
DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Descrizione @50" S0
OUTPUT F_FINE1 CODTAB[5,7]
// OUTPUT F_FINE2 CODTAB[1,4]
FIELD CODTAB[5,7]
GROUP 2
END
*****************/
BUTTON DLG_PRINT 10 2
BEGIN

38
ba/bastsad.uml
View File

@ -3,39 +3,39 @@
PAGE "Stampa Spese da addebitare" -1 -1 50 8
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
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
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"
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
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -1 ""
END
ENDPAGE

38
ba/bastscc.uml
View File

@ -3,39 +3,39 @@
PAGE "Stampa sconti clienti" -1 -1 50 8
STRING F_INIZIO1 2
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archvio"
FIELD LF_TABCOM->CODTAB
USE %SCC
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
USE %SCC
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 2
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
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
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -1 ""
END
ENDPAGE

38
ba/baststa.uml
View File

@ -4,39 +4,39 @@ PAGE "Stampa stati" -1 -1 50 8
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "RZ"
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
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"
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
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -1 ""
END
ENDPAGE

34
ba/baststt.uml
View File

@ -4,37 +4,37 @@ PAGE "Stampa codici statistici" -1 -1 50 8
STRING F_INIZIO1 7
BEGIN
PROMPT 2 1 "Da codice "
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
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 "
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
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -1 ""
END
ENDPAGE

74
ba/bastsua.uml
View File

@ -4,71 +4,71 @@ PAGE "Stampa Tabella Gestione Subagenti" -1 -1 58 8
STRING F_INIZIO1 2
BEGIN
PROMPT 2 1 "Da cod. agente "
HELP "Inserire il codice d'inizio "
FIELD LF_TABCOM->CODTAB[1,2]
PROMPT 2 1 "Da cod. agente "
HELP "Inserire il codice d'inizio "
FIELD LF_TABCOM->CODTAB[1,2]
USE %AGE
INPUT CODTAB[1,2] F_INIZIO1
DISPLAY "Codice Agente" CODTAB[1,2]
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB[1,2]
GROUP 1
GROUP 1
END
STRING F_INIZIO2 2
BEGIN
PROMPT 28 1 "Da cod. subagente "
HELP "Inserire il codice d'inizio "
FIELD LF_TABCOM->CODTAB[3,4]
USE %SUA
INPUT CODTAB[1,2] F_INIZIO1
INPUT CODTAB[3,4] F_INIZIO2
DISPLAY "Codice Agente" CODTAB[1,2]
DISPLAY "Codice SubAgente" CODTAB[3,4]
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB[1,2]
OUTPUT F_INIZIO2 CODTAB[3,4]
GROUP 1
PROMPT 28 1 "Da cod. subagente "
HELP "Inserire il codice d'inizio "
FIELD LF_TABCOM->CODTAB[3,4]
USE %SUA
INPUT CODTAB[1,2] F_INIZIO1
INPUT CODTAB[3,4] F_INIZIO2
DISPLAY "Codice Agente" CODTAB[1,2]
DISPLAY "Codice SubAgente" CODTAB[3,4]
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB[1,2]
OUTPUT F_INIZIO2 CODTAB[3,4]
GROUP 1
END
STRING F_FINE1 2
BEGIN
PROMPT 2 3 "A codice agente "
HELP "Inserire il codice di fine "
PROMPT 2 3 "A codice agente "
HELP "Inserire il codice di fine "
FIELD LF_TABCOM->CODTAB[1,2]
COPY USE F_INIZIO1
COPY USE F_INIZIO1
INPUT CODTAB[1,2] F_FINE1
COPY DISPLAY F_INIZIO1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB[1,2]
GROUP 2
GROUP 2
END
STRING F_FINE2 2
BEGIN
PROMPT 28 3 "A codice subagente "
HELP "Inserire il codice di fine "
FIELD LF_TABCOM->CODTAB[3,4]
USE %SUA
INPUT CODTAB[1,2] F_FINE1
INPUT CODTAB[3,4] F_FINE2
DISPLAY "Codice Agente" CODTAB[1,2]
DISPLAY "Codice SubAgente" CODTAB[3,4]
DISPLAY "Descrizione@50" S0
OUTPUT F_FINE1 CODTAB[1,2]
OUTPUT F_FINE2 CODTAB[3,4]
GROUP 2
PROMPT 28 3 "A codice subagente "
HELP "Inserire il codice di fine "
FIELD LF_TABCOM->CODTAB[3,4]
USE %SUA
INPUT CODTAB[1,2] F_FINE1
INPUT CODTAB[3,4] F_FINE2
DISPLAY "Codice Agente" CODTAB[1,2]
DISPLAY "Codice SubAgente" CODTAB[3,4]
DISPLAY "Descrizione@50" S0
OUTPUT F_FINE1 CODTAB[1,2]
OUTPUT F_FINE2 CODTAB[3,4]
GROUP 2
END
BUTTON DLG_OK 8 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -1 ""
END
ENDPAGE

38
ba/basttit.uml
View File

@ -3,39 +3,39 @@
PAGE "Stampa Titoli onorifici" -1 -1 50 8
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
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
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"
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
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -1 ""
END
ENDPAGE

30
ba/basttpd.uml
View File

@ -4,37 +4,37 @@ PAGE "Stampa tipi documenti" -1 -1 50 8
STRING F_INIZIO1 2
BEGIN
PROMPT 4 1 "Tipo documento "
USE %TPD
INPUT CODTAB F_INIZIO1
DISPLAY "Tipo" CODTAB
DISPLAY "Descrizione@50" S0
PROMPT 4 1 "Tipo documento "
USE %TPD
INPUT CODTAB F_INIZIO1
DISPLAY "Tipo" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
FLAGS "U"
FIELD LF_TABCOM->CODTAB
GROUP 1
GROUP 1
END
STRING F_FINE1 2
BEGIN
PROMPT 4 3 "Tipo documento "
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
PROMPT 4 3 "Tipo documento "
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
FLAGS "U"
FIELD LF_TABCOM->CODTAB
GROUP 2
GROUP 2
END
BUTTON DLG_OK 8 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -1 ""
END
ENDPAGE

38
ba/bastucc.uml
View File

@ -4,39 +4,39 @@ PAGE "Stampa uffici concessione" -1 -1 50 8
NUMBER F_INIZIO1 3
BEGIN
PROMPT 3 1 "Da codice "
PROMPT 3 1 "Da codice "
HELP "Codice da cui iniziare a stampare. Vuoto = inizio archivio"
USE %UCC
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Ufficio@30" S0
OUTPUT F_INIZIO1 CODTAB
USE %UCC
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Ufficio@30" S0
OUTPUT F_INIZIO1 CODTAB
FIELD LF_TABCOM->CODTAB
GROUP 1
FLAGS "RZ"
GROUP 1
FLAGS "RZ"
END
NUMBER F_FINE1 3
BEGIN
PROMPT 3 3 "A codice "
PROMPT 3 3 "A codice "
HELP "Codice a cui terminare la stampa. Vuoto = fine archivio"
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
FIELD LF_TABCOM->CODTAB
GROUP 2
FLAGS "RZ"
GROUP 2
FLAGS "RZ"
END
BUTTON DLG_OK 8 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -1 ""
END
ENDPAGE

4
ba/bastucs.uml
View File

@ -29,12 +29,12 @@ BEGIN
FLAGS "RZ"
END
BUTTON DLG_OK 8 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END

38
ba/bastues.uml
View File

@ -4,39 +4,39 @@ PAGE "Stampa uffici esattoria" -1 -1 50 8
NUMBER F_INIZIO1 3
BEGIN
PROMPT 3 1 "Da codice "
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
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
GROUP 1
END
NUMBER F_FINE1 3
BEGIN
PROMPT 3 3 "A codice "
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
COPY USE F_INIZIO1
FLAGS "RZ"
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
FIELD LF_TABCOM->CODTAB
GROUP 2
GROUP 2
END
BUTTON DLG_OK 8 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -1 ""
END
ENDPAGE

34
ba/bastuid.uml
View File

@ -4,39 +4,39 @@ PAGE "Stampa Uffici Imposte Dirette" -1 -1 50 8
NUMBER F_INIZIO1 3
BEGIN
PROMPT 3 1 "Da codice "
PROMPT 3 1 "Da codice "
HELP "Codice da cui iniziare a stampare. Vuoto = inizio archivio"
USE %UID
USE %UID
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@40" S0
OUTPUT F_INIZIO1 CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@40" S0
OUTPUT F_INIZIO1 CODTAB
FIELD LF_TABCOM->CODTAB
GROUP 1
FLAGS "RZ"
GROUP 1
FLAGS "RZ"
END
NUMBER F_FINE1 3
BEGIN
PROMPT 3 3 "A codice "
PROMPT 3 3 "A codice "
HELP "Codice a cui terminare la stampa. Vuoto = fine archivio"
COPY USE F_INIZIO1
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
FIELD LF_TABCOM->CODTAB
FLAGS "RZ"
FLAGS "RZ"
END
BUTTON DLG_OK 8 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -1 ""
END
ENDPAGE

34
ba/bastuiv.uml
View File

@ -4,37 +4,37 @@ PAGE "Stampa Uffici IVA" -1 -1 50 8
NUMBER F_INIZIO1 3
BEGIN
PROMPT 3 1 "Da codice "
USE %UIV
PROMPT 3 1 "Da codice "
USE %UIV
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@40" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
FLAGS "RZ"
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@40" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
FLAGS "RZ"
FIELD LF_TABCOM->CODTAB
END
NUMBER F_FINE1 3
BEGIN
PROMPT 3 3 "A codice "
COPY USE F_INIZIO1
PROMPT 3 3 "A codice "
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
FLAGS "RZ"
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
FLAGS "RZ"
FIELD LF_TABCOM->CODTAB
END
BUTTON DLG_OK 8 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -1 ""
END
ENDPAGE

4
ba/basture.uml
View File

@ -29,12 +29,12 @@ BEGIN
GROUP 2
END
BUTTON DLG_OK 8 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END

42
ba/bastval.uml
View File

@ -3,39 +3,39 @@
PAGE "Stampa valute" -1 -1 50 8
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE %VAL
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Valuta@25" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
USE %VAL
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Valuta@25" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -1 ""
END
ENDPAGE

8
ba/bastver.uml
View File

@ -52,14 +52,14 @@ BEGIN
COPY OUTPUT F_FINE1
END
BUTTON DLG_OK 8 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -2 ""
PROMPT -12 -2 ""
END
BUTTON DLG_QUIT 8 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -2 ""
PROMPT -22 -2 ""
END
ENDPAGE

4
ba/bastvet.uml
View File

@ -30,12 +30,12 @@ OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END

38
ba/bastzon.uml
View File

@ -3,39 +3,39 @@
PAGE "Stampa Zone" -1 -1 50 8
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
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
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"
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
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -1 ""
END
ENDPAGE

2
ba/batbabe.uml
View File

@ -8,7 +8,7 @@ ENDPAGE
PAGE "Tabella Aspetto dei Beni" -1 -1 78 8
STRING F_CODICE 3
STRING F_CODICE 2
BEGIN
PROMPT 4 2 "Codice "
FIELD CODTAB

6
ba/batbesc.uml
View File

@ -45,8 +45,8 @@ BEGIN
CHECKTYPE REQUIRED
END
BUTTON BUT_CHECK 10 1
BEGIN
BUTTON BUT_CHECK 10 1
BEGIN
PROMPT 40 5 "Controllo"
END
@ -70,7 +70,7 @@ BEGIN
END
DATE F_DATASCARICO
BEGIN
BEGIN
PROMPT 4 11 "Data di scarico "
HELP "Data in cui e' stato effettuato l'ultimo scarico su dischetto"
FIELD LF_TAB->D2

4
ba/batbinl.uml
View File

@ -67,7 +67,7 @@ BEGIN
FLAGS "D"
END
LIST F_MESE 2 12
LIST F_MESE 2 10
BEGIN
PROMPT 40 2 "Mese registrazione "
FIELD MESEREG
@ -143,7 +143,7 @@ BEGIN
USE REG KEY 2
INPUT S0 F_DESCREG
DISPLAY "Descrizione@50" S0
DISPLAY "Codice registro" CODLIB
DISPLAY "Codice registro" CODTAB
COPY OUTPUT F_CODREG
CHECKTYPE NORMAL
END

16
ba/batbiva.uml
View File

@ -48,7 +48,7 @@ BEGIN
WARNING "Manca la descrizione"
END
LIST LST_TABIVA_S1 2 22
LIST LST_TABIVA_S1 2 20
BEGIN
PROMPT 3 3 "Tipo codice "
FIELD S1
@ -115,7 +115,7 @@ BEGIN
PROMPT 44 5 "Indicatori mod. 101/102"
END
LIST FLD_TABIVA_S7 1 26
LIST FLD_TABIVA_S7 1 24
BEGIN
PROMPT 4 6 "Clienti "
FIELD S7
@ -125,7 +125,7 @@ BEGIN
ITEM "3|Non imponibili"
END
LIST FLD_TABIVA_S8 1 26
LIST FLD_TABIVA_S8 1 24
BEGIN
PROMPT 4 7 "Fornitori "
FIELD S8
@ -150,7 +150,7 @@ BEGIN
HELP "Indicare se il codice deve comparire nel modello 102"
END
LIST FLD_TABIVA_I3 3 6
LIST FLD_TABIVA_I3 3 4
BEGIN
PROMPT 3 10 "Riga vendite IVA11 per op.esenti e non imp. "
FIELD I3
@ -161,7 +161,7 @@ BEGIN
ITEM "3|B3"
END
LIST FLD_TABIVA_I4 3 6
LIST FLD_TABIVA_I4 3 4
BEGIN
PROMPT 3 11 "Riga acquisti IVA11 per op.esenti e non imp. "
FIELD I4
@ -170,7 +170,7 @@ BEGIN
ITEM "14|B14"
END
LIST LST_TABIVA_S3 1 33
LIST LST_TABIVA_S3 1 31
BEGIN
PROMPT 3 12 "Gestione plafond "
FIELD S3
@ -181,7 +181,7 @@ BEGIN
ITEM "3|Oper. relative art.9"
END
LIST LST_TABIVA_S4 1 45
LIST LST_TABIVA_S4 1 43
BEGIN
PROMPT 3 13 "Regime agricolo "
FIELD S4
@ -192,7 +192,7 @@ BEGIN
ITEM "3|Acquisti ad uso promiscuo"
END
LIST LST_TABIVA_S5 1 33
LIST LST_TABIVA_S5 1 31
BEGIN
PROMPT 3 14 "Ag. viaggio/turismo "
FIELD S5

68
ba/batbois.uml
View File

@ -8,48 +8,48 @@ PAGE "Vecchi codici attivita'" -1 -1 78 7
STRING FLD_TABOIS_CODTAB 4
BEGIN
PROMPT 2 1 "Codice "
FIELD %OIS->CODTAB[1,4]
HELP "Codice del vecchio codice attivit…"
USE %OIS
INPUT CODTAB[1,4] FLD_TABOIS_CODTAB
INPUT CODTAB[5,] FLD_TABOIS_ADD
DISPLAY "Codice" CODTAB[1,4]
DISPLAY "Subcodice" CODTAB[5,]
DISPLAY "Descrizione@40" S0
OUTPUT FLD_TABOIS_CODTAB CODTAB[1,4]
OUTPUT FLD_TABOIS_ADD CODTAB[5,]
OUTPUT FLD_TABOIS_S0 S0
KEY 1
FLAGS "RZ"
PROMPT 2 1 "Codice "
FIELD %OIS->CODTAB[1,4]
HELP "Codice del vecchio codice attivita'"
USE %OIS
INPUT CODTAB[1,4] FLD_TABOIS_CODTAB
INPUT CODTAB[5,] FLD_TABOIS_ADD
DISPLAY "Codice" CODTAB[1,4]
DISPLAY "Subcodice" CODTAB[5,]
DISPLAY "Descrizione@40" S0
OUTPUT FLD_TABOIS_CODTAB CODTAB[1,4]
OUTPUT FLD_TABOIS_ADD CODTAB[5,]
OUTPUT FLD_TABOIS_S0 S0
KEY 1
FLAGS "RZ"
END
STRING FLD_TABOIS_ADD 1
BEGIN
PROMPT 22 1 "Subcodice "
HELP "Subcodice del vecchio codice attivit…"
FIELD %OIS->CODTAB[5,]
COPY ALL FLD_TABOIS_CODTAB
KEY 1
FLAGS "U"
VALIDATE AUTOEXIT_FUNC 1 FLD_TABOIS_CODTAB
PROMPT 22 1 "Subcodice "
HELP "Subcodice del vecchio codice attivita'"
FIELD %OIS->CODTAB[5,]
COPY ALL FLD_TABOIS_CODTAB
KEY 1
FLAGS "U"
VALIDATE AUTOEXIT_FUNC 1 FLD_TABOIS_CODTAB
END
STRING FLD_TABOIS_S0 40
BEGIN
PROMPT 2 3 "Descrizione "
FIELD %OIS->S0
HELP "Descrizione del vecchio codice attivit… "
USE %OIS KEY 2
CHECKTYPE REQUIRED
INPUT S0 FLD_TABOIS_S0
DISPLAY "Descrizione@40" S0
DISPLAY "Codice" CODTAB[1,4]
DISPLAY "Subcodice" CODTAB[5,]
OUTPUT FLD_TABOIS_CODTAB CODTAB[1,4]
OUTPUT FLD_TABOIS_ADD CODTAB[5,]
OUTPUT FLD_TABOIS_S0 S0
KEY 2
PROMPT 2 3 "Descrizione "
FIELD %OIS->S0
HELP "Descrizione del vecchio codice attivita' "
USE %OIS KEY 2
CHECKTYPE REQUIRED
INPUT S0 FLD_TABOIS_S0
DISPLAY "Descrizione@40" S0
DISPLAY "Codice" CODTAB[1,4]
DISPLAY "Subcodice" CODTAB[5,]
OUTPUT FLD_TABOIS_CODTAB CODTAB[1,4]
OUTPUT FLD_TABOIS_ADD CODTAB[5,]
OUTPUT FLD_TABOIS_S0 S0
KEY 2
END
ENDPAGE

34
ba/batbpim.uml
View File

@ -9,16 +9,16 @@ 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
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
@ -81,13 +81,13 @@ BEGIN
FLAGS "UZ"
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]
INPUT CODTAB[1,4] F_ANNO
INPUT CODTAB[5,7] F_REGISTRO
DISPLAY "Codice registro" CODTAB[5,7]
DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Descrizione@50" S0
OUTPUT F_REGISTRO CODTAB[1,4]
OUTPUT F_ANNO CODTAB[5,7]
OUTPUT F_ANNO CODTAB[1,4]
OUTPUT F_REGISTRO CODTAB[5,7]
WARNING "Codice registro assente"
KEY 1
END
@ -107,7 +107,7 @@ BEGIN
PROMPT 4 8 "Tipo Costo/Ricavo "
HELP "Tipo di conto costo o ricavo"
FIELD LF_TAB->CODTAB[15,15]
COPY ALL F_ANNO
COPY ALL F_ANNO
KEY 1
END

4
ba/batbpor.uml
View File

@ -17,7 +17,7 @@ END
STRING F_CODICE 3
BEGIN
PROMPT 4 2 "Codice "
HELP "Codice della modalit… di consegna"
HELP "Codice della modalita' di consegna"
FIELD CODTAB
FLAGS "U"
KEY 1
@ -33,7 +33,7 @@ END
STRING F_DESCR 50
BEGIN
PROMPT 4 4 "Descrizione "
HELP "Descrizione della modalit… di consegna"
HELP "Descrizione della modalita' di consegna"
FIELD LF_TABCOM->S0
KEY 2
USE %POR KEY 2

6
ba/batbreg.uml
View File

@ -7,7 +7,7 @@ TOOLBAR "" 0 20 0 2
ENDPAGE
PAGE "Registri" -1 -1 78 18
PAGE "Pag.1" -1 -1 78 18
NUMBER F_CODDITTA 5
BEGIN
@ -101,7 +101,7 @@ BEGIN
HELP "Codice del libro sociale a cui fa riferimento il registro"
END
LIST F_TIPO 1 30
LIST F_TIPO 1 28
BEGIN
PROMPT 30 5 "Tipo "
HELP "Tipo di registro"
@ -242,7 +242,7 @@ END
ENDPAGE
PAGE "Registri pag.2" -1 -1 78 18
PAGE "Pag.2" -1 -1 78 18
NUMBER DLG_NULL 5
BEGIN

8
ba/batbtra.uml
View File

@ -60,7 +60,7 @@ BEGIN
FLAGS "D"
END
LIST F_AGGCAUSALI 6
LIST F_AGGCAUSALI 7
BEGIN
PROMPT 1 6 "Aggiornamento causali gia' presenti "
FIELD %TRA->S0
@ -69,7 +69,7 @@ BEGIN
ITEMS "T|Tutto"
END
LIST F_AGGCLIFO 6
LIST F_AGGCLIFO 7
BEGIN
PROMPT 1 7 "Aggiornamento Clienti/Fornitori gia' presenti "
FIELD %TRA->S1
@ -78,7 +78,7 @@ BEGIN
ITEMS "T|Tutto"
END
LIST F_AGGPCON 6
LIST F_AGGPCON 7
BEGIN
PROMPT 1 8 "Aggiornamento voci Piano dei Conti gia' presenti "
FIELD %TRA->S2
@ -87,7 +87,7 @@ BEGIN
ITEMS "T|Tutto"
END
LIST F_AGGIVD 6
LIST F_AGGIVD 7
BEGIN
PROMPT 1 9 "Aggiornamento classi Piano dei Conti "
FIELD %TRA->S3

4
ba/batbver.uml
View File

@ -6,7 +6,7 @@ TOOLBAR "" 0 20 0 2
ENDPAGE
PAGE "Versamenti ed interessi IVA" -1 -1 78 16
PAGE "Interessi IVA" -1 -1 78 16
GROUPBOX DLG_NULL 78 4
BEGIN
@ -164,7 +164,7 @@ END
ENDPAGE
PAGE "" -1 -1 78 16
PAGE "Versamenti IVA" -1 -1 78 16
GROUPBOX DLG_NULL 78 4
BEGIN

4
ba/batbvid.uml
View File

@ -65,7 +65,7 @@ END
NUMBER F_PAGDA 5
BEGIN
PROMPT 4 11 "Dalla pagina "
PROMPT 4 11 "Dalla pagina "
WARNING "E' necessario specificare un numero di pagina iniziale"
FIELD I1
FLAGS "R"
@ -74,7 +74,7 @@ END
NUMBER F_PAGA 5
BEGIN
PROMPT 30 11 "Alla pagina "
PROMPT 32 11 "Alla pagina "
FIELD I2
FLAGS "R"
CHECKTYPE REQUIRED