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 ""
  //FLAGS "R"
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
  CHECKTYPE NORMAL
  FLAGS "R" 
END

NUMBER F_CONTO 3 
BEGIN
  PROMPT 40 3 "Conto "  
  USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="")
  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_TIPOCF TMCF
  OUTPUT F_GRUPPO GRUPPO
  OUTPUT F_CONTO CONTO
  OUTPUT F_DESCR_CONTO DESCR
  FLAGS "R"
  CHECKTYPE NORMAL
  WARNING "Conto inesistente o mancante"
  //MESSAGE DIRTY,F_SOTTOCONTO|DIRTY,F_SOTTOC_CLIENTE|DIRTY,F_SOTTOC_FORN
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_GRUPPO GRUPPO
  OUTPUT F_CONTO CONTO
  OUTPUT F_SOTTOCONTO SOTTOCONTO
  OUTPUT F_DESCR_CONTO DESCR
  //MESSAGE COPY,F_SOTTOC_FORN  //li gestisco da programma senno' fanno casino
  //MESSAGE COPY,F_SOTTOC_CLIENTE 
  FLAGS "R" 
  CHECKTYPE NORMAL
  GROUP 1         
  VALIDATE AUTOEXIT_FUNC 3 F_GRUPPO F_CONTO F_SOTTOCONTO
  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_DESCR_CLIENTE RAGSOC
  //MESSAGE COPY,F_SOTTOCONTO 
  //MESSAGE COPY,F_SOTTOC_FORN
  FLAGS "R"
  KEY 1
  CHECKTYPE NORMAL
  GROUP 2
  VALIDATE AUTOEXIT_FUNC 3 F_GRUPPO F_CONTO F_SOTTOC_CLIENTE
  WARNING "Conto inesistente"
END

NUMBER F_SOTTOC_FORN 6
BEGIN
  PROMPT 54 3 "Fornitore "
  USE LF_CLIFO
  //FIELD LF_CLIFO->CODCF
  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_DESCR_FORN RAGSOC
  FLAGS "R"
  KEY 1   //serve per l'autopremimento
  CHECKTYPE NORMAL
  //MESSAGE COPY,F_SOTTOCONTO
  //MESSAGE COPY,F_SOTTOC_CLIENTE
  GROUP 3
  VALIDATE AUTOEXIT_FUNC 3 F_GRUPPO F_CONTO F_SOTTOC_FORN
  WARNING "Conto inesistente"
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
  MESSAGE COPY,F_DESCR_CLIENTE
  MESSAGE COPY,F_DESCR_FORN
  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
  MESSAGE COPY,F_DESCR_CONTO
  MESSAGE COPY,F_DESCR_FORN
  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
  MESSAGE COPY,F_DESCR_CONTO
  MESSAGE COPY,F_DESCR_CLIENTE 
  KEY 1
  CHECKTYPE NORMAL
  GROUP 3
END

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

ENDPAGE

ENDMASK

PAGE "" -1 -1 71 20

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

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

NUMBER 103 15
BEGIN
  PROMPT 42 4 "Avere "
  FLAGS "R"  
  PICTURE "."
END

STRING 104 17
BEGIN
  PROMPT 60 4 "Saldo "
  FLAGS "R"
END

/*
NUMBER 105 15
BEGIN
  PROMPT 1 5 "Progr.Attuali: Saldo Iniziale "
  FLAGS "R"
END

STRING 105 1
BEGIN
  PROMPT 1 5 "Segno "
END  
*/

STRING 105 15
BEGIN
  PROMPT 1 5 "Saldo Iniziale "
  FLAGS "R"
END

NUMBER 106 15
BEGIN
  PROMPT 42 5 "Progr.Attuali: Dare "
  FLAGS "R"
  PICTURE "."  
END

NUMBER 107 15
BEGIN
  PROMPT 60 5 "Avere "
  FLAGS "R"
  PICTURE "."  
END

STRING 108 17
BEGIN
  PROMPT 1 6 "Saldo "
  FLAGS "R"
END  

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

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

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

NUMBER 112 15
BEGIN
  PROMPT 42 6 "Avere "
  FLAGS "R"
  PICTURE "."  
END

STRING 113 17
BEGIN
  PROMPT 60 6 "Saldo "
  FLAGS "R"
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