campo-sirio/ce/ce2400a.uml
alex c8d2a302e3 Patch level : 02.0.369
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
Riportata la versione AGA 1.7 patch 349


git-svn-id: svn://10.65.10.50/trunk@10708 c028cbd2-c16b-5b4b-a496-9718f37d4682
2002-12-20 16:15:03 +00:00

157 lines
2.2 KiB
Plaintext
Executable File

#include "ce2400a.h"
TOOLBAR "Toolbar" 0 -3 0 3
BUTTON DLG_ELABORA 10 2
BEGIN
PROMPT -12 -11 "~Elabora"
MESSAGE EXIT,K_ENTER
PICTURE BMP_ELABORA
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -11 ""
END
ENDPAGE
PAGE "Trasferimento movimenti" -1 -1 78 18
GROUPBOX DLG_NULL 78 5
BEGIN
PROMPT 0 1 "@bParametri ditta"
END
NUMBER F_DITTA 5
BEGIN
PROMPT 1 2 "Ditta "
FLAGS "DF"
END
STRING F_RAGSOC 50
BEGIN
PROMPT 26 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 "Z"
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
OUTPUT F_DATATRA D0
CHECKTYPE REQUIRED
END
DATE F_INIZIO_ES
BEGIN
PROMPT 26 3 "Inizio "
FLAGS "D"
END
DATE F_FINE_ES
BEGIN
PROMPT 50 3 "Fine "
FLAGS "D"
END
DATE F_DATATRA
BEGIN
PROMPT 1 4 "Data ultimo trasferimento movimenti "
FLAGS "DG"
MESSAGE EMPTY ENABLE,DLG_ELABORA
MESSAGE DISABLE,DLG_ELABORA
END
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 0 7 "@bDate da assegnare ai movimenti"
END
DATE F_DATAREG
BEGIN
PROMPT 1 8 "Data di registrazione "
FLAGS "A"
END
DATE F_DATACOM
BEGIN
PROMPT 41 8 "Data di competenza "
FLAGS "A"
END
BOOLEAN F_CALC
BEGIN
PROMPT 1 13 "Esegui calcolo ammortamenti prima di trasferire i movimenti"
END
TEXT DLG_NULL
BEGIN
PROMPT 1 14 "@bData esecuzione ultimo calcolo ammortamenti"
END
SPREADSHEET F_DATE_CALC 78
BEGIN
PROMPT 1 15 ""
FLAGS "D"
ITEM "Data calcolo"
ITEM "Gruppo"
ITEM "Specie"
ITEM "Descrizione@70"
END
ENDPAGE
ENDMASK
PAGE "Attività" -1 -1 60 5
DATE F_DATA_CALC
BEGIN
PROMPT 1 1 "Data esecuzione ultimo calcolo ammortamenti "
END
NUMBER F_GRUPPO 2
BEGIN
PROMPT 1 2 "Gruppo "
FLAGS "PZ"
END
STRING F_SPECIE 4
BEGIN
PROMPT 16 2 "Specie "
FLAGS "_"
END
STRING F_DESC_GRSP 70 54
BEGIN
PROMPT 1 3 ""
FLAGS ""
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK