123 lines
2.2 KiB
Plaintext
Executable File
123 lines
2.2 KiB
Plaintext
Executable File
#include "batbtra.h"
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
|
|
#include <toolbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Tabella ditte per trasferimento" -1 -1 78 18
|
|
|
|
STRING F_NOMEID 10
|
|
BEGIN
|
|
PROMPT 1 1 "Nome simbolico sistema inviante "
|
|
FIELD %TRA->CODTAB[1,10]
|
|
FLAGS "ZU"
|
|
KEY 1
|
|
USE %TRA
|
|
INPUT CODTAB[1,10] F_NOMEID
|
|
DISPLAY "Nome identificazione" CODTAB[1,10]
|
|
DISPLAY "Cod.Ditta inviante" CODTAB[11,15]
|
|
DISPLAY "Cod.Ditta ricevente" I0
|
|
OUTPUT F_NOMEID CODTAB[1,10]
|
|
OUTPUT F_CODDITTAINV CODTAB[11,15]
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
NUMBER F_CODDITTAINV 5
|
|
BEGIN
|
|
PROMPT 1 2 "Codice ditta inviante "
|
|
FIELD %TRA->CODTAB[11,15]
|
|
FLAGS "Z"
|
|
KEY 1
|
|
COPY USE F_NOMEID
|
|
INPUT CODTAB[1,10] F_NOMEID
|
|
INPUT CODTAB[11,15] F_CODDITTAINV
|
|
COPY DISPLAY F_NOMEID
|
|
COPY OUTPUT F_NOMEID
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
NUMBER F_CODDITTARIC 5
|
|
BEGIN
|
|
PROMPT 1 4 "Ditta ricevente "
|
|
FIELD %TRA->I0
|
|
USE LF_NDITTE KEY 1
|
|
INPUT CODDITTA F_CODDITTARIC
|
|
DISPLAY "Ditta" CODDITTA
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
OUTPUT F_CODDITTARIC CODDITTA
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
FLAGS "RZ"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 26 4 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
LIST F_AGGCAUSALI 6
|
|
BEGIN
|
|
PROMPT 1 6 "Aggiornamento causali gia' presenti "
|
|
FIELD %TRA->S0
|
|
ITEMS "N|No"
|
|
ITEMS "D|Descr."
|
|
ITEMS "T|Tutto"
|
|
END
|
|
|
|
LIST F_AGGCLIFO 6
|
|
BEGIN
|
|
PROMPT 1 7 "Aggiornamento Clienti/Fornitori gia' presenti "
|
|
FIELD %TRA->S1
|
|
ITEMS "N|No"
|
|
ITEMS "D|Descr."
|
|
ITEMS "T|Tutto"
|
|
END
|
|
|
|
LIST F_AGGPCON 6
|
|
BEGIN
|
|
PROMPT 1 8 "Aggiornamento voci Piano dei Conti gia' presenti "
|
|
FIELD %TRA->S2
|
|
ITEMS "N|No"
|
|
ITEMS "D|Descr."
|
|
ITEMS "T|Tutto"
|
|
END
|
|
|
|
LIST F_AGGIVD 6
|
|
BEGIN
|
|
PROMPT 1 9 "Aggiornamento classi Piano dei Conti "
|
|
FIELD %TRA->S3
|
|
ITEMS "N|No"
|
|
ITEMS "T|Tutto"
|
|
END
|
|
|
|
BOOLEAN F_FATTEM
|
|
BEGIN
|
|
PROMPT 1 10 "Riattribuzione num. protocollo su fatture emesse "
|
|
FIELD %TRA->B0
|
|
END
|
|
|
|
BOOLEAN F_FATTRIC
|
|
BEGIN
|
|
PROMPT 1 11 "Riattribuzione num. protocollo su fatture ricevute "
|
|
FIELD %TRA->B1
|
|
END
|
|
|
|
NUMBER F_NUMULTRAS 3
|
|
BEGIN
|
|
PROMPT 1 13 "Numero ultimo invio ricevuto "
|
|
FIELD %TRA->I1
|
|
END
|
|
|
|
DATE F_DATAULTRAS
|
|
BEGIN
|
|
PROMPT 39 13 "Data ultimo invio ricevuto "
|
|
FIELD %TRA->D0
|
|
END
|
|
|
|
ENPAGE
|
|
|
|
ENDMASK
|