campo-sirio/cg/cg5200a.uml

#include "cg5200.h"

TOOLBAR "topbar" 0 0 0 2

#include <browbar.h>

ENDPAGE

PAGE "Visualizzazione saldi" 0 0 0 2

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
  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 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
  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
  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
  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 1 7 ""
  ITEM "Es.@4F"
  ITEM "Saldo iniziale@15"
  ITEM "@1"
  ITEM "Saldo Att.@15"
  ITEM "@1"
  ITEM "Progr.Att.:Dare@15"
  ITEM "Avere@15"
  ITEM "Saldo di chiusura@15"
  ITEM "@1"
  ITEM "Saldo complessivo"
  ITEM "@1"
  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 77 16

NUMBER 101 4
BEGIN
  PROMPT 1 1 "Codice esercizio "
END

CURRENCY 102 19
BEGIN
  PROMPT 1 3 "Saldo Iniziale             "
END

STRING 103 1
BEGIN
  PROMPT 48 3 ""
END


CURRENCY 106 19
BEGIN
  PROMPT 1 4 "Progr.Attuali:       Dare  "
END

CURRENCY 107 19
BEGIN
  PROMPT 51 4 "Avere "
END

CURRENCY 104 19
BEGIN
  PROMPT 22 5 "Saldo "
END

STRING 105 1
BEGIN
  PROMPT 48 5 ""
END


CURRENCY 108 19
BEGIN
  PROMPT 1 6 "         Saldo di chiusura "
END

STRING 109 1
BEGIN
  PROMPT 48 6 ""
END

CURRENCY 110 19
BEGIN
  PROMPT 1 7 "Saldo complessivo          "
END

STRING 111 1
BEGIN
  PROMPT 48 7 ""
END

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

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

CURRENCY 114 19
BEGIN
  PROMPT 1 10 "Progr.Mov.Provvisori: Dare "
END

CURRENCY 115 19
BEGIN
  PROMPT 51 10 "Avere "
END

CURRENCY 116 19
BEGIN
  PROMPT 1 11 "Saldo                      "
END

STRING 117 1
BEGIN
  PROMPT 48 11 ""
END

CURRENCY 118 19
BEGIN
  PROMPT 1 12 "Progr.Mov.Eliminati:  Dare "
END

CURRENCY 119 19
BEGIN
  PROMPT 51 12 "Avere "
END


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

ENDPAGE

ENDMASK