campo-sirio/ca/ca2200a.uml
guy 065ce112d4 Patch level : 2.2
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :

Implementata richiesta
0000450

Implementare un meccanismo per avere movimenti che in automatico portino a 0
il totale documento con centri di costo, commesee, fasi predefinite


git-svn-id: svn://10.65.10.50/trunk@13403 c028cbd2-c16b-5b4b-a496-9718f37d4682
2005-10-10 11:26:19 +00:00

190 lines
2.3 KiB
Plaintext
Executable File

#include "ca2200a.h"
#include "camask.h"
TOOLBAR "" 0 -3 0 3
BUTTON DLG_OK 10 2
BEGIN
PROMPT -13 -11 "~Elabora"
PICTURE BMP_ELABORA
END
BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -23 -11 ""
PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -33 -11 ""
END
ENDPAGE
PAGE "Ribaltamento movimenti" 0 0 64 12
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 1 1 "@bParametri di elaborazione"
END
DATA F_DATAINI
BEGIN
PROMPT 2 2 "Dalla data "
CHECKTYPE REQUIRED
END
DATA F_DATAFIN
BEGIN
PROMPT 2 3 "Alla data "
CHECKTYPE REQUIRED
END
BOOLEAN F_DEFINITIVO
BEGIN
PROMPT 42 2 "Blocca movimenti elaborati"
END
SPREADSHEET F_RIGHE
BEGIN
PROMPT 0 5 ""
ITEM "Cms 1"
ITEM "Cms 2"
ITEM "Cms 3"
ITEM "Cms 4"
ITEM "Cms 5"
ITEM "Cms 6"
ITEM "Cms 7"
ITEM "Cms 8"
ITEM "Cms 9"
ITEM "Cms 10"
ITEM "Cms 11"
ITEM "Cms 12"
ITEM "Causale "
ITEM "Descrizione@50"
END
ENDPAGE
ENDMASK
PAGE "Riga Commesse" -1 -1 78 15
STRING F_CODCAUS 3
BEGIN
PROMPT 1 1 "Causale "
USE LF_CAUSALI SELECT MOVIND!=""
CHECKTYPE REQUIRED
INPUT CODCAUS F_CODCAUS
DISPLAY "Codice" CODCAUS
DISPLAY "Descrizione@50" DESCR
OUTPUT F_CODCAUS CODCAUS
OUTPUT F_DESCAUS DESCR
ADD RUN cg0 -4
FLAGS "U"
END
STRING F_DESCAUS 50
BEGIN
PROMPT 17 1 ""
USE LF_CAUSALI KEY 2 SELECT MOVIND!=""
INPUT DESCR F_DESCAUS
DISPLAY "Descrizione@50" DESCR
DISPLAY "Codice" CODCAUS
COPY OUTPUT F_CODCAUS
ADD RUN cg0 -4
END
STRING S_CDC1 20
BEGIN
PROMPT 1 2 "Cms1 "
FLAGS "B"
END
STRING S_CDC2 20
BEGIN
PROMPT 1 3 "Cms2 "
FLAGS "B"
END
STRING S_CDC3 20
BEGIN
PROMPT 1 4 "Cms3 "
FLAGS "B"
END
STRING S_CDC4 20
BEGIN
PROMPT 1 5 "Cms4 "
FLAGS "B"
END
STRING S_CDC5 20
BEGIN
PROMPT 1 6 "Cms5 "
FLAGS "B"
END
STRING S_CDC6 20
BEGIN
PROMPT 1 7 "Cms6 "
FLAGS "B"
END
STRING S_CDC7 20
BEGIN
PROMPT 1 8 "Cms7 "
FLAGS "B"
END
STRING S_CDC8 20
BEGIN
PROMPT 1 9 "Cms8 "
FLAGS "B"
END
STRING S_CDC9 20
BEGIN
PROMPT 1 10 "Cms9 "
FLAGS "B"
END
STRING S_CDC10 20
BEGIN
PROMPT 1 11 "Cms10 "
FLAGS "B"
END
STRING S_CDC11 20
BEGIN
PROMPT 1 12 "Cms11 "
FLAGS "B"
END
STRING S_CDC12 20
BEGIN
PROMPT 1 13 "Cms12 "
FLAGS "B"
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -13 -1 ""
END
BUTTON DLG_DELREC 10 2
BEGIN
PROMPT -23 -1 ""
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -33 -1 ""
END
ENDPAGE
ENDMASK