405 lines
6.6 KiB
Plaintext
405 lines
6.6 KiB
Plaintext
|
#include "ha0300a.h"
|
|||
|
|
|
|||
|
|
TOOLBAR "" 0 0 0 2
|
|||
|
|
|
|||
|
|
#include <relapbar.h>
|
|||
|
|
|
|||
|
|
ENDPAGE
|
|||
|
|
|
|||
|
|
PAGE "Contratto premi Hardy" -1 -1 78 23
|
|||
|
|
|
|||
|
|
GROUPBOX DLG_NULL 78 13
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 1 0 ""
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
RADIOBUTTON F_TIPOCONTR 1 76
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 2 0 "@bTipo contratto"
|
|||
|
|
ITEM "A|Anticipo" MESSAGE CLEAR,F_DATAFCOMP|ENABLE,1@
|
|||
|
|
ITEM "P|Posticipo" MESSAGE ENABLE,F_DATAFCOMP|CLEAR,1@
|
|||
|
|
ITEM "R|Rifatturazione" MESSAGE CLEAR,F_DATAFCOMP|ENABLE,1@
|
|||
|
|
FIELD TIPOCFFATT
|
|||
|
|
FLAGS "GZ"
|
|||
|
|
KEY 1
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRING F_CODNUM 4
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 102 101 "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 120 101 "Tipo doc. "
|
|||
|
|
USE %TIP KEY 1
|
|||
|
|
INPUT CODTAB F_TIPODOC
|
|||
|
|
DISPLAY "Codice" CODTAB
|
|||
|
|
DISPLAY "Descrizione@50" S0
|
|||
|
|
CHECKTYPE NORMAL
|
|||
|
|
FLAGS "GDU"
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
LIST F_TIPOCF 9
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 130 101 ""
|
|||
|
|
FIELD TIPOCF
|
|||
|
|
IT "C|Cliente"
|
|||
|
|
FLAGS "D"
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRING F_CODCF 6
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 2 3 "Cliente "
|
|||
|
|
WARNING "Cliente assente"
|
|||
|
|
HELP "Codice del cliente del documento"
|
|||
|
|
FLAGS "R"
|
|||
|
|
FIELD CODCF
|
|||
|
|
USE LF_CLIFO KEY 1
|
|||
|
|
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
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRING F_DESCF 50
|
|||
|
|
BEGIN
|
|||
|
|
WARNING "Cliente assente"
|
|||
|
|
HELP "Ragione sociale del cliente del documento"
|
|||
|
|
PROMPT 24 3 ""
|
|||
|
|
USE LF_CLIFO KEY 2
|
|||
|
|
INPUT TIPOCF "C"
|
|||
|
|
INPUT RAGSOC F_DESCF
|
|||
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|||
|
|
DISPLAY "Partita IVA@12" PAIV
|
|||
|
|
DISPLAY "Codice" CODCF
|
|||
|
|
COPY OUTPUT F_CODCF
|
|||
|
|
CHECKTYPE REQUIRED
|
|||
|
|
ADD RUN cg0 -1 C
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
LIST F_PROVV 1
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 140 101 ""
|
|||
|
|
ITEM "D|D"
|
|||
|
|
FIELD PROVV
|
|||
|
|
FLAGS "D"
|
|||
|
|
KEY 1
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
NUMBER F_ANNO 4
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 2 4 "Esercizio "
|
|||
|
|
USE ESC
|
|||
|
|
INPUT CODTAB F_ANNO
|
|||
|
|
DISPLAY "Codice" CODTAB
|
|||
|
|
DISPLAY "Descrizione@50" S0
|
|||
|
|
OUTPUT F_ANNO CODTAB
|
|||
|
|
FIELD ANNO
|
|||
|
|
CHECKTYPE REQUIRED
|
|||
|
|
FLAGS "A"
|
|||
|
|
KEY 1
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
NUMBER F_NDOC 6
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 24 4 "N. contr. premi "
|
|||
|
|
USE LF_DOC SELECT BETWEEN(CODCF,#F_CODCF,#F_CODCF)
|
|||
|
|
INPUT CODNUM F_CODNUM SELECT
|
|||
|
|
INPUT PROVV F_PROVV SELECT
|
|||
|
|
INPUT ANNO F_ANNO SELECT
|
|||
|
|
INPUT NDOC F_NDOC
|
|||
|
|
DISPLAY "Numero" NDOC
|
|||
|
|
DISPLAY "Data doc." DATADOC
|
|||
|
|
DISPLAY "Inizio validita" DATACOMP
|
|||
|
|
DISPLAY "Fine validita" DATAFCOMP
|
|||
|
|
DISPLAY "Tipo" TIPOCFFATT
|
|||
|
|
DISPLAY "Agente" CODAG
|
|||
|
|
OUPUT F_NDOC NDOC
|
|||
|
|
FIELD NDOC
|
|||
|
|
KEY 1
|
|||
|
|
CHECKTYPE REQUIRED
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
DATE F_DATADOC
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 50 4 "Data "
|
|||
|
|
FIELD DATADOC
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRING F_STATO 1
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 69 4 "Stato "
|
|||
|
|
FIELD STATO
|
|||
|
|
USE %STD KEY 1
|
|||
|
|
INPUT CODTAB F_STATO
|
|||
|
|
DISPLAY "Codice" CODTAB
|
|||
|
|
DISPLAY "Descrizione@50" S0
|
|||
|
|
OUTPUT F_STATO CODTAB
|
|||
|
|
CHECKTYPE NORMAL
|
|||
|
|
FLAGS "DG"
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRING F_CODCONTR 3
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 2 5 "Listino cliente "
|
|||
|
|
USE CONDV
|
|||
|
|
INPUT TIPO "C"
|
|||
|
|
INPUT TIPOCF F_TIPOCF SELECT
|
|||
|
|
INPUT CODCF F_CODCF SELECT
|
|||
|
|
INPUT COD F_CODCONTR
|
|||
|
|
DISPLAY "Codice" COD
|
|||
|
|
DISPLAY "Descrizione@50" DESCR
|
|||
|
|
DISPLAY "Inizio validita'" VALIN
|
|||
|
|
DISPLAY "Fine validit<69>" VALFIN
|
|||
|
|
OUTPUT F_CODCONTR COD
|
|||
|
|
OUTPUT F_DESCONTR DESCR
|
|||
|
|
FIELD CODCONT
|
|||
|
|
CHECKTYPE NORMAL
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRING F_DESCONTR 50
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 26 5 ""
|
|||
|
|
FLAGS "DG"
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRING F_CODLIS 3
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 2 6 "Listino standard "
|
|||
|
|
USE CONDV
|
|||
|
|
INPUT TIPO "L"
|
|||
|
|
INPUT COD F_CODLIS
|
|||
|
|
DISPLAY "Codice" COD
|
|||
|
|
DISPLAY "Descrizione@50" DESCR
|
|||
|
|
DISPLAY "Inizio validita'" VALIN
|
|||
|
|
DISPLAY "Fine validit<69>" VALFIN
|
|||
|
|
OUTPUT F_CODLIS COD
|
|||
|
|
OUTPUT F_DESLIS DESCR
|
|||
|
|
FIELD CODLIST
|
|||
|
|
CHECKTYPE NORMAL
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRING F_DESLIS 50
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 26 6 ""
|
|||
|
|
FLAGS "DG"
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRING F_CODAG 5
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 2 7 "Agente "
|
|||
|
|
FIELD CODAG
|
|||
|
|
USE LF_AGENTI
|
|||
|
|
INPUT CODAGE F_CODAG
|
|||
|
|
DISPLAY "Codice@8R" CODAGE
|
|||
|
|
DISPLAY "Descrizione@50" RAGSOC
|
|||
|
|
OUTPUT F_CODAG CODAGE
|
|||
|
|
OUTPUT F_DESCRAG RAGSOC
|
|||
|
|
CHECKTYPE NORMAL
|
|||
|
|
FLAGS "UZ"
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRING F_DESCRAG 50
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 24 7 ""
|
|||
|
|
USE LF_AGENTI KEY 2
|
|||
|
|
INPUT RAGSOC F_DESCRAG
|
|||
|
|
DISPLAY "Descrizione@50" RAGSOC
|
|||
|
|
DISPLAY "Codice@8R" CODAGE
|
|||
|
|
COPY OUTPUT F_CODAG
|
|||
|
|
CHECKTYPE NORMAL
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRING F_CODPAG 4
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 2 8 "Cond. pag. "
|
|||
|
|
FIELD CODPAG
|
|||
|
|
USE %CPG
|
|||
|
|
INPUT CODTAB F_CODPAG
|
|||
|
|
DISPLAY "Codice" CODTAB
|
|||
|
|
DISPLAY "Descrizione@50" S0
|
|||
|
|
OUTPUT F_CODPAG CODTAB
|
|||
|
|
OUTPUT F_DESCRPAG S0
|
|||
|
|
CHECKTYPE NORMAL
|
|||
|
|
FLAGS "U"
|
|||
|
|
HE "Inserisci il codice del tipo di pagamento"
|
|||
|
|
WA "Codice tipo pagamento non trovato"
|
|||
|
|
ADD RUN ba3 -6
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRING F_DESCRPAG 50
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 24 8 ""
|
|||
|
|
USE %CPG KEY 2
|
|||
|
|
INPUT S0 F_DESCRPAG
|
|||
|
|
DISPLAY "Descrizione@50" S0
|
|||
|
|
DISPLAY "Codice" CODTAB
|
|||
|
|
COPY OUTPUT F_CODPAG
|
|||
|
|
CHECKTYPE NORMAL
|
|||
|
|
HE "Inserisci il codice del tipo di pagamento"
|
|||
|
|
WA "Codice tipo pagamento non trovato"
|
|||
|
|
ADD RUN ba3 -6
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
DATE F_DATACOMP
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 2 9 "Inizio validita' "
|
|||
|
|
FIELD DATACOMP
|
|||
|
|
CHECKTYPE REQUIRED
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
DATE F_DATAFCOMP
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 35 9 "Fine validita' "
|
|||
|
|
FIELD DATAFCOMP
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
GROUPBOX DLG_NULL 76 3
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 2 10 "@bSomme anticipate/restituite"
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
CURRENCY F_ANTICIPATO
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 3 11 "Anticipato "
|
|||
|
|
GROUP 1
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
CURRENCY F_RESTITUITO
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 38 11 "Restituito "
|
|||
|
|
GROUP 1
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
SPREADSHEET F_RIGHE
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 2 13 ""
|
|||
|
|
ITEM "Codice Articolo@20"
|
|||
|
|
ITEM "Descrizione@40"
|
|||
|
|
ITEM "UM@2"
|
|||
|
|
ITEM "Prezzo listino"
|
|||
|
|
ITEM "Premio@10"
|
|||
|
|
ITEM "Ns. carico"
|
|||
|
|
ITEM "Bonus@10"
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
ENDPAGE
|
|||
|
|
|
|||
|
|
ENDMASK
|
|||
|
|
|
|||
|
|
/////////////////////////////////////////
|
|||
|
|
//maschera di riga
|
|||
|
|
TOOLBAR "topbar" 0 0 0 2
|
|||
|
|
|
|||
|
|
BUTTON DLG_OK 2 2
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 1 1 ""
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
BUTTON DLG_DELREC 2 2
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 2 1 ""
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
BUTTON DLG_CANCEL 2 2
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 3 1 ""
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
ENDPAGE
|
|||
|
|
|
|||
|
|
PAGE "Riga contratto premi Hardy" -1 -1 76 12
|
|||
|
|
|
|||
|
|
STRING S_CODART 20
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 1 1 "Articolo "
|
|||
|
|
USE LF_ANAMAG KEY 1
|
|||
|
|
INPUT CODART S_CODART
|
|||
|
|
DISPLAY "Codice@20" CODART
|
|||
|
|
DISPLAY "Descrizione@50" DESCR
|
|||
|
|
OUTPUT S_CODART CODART
|
|||
|
|
OUTPUT S_DESCR DESCR
|
|||
|
|
WARNING "Articolo assente"
|
|||
|
|
FLAGS "U"
|
|||
|
|
FIELD CODART
|
|||
|
|
ADD RUN ve2 -3
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRING S_DESCR 50
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 1 2 "Descrizione "
|
|||
|
|
USE 47 KEY 2
|
|||
|
|
INPUT DESCR S_DESCR
|
|||
|
|
DISPLAY "Descrizione@50" DESCR
|
|||
|
|
DISPLAY "Codice@20" CODART
|
|||
|
|
COPY OUTPUT S_CODART
|
|||
|
|
FIELD DESCR
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRING S_UMQTA 2
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 1 3 "U.M. "
|
|||
|
|
USE LF_UMART KEY 2
|
|||
|
|
JOIN %UMS INTO CODTAB=UM
|
|||
|
|
INPUT CODART S_CODART SELECT
|
|||
|
|
INPUT UM S_UMQTA
|
|||
|
|
DISPLAY "Codice@20" UM
|
|||
|
|
DISPLAY "Descrizione@50" %UMS->S0
|
|||
|
|
OUTPUT S_UMQTA UM
|
|||
|
|
FIELD UMQTA
|
|||
|
|
FLAGS "U"
|
|||
|
|
CHECKTYPE REQUIRED
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
GROUPBOX DLG_NULL 74 6
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 1 4 "@bValori"
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
CURRENCY S_PREZZO
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 2 5 "Prezzo listino "
|
|||
|
|
FLAGS "UDG"
|
|||
|
|
FIELD PREZZO
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
CURRENCY S_PREMIO
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 2 6 "Premio "
|
|||
|
|
FLAGS "U"
|
|||
|
|
FIELD QTAGG1
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
CURRENCY S_RICARICO
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 2 7 "A Ns. carico "
|
|||
|
|
FLAGS "U"
|
|||
|
|
FIELD QTAGG2
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
CURRENCY S_MATURATO
|
|||
|
|
BEGIN
|
|||
|
|
PROMPT 2 8 "Bonus maturato "
|
|||
|
|
FLAGS "DU"
|
|||
|
|
FIELD QTAGG5
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
ENDPAGE
|
|||
|
|
|
|||
|
|
ENDMASK
|