16ea6325ab
Files correlati : Ricompilazione Demo : [ ] Commento : modificati path di include; git-svn-id: svn://10.65.10.50/trunk@18395 c028cbd2-c16b-5b4b-a496-9718f37d4682
138 lines
2.4 KiB
Plaintext
Executable File
138 lines
2.4 KiB
Plaintext
Executable File
#include "cgtbtra.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
#include <relapbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Tabella ditte per trasferimento" 0 2 0 0
|
|
|
|
STRING F_NOMEID 10
|
|
BEGIN
|
|
PROMPT 1 1 "Nome simbolico sistema inviante "
|
|
FIELD %TRA->CODTAB[1,10]
|
|
FLAGS "UZ"
|
|
KEY 1
|
|
USE %TRA
|
|
INPUT CODTAB[1,10] F_NOMEID
|
|
INPUT CODTAB[11,15] F_CODDITTAINV
|
|
DISPLAY "Nome ident." CODTAB[1,10]
|
|
DISPLAY "Ditta inv." CODTAB[11,15]
|
|
DISPLAY "Ditta ric." I0
|
|
DISPLAY "N.Invio" I1
|
|
DISPLAY "Data invio" D0
|
|
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 7
|
|
BEGIN
|
|
PROMPT 1 6 "Aggiornamento causali gia' presenti "
|
|
FIELD %TRA->S0
|
|
ITEMS "N|No"
|
|
ITEMS "D|Descr."
|
|
ITEMS "T|Tutto"
|
|
END
|
|
|
|
LIST F_AGGCLIFO 7
|
|
BEGIN
|
|
PROMPT 1 7 "Aggiornamento Clienti/Fornitori gia' presenti "
|
|
FIELD %TRA->S1
|
|
ITEMS "N|No"
|
|
ITEMS "D|Descr."
|
|
ITEMS "T|Tutto"
|
|
END
|
|
|
|
BOOLEAN F_AGGCLIFOCOM
|
|
BEGIN
|
|
PROMPT 62 7 "anche se comuni"
|
|
FIELD B3
|
|
FLAGS "H"
|
|
END
|
|
|
|
LIST F_AGGPCON 7
|
|
BEGIN
|
|
PROMPT 1 8 "Aggiornamento voci Piano dei Conti gia' presenti "
|
|
FIELD %TRA->S2
|
|
ITEMS "N|No"
|
|
ITEMS "D|Descr."
|
|
ITEMS "T|Tutto"
|
|
END
|
|
|
|
BOOLEAN F_AGGPCONCOM
|
|
BEGIN
|
|
PROMPT 62 8 "anche se comuni"
|
|
FIELD B2
|
|
FLAGS "H"
|
|
END
|
|
|
|
LIST F_AGGIVD 7
|
|
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
|