campo-sirio/ca/ca3800.uml
luca fc694bc745 Patch level :4.0 740
Files correlati     :ca3 & co.
Ricompilazione Demo : [ ]
Commento            :stampa bilancio di commessa con prima implementazione richieste adolfiche!


git-svn-id: svn://10.65.10.50/trunk@15467 c028cbd2-c16b-5b4b-a496-9718f37d4682
2007-07-02 14:41:30 +00:00

126 lines
1.8 KiB
Plaintext
Executable File

#include "ca3883a.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 76 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 ESC
INPUT CODTAB F_ESERCIZIO
DISPLAY "Codice esercizio" CODTAB
DISPLAY "Inizio esercizio" D0
DISPLAY "Fine esercizio" D1
OUTPUT F_ESERCIZIO CODTAB
OUTPUT F_INIZIO_ES D0
OUTPUT F_FINE_ES 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
GROUPBOX DLG_NULL 76 6
BEGIN
PROMPT 0 6 "@bParametri"
END
BOOLEAN F_VITAINTERA
BEGIN
PROMPT 2 7 "Includere esercizi successivi (vita intera)"
END
RADIOBUTTON F_TIPOSTIMA 1 35
BEGIN
PROMPT 35 7 "Tipo di stima"
ITEM "T|Tempo"
ITEM "C|Costi consuntivi\Ricavi preventivi"
ITEM "R|Costi consuntivi\Ricavi consuntivi"
END
BOOLEAN F_FASI
BEGIN
PROMPT 2 8 "Esplodere Fasi"
MESSAGE FALSE CLEAR,F_FASE
MESSAGE TRUE ENABLE,F_FASE
END
STRING F_FASE 10
BEGIN
PROMPT 2 9 "Fase "
END
GROUPBOX F_PRE0 76 5
BEGIN
PROMPT 0 12 "@bPrefisso del piano dei conti analitico:"
GROUP 6
END
LISTBOX F_DEPTH 1 20
BEGIN
PROMPT 1 18 "Profondita' del piano dei conti da considerare "
ITEM "1|Gruppo"
ITEM "2|Conto"
END
STRING F_REPORT 256 64
BEGIN
PROMPT 1 20 "Report "
FLAGS "B"
END
ENDPAGE
ENDMASK