campo-sirio/cg/cg4600a.uml

#include "cg4600.h"

PAGE "" -1 -1 76 20

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 2 1 "Ditta                "
  FLAGS "FRD"
  USE LF_NDITTE KEY 1  
  CHECKTYPE REQUIRED
  INPUT CODDITTA F_CODDITTA
  DISPLAY "Codice" CODDITTA
  DISPLAY "Ragione sociale @50" RAGSOC
  OUTPUT F_CODDITTA CODDITTA 
  OUTPUT F_RAGSOC RAGSOC
END


STRING F_RAGSOC 50
BEGIN
  PROMPT 2 2 "Ragione sociale      "
  FLAGS "D"
END

STRING F_CHIUSURA 3
BEGIN  
  PROMPT 2 4 "Codice causale chiusura "
  USE LF_CAUSALI KEY 1
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione @50" DESCR
  OUTPUT F_CHIUSURA CODCAUS
  INPUT  CODCAUS F_CHIUSURA
  CHECKTYPE REQUIRED  
END

STRING F_APERTURA 3
BEGIN  
  PROMPT 2 5 "Codice causale apertura "
  COPY USE F_CHIUSURA
  COPY DISPLAY F_CHIUSURA
  OUTPUT F_APERTURA CODCAUS
  INPUT  CODCAUS F_APERTURA
END

DATE F_DATAC
BEGIN
  PROMPT 36 4 "Data/Anno chiusura "
END 

DATE F_DATAAP
BEGIN
  PROMPT 36 5 "Data/Anno apertura "
  WARNING "Inserire una data non inferiore alla data di chiusura"
  VALIDATE DATE_CMP_FUNC >= F_DATAC	
END 

NUMBER F_ANNOCH 4
BEGIN
  PROMPT 69 4 ""
  FLAGS "D"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 69 5 ""
  FLAGS "D"
END


GROUPBOX DLG_NULL 60 10
BEGIN 
  PROMPT 2 7 "Codici sottoconto"
END

NUMBER F_BILCHG 3
BEGIN
  PROMPT 3 9 "Bilancio di chiusura              "
  USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
  CHECKTYPE REQUIRED
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto"  CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione @50" DESCR
  OUTPUT F_BILCHG GRUPPO
  OUTPUT F_BILCHC CONTO
  OUTPUT F_BILCHS SOTTOCONTO
  INPUT GRUPPO F_BILCHG 
  INPUT CONTO  F_BILCHC
  INPUT SOTTOCONTO F_BILCHS
END

NUMBER F_BILCHC 3
BEGIN
  PROMPT 44 9 ""
  COPY ALL F_BILCHG
  CHECKTYPE REQUIRED
END

NUMBER F_BILCHS 6
BEGIN
  PROMPT 51 9 ""
  COPY ALL F_BILCHG
  CHECKTYPE REQUIRED

END
 
NUMBER F_PROPERG 3
BEGIN
  PROMPT 3 10 "Profitti e perdite                "
  COPY USE F_BILCHG
  CHECKTYPE REQUIRED
  COPY DISPLAY F_BILCHG
  OUTPUT F_PROPERG GRUPPO
  OUTPUT F_PROPERC CONTO
  OUTPUT F_PROPERS SOTTOCONTO
  INPUT GRUPPO F_PROPERG 
  INPUT CONTO  F_PROPERC
  INPUT SOTTOCONTO F_PROPERS
END

NUMBER F_PROPERC 3
BEGIN
  PROMPT 44 10 ""
  COPY USE F_BILCHG
  CHECKTYPE REQUIRED

  COPY DISPLAY F_BILCHG
  COPY OUTPUT F_PROPERG
  COPY INPUT F_PROPERG
END

NUMBER F_PROPERS 6
BEGIN
  PROMPT 51 10 ""
  COPY ALL F_PROPERC
  CHECKTYPE REQUIRED
END     

NUMBER F_BILAPG 3
BEGIN
  PROMPT 3 11 "Bilancio di apertura              "
  COPY USE F_BILCHG
  CHECKTYPE REQUIRED
  COPY DISPLAY F_BILCHG
  OUTPUT F_BILAPG GRUPPO
  OUTPUT F_BILAPC CONTO
  OUTPUT F_BILAPS SOTTOCONTO
  INPUT GRUPPO F_BILAPG 
  INPUT CONTO  F_BILAPC
  INPUT SOTTOCONTO F_BILAPS
END

NUMBER F_BILAPC 3
BEGIN
  PROMPT 44 11 ""
  COPY USE F_BILCHG
  CHECKTYPE REQUIRED
  COPY DISPLAY F_BILCHG
  COPY OUTPUT F_BILAPG
  COPY INPUT  F_BILAPG
END

NUMBER F_BILAPS 6
BEGIN
  PROMPT 51 11 ""
  COPY ALL F_BILAPC
  CHECKTYPE REQUIRED
END

NUMBER F_UTILPG 3
BEGIN
  PROMPT 3 12 "Utile d'esercizio c/to patrim.    "
  USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="") && ((INDBIL="1")||(INDBIL="2")||(INDBIL="5"))
  CHECKTYPE REQUIRED
  COPY DISPLAY F_BILCHG
  OUTPUT F_UTILPG GRUPPO
  OUTPUT F_UTILPC CONTO
  OUTPUT F_UTILPS SOTTOCONTO
  INPUT GRUPPO F_UTILPG 
  INPUT CONTO  F_UTILPC
  INPUT SOTTOCONTO F_UTILPS
END

NUMBER F_UTILPC 3
BEGIN
  PROMPT 44 12 ""
  COPY USE F_UTILPG
  CHECKTYPE REQUIRED
  COPY DISPLAY F_BILCHG
  COPY OUTPUT F_UTILPG
  COPY INPUT F_UTILPG
END
                             
NUMBER F_UTILPS 6
BEGIN
  PROMPT 51 12 ""
  COPY ALL F_UTILPC
  CHECKTYPE REQUIRED
END

NUMBER F_PERDPG 3
BEGIN
  PROMPT 3 13 "Perdita d'esercizio c/to patr.    "
  USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="") && ((INDBIL="1")||(INDBIL="2")||(INDBIL="5"))
  CHECKTYPE REQUIRED
  COPY DISPLAY F_BILCHG
  OUTPUT F_PERDPG GRUPPO
  OUTPUT F_PERDPC CONTO
  OUTPUT F_PERDPS SOTTOCONTO
  INPUT GRUPPO F_PERDPG 
  INPUT CONTO  F_PERDPC
  INPUT SOTTOCONTO F_PERDPS
END

NUMBER F_PERDPC 3
BEGIN
  PROMPT 44 13 ""
  COPY USE F_PERDPG
  CHECKTYPE REQUIRED
  COPY DISPLAY F_BILCHG
  COPY OUTPUT F_PERDPG
  COPY INPUT F_PERDPG
END

NUMBER F_PERDPS 6
BEGIN
  PROMPT 51 13 ""
  COPY ALL F_PERDPC
  CHECKTYPE REQUIRED
END

NUMBER F_UTILEG 3
BEGIN
  PROMPT 3 14 "Utile d'esercizio c/to econom.    "
  USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="") && ((INDBIL="3")||(INDBIL="4"))
  CHECKTYPE REQUIRED
  COPY DISPLAY F_BILCHG
  OUTPUT F_UTILEG GRUPPO
  OUTPUT F_UTILEC CONTO
  OUTPUT F_UTILES SOTTOCONTO
  INPUT GRUPPO F_UTILEG 
  INPUT CONTO  F_UTILEC
  INPUT SOTTOCONTO F_UTILES
END

NUMBER F_UTILEC 3
BEGIN
  PROMPT 44 14 ""
  COPY USE F_UTILEG
  CHECKTYPE REQUIRED
  COPY DISPLAY F_BILCHG
  COPY OUTPUT F_UTILEG
  COPY INPUT F_UTILEG
END

NUMBER F_UTILES 6
BEGIN
  PROMPT 51 14 ""
  COPY ALL F_UTILEC
  CHECKTYPE REQUIRED
END

NUMBER F_PERDEG 3
BEGIN
  PROMPT 3 15 "Perdita d'esercizio c/to econ.    "
  USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="") && ( (INDBIL="3")||(INDBIL="4") )
  CHECKTYPE REQUIRED
  COPY DISPLAY F_BILCHG
  OUTPUT F_PERDEG GRUPPO
  OUTPUT F_PERDEC CONTO
  OUTPUT F_PERDES SOTTOCONTO
  INPUT GRUPPO F_PERDEG 
  INPUT CONTO  F_PERDEC
  INPUT SOTTOCONTO F_PERDES
  
END

NUMBER F_PERDEC 3
BEGIN
  PROMPT 44 15 ""
  COPY USE F_PERDEG
  CHECKTYPE REQUIRED
  COPY DISPLAY F_BILCHG
  COPY OUTPUT F_PERDEG
  COPY INPUT F_PERDEG 
END

NUMBER F_PERDES 6
BEGIN
  PROMPT 51 15 ""
  COPY ALL F_PERDEC
  CHECKTYPE REQUIRED
END

BUTTON DLG_OK 9 2
BEGIN 
  PROMPT -12 -1 ""
END

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

ENDPAGE

ENDMASK