416 lines
8.1 KiB
Plaintext
Executable File
416 lines
8.1 KiB
Plaintext
Executable File
#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
|