campo-sirio/cg/cg5200a.uml

#include "cg5200.h"

TOOLBAR "" 0 20 0 2

#include <browbar.h>

ENDPAGE

PAGE "Visualizzazione saldi" -1 -1 78 18

NUMBER F_ANNO 4
BEGIN
  PROMPT 4 1 "Anno esercizio "
  HELP "Anno d'esercizio a cui si riferiscono i saldi"
  KEY 1
  USE ESC 
  CHECKTYPE NORMAL
  INPUT CODTAB[1,4] F_ANNO
  DISPLAY "Anno" CODTAB[1,4]
  DISPLAY "Data inizio esercizio" D0
  DISPLAY "Data fine esercizio" D1
  OUTPUT F_ANNO CODTAB[1,4] 
  FLAGS "RZ"
END
   
GROUPBOX DLG_NULL 73 4
BEGIN
  PROMPT 3 2 ""
END

LIST F_TIPOCF 9
BEGIN
  PROMPT 4 3 "Tipo "
  HELP "Tipo del conto da visualizzare"
  FLAGS "U"
  ITEM " |Conto"     MESSAGE HIDE,2@|HIDE,3@|SHOW,1@
  ITEM "C|Cliente"   MESSAGE HIDE,1@|HIDE,3@|SHOW,2@
  ITEM "F|Fornitore" MESSAGE HIDE,1@|HIDE,2@|SHOW,3@
  KEY 1    
END

NUMBER F_GRUPPO 3
BEGIN
  PROMPT 26 3 "Gruppo "
  HELP "Codice del conto da visualizzare"
  USE LF_PCON KEY 1 SELECT CONTO=""
  FIELD LF_PCON->GRUPPO
  KEY 1
  INPUT GRUPPO F_GRUPPO
  DISPLAY "Gruppo" GRUPPO 
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPO GRUPPO
  CHECKTYPE NORMAL
  FLAGS "R" 
END

NUMBER F_CONTO 3 
BEGIN
  PROMPT 40 3 "Conto "  
  HELP "Codice del conto da visualizzare"
  USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="") 
  FIELD LF_PCON->CONTO
  KEY 1
  INPUT GRUPPO F_GRUPPO
  INPUT CONTO F_CONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO 
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CONTO CONTO
  OUTPUT F_GRUPPO GRUPPO
//OUTPUT F_DESCR_CLIENTE DESCR
//OUTPUT F_DESCR_FORN DESCR
  OUTPUT F_DESCR_CONTO DESCR
  FLAGS "R"
  CHECKTYPE NORMAL
  WARNING "Conto inesistente o mancante"
  MESSAGE COPY,F_CONTO_CLIENTE|COPY,F_CONTO_FORN
  GROUP 1
END

NUMBER F_CONTO_CLIENTE 3 
BEGIN
  PROMPT 40 3 "Conto "  
  HELP "Codice del conto da visualizzare"
  USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="C")
  FIELD LF_PCON->CONTO
  KEY 1
  INPUT GRUPPO F_GRUPPO
  INPUT CONTO F_CONTO_CLIENTE
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO 
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CONTO_CLIENTE CONTO
  OUTPUT F_GRUPPO GRUPPO
  //OUTPUT F_DESCR_CLIENTE DESCR
  //OUTPUT F_DESCR_FORN DESCR
  //OUTPUT F_DESCR_CONTO DESCR
  FLAGS "R"
  CHECKTYPE NORMAL
  WARNING "Conto inesistente o mancante"
  MESSAGE COPY,F_CONTO|COPY,F_CONTO_FORN
  GROUP 2
END

NUMBER F_CONTO_FORN 3 
BEGIN
  PROMPT 40 3 "Conto "  
  HELP "Codice del conto da visualizzare"
  USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="F") 
  FIELD LF_PCON->CONTO
  KEY 1
  INPUT GRUPPO F_GRUPPO
  INPUT CONTO F_CONTO_FORN
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO 
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CONTO_FORN CONTO
  OUTPUT F_GRUPPO GRUPPO 
  //OUTPUT F_DESCR_CLIENTE DESCR
  //OUTPUT F_DESCR_FORN DESCR
  //OUTPUT F_DESCR_CONTO DESCR
  FLAGS "R"
  CHECKTYPE NORMAL
  WARNING "Conto inesistente o mancante"
  MESSAGE COPY,F_CONTO_CLIENTE|COPY,F_CONTO
  GROUP 3
END

NUMBER F_SOTTOCONTO 6
BEGIN
  PROMPT 54 3 "Sottoconto "
  HELP "Codice del conto da visualizzare"
  USE LF_PCON SELECT SOTTOCONTO!=""
  FIELD LF_PCON->SOTTOCONTO 
  KEY 1
  INPUT GRUPPO F_GRUPPO
  INPUT CONTO F_CONTO
  INPUT SOTTOCONTO F_SOTTOCONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO 
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPO GRUPPO
  OUTPUT F_CONTO CONTO
  OUTPUT F_SOTTOCONTO SOTTOCONTO
  OUTPUT F_DESCR_CONTO DESCR
  //OUTPUT F_DESCR_CLIENTE DESCR
  //OUTPUT F_DESCR_FORN DESCR  
  //MESSAGE COPY,F_SOTTOC_FORN
  //MESSAGE COPY,F_SOTTOC_CLIENTE 
  FLAGS "R" 
  CHECKTYPE NORMAL
  //VALIDATE AUTOEXIT_FUNC 3 F_GRUPPO F_CONTO F_SOTTOCONTO //come pure questo
  GROUP 1         
  WARNING "Conto inesistente"
END

NUMBER F_SOTTOC_CLIENTE 6
BEGIN
  PROMPT 54 3 "Cliente "
  HELP "Codice del conto da visualizzare"
  USE LF_CLIFO
//FIELD LF_CLIFO->CODCF
  INPUT TIPOCF "C"
  INPUT CODCF F_SOTTOC_CLIENTE
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO 
  OUTPUT F_SOTTOC_CLIENTE CODCF
  OUTPUT F_GRUPPO GRUPPO
  OUTPUT F_CONTO_CLIENTE CONTO
//OUTPUT F_DESCR_CONTO RAGSOC
  OUTPUT F_DESCR_CLIENTE RAGSOC
//OUTPUT F_DESCR_FORN RAGSOC 
  FLAGS "R"
  CHECKTYPE NORMAL  
  KEY 1
  WARNING "Cliente inesistente"
  //VALIDATE AUTOEXIT_FUNC 3 F_GRUPPO F_CONTO F_SOTTOC_CLIENTE
  GROUP 2
END

NUMBER F_SOTTOC_FORN 6
BEGIN
  PROMPT 54 3 "Fornitore "
  HELP "Codice del conto da visualizzare"
  USE LF_CLIFO
  INPUT TIPOCF "F"
  INPUT CODCF F_SOTTOC_FORN
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  OUTPUT F_SOTTOC_FORN CODCF 
  OUTPUT F_GRUPPO GRUPPO
  OUTPUT F_CONTO_FORN CONTO
  OUTPUT F_DESCR_FORN RAGSOC
//  OUTPUT F_DESCR_CONTO RAGSOC
//  OUTPUT F_DESCR_CLIENTE RAGSOC
  FLAGS "R"
  CHECKTYPE NORMAL
  KEY 1  
  WARNING "Fornitore inesistente"
  //VALIDATE AUTOEXIT_FUNC 3 F_GRUPPO F_CONTO F_SOTTOC_FORN
  GROUP 3
END

STRING F_DESCR_CONTO 50
BEGIN
  PROMPT 4 4 "Descrizione      "
  FIELD DESCR
  HELP "Descrizione del conto da visualizzare"
  USE LF_PCON KEY 2
  INPUT DESCR F_DESCR_CONTO
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_SOTTOCONTO
  KEY 1
  CHECKTYPE NORMAL
  GROUP 1
END

STRING F_DESCR_CLIENTE 50
BEGIN
  PROMPT 4 4 "Cliente       "
  HELP "Ragione sociale del cliente da visualizzare"
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC F_DESCR_CLIENTE
  DISPLAY "Ragione Sociale Cliente@50" RAGSOC
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_SOTTOC_CLIENTE 
  KEY 1
  CHECKTYPE NORMAL
  GROUP 2
END

STRING F_DESCR_FORN 50
BEGIN
  PROMPT 4 4 "Fornitore       "
  HELP "Ragione sociale del fornitore da visualizzare"
  USE LF_CLIFO KEY 2 
  INPUT TIPOCF "F"
  INPUT RAGSOC F_DESCR_FORN
  DISPLAY "Ragione Sociale Fornitore@50" RAGSOC
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_SOTTOC_FORN
  KEY 1
  CHECKTYPE NORMAL
  GROUP 3
END

SPREADSHEET F_SHEET_SALDI  
BEGIN
  PROMPT 0 6 ""
  ITEM "Es."
  ITEM " Saldo iniziale@15"
  ITEM ""
  ITEM "Progr.Att.: Dare@15"
  ITEM "           Avere@15"
  ITEM "           Saldo@15"
  ITEM ""
  ITEM "Progr.Mov.Elim.: Dare@15"
  ITEM "           Avere@15"
  ITEM "Saldo complessivo"
  ITEM ""
  ITEM "Ult.Op.: Data"
  ITEM " Numero"
  ITEM "Progr.Mov.Prov.: Dare@15"
  ITEM "          Avere@15"
  ITEM "          Saldo@15"
  ITEM ""
END

ENDPAGE

ENDMASK

PAGE "" -1 -1 70 16

NUMBER 101 4
BEGIN
  PROMPT 1 1 "Anno esercizio "
  HELP "Anno d'esercizio a cui si riferisce il saldo"
  FLAGS "R"
END

NUMBER 102 15
BEGIN
  PROMPT 1 3 "Saldo Iniziale             "
  HELP "Importo del saldo iniziale"
  FLAGS "R"  
  PICTURE "."
END

STRING 103 1
BEGIN
  PROMPT 44 3 ""
  HELP "Sezione del saldo iniziale"
END

NUMBER 104 15
BEGIN
  PROMPT 1 4 "Progr.Attuali:       Dare  "
  HELP "Progressivo dare attuale del conto da visualizzare"
  FLAGS "R"
  PICTURE "."  
END

NUMBER 105 15
BEGIN
  PROMPT 45 4 "Avere  "
  HELP "Progressivo avere attuale del conto da visualizzare"
  FLAGS "R"
  PICTURE "."  
END

NUMBER 106 15
BEGIN
  PROMPT 22 5 "Saldo "
  HELP "Saldo attuale del conto"
  FLAGS "R"
  PICTURE "."
END  

STRING 107 1
BEGIN
  PROMPT 44 5 ""
  HELP "Sezione del saldo attuale del conto"
END

NUMBER 108 15
BEGIN
  PROMPT 1 6 "Progr.Mov.Eliminati: Dare  "
  HELP "Progressivi dare attuali dei moviementi eliminati"
  FLAGS "R"
  PICTURE "."
END

NUMBER 109 15
BEGIN
  PROMPT 45 6 "Avere  "
  HELP "Progressivi avere attuali dei moviementi eliminati"
  FLAGS "R"  
  PICTURE "."
END

NUMBER 110 15
BEGIN
  PROMPT 1 7 "Saldo complessivo          "
  HELP "Saldo complessivo attuale del conto"
  FLAGS "R"
  PICTURE "."
END

STRING 111 1
BEGIN
  PROMPT 44 7 ""
  HELP "Sezione del saldo attuale complessivo del conto"
END  

DATE 112 
BEGIN
  PROMPT 1 8 "Ultima data operazione     "
  HELP "Ultima data di registrazione che ha movimentato il conto"
  FLAGS "R"
END

NUMBER 113 7
BEGIN    
  PROMPT 1 9 "Ultimo numero operazione   "
  HELP "Ultimo numero di registrazione che ha movimentato il conto"
  FLAGS "R"
END

NUMBER 114 15
BEGIN
  PROMPT 1 10 "Progr.Mov.Provvisori: Dare "
  HELP "Progressivi dare attuali dei moviementi provvisori"
  FLAGS "R"
  PICTURE "."  
END

NUMBER 115 15
BEGIN
  PROMPT 45 10 "Avere  "
  HELP "Progressivi avere attuali dei moviementi provvisori del conto"
  FLAGS "R"
  PICTURE "."  
END

NUMBER 116 15
BEGIN
  PROMPT 1 11 "Saldo                      "
  HELP "Saldo dei progressivi dei movimenti provvisori del conto"
  FLAGS "R"
  PICTURE "."
END

STRING 117 1
BEGIN
  PROMPT 44 11 ""
  HELP "Sezione del saldo progressivi dei moviemnti provvisori del conto"
END

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

ENDPAGE

ENDMASK