16258dc547
Files correlati : Ricompilazione Demo : [ ] Commento : Riportata la versione 10.05 patch 502 git-svn-id: svn://10.65.10.50/trunk@8388 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 19 0 3
|
|
#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 "FD"
|
|
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 7
|
|
BEGIN
|
|
PROMPT 1 5 "@bMovimento di prima nota"
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER F_NUMREG 7
|
|
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@7" 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 10 "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 10 ""
|
|
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
|