bdd0b0e608
Esporatzione CBA per Cigno Generazione rimanenze finali per Cigno git-svn-id: svn://10.65.10.50/branches/R_10_00@22796 c028cbd2-c16b-5b4b-a496-9718f37d4682
50 lines
931 B
Plaintext
50 lines
931 B
Plaintext
#include "ps0430500a.h"
|
|
|
|
PAGE "Generazione rimanenze finali" -1 -1 63 5
|
|
|
|
DATE F_DATAREG
|
|
BEGIN
|
|
PROMPT 1 1 "Data "
|
|
FLAGS "A"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_CODCAUS 3
|
|
BEGIN
|
|
PROMPT 1 2 "Causale "
|
|
USE LF_CAUSALI SELECT (REG="")&&(TIPOMOV="")&&(MOVAP="")&&(MOVIND!="")
|
|
INPUT CODCAUS F_CODCAUS
|
|
DISPLAY "Codice" CODCAUS
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_CODCAUS CODCAUS
|
|
OUTPUT F_DESCAUS DESCR
|
|
ADD RUN cg0 -4
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_DESCAUS 50
|
|
BEGIN
|
|
PROMPT 9 3 ""
|
|
USE LF_CAUSALI KEY 2 SELECT (REG="")&&(TIPOMOV="")&&(MOVAP="")&&(MOVIND!="")
|
|
INPUT CODCAUS F_CODCAUS
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Codice" CODCAUS
|
|
COPY OUTPUT F_CODCAUS
|
|
ADD RUN cg0 -4
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING DLG_PROFILE 256 50
|
|
BEGIN
|
|
PROMPT 1 4 "Profilo "
|
|
PSELECT
|
|
FLAGS "H"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
TOOLBAR "" 0 0 0 2
|
|
#include <elabar.h>
|
|
ENDPAGE
|
|
|
|
ENDMASK |