190 lines
3.1 KiB
Plaintext
Executable File
190 lines
3.1 KiB
Plaintext
Executable File
#include "ba3300.h"
|
|
PAGE "" -1 -1 74 20
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
PROMPT 3 3 "Anno Riferimento "
|
|
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 "RZ"
|
|
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 "
|
|
FLAGS "U"
|
|
COPY ALL F_ANNO
|
|
KEY 1
|
|
END
|
|
|
|
STRING F_REGISTRO 50
|
|
BEGIN
|
|
PROMPT 3 6 "Registro "
|
|
HELP "Indicare la descrizione del registro"
|
|
USE REG KEY 2
|
|
INPUT S0 F_REGISTRO
|
|
COPY DISPLAY F_ANNO
|
|
COPY OUTPUT F_ANNO
|
|
OUTPUT F_REGISTRO S0
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 3 7 "Ragione sociale "
|
|
FLAGS "U"
|
|
// 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 "
|
|
// 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 "
|
|
END
|
|
|
|
STRING F_CAP 5
|
|
BEGIN
|
|
PROMPT 3 9 "CAP "
|
|
END
|
|
|
|
STRING F_CODCOM 4
|
|
BEGIN
|
|
PROMPT 15 9 "Comune "
|
|
END
|
|
|
|
STRING F_COM 28
|
|
BEGIN
|
|
PROMPT 29 9 ""
|
|
END
|
|
|
|
STRING F_PROV 5
|
|
BEGIN
|
|
PROMPT 60 9 "Prov."
|
|
END
|
|
|
|
STRING F_COFI 16
|
|
BEGIN
|
|
PROMPT 3 10 "Codice fiscale "
|
|
// 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 "
|
|
// 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 "
|
|
FLAGS "R"
|
|
NUM_EXPR {#THIS_FIELD >= 0}
|
|
WARNING "Numero pagina iniziale errato. Deve essere >= 0"
|
|
END
|
|
|
|
NUMBER F_NPAGFI 6
|
|
BEGIN
|
|
PROMPT 3 13 "Numero pagina finale "
|
|
FLAGS "R"
|
|
NUM_EXPR {#THIS_FIELD >= #F_NPAGINI}
|
|
WARNING "Numero pagina finale errato. Deve essere >= di quello iniziale"
|
|
END
|
|
|
|
BOOLEAN F_PRIMO
|
|
BEGIN
|
|
PROMPT 3 14 "Inizio numerazione dopo primo foglio "
|
|
END
|
|
|
|
LIST F_TIPOST 7
|
|
BEGIN
|
|
PROMPT 3 15 "Tipo di stampa "
|
|
ITEM "0|132"
|
|
ITEM "1|132 c."
|
|
ITEM "2|198"
|
|
END
|
|
|
|
NUMBER F_LUNG 2
|
|
BEGIN
|
|
PROMPT 3 16 "Numero di righe "
|
|
FLAGS "R"
|
|
END
|
|
|
|
BUTTON DLG_OK
|
|
BEGIN
|
|
PROMPT 38 18 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL
|
|
BEGIN
|
|
PROMPT 50 18 ""
|
|
END
|
|
/*
|
|
BUTTON DLG_PGDN
|
|
BEGIN
|
|
PROMPT 65 18 ""
|
|
END
|
|
*/
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|