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 "Cod. esercizio "
  HELP "Codice esercizio a cui si riferiscono i saldi"
  WARNING "Codice esercizio inesistente"
  USE ESC
  INPUT CODTAB[1,4] F_ANNO
  DISPLAY "Codice" CODTAB[1,4]
  DISPLAY "Data inizio esercizio" D0
  DISPLAY "Data fine esercizio" D1
  OUTPUT F_ANNO CODTAB[1,4]
  FLAGS "Z"
  ADD RUN cg0 -5 esc
END

BOOLEAN F_SCARICATO
BEGIN
  PROMPT 40 1 "Solo saldi dei movimenti scaricati"
END

GROUPBOX DLG_NULL 73 5
BEGIN
  PROMPT 3 2 ""
END

LIST F_TIPOCF 9
BEGIN
  PROMPT 4 3 "Tipo "
  HELP "Tipo del conto da visualizzare"
  ITEM " |Conto"     MESSAGE HIDE,2@|HIDE,3@|SHOW,1@|ENABLE,F_DESCR_CONTO
  ITEM "C|Cliente"   MESSAGE HIDE,F_SOTTOCONTO|DISABLE,F_DESCR_CONTO|HIDE,3@|SHOW,2@|ENABLE,F_DESCR_CLIENTE
  ITEM "F|Fornitore" MESSAGE HIDE,F_SOTTOCONTO|DISABLE,F_DESCR_CONTO|HIDE,2@|SHOW,3@|ENABLE,F_DESCR_FORN
  FIELD TMCF
  KEY 1
END

NUMBER F_GRUPPO 3
BEGIN
  PROMPT 26 3 "Gruppo "
  HELP "Codice del conto da visualizzare"
  FLAGS "R"
  KEY 1
  FIELD GRUPPO
  USE LF_PCON SELECT CONTO=""
  INPUT GRUPPO F_GRUPPO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPO GRUPPO
//  OUTPUT F_DESCR_CONTO DESCR
  CHECKTYPE REQUIRED
  VALIDATE CHECK_FIELD F_GRUPPO
  MESSAGE CHECK,F_SOTTOCONTO
  WARNING "Gruppo inesistente"
END

NUMBER F_CONTO 3
BEGIN
  PROMPT 40 3 "Conto "
  HELP "Codice del conto da visualizzare"
  //USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="")
  USE LF_PCON SELECT SOTTOCONTO=""
  FIELD CONTO
  FLAGS "R"
  KEY 1
  INPUT GRUPPO F_GRUPPO
  INPUT CONTO F_CONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Tipo" TMCF
  OUTPUT F_TIPOCF TMCF
  OUTPUT F_GRUPPO GRUPPO
  OUTPUT F_CONTO CONTO
//  OUTPUT F_DESCR_CONTO DESCR
  CHECKTYPE NORMAL
  VALIDATE CHECK_FIELD F_CONTO
  MESSAGE CHECK,F_SOTTOCONTO
  WARNING "Conto inesistente"
END

NUMBER F_SOTTOCONTO 6
BEGIN
  PROMPT 55 3 "Sottoconto "
  HELP "Codice del conto da visualizzare"
  //USE LF_PCON SELECT SOTTOCONTO!=""
  USE LF_PCON
  FIELD SOTTOCONTO
  FLAGS "R"
  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
//  CHECKTYPE NORMAL
  VALIDATE CHECK_FIELD F_SOTTOCONTO
  WARNING "Sottoconto inesistente"
  GROUP 1
END

NUMBER F_SOTTOC_CLIENTE 6
BEGIN
  PROMPT 58 3 "Cliente "
  HELP "Codice del conto da visualizzare"
  FLAGS "R"
  KEY 1
  USE LF_CLIFO
  INPUT TIPOCF "C"
  INPUT CODCF F_SOTTOC_CLIENTE
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@60" RAGSOC
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  OUTPUT F_SOTTOC_CLIENTE CODCF
  OUTPUT F_DESCR_CLIENTE RAGSOC
  CHECKTYPE NORMAL
  VALIDATE CHECK_FIELD F_SOTTOC_CLIENTE
  WARNING "Cliente inesistente"
  GROUP 2
END

NUMBER F_SOTTOC_FORN 6
BEGIN
  PROMPT 56 3 "Fornitore "
  HELP "Codice del conto da visualizzare"
  FLAGS "R"
  KEY 1
  USE LF_CLIFO
  INPUT TIPOCF "F"
  INPUT CODCF F_SOTTOC_FORN
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@60" RAGSOC
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  OUTPUT F_SOTTOC_FORN CODCF
  OUTPUT F_DESCR_FORN RAGSOC
  CHECKTYPE NORMAL
  VALIDATE CHECK_FIELD F_SOTTOC_FORN
  WARNING "Fornitore inesistente"
  GROUP 3
END

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

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

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

SPREADSHEET F_SHEET_SALDI
BEGIN
  PROMPT 0 7 ""
  ITEM "Es.@4"
  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 di chiusura@15"
  ITEM ""
  ITEM "Saldo complessivo"
  ITEM ""
  ITEM "Ult.Op.: Data"
  ITEM " Numero"
  ITEM "Progr.Mov.Prov.: Dare@15"
  ITEM "          Avere@15"
  ITEM "          Saldo@15"
  ITEM ""
  ITEM "Progr.Mov.Elim.: Dare@15"
  ITEM "           Avere@15"
END

ENDPAGE

ENDMASK

PAGE "" -1 -1 70 16

NUMBER 101 4
BEGIN
  PROMPT 1 1 "Codice esercizio "
  HELP "Codice 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"
  FLAGS ""
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 47 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 ""
  FLAGS "R"
  HELP "Sezione del saldo attuale del conto"
END

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

NUMBER 109 15
BEGIN
  PROMPT 47 6 "Avere  "
  HELP "Progressivi avere attuali dei movimenti eliminati"
  FLAGS "R"
  PICTURE "."
END
 =======================================================================*/

NUMBER 108 15
BEGIN
  PROMPT 1 6 "         Saldo di chiusura "
  HELP "Saldo di chiusura"
  FLAGS "R"
  PICTURE "."
END

STRING 109 1
BEGIN
  PROMPT 44 6 ""
  HELP "Sezione del saldo di chiusura"
  FLAGS "R"
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"
  FLAGS "R"
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 movimenti provvisori"
  FLAGS "R"
  PICTURE "."
END

NUMBER 115 15
BEGIN
  PROMPT 47 10 "Avere  "
  HELP "Progressivi avere attuali dei movimenti 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 movimenti provvisori del conto"
  FLAGS "R"
END

NUMBER 118 15
BEGIN
  PROMPT 1 12 "Progr.Mov.Eliminati: Dare  "
  HELP "Progressivi dare attuali dei movimenti eliminati"
  FLAGS "R"
  PICTURE "."
END

NUMBER 119 15
BEGIN
  PROMPT 47 12 "Avere  "
  HELP "Progressivi avere attuali dei movimenti eliminati"
  FLAGS "R"
  PICTURE "."
END


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

ENDPAGE

ENDMASK