a883dc595a
Files correlati : Ricompilazione Demo : [ ] Commento :aggiunti i files di CA3800 "stampa bilancio di commessa"; adesso il programma fa apparire la maschera e niente piu' git-svn-id: svn://10.65.10.50/trunk@14126 c028cbd2-c16b-5b4b-a496-9718f37d4682
93 lines
1.2 KiB
Plaintext
Executable File
93 lines
1.2 KiB
Plaintext
Executable File
#include "ca3800.h"
|
|
|
|
TOOLBAR "" 0 -3 0 2
|
|
|
|
BUTTON DLG_PRINT 10 2
|
|
BEGIN
|
|
PROMPT -12 -1 "~Stampa"
|
|
MESSAGE EXIT,K_ENTER
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Stampa bilancio commessa" -1 -1 0 -3
|
|
|
|
GROUPBOX DLG_NULL 74 4
|
|
BEGIN
|
|
PROMPT 0 1 ""
|
|
END
|
|
|
|
NUMBER F_DITTA 5
|
|
BEGIN
|
|
PROMPT 1 2 "Ditta "
|
|
FLAGS "DF"
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 20 2 ""
|
|
USE LF_NDITTE
|
|
INPUT CODDITTA F_DITTA
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
CHECKTYPE NORMAL
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_ESERCIZIO 4
|
|
BEGIN
|
|
PROMPT 1 3 "Esercizio "
|
|
FLAGS "AZ"
|
|
USE CCE
|
|
JOIN ESC ALIAS 104 INTO CODTAB==CODTAB
|
|
INPUT CODTAB F_ESERCIZIO
|
|
DISPLAY "Codice esercizio" CODTAB
|
|
DISPLAY "Inizio esercizio" 104@->D0
|
|
DISPLAY "Fine esercizio" 104@->D1
|
|
OUTPUT F_ESERCIZIO CODTAB
|
|
OUTPUT F_INIZIO_ES 104@->D0
|
|
OUTPUT F_FINE_ES 104@->D1
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
DATE F_INIZIO_ES
|
|
BEGIN
|
|
PROMPT 20 3 "Inizio "
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE F_FINE_ES
|
|
BEGIN
|
|
PROMPT 44 3 "Fine "
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE F_DATASTAMPA
|
|
BEGIN
|
|
PROMPT 2 5 "Data stampa "
|
|
FLAGS "A"
|
|
END
|
|
|
|
RADIOBUTTON F_TIPOSTAMPA 22
|
|
BEGIN
|
|
PROMPT 2 7 "Tipo di stima"
|
|
FLAGS "Z"
|
|
ITEM "X|Tempo"
|
|
ITEM " |Costi"
|
|
END
|
|
|
|
STRING F_REPORT 256 64
|
|
BEGIN
|
|
PROMPT 1 20 "Report "
|
|
FLAGS "B"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|