campo-sirio/cg/cg2100i.uml

#include "cg2100.h"

PAGE "Movimento di incasso immediato" -1 -1 78 12

NUMBER F_NUMREG 6
BEGIN
  PROMPT 1 1 "Operazione n.  "
  FIELD LF_MOV->NUMREG
  CHECKTYPE REQUIRED
  FLAGS "D"
  KEY 1
END

DATE F_DATAREG
BEGIN
  PROMPT 43 1 "Data di registrazione "
  FIELD LF_MOV->DATAREG
  CHECKTYPE REQUIRED
END

NUMBER F_NUMDOC 6
BEGIN
  PROMPT 1 2 "Documento n.   "
  FIELD LF_MOV->NUMDOC
END

DATE F_DATACOMP
BEGIN
  PROMPT 43 2 "Data di competenza    "
  FIELD LF_MOV->DATACOMP
  CHECKTYPE REQUIRED
END

NUMBER F_ANNOES 4
BEGIN
  PROMPT 1 3 "Esercizio      "
  FIELD LF_MOV->ANNOES
  FLAGS "D"
END

STRING F_TIPODOC 2
BEGIN
  PROMPT 24 3 "Tipo documento "
  FIELD LF_MOV->TIPODOC
  FLAGS "D"
END

DATE F_DATADOC
BEGIN
  PROMPT 43 3 "Data del documento    "
  FIELD LF_MOV->DATADOC
  CHECKTYPE REQUIRED
  WARNING "Specificare la data del documento"
END

STRING F_DESCR 50 50
BEGIN
  PROMPT 1 4 "Descrizione documento   "
  FIELD LF_MOV->DESCR
END

STRING F_CODCAUS 3
BEGIN
  PROMPT 1 5 "Causale        "
  FIELD LF_MOV->CODCAUS
  USE LF_CAUSALI
  INPUT CODCAUS F_CODCAUS
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Tipo" TIPODOC
  OUTPUT F_CODCAUS CODCAUS
  OUTPUT F_DESCRCAUS DESCR
  OUTPUT F_TIPODOC TIPODOC
  FLAGS "D"
END

STRING F_DESCRCAUS 50
BEGIN
  PROMPT 25 5 ""
  FLAGS "D"
END

LIST F_CLIFO 1
BEGIN
  PROMPT 0 7 ""
  ITEM "C|Cliente" MESSAGE HIDE,2@|SHOW,1@
  ITEM "F|Fornitore" MESSAGE HIDE,1@|SHOW,2@
  FIELD LF_MOV->TIPO
  FLAGS "GH"
END

NUMBER F_CLIENTE 5
BEGIN
  PROMPT 1 7 "Cliente        "
  FIELD LF_MOV->CODCF
  GROUP 1
  USE LF_CLIFO KEY 1
  INPUT TIPOCF "C"
  INPUT CODCF F_CLIENTE
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale Cliente@50" RAGSOC
  OUTPUT F_CLIFO TIPOCF
  OUTPUT F_CLIENTE CODCF
  OUTPUT F_RAGSOCCLIENTE RAGSOC
  OUTPUT F_GRUPPOCLIFO GRUPPO
  OUTPUT F_CONTOCLIFO CONTO
  MESSAGE COPY,F_FORNITORE
  CHECKTYPE REQUIRED
  ADD RUN cg0 -1
END

NUMBER F_FORNITORE 5
BEGIN
  PROMPT 1 7 "Fornitore      "
  FIELD LF_MOV->CODCF
  GROUP 2
  USE LF_CLIFO KEY 1
  INPUT TIPOCF "F"
  INPUT CODCF F_FORNITORE
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale Fornitore@50" RAGSOC
  OUTPUT F_CLIFO TIPOCF
  OUTPUT F_FORNITORE CODCF
  OUTPUT F_RAGSOCFORNITORE RAGSOC
  OUTPUT F_GRUPPOCLIFO GRUPPO
  OUTPUT F_CONTOCLIFO CONTO
  MESSAGE COPY,F_CLIENTE
  CHECKTYPE REQUIRED
  ADD RUN cg0 -1
END

STRING F_RAGSOCFORNITORE 50
BEGIN
  PROMPT 25 7 ""
  GROUP 2
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "F"
  INPUT RAGSOC F_RAGSOCFORNITORE
  COPY DISPLAY F_FORNITORE
  COPY OUTPUT F_FORNITORE
END

STRING F_RAGSOCCLIENTE 50
BEGIN
  PROMPT 25 7 ""
  GROUP 1
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC F_RAGSOCCLIENTE
  COPY DISPLAY F_CLIENTE
  COPY OUTPUT F_CLIENTE
  ADD RUN cg0 -1
END

NUMBER F_GRUPPOCLIFO 3
BEGIN
  PROMPT 1 8 "Gruppo "
END

NUMBER F_CONTOCLIFO 3
BEGIN
  PROMPT 16 8 "Conto "
END

NUMBER F_TOTALE 15
BEGIN
  PROMPT 1 9 "Totale documento "
  FIELD LF_MOV->TOTDOC
  PICTURE "."
  CHECKTYPE REQUIRED
END

BUTTON DLG_SAVEREC 9 2
BEGIN
  PROMPT -12 -1 "~Registra"
  MESSAGE EXIT,K_SAVE
END

BUTTON DLG_CANCEL 9 2
BEGIN
  PROMPT -22 -1 ""
END

ENDPAGE

ENDMASK