73 lines
1.3 KiB
Plaintext
73 lines
1.3 KiB
Plaintext
|
USE 31
|
||
|
|
JOIN 14 INTO NPROGTR==NPROGTR
|
||
|
|
JOIN 20 INTO TIPOCF==TIPOCF CODCF==CODCF
|
||
|
|
JOIN 17 TO 20 INTO TIPOCF==TIPOCF CODCF==CODCF
|
||
|
|
JOIN 16 TO 17 INTO TIPOCF==TIPOCF CODCF==CODCF CODIND==CODINDEFF
|
||
|
|
JOIN 13 TO 20 ALIAS 113 INTO COM==COMCF
|
||
|
|
JOIN 13 TO 16 ALIAS 213 INTO COM==COM
|
||
|
|
JOIN %BAN ALIAS 201 INTO CODTAB[1,5]==CODABI
|
||
|
|
JOIN %BAN ALIAS 203 INTO CODTAB==CODABI+CODCAB
|
||
|
|
JOIN 13 TO 203@ ALIAS 313 INTO COM==S5
|
||
|
|
JOIN %BAN ALIAS 202 INTO CODTAB==CODABIP+CODCABP
|
||
|
|
END
|
||
|
|
DESCRIPTION
|
||
|
|
BEGIN
|
||
|
|
31->* "Effetti"
|
||
|
|
14->* "Righe effetto"
|
||
|
|
20->* "Clienti e Fornitori"
|
||
|
|
113@->* "Comuni"
|
||
|
|
213@->* "Comuni"
|
||
|
|
201@->* "Tabella banche"
|
||
|
|
202@->* "Tabella banche"
|
||
|
|
203@->* "Tabella banche"
|
||
|
|
END
|
||
|
|
GENERAL
|
||
|
|
BEGIN
|
||
|
|
OFFSET 0 0
|
||
|
|
END
|
||
|
|
SECTION BODY ODD 17
|
||
|
|
DATA 1 10
|
||
|
|
BEGIN
|
||
|
|
KEY "data scadenza"
|
||
|
|
PROMPT 36 3 ""
|
||
|
|
FIELD 31->DATASCAD
|
||
|
|
END
|
||
|
|
STRINGA 23 3
|
||
|
|
BEGIN
|
||
|
|
KEY "Codice valuta"
|
||
|
|
PROMPT 0 0 ""
|
||
|
|
FIELD 31->CODVAL
|
||
|
|
FLAGS "H"
|
||
|
|
END
|
||
|
|
VALUTA 2 18
|
||
|
|
BEGIN
|
||
|
|
KEY "importo"
|
||
|
|
PROMPT 55 3 ""
|
||
|
|
MESSAGE _IMPORTO
|
||
|
|
DRIVENBY 23
|
||
|
|
END
|
||
|
|
VALUTA 4
|
||
|
|
BEGIN
|
||
|
|
KEY "importo in lettere"
|
||
|
|
PROMPT 18 9 ""
|
||
|
|
MESSAGE _IMPORTO
|
||
|
|
DRIVENBY 23
|
||
|
|
PICTURE "(*,*)LETTERE@44"
|
||
|
|
END
|
||
|
|
VALUTA 10 18
|
||
|
|
BEGIN
|
||
|
|
KEY "importo fattura"
|
||
|
|
PROMPT 73 10 ""
|
||
|
|
MESSAGE _FATT,!IMPFATT
|
||
|
|
DRIVENBY 23
|
||
|
|
FL "D"
|
||
|
|
END
|
||
|
|
STRING 11 50
|
||
|
|
BEGIN
|
||
|
|
KEY "ragione sociale debitore"
|
||
|
|
PROMPT 20 11 ""
|
||
|
|
MESSAGE _CLI,!RAGSOC
|
||
|
|
END
|
||
|
|
END
|
||
|
|
END
|