campo-sirio/cg/cg2100a.uml
guy 80e5795a0b cg2100a.uml Aggiunte cornicette alla triste prima maschera di prima nota
cg2102.cpp     Adattato iva_notify al nuovo comportamento del K_INS


git-svn-id: svn://10.65.10.50/trunk@4016 c028cbd2-c16b-5b4b-a496-9718f37d4682
1996-12-18 08:55:28 +00:00

116 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
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