campo-sirio/cg/cg2100a.uml

#include "cg2100.h"

TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE

PAGE "OPERAZIONE DI PRIMA NOTA" -1 -1 77 8

GROUPBOX DLG_NULL 78 3
BEGIN
	PROMPT 1 0 ""
END

NUMBER F_CODDITTA 5
BEGIN
	PROMPT 3 1 "Ditta  "
	FLAGS "FRD"
	USE LF_NDITTE KEY 1
	CHECKTYPE NORMAL
	INPUT CODDITTA F_CODDITTA
	OUTPUT F_RAGSOC RAGSOC
END

STRING F_RAGSOC 50
BEGIN
	PROMPT 17 1 "Ragione "
	FLAGS "D"
END

NUMBER F_NUMREG 6
BEGIN
	PROMPT 1 4 "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 1 6 "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 51 6 "Anno IVA          "
	FLAGS "D"
END

DATE F_DATACOMP
BEGIN
	PROMPT 1 7 "Data di competenza  "
	HELP "Data di competenza dell'operazione"
	CHECKTYPE REQUIRED
END

NUMBER F_ANNOES 4
BEGIN
	PROMPT 51 7 "Anno di esercizio "
	FLAGS "DRZ"
END

STRING F_CODCAUS 3
BEGIN
	PROMPT 1 9 "Causale      "
	FLAGS "UZ"
	FIELD CODCAUS
	USE LF_CAUSALI KEY 1
	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 21 9 ""
	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