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