130 lines
1.8 KiB
Plaintext
Executable File
130 lines
1.8 KiB
Plaintext
Executable File
#include "batbind.h"
|
|
|
|
TOOLBAR "" 0 18 0 2
|
|
|
|
#include <toolbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Tabella ditte per invio" -1 -1 78 18
|
|
|
|
NUMBER F_DITTAINV 5
|
|
BEGIN
|
|
PROMPT 1 1 "Codice ditta inviante "
|
|
FIELD %IND->CODTAB
|
|
FLAGS "Z"
|
|
KEY 1
|
|
USE %IND
|
|
INPUT CODTAB[1,5] F_DITTAINV
|
|
DISPLAY "Ditta" CODTAB
|
|
DISPLAY "Num.inv." I0
|
|
DISPLAY "Data invio" D0
|
|
DISPLAY "Stato" S6
|
|
OUTPUT F_DITTAINV CODTAB
|
|
OUTPUT F_NUMULINV I0
|
|
OUTPUT F_DATAULIN D0
|
|
OUTPUT F_STATO S6
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 1 2 "Ragione sociale "
|
|
FLAGS "D"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 8
|
|
BEGIN
|
|
PROMPT 1 4 "Archivi da inviare"
|
|
END
|
|
|
|
BOOLEAN F_CAUSALI
|
|
BEGIN
|
|
PROMPT 2 5 "Tabella causali"
|
|
FIELD %IND->B0
|
|
END
|
|
|
|
BOOLEAN F_CLIFO
|
|
BEGIN
|
|
PROMPT 2 6 "Anagrafica Clienti/Fornitori"
|
|
FIELD %IND->B1
|
|
END
|
|
|
|
BOOLEAN F_PCON
|
|
BEGIN
|
|
PROMPT 2 7 "Anagrafica Piano dei Conti"
|
|
FIELD %IND->B2
|
|
END
|
|
|
|
BOOLEAN F_MOV
|
|
BEGIN
|
|
PROMPT 2 8 "Movimenti Prima Nota"
|
|
FIELD %IND->B3
|
|
END
|
|
|
|
BOOLEAN F_IVA
|
|
BEGIN
|
|
PROMPT 2 9 "Movimenti Iva"
|
|
FIELD %IND->B4
|
|
END
|
|
|
|
BOOLEAN F_FATT
|
|
BEGIN
|
|
PROMPT 2 10 "Scadenze Fattura / Pagamento Rate"
|
|
FIELD %IND->B5
|
|
// FLAGS "D"
|
|
END
|
|
|
|
BOOLEAN F_BOLLATO
|
|
BEGIN
|
|
PROMPT 1 12 "Imposta il flag di bollato"
|
|
FIELD %IND->B7
|
|
END
|
|
|
|
NUMBER F_NUMULINV 3
|
|
BEGIN
|
|
PROMPT 1 13 "N.ro ult.invio "
|
|
FIELD %IND->I0
|
|
FLAGS "RG"
|
|
END
|
|
|
|
DATE F_DATAULIN
|
|
BEGIN
|
|
PROMPT 46 13 "Data ultimo invio "
|
|
FIELD %IND->D0
|
|
FLAGS "G"
|
|
END
|
|
|
|
STRING F_STATO 1
|
|
BEGIN
|
|
PROMPT 1 14 "Stato ultimo "
|
|
FIELD %IND->S6
|
|
FLAGS "GU"
|
|
END
|
|
|
|
STRING F_USELAB 1
|
|
BEGIN
|
|
PROMPT 20 14 ""
|
|
FLAGS "GU"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 15 "invio "
|
|
END
|
|
|
|
STRING F_CHIAVE 60
|
|
BEGIN
|
|
PROMPT 16 15 ""
|
|
FLAGS "GU"
|
|
END
|
|
|
|
STRING F_GHOST_FIELD 1
|
|
BEGIN
|
|
PROMPT -1 -30 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|