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 "
  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 "
  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 "
  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
  //OUTPUT F_DESCR_CONTO DESCR
  FLAGS "R" 
END

NUMBER F_CONTO 3 
BEGIN
  PROMPT 40 3 "Conto "  
  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 "  
  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 "  
  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 "
  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_SOTTOCONTO SOTTOCONTO
  OUTPUT F_GRUPPO GRUPPO
  OUTPUT F_CONTO CONTO
  //OUTPUT F_DESCR_CONTO DESCR
  //OUTPUT F_DESCR_CLIENTE DESCR
  //OUTPUT F_DESCR_FORN DESCR  
  //CHECKTYPE NORMAL  
  //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 "
  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 "
  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      "
  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       "
  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       "
  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 2 6 ""
  ITEM "Es."
  ITEM " Saldo iniziale"
  ITEM ""
  ITEM "Progr.Att.: Dare"
  ITEM "           Avere"
  ITEM "           Saldo"
  ITEM ""
  ITEM "Progr.Mov.Elim.: Dare"
  ITEM "           Avere"
  ITEM "Saldo complessivo"
  ITEM ""
  ITEM "Ult.Op.: Data"
  ITEM " Numero"
  ITEM "Progr.Mov.Prov.: Dare"
  ITEM "          Avere"
  ITEM "          Saldo"
  ITEM ""
END

ENDPAGE

ENDMASK

PAGE "" -1 -1 70 16

NUMBER 101 4
BEGIN
  PROMPT 1 1 "Anno esercizio "
  FLAGS "R"
END

NUMBER 102 15
BEGIN
  PROMPT 1 3 "Saldo Iniziale             "
  FLAGS "R"  
  PICTURE "."
END

STRING 103 1
BEGIN
  PROMPT 44 3 ""
END

NUMBER 104 15
BEGIN
  PROMPT 1 4 "Progr.Attuali:       Dare  "
  FLAGS "R"
  PICTURE "."  
END

NUMBER 105 15
BEGIN
  PROMPT 45 4 "Avere  "
  FLAGS "R"
  PICTURE "."  
END

NUMBER 106 15
BEGIN
  PROMPT 22 5 "Saldo "
  FLAGS "R"
  PICTURE "."
END  

STRING 107 1
BEGIN
  PROMPT 44 5 ""
END

NUMBER 108 15
BEGIN
  PROMPT 1 6 "Progr.Mov.Eliminati: Dare  "
  FLAGS "R"
  PICTURE "."
END

NUMBER 109 15
BEGIN
  PROMPT 45 6 "Avere  "
  FLAGS "R"  
  PICTURE "."
END

NUMBER 110 15
BEGIN
  PROMPT 1 7 "Saldo complessivo          "
  FLAGS "R"
  PICTURE "."
END

STRING 111 1
BEGIN
  PROMPT 44 7 ""
END  

DATE 112 
BEGIN
  PROMPT 1 8 "Ultima data operazione     "
  FLAGS "R"
END

NUMBER 113 7
BEGIN    
  PROMPT 1 9 "Ultimo numero operazione   "
  FLAGS "R"
END

NUMBER 114 15
BEGIN
  PROMPT 1 10 "Progr.Mov.Provvisori: Dare "
  FLAGS "R"
  PICTURE "."  
END

NUMBER 115 15
BEGIN
  PROMPT 45 10 "Avere  "
  FLAGS "R"
  PICTURE "."  
END

NUMBER 116 15
BEGIN
  PROMPT 1 11 "Saldo                      "
  FLAGS "R"
  PICTURE "."
END

STRING 117 1
BEGIN
  PROMPT 44 11 ""
END

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

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

/*
BUTTON DLG_OK 9 2
BEGIN
    PROMPT -13 -1 ""
END

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

BUTTON DLG_NULL 9 2
BEGIN
    PROMPT -33 -1 "Azzera"
    MESSAGE RESET,1@      
END
*/

ENDPAGE

ENDMASK