campo-sirio/cg/cg2100a.uml

#include "cg2100.h"

TOOLBAR "" 0 -2 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 "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

DATE F_DATAREG
BEGIN
  PROMPT 3 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 52 6 "Anno IVA          "
  FLAGS "D"
END

STRING F_CODCAUS 3
BEGIN
  PROMPT 3 8 "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 8 ""
  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
                          
NUMBER F_NUMREG 7
BEGIN
  PROMPT 3 10 "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

/* 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
*/

ENDPAGE

ENDMASK