376 lines
6.1 KiB
Plaintext
Executable File
376 lines
6.1 KiB
Plaintext
Executable File
#include "cg2100p.h"
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 10 2
|
|
BEGIN
|
|
PROMPT -23 -1 "~Elimina"
|
|
MESSAGE EXIT,K_DEL
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -33 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
|
|
PAGE "Pagamento" -1 -1 77 20
|
|
|
|
GROUPBOX S_RATA 78 6
|
|
BEGIN
|
|
PROMPT 1 1 "@BPartita ANNO PARTITA Riga: RIGA Rata: RATA del DATA"
|
|
END
|
|
|
|
STRING S_NUMDOC 7
|
|
BEGIN
|
|
PROMPT 2 2 "Numero Documento "
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE S_DATADOC
|
|
BEGIN
|
|
PROMPT 28 2 "Data documento "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER S_NUMPROT 5
|
|
BEGIN
|
|
PROMPT 56 2 "Protocollo IVA "
|
|
FLAGS "DR"
|
|
END
|
|
|
|
STRING S_DESCR 50
|
|
BEGIN
|
|
PROMPT 2 3 "Descrizione "
|
|
FLAGS "D"
|
|
END
|
|
|
|
LIST S_SEZIONE_SCAD 6
|
|
BEGIN
|
|
PROMPT 2 4 "Sez. "
|
|
ITEM "A|Avere"
|
|
ITEM "D|Dare"
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER S_IMPORTO_SCAD 15
|
|
BEGIN
|
|
PROMPT 18 4 "Importo "
|
|
PICTURE "."
|
|
FLAGS "DR"
|
|
END
|
|
|
|
NUMBER S_IMPORTOVAL_SCAD 15 2
|
|
BEGIN
|
|
PROMPT 43 4 "Importo in valuta "
|
|
PICTURE ".2"
|
|
FLAGS "DRV"
|
|
GROUP 3
|
|
END
|
|
|
|
NUMBER S_RESIDUOPAG 15
|
|
BEGIN
|
|
PROMPT 2 5 "Residuo pagamento "
|
|
PICTURE "."
|
|
FLAGS "DR"
|
|
END
|
|
|
|
NUMBER S_RESIDUORATA 15
|
|
BEGIN
|
|
PROMPT 48 5 "Residuo rata "
|
|
PICTURE "."
|
|
FLAGS "DRV"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 12
|
|
BEGIN
|
|
PROMPT 1 7 "@BPagamento"
|
|
END
|
|
|
|
NUMBER S_IMPORTO 15
|
|
BEGIN
|
|
PROMPT 2 8 "Importo pagamento "
|
|
PICTURE "."
|
|
FIELD IMPORTO
|
|
VALIDATE REQIF_FUNC 1 S_IMPORTOVAL
|
|
WARNING "L'importo deve essere specificato"
|
|
END
|
|
|
|
NUMBER S_IMPORTOVAL 15 2
|
|
BEGIN
|
|
PROMPT 2 9 "Importo in valuta "
|
|
PICTURE ".2"
|
|
FIELD IMPORTOVAL
|
|
GROUP 3
|
|
VALIDATE REQIF_FUNC 1 S_IMPORTO
|
|
WARNING "L'importo in valuta deve essere specificato"
|
|
END
|
|
|
|
NUMBER S_RITENUTE 15
|
|
BEGIN
|
|
PROMPT 38 8 "Ritenute professionali "
|
|
PICTURE "."
|
|
FIELD RITENUTE
|
|
MESSAGE DIRTY,S_IMPORTO|K_TAB,S_IMPORTO
|
|
END
|
|
|
|
RADIOBUTTON S_SALDOACC 1 24
|
|
BEGIN
|
|
PROMPT 1 9 ""
|
|
FLAGS "Z"
|
|
ITEM "A|Acconto"
|
|
ITEM "S|Saldo"
|
|
FIELD ACCSAL
|
|
END
|
|
|
|
LIST S_TIPOPAG 2 35
|
|
BEGIN
|
|
PROMPT 27 10 "Tipo pagamento "
|
|
ITEM "1|Rimessa Diretta"
|
|
ITEM "2|Tratta"
|
|
ITEM "3|Ricevuta Bancaria"
|
|
ITEM "4|Cessione"
|
|
ITEM "5|Paghero'"
|
|
ITEM "6|Lettera di credito"
|
|
ITEM "7|Tratta accettata"
|
|
ITEM "8|Rapporti interbancari diretti"
|
|
ITEM "9|Bonifico"
|
|
ITEM "0|Altro"
|
|
END
|
|
|
|
DATE S_DATAPAG
|
|
BEGIN
|
|
PROMPT 2 11 "Data pag. "
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 2 12 "@bContropartita"
|
|
GROUP 2
|
|
END
|
|
|
|
LIST S_TIPO 1 12
|
|
BEGIN
|
|
PROMPT 2 12 "Tipo "
|
|
ITEM " |Conto"
|
|
ITEM "C|Cliente"
|
|
ITEM "F|Fornitore"
|
|
FIELD TIPOC
|
|
FLAGS "H"
|
|
END
|
|
|
|
NUMBER S_GRUPPO 3
|
|
BEGIN
|
|
PROMPT 24 12 "Gruppo "
|
|
FIELD GRUPPOC
|
|
GROUP 2
|
|
END
|
|
|
|
NUMBER S_CONTO 3
|
|
BEGIN
|
|
PROMPT 42 12 "Conto "
|
|
FIELD CONTOC
|
|
GROUP 2
|
|
END
|
|
|
|
NUMBER S_SOTTOCONTO 6
|
|
BEGIN
|
|
PROMPT 57 12 "Sottoconto "
|
|
FIELD SOTTOCONTC
|
|
USE LF_PCON
|
|
INPUT GRUPPO S_GRUPPO
|
|
INPUT CONTO S_CONTO
|
|
INPUT SOTTOCONTO S_SOTTOCONTO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT S_GRUPPO GRUPPO
|
|
OUTPUT S_CONTO CONTO
|
|
OUTPUT S_SOTTOCONTO SOTTOCONTO
|
|
OUTPUT S_DESCRCONTO DESCR
|
|
CHECKTYPE NORMAL
|
|
VALIDATE REQIF_FUNC 1 S_IMPORTO
|
|
GROUP 2
|
|
END
|
|
|
|
STRING S_DESCRCONTO 50
|
|
BEGIN
|
|
PROMPT 2 13 "Descrizione conto "
|
|
USE LF_PCON KEY 2
|
|
INPUT DESCR S_DESCRCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
COPY OUTPUT S_SOTTOCONTO
|
|
CHECKTYPE REQUIRED
|
|
GROUP 2
|
|
END
|
|
|
|
STRING S_VALUTA 3
|
|
BEGIN
|
|
PROMPT 2 12 "Valuta "
|
|
FLAGS "DHUZ"
|
|
GROUP 4
|
|
END
|
|
|
|
DATE S_DATACAMBIO
|
|
BEGIN
|
|
PROMPT 24 12 "Data cambio "
|
|
FLAGS "RH"
|
|
USE CAM
|
|
INPUT CODTAB[1,3] S_VALUTA SELECT
|
|
INPUT CODTAB[4,11] S_DATACAMBIO
|
|
DISPLAY "Valuta" CODTAB[1,3]
|
|
DISPLAY "Data@10" D0
|
|
DISPLAY "Cambio@18" R10
|
|
OUTPUT S_VALUTA CODTAB[1,3]
|
|
OUTPUT S_DATACAMBIO D0
|
|
OUTPUT S_CAMBIO R10
|
|
GROUP 4
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER S_CAMBIO 15 5
|
|
BEGIN
|
|
PROMPT 51 12 "Cambio "
|
|
FLAGS "HRU"
|
|
GROUP 4
|
|
PICTURE ".5"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING S_CODDESC 5
|
|
BEGIN
|
|
PROMPT 2 14 "Descriz. agg. "
|
|
FLAGS "U"
|
|
USE %DPN
|
|
INPUT CODTAB S_CODDESC
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT S_CODDESC CODTAB
|
|
OUTPUT S_DESCAGG S0
|
|
CHECKTYPE NORMAL
|
|
VALIDATE NOT_EMPTY_CHECK_FIELD
|
|
END
|
|
|
|
STRING S_DESCAGG 50
|
|
BEGIN
|
|
PROMPT 24 14 ""
|
|
USE %DPN KEY 2
|
|
INPUT S0 S_DESCAGG
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT S_CODDESC
|
|
END
|
|
|
|
NUMBER S_VSABI 5
|
|
BEGIN
|
|
PROMPT 2 15 "Vs. Banca ABI "
|
|
FLAGS "Z"
|
|
USE %BAN
|
|
INPUT CODTAB[1,5] S_VSABI
|
|
INPUT CODTAB[6,10] S_VSCAB
|
|
DISPLAY "ABI@5" CODTAB[1,5]
|
|
DISPLAY "CAB@5" CODTAB[6,10]
|
|
DISPLAY "Denominazione@50" S0
|
|
OUTPUT S_VSABI CODTAB[1,5]
|
|
OUTPUT S_VSCAB CODTAB[6,10]
|
|
OUTPUT S_DESCVSABI S0
|
|
CHECKTYPE NORMAL
|
|
FIELD CODABI
|
|
END
|
|
|
|
NUMBER S_VSCAB 5
|
|
BEGIN
|
|
PROMPT 25 15 "CAB "
|
|
FLAGS "Z"
|
|
COPY ALL S_VSABI
|
|
CHECKTYPE NORMAL
|
|
FIELD CODCAB
|
|
END
|
|
|
|
STRING S_DESCVSABI 50 37
|
|
BEGIN
|
|
PROMPT 37 15 ""
|
|
USE %BAN KEY 2
|
|
INPUT S0 S_DESCVSABI
|
|
DISPLAY "Denominazione@50" S0
|
|
DISPLAY "ABI@5" CODTAB[1,5]
|
|
DISPLAY "CAB@5" CODTAB[6,10]
|
|
COPY OUTPUT S_VSABI
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING S_AGENTE 5
|
|
BEGIN
|
|
PROMPT 2 16 "Agente "
|
|
FLAGS "UZ"
|
|
USE AGE
|
|
INPUT CODTAB S_AGENTE
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione @50" S0
|
|
OUTPUT S_AGENTE CODTAB
|
|
OUTPUT S_DESCAGENTE S0
|
|
CHECKTYPE NORMAL
|
|
FIELD CODAG
|
|
END
|
|
|
|
STRING S_DESCAGENTE 50
|
|
BEGIN
|
|
PROMPT 24 16 ""
|
|
USE AGE KEY 2
|
|
INPUT S0 S_DESCAGENTE
|
|
DISPLAY "Descrizione @50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT S_AGENTE
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER S_NSABI 5
|
|
BEGIN
|
|
PROMPT 2 17 "Ns. Banca ABI "
|
|
FLAGS "Z"
|
|
COPY USE S_VSABI
|
|
INPUT CODTAB[1,5] S_NSABI
|
|
INPUT CODTAB[6,10] S_NSCAB
|
|
COPY DISPLAY S_VSABI
|
|
OUTPUT S_NSABI CODTAB[1,5]
|
|
OUTPUT S_NSCAB CODTAB[6,10]
|
|
OUTPUT S_DESCNSABI S0
|
|
FIELD CODABIPR
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER S_NSCAB 5
|
|
BEGIN
|
|
PROMPT 25 17 "CAB "
|
|
FLAGS "Z"
|
|
COPY ALL S_NSABI
|
|
FIELD CODCABPR
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING S_DESCNSABI 50 37
|
|
BEGIN
|
|
PROMPT 37 17 ""
|
|
COPY USE S_DESCVSABI
|
|
INPUT S0 S_DESCNSABI
|
|
COPY DISPLAY S_DESCVSABI
|
|
COPY OUTPUT S_NSABI
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|