campo-sirio/ca/ca3800.uml
luca 4353afaf10 Patch level :10.0 / 4.0 900
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :aggiunta ricerca sul CDC quando richiesto bilancio dettagliato per CDC


git-svn-id: svn://10.65.10.50/trunk@16266 c028cbd2-c16b-5b4b-a496-9718f37d4682
2008-03-06 12:21:32 +00:00

146 lines
2.3 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 8
BEGIN
PROMPT 0 6 "@bParametri"
END
LISTBOX F_TIPOSTAMPA 1 30
BEGIN
PROMPT 1 7 "Stampa"
ITEM "0|Normale"
MESSAGE CLEAR,F_FASE|CLEAR,F_CDC
ITEM "1|Dettaglia per Fase"
MESSAGE ENABLE,F_FASE|CLEAR,F_CDC
ITEM "2|Dettaglia per CdC"
MESSAGE CLEAR,F_FASE|ENABLE,F_CDC
ITEM "3|Dettaglia per Fase e CdC"
MESSAGE ENABLE,F_FASE|ENABLE,F_CDC
ITEM "4|Riassuntiva per Fase"
MESSAGE CLEAR,F_FASE|CLEAR,F_CDC
ITEM "8|Riassuntiva per CdC"
MESSAGE CLEAR,F_FASE|CLEAR,F_CDC
END
STRING F_FASE 10
BEGIN
PROMPT 2 8 "Fase "
END
STRING F_CDC 20
BEGIN
PROMPT 2 9 "CdC "
USE LF_CDC
INPUT CODCOSTO F_CDC
DISPLAY "Codice centro di costo" CODCOSTO
DISPLAY "Descrizione@50" DESCRIZ
OUTPUT F_CDC CODCOSTO
END
RADIOBUTTON F_TIPOSTIMA 1 35
BEGIN
PROMPT 41 7 "Tipo di stima"
ITEM "T|Tempo"
ITEM "C|Costi consuntivi\Ricavi preventivi"
ITEM "R|Costi consuntivi\Ricavi consuntivi"
END
BOOLEAN F_VITAINTERA
BEGIN
PROMPT 41 12 "Includere esercizi successivi (vita intera)"
END
GROUPBOX F_PRE0 76 5
BEGIN
PROMPT 0 14 "@bPrefisso del piano dei conti analitico:"
GROUP 6
END
LISTBOX F_DEPTH 1 20
BEGIN
PROMPT 1 19 "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