146 lines
2.6 KiB
Plaintext
146 lines
2.6 KiB
Plaintext
|
#include "ha0300a.h"
|
||
|
|
|
||
|
|
TOOLBAR "" 0 0 0 2
|
||
|
|
|
||
|
|
#include <relapbar.h>
|
||
|
|
|
||
|
|
ENDPAGE
|
||
|
|
|
||
|
|
PAGE "Gestione contratti premio" -1 -1 78 23
|
||
|
|
|
||
|
|
RADIOBUTTON F_TIPOCONTR 1 78
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 0 "@bTipo Contratto"
|
||
|
|
ITEM "A|Anticipo"
|
||
|
|
ITEM "P|Posticipo"
|
||
|
|
ITEM "R|Rifatturazione"
|
||
|
|
ITEM "N|Noleggio"
|
||
|
|
FLAGS "GZ"
|
||
|
|
END
|
||
|
|
|
||
|
|
GROUPBOX DLG_NULL 78 5
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 3 ""
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_CODNUM 4
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 4 "Cod. num. "
|
||
|
|
FIELD CODNUM
|
||
|
|
USE %NUM KEY 1
|
||
|
|
INPUT CODTAB F_CODNUM
|
||
|
|
DISPLAY "Codice" CODTAB
|
||
|
|
DISPLAY "Descrizione@50" S0
|
||
|
|
CHECKTYPE NORMAL
|
||
|
|
FLAGS "GDU"
|
||
|
|
KEY 1
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_TIPODOC 4
|
||
|
|
BEGIN
|
||
|
|
FIELD TIPODOC
|
||
|
|
PROMPT 24 4 "Tipo doc. "
|
||
|
|
USE %TIP KEY 1
|
||
|
|
INPUT CODTAB F_TIPODOC
|
||
|
|
DISPLAY "Codice" CODTAB
|
||
|
|
DISPLAY "Descrizione@50" S0
|
||
|
|
CHECKTYPE NORMAL
|
||
|
|
FLAGS "GDU"
|
||
|
|
END
|
||
|
|
|
||
|
|
LIST F_PROVV 1
|
||
|
|
BEGIN
|
||
|
|
PROMPT 140 101 ""
|
||
|
|
ITEM "D|D"
|
||
|
|
FIELD PROVV
|
||
|
|
FLAGS "D"
|
||
|
|
KEY 1
|
||
|
|
END
|
||
|
|
|
||
|
|
LIST F_TIPOCF 9
|
||
|
|
BEGIN
|
||
|
|
PROMPT 130 101 ""
|
||
|
|
FIELD TIPOCF
|
||
|
|
IT "C|Cliente"
|
||
|
|
FLAGS "D"
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER F_CODCF 6
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 5 "Cliente "
|
||
|
|
FIELD CODCF
|
||
|
|
USE LF_CLIFO SELECT (GRUPPO=4) && (CONTO=101) && (SOSPESO!="X")
|
||
|
|
INPUT TIPOCF "C"
|
||
|
|
INPUT CODCF F_CODCF
|
||
|
|
DISPLAY "Codice" CODCF
|
||
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
||
|
|
DISPLAY "Partita IVA@12" PAIV
|
||
|
|
DISPLAY "Sospeso" SOSPESO
|
||
|
|
OUTPUT F_CODCF CODCF
|
||
|
|
OUTPUT F_DESCF RAGSOC
|
||
|
|
CHECKTYPE REQUIRED
|
||
|
|
ADD RUN cg0 -1 C
|
||
|
|
WARNING "Cliente assente"
|
||
|
|
HELP "Codice del cliente del contratto"
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_DESCF 50
|
||
|
|
BEGIN
|
||
|
|
PROMPT 24 5 ""
|
||
|
|
USE LF_CLIFO KEY 2 SELECT (GRUPPO=4) && (CONTO=101) && (SOSPESO!="X")
|
||
|
|
INPUT TIPOCF "C"
|
||
|
|
INPUT RAGSOC F_DESCF
|
||
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
||
|
|
DISPLAY "Codice" CODCF
|
||
|
|
DISPLAY "Partita IVA@12" PAIV
|
||
|
|
DISPLAY "Sospeso" SOSPESO
|
||
|
|
COPY OUTPUT F_CODCF
|
||
|
|
CHECKTYPE REQUIRED
|
||
|
|
ADD RUN cg0 -1 C
|
||
|
|
WARNING "Cliente assente"
|
||
|
|
HELP "Ragione sociale del cliente del contratto"
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER F_ANNO 4
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 6 "Esercizio "
|
||
|
|
USE ESC
|
||
|
|
INPUT CODTAB F_ANNO
|
||
|
|
DISPLAY "Codice" CODTAB
|
||
|
|
DISPLAY "Inizio esercizio" D0
|
||
|
|
DISPLAY "Fine esercizio" D1
|
||
|
|
OUTPUT F_ANNO CODTAB
|
||
|
|
FIELD ANNO
|
||
|
|
CHECKTYPE REQUIRED
|
||
|
|
FLAGS "AZ"
|
||
|
|
KEY 1
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER F_NDOC 6
|
||
|
|
BEGIN
|
||
|
|
PROMPT 24 6 "N. contratto "
|
||
|
|
USE LF_DOC KEY 5 SELECT (BETWEEN(DOC2,#F_CODCF,#F_CODCF))&&(TIPODOC==#F_TIPODOC)
|
||
|
|
JOIN LF_CLIFO INTO TIPOCF==TIPOCF CODCF==DOC2
|
||
|
|
INPUT PROVV "D"
|
||
|
|
INPUT CODNUM F_CODNUM SELECT
|
||
|
|
INPUT ANNO F_ANNO
|
||
|
|
INPUT NDOC F_NDOC
|
||
|
|
DISPLAY "Numero" NDOC
|
||
|
|
DISPLAY "Data doc.@10" DATADOC
|
||
|
|
DISPLAY "Inizio@10" DATACOMP
|
||
|
|
DISPLAY "Fine@10" DATAFCOMP
|
||
|
|
DISPLAY "Tipo" TIPODOC
|
||
|
|
DISPLAY "Agente" CODAG
|
||
|
|
DISPLAY "Cliente" DOC2
|
||
|
|
DISPLAY "Ragione sociale@50" LF_CLIFO->RAGSOC
|
||
|
|
OUPUT F_ANNO ANNO
|
||
|
|
OUPUT F_NDOC NDOC
|
||
|
|
FIELD NDOC
|
||
|
|
KEY 1
|
||
|
|
CHECKTYPE REQUIRED
|
||
|
|
END
|
||
|
|
|
||
|
|
ENDPAGE
|
||
|
|
|
||
|
|
ENDMASK
|