2b49469581
Files correlati : Ricompilazione Demo : [ ] Commento : riporto hardy da 11 git-svn-id: svn://10.65.10.50/branches/R_10_00@20919 c028cbd2-c16b-5b4b-a496-9718f37d4682
168 lines
2.2 KiB
Plaintext
Executable File
168 lines
2.2 KiB
Plaintext
Executable File
#include "ha0400a.h"
|
|
|
|
TOOLBAR "" 0 0 0 2
|
|
|
|
BUTTON DLG_CHECKALL 2 2
|
|
BEGIN
|
|
PROMPT 1 1 "~Tutti"
|
|
PICTURE TOOL_MULTISEL
|
|
END
|
|
|
|
#include <elabar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Contratti premio pareggiati" -1 -1 78 23
|
|
|
|
LIST F_TIPOCF 9
|
|
BEGIN
|
|
PROMPT 130 101 ""
|
|
FIELD TIPOCF
|
|
IT "C|Cliente"
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_CODCF 6
|
|
BEGIN
|
|
PROMPT 1 1 "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_RAGSOC RAGSOC
|
|
CHECKTYPE NORMAL
|
|
ADD RUN cg0 -1 C
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
WARNING "Cliente assente"
|
|
HELP "Ragione sociale del cliente del documento"
|
|
PROMPT 20 1 ""
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "C"
|
|
INPUT RAGSOC F_RAGSOC
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Partita IVA@12" PAIV
|
|
DISPLAY "Codice" CODCF
|
|
COPY OUTPUT F_CODCF
|
|
CHECKTYPE NORMAL
|
|
ADD RUN cg0 -1 C
|
|
END
|
|
|
|
LIST F_TIPO 1 14
|
|
BEGIN
|
|
PROMPT 1 2 "Tipo "
|
|
ITEM " |Selezionare"
|
|
ITEM "A|Anticipo"
|
|
ITEM "R|Rifatturazione"
|
|
ITEM "T|Tutti"
|
|
END
|
|
|
|
SPREADSHEET F_RIGHE
|
|
BEGIN
|
|
PROMPT 1 4 ""
|
|
ITEM "@1"
|
|
ITEM "Cliente"
|
|
ITEM "Ragione sociale@40"
|
|
ITEM "Anno"
|
|
ITEM "Num."
|
|
ITEM "N.Contr."
|
|
ITEM "Tipo"
|
|
ITEM "Importo@12"
|
|
ITEM "Cod.Pag."
|
|
ITEM "Agente"
|
|
FLAGS "H"
|
|
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" -1 -1 76 12
|
|
|
|
BOOLEAN S_CHECK
|
|
BEGIN
|
|
PROMPT 1 1 "Elabora "
|
|
END
|
|
|
|
NUMBER S_CODCF 6
|
|
BEGIN
|
|
PROMPT 1 2 "Cliente "
|
|
END
|
|
|
|
STRING S_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 20 2 ""
|
|
END
|
|
|
|
NUMBER S_ANNO 4
|
|
BEGIN
|
|
PROMPT 1 3 "Anno "
|
|
END
|
|
|
|
STRING S_CODNUM 4
|
|
BEGIN
|
|
PROMPT 1 4 "Num. "
|
|
END
|
|
|
|
NUMBER S_NDOC 7
|
|
BEGIN
|
|
PROMPT 1 4 "N. doc. "
|
|
END
|
|
|
|
LIST S_TIPO 18
|
|
BEGIN
|
|
PROMPT 1 5 "Tipo "
|
|
ITEM "A|Anticipo"
|
|
ITEM "R|Rifatturazione"
|
|
END
|
|
|
|
CURRENCY S_IMPORTO
|
|
BEGIN
|
|
PROMPT 1 6 "Importo "
|
|
FLAGS "U"
|
|
END
|
|
|
|
STRING S_CONDPAG 4
|
|
BEGIN
|
|
PROMPT 1 7 "Pagam. "
|
|
END
|
|
|
|
STRING S_CODAG 5
|
|
BEGIN
|
|
PROMPT 1 8 "Agente "
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|
|
|