d327a5c85f
Files correlati : Commento : Aggiornati programmi personalizzati per poterli compilare. Manca ps0883 git-svn-id: svn://10.65.10.50/branches/R_10_00@23224 c028cbd2-c16b-5b4b-a496-9718f37d4682
159 lines
2.3 KiB
Plaintext
Executable File
159 lines
2.3 KiB
Plaintext
Executable File
#include "pt0003100a.h"
|
|
|
|
TOOLBAR "Toolbar" 0 0 0 2
|
|
|
|
BUTTON DLG_SAVEREC 2 2
|
|
BEGIN
|
|
PROMPT 1 1 "~Registra"
|
|
PICTURE TOOL_SAVEREC
|
|
MESSAGE EXIT,K_ENTER
|
|
END
|
|
|
|
#include <helpbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Incasso fatture" 0 2 0 0
|
|
|
|
GROUPBOX -1 78 5
|
|
BEGIN
|
|
PROMPT 2 1 "Selezione Documenti"
|
|
FLAGS ""
|
|
END
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
PROMPT 4 2 "Anno "
|
|
FIELD S_ANNO
|
|
KEY 1
|
|
USE ESC
|
|
CHECKTYPE NORMAL
|
|
INPUT CODTAB F_ANNO
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Data inizio esercizio" D0
|
|
DISPLAY "Data fine esercizio" D1
|
|
OUTPUT F_ANNO CODTAB
|
|
FLAGS "RZ"
|
|
END
|
|
|
|
STRING F_NUM 4
|
|
BEGIN
|
|
PROMPT 21 2 "Num. "
|
|
FIELDS S_NUM
|
|
HELP "Codice numerazione"
|
|
USE %NUM
|
|
INPUT CODTAB F_NUM
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_NUM CODTAB
|
|
CHECKTYPE REQUIRED
|
|
FLAG "UPA"
|
|
WARNING "Numerazione assente"
|
|
END
|
|
|
|
STRING F_CODCLI 6
|
|
BEGIN
|
|
PROMPT 4 3 "Cliente "
|
|
WARNING "Cliente assente"
|
|
FLAGS "R"
|
|
FIELD CODCLI
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF "C"
|
|
INPUT CODCF F_CODCLI
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
OUTPUT F_CODCLI CODCF
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
WARNING "Cliente assente"
|
|
PROMPT 26 3 ""
|
|
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
|
|
OUTPUT F_CODCLI CODCF
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
CURRENCY F_TOTPAGATO
|
|
BEGIN
|
|
PROMPT 4 4 "Pagato "
|
|
END
|
|
|
|
SPREADSHEET F_SHEET
|
|
BEGIN
|
|
PROMPT 0 6 ""
|
|
ITEM "Pagato@18"
|
|
ITEM "Da pagare@18"
|
|
ITEM "Totale doc.@18"
|
|
ITEM "N.ro Fattura"
|
|
ITEM "Data@10"
|
|
END
|
|
|
|
STRING DLG_PROFILE 70 50
|
|
BEGIN
|
|
PROMPT 8 -1 "Profilo "
|
|
PSELECT
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
PAGE "Rate" -1 -1 60 14
|
|
|
|
CURRENCY F_PAGATO
|
|
BEGIN
|
|
PROMPT 4 1 "Pagato "
|
|
END
|
|
|
|
CURRENCY F_DAPAGARE
|
|
BEGIN
|
|
PROMPT 4 3 "Da Pagare "
|
|
FLAGS "D"
|
|
END
|
|
|
|
CURRENCY F_TOTDOC
|
|
BEGIN
|
|
PROMPT 4 5 "Totale fattura "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_NDOC 6
|
|
BEGIN
|
|
PROMPT 4 7 "Numero fattura "
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE F_DATADOC
|
|
BEGIN
|
|
PROMPT 4 9 "Data fattura "
|
|
FLAGS "D"
|
|
END
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
BUTTON F_PAGA 10 2
|
|
BEGIN
|
|
PROMPT -33 -1 "~Paga"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|