campo-sirio/cg/cg2100i.uml

#include "cg2100.h"

PAGE "Movimento di incasso immediato" -1 -1 75 13

DATE F_DATAREG
BEGIN
  PROMPT 1 1 "Data di registrazione "
  HELP "Data in cui viene registrata l'operazione"
  FIELD LF_MOV->DATAREG
  CHECKTYPE REQUIRED
  MESSAGE COPY,F_ANNOIVA,7,10
END

NUMBER F_ANNOIVA 4
BEGIN
  FLAGS "H"
  FIELD LF_MOV->ANNOIVA
END

NUMBER F_NUMREG 6
BEGIN
  PROMPT 52 1 "Operazione n. "
  HELP "Numero del movimento di prima nota da gestire"
  FIELD LF_MOV->NUMREG
  CHECKTYPE REQUIRED
  FLAGS "D"
  KEY 1
END

DATE F_DATACOMP
BEGIN
  PROMPT 1 2 "Data di competenza    "
  HELP "Data di competenza dell'operazione"
  FIELD LF_MOV->DATACOMP
  CHECKTYPE REQUIRED
END

// ANDREA E' ARRIVATO FINO A QUESTO PUNTO

NUMBER F_ANNOES 4
BEGIN
  PROMPT 52 2 "Esercizio     "
  FIELD LF_MOV->ANNOES
  FLAGS "D"
END

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

STRING F_NUMDOC 7
BEGIN
  PROMPT 52 3 "Documento n.  "
  FIELD LF_MOV->NUMDOC
  WARNING "Specificare il numero documento"
END

STRING F_DESCR 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 23 5 ""
  FLAGS "D"
END

LIST I_SEZIONE1 1 8
BEGIN
  PROMPT 1 7 "Riga 1 "
  ITEM "D|Dare"  
  ITEM "A|Avere" 
END

NUMBER F_TOTALE 15
BEGIN
  PROMPT 18 7 ""
  FIELD LF_MOV->TOTDOC
  FLAGS "R"
  PICTURE "."
  CHECKTYPE REQUIRED
  MESSAGE COPY,I_IMPORTO2
END

LIST F_CLIFO 1 12
BEGIN
  PROMPT 37 7 ""     
  ITEM " |Conto"     MESSAGE SHOW,I_SOTTOCONTO|HIDE,F_FORNITORE|HIDE,F_CLIENTE
  ITEM "C|Cliente"   MESSAGE HIDE,I_SOTTOCONTO|HIDE,F_FORNITORE|SHOW,F_CLIENTE
  ITEM "F|Fornitore" MESSAGE HIDE,I_SOTTOCONTO|HIDE,F_CLIENTE|SHOW,F_FORNITORE
  FIELD LF_MOV->TIPO
END

NUMBER F_GRUPPOCLIFO 3
BEGIN
  PROMPT 51 7 ""
  CHECKTYPE REQUIRED
  WARNING "Gruppo assente"
END

NUMBER F_CONTOCLIFO 3
BEGIN
  PROMPT 57 7 ""
  USE LF_PCON SELECT SOTTOCONTO==""
  INPUT GRUPPO F_GRUPPOCLIFO
  INPUT CONTO F_CONTOCLIFO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPOCLIFO GRUPPO
  OUTPUT F_CONTOCLIFO CONTO
  CHECKTYPE REQUIRED
  WARNING "Conto assente"
END

NUMBER F_CLIENTE 6
BEGIN
  PROMPT 65 7 ""
  FIELD LF_MOV->CODCF
  USE LF_CLIFO
  INPUT TIPOCF "C"
  INPUT CODCF F_CLIENTE
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale Cliente@50" RAGSOC
  OUTPUT F_CLIENTE CODCF
  CHECKTYPE REQUIRED
  ADD RUN cg0 -1 C
  WARNING "Cliente assente"
END

NUMBER F_FORNITORE 6
BEGIN
  PROMPT 65 7 ""
  FIELD LF_MOV->CODCF
  USE LF_CLIFO
  INPUT TIPOCF "F"
  INPUT CODCF F_FORNITORE
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale Fornitore@50" RAGSOC
  OUTPUT F_FORNITORE CODCF
  CHECKTYPE REQUIRED
  ADD RUN cg0 -1 F
  WARNING "Fornitore assente"
END

NUMBER I_SOTTOCONTO 6
BEGIN
  PROMPT 65 7 ""
  USE LF_PCON SELECT SOTTOCONTO != ""
  INPUT SOTTOCONTO I_SOTTOCONTO
  INPUT GRUPPO F_GRUPPOCLIFO
  INPUT CONTO F_CONTOCLIFO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT I_SOTTOCONTO SOTTOCONTO
  OUTPUT F_GRUPPOCLIFO GRUPPO
  OUTPUT F_CONTOCLIFO CONTO
  CHECKTYPE REQUIRED
  WARNING "Sottoconto assente"
  ADD RUN cg0 -0
END

LIST I_SEZIONE2 1 8
BEGIN
  PROMPT 1 8 "Riga 2 "
  ITEM "D|Dare"
  ITEM "A|Avere"
END

NUMBER I_IMPORTO2 15
BEGIN
  PROMPT 18 8 ""
  PICTURE "."
  FLAGS "R"
END

LIST DLG_NULL 1 12
BEGIN
  PROMPT 37 8 ""
  ITEM " |Conto"
  FLAGS "D"
END

NUMBER I_GRUPPO2 3
BEGIN
  PROMPT 51 8 ""
END

NUMBER I_CONTO2 3
BEGIN
  PROMPT 57 8 ""
END

NUMBER I_SOTTOCONTO2 6
BEGIN
  PROMPT 65 8 ""
  COPY USE I_SOTTOCONTO
  INPUT GRUPPO I_GRUPPO2
  INPUT CONTO I_CONTO2
  INPUT SOTTOCONTO I_SOTTOCONTO2
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT I_GRUPPO2 GRUPPO
  OUTPUT I_CONTO2 CONTO
  OUTPUT I_SOTTOCONTO2 SOTTOCONTO
  CHECKTYPE REQUIRED
  WARNING "Sottoconto assente"
END

LIST I_SEZIONE3 1 8
BEGIN
  PROMPT 1 9 "Riga 3 "
  ITEM "D|Dare"
  ITEM "A|Avere"
END

NUMBER I_IMPORTO3 15
BEGIN
  PROMPT 18 9 ""
  PICTURE "."
  FLAGS "R"
END

LIST DLG_NULL 1 12
BEGIN
  PROMPT 37 9 ""
  ITEM " |Conto"
  FLAGS "D"
END

NUMBER I_GRUPPO3 3
BEGIN
  PROMPT 51 9 ""
END

NUMBER I_CONTO3 3
BEGIN
  PROMPT 57 9 ""
END

NUMBER I_SOTTOCONTO3 6
BEGIN
  PROMPT 65 9 ""
  COPY USE I_SOTTOCONTO
  INPUT GRUPPO I_GRUPPO3
  INPUT CONTO I_CONTO3
  INPUT SOTTOCONTO I_SOTTOCONTO3
  COPY DISPLAY I_SOTTOCONTO2
  OUTPUT I_GRUPPO3 GRUPPO
  OUTPUT I_CONTO3 CONTO
  OUTPUT I_SOTTOCONTO3 SOTTOCONTO
  CHECKTYPE NORMAL
  VALIDATE REQIF_FUNC 1 I_IMPORTO3
  WARNING "Sottoconto assente"
END

LIST I_SEZIONE4 1 8
BEGIN
  PROMPT 1 10 "Riga 4 "
  ITEM "D|Dare"
  ITEM "A|Avere"
END

NUMBER I_IMPORTO4 15
BEGIN
  PROMPT 18 10 ""
  PICTURE "."
  FLAGS "R"
END

LIST DLG_NULL 1 12
BEGIN
  PROMPT 37 10 ""
  ITEM " |Conto"
  FLAGS "D"
END

NUMBER I_GRUPPO4 3
BEGIN
  PROMPT 51 10 ""
END

NUMBER I_CONTO4 3
BEGIN
  PROMPT 57 10 ""
END

NUMBER I_SOTTOCONTO4 6
BEGIN
  PROMPT 65 10 ""
  COPY USE I_SOTTOCONTO
  INPUT GRUPPO I_GRUPPO4
  INPUT CONTO I_CONTO4
  INPUT SOTTOCONTO I_SOTTOCONTO4
  COPY DISPLAY I_SOTTOCONTO2
  OUTPUT I_GRUPPO4 GRUPPO
  OUTPUT I_CONTO4 CONTO
  OUTPUT I_SOTTOCONTO4 SOTTOCONTO
  CHECKTYPE NORMAL
  VALIDATE REQIF_FUNC 1 I_IMPORTO4
  WARNING "Sottoconto assente"
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