71bc283eb7
cg2100a.uml Tolta data si competenza cg2100b.uml Tolto required dalla data di competenza cg2100c.uml Tolto required dalla data di competenza cg2102.cpp Corretto handler della data di competenza cg2102.h Aggiunti metodi per l'Eritreo cg2104.cpp Adattato pag_notify per gestire meglio l'Etiope git-svn-id: svn://10.65.10.50/trunk@4241 c028cbd2-c16b-5b4b-a496-9718f37d4682
119 lines
1.9 KiB
Plaintext
Executable File
119 lines
1.9 KiB
Plaintext
Executable File
#include "cg2100.h"
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
#include <toolbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Ricerca" -1 -1 77 8
|
|
|
|
GROUPBOX DLG_NULL 78 3
|
|
BEGIN
|
|
PROMPT 1 1 "@bDitta"
|
|
END
|
|
|
|
NUMBER F_CODDITTA 5
|
|
BEGIN
|
|
PROMPT 3 2 "Codice "
|
|
FLAGS "FRD"
|
|
USE LF_NDITTE
|
|
CHECKTYPE NORMAL
|
|
INPUT CODDITTA F_CODDITTA
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 17 2 "Ragione "
|
|
FLAGS "D"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 8
|
|
BEGIN
|
|
PROMPT 1 5 "@bMovimento di prima nota"
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER F_NUMREG 6
|
|
BEGIN
|
|
PROMPT 3 6 "Numero operazione "
|
|
HELP "Numero del movimento di prima nota da gestire"
|
|
FLAGS "R"
|
|
FIELD LF_MOV->NUMREG
|
|
USE LF_MOV
|
|
INPUT NUMREG F_NUMREG
|
|
DISPLAY "Numero@6" NUMREG
|
|
DISPLAY "Data@10" DATAREG
|
|
DISPLAY "Causale" CODCAUS
|
|
DISPLAY "Documento" NUMDOC
|
|
DISPLAY "Protoc." PROTIVA
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_NUMREG NUMREG
|
|
KEY 1
|
|
END
|
|
|
|
DATE F_DATAREG
|
|
BEGIN
|
|
PROMPT 3 8 "Data operazione "
|
|
CHECKTYPE REQUIRED
|
|
HELP "Data in cui viene registrata l'operazione"
|
|
MESSAGE COPY,F_ANNOIVA,7,10
|
|
END
|
|
|
|
NUMBER F_ANNOIVA 4
|
|
BEGIN
|
|
PROMPT 52 8 "Anno IVA "
|
|
FLAGS "D"
|
|
END
|
|
|
|
|
|
/* DATACOMP new way
|
|
DATE F_DATACOMP
|
|
BEGIN
|
|
PROMPT 3 9 "Data di competenza "
|
|
HELP "Data di competenza dell'operazione"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
NUMBER F_ANNOES 4
|
|
BEGIN
|
|
PROMPT 52 9 "Codice esercizio "
|
|
FLAGS "DRZ"
|
|
END
|
|
*/
|
|
|
|
STRING F_CODCAUS 3
|
|
BEGIN
|
|
PROMPT 3 11 "Causale "
|
|
FLAGS "UZ"
|
|
FIELD CODCAUS
|
|
USE LF_CAUSALI
|
|
INPUT CODCAUS F_CODCAUS
|
|
DISPLAY "Codice" CODCAUS
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Tipo" TIPODOC
|
|
DISPLAY "Registro" REG
|
|
OUTPUT F_CODCAUS CODCAUS
|
|
OUTPUT F_DESCRCAUS DESCR
|
|
ADD RUN cg0 -4
|
|
CHECKTYPE NORMAL
|
|
WARNING "Causale assente"
|
|
END
|
|
|
|
STRING F_DESCRCAUS 50
|
|
BEGIN
|
|
PROMPT 23 11 ""
|
|
USE LF_CAUSALI KEY 2
|
|
CHECKTYPE NORMAL
|
|
INPUT DESCR F_DESCRCAUS
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Codice" CODCAUS
|
|
DISPLAY "Tipo" TIPODOC
|
|
DISPLAY "Registro" REG
|
|
COPY OUTPUT F_CODCAUS
|
|
ADD RUN cg0 -4
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|