campo-sirio/cg/cg2100e.uml

#include "cg2100e.h"

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_SAVEREC 2 2
BEGIN
  PROMPT 2 1 "Conferma"
  PICTURE TOOL_OK
  MESSAGE EXIT,K_ENTER
END

BUTTON DLG_NULL 2 2
BEGIN
  PROMPT -1 1 ""
  PICTURE 0
END

BUTTON DLG_INFO 2 2
BEGIN
  PROMPT 1 1 "Info"
  MESSAGE EXIT,K_F2
  PICTURE TOOL_INFO
END

BUTTON DLG_HELP 2 2
BEGIN
  PROMPT 2 1 "Help"
  MESSAGE EXIT,K_F1
  PICTURE TOOL_HELP
END

BUTTON DLG_CANCEL 2 2
BEGIN
  PROMPT 3 1 "Annulla"
  MESSAGE EXIT,K_ESC
  PICTURE TOOL_CANCEL
END

ENDPAGE

PAGE "Rate" 0 0 0 0

LIST G_TIPOCF 1 9
BEGIN
  PROMPT 1 0 ""
  ITEM " |Conto" 
    MESSAGE SHOW,2@|HIDE,1@
  ITEM "C|Cliente"
    MESSAGE SHOW,1@|HIDE,2@
  ITEM "F|Fornitore"
    MESSAGE SHOW,1@|HIDE,2@
  FLAGS "DG"
END

NUMBER G_CODCF 6
BEGIN
  PROMPT 15 0 ""
  FLAGS "D"
  GROUP 1
END

STRING G_RAGSOC 50
BEGIN
  PROMPT 28 0 ""
  FLAGS "D"
  GROUP 1
END

NUMBER G_ABI 5
BEGIN
  PROMPT 1 1 "Banca "
  FLAGS "Z"
  CHECKTYPE NORMAL
END

NUMBER G_CAB 5
BEGIN
  PROMPT 17 1 ""
  FLAGS "Z"
  USE BNP SELECT CODTAB[6,10]!=''
  JOIN %BAN ALIAS 401 INTO CODTAB==CODTAB[1,5]
  JOIN %BAN ALIAS 402 INTO CODTAB==CODTAB[1,10]
  INPUT CODTAB[1,5] G_ABI
  INPUT CODTAB[6,10] G_CAB
  DISPLAY "ABI@5" CODTAB[1,5]
  DISPLAY "CAB@5" CODTAB[6,10]
  DISPLAY "Pr.@2" CODTAB[11,12]
  DISPLAY "Istituto@50" 401@->S0
  DISPLAY "Filiale@50" 402@->S0
  OUTPUT G_ABI CODTAB[1,5] 
  OUTPUT G_CAB CODTAB[6,10]
  OUTPUT G_DESBANCA 402@->S0
  CHECKTYPE NORMAL
END

STRING G_DESBANCA 50
BEGIN
  PROMPT 28 1 ""
  FLAGS "D"
  /*
  USE %BAN SELECT LF_TAB->CODTAB!=''
  JOIN BNP INTO CODTAB==CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "ABI@5" CODTAB[1,5]
  DISPLAY "CAB@5" CODTAB[6,10]
  COPY OUTPUT G_CAB
  CHECKTYPE NORMAL
  */
END

NUMBER G_GRUPPOC 3
BEGIN
  PROMPT 1 2 "Conto "
  CHECKTYPE REQUIRED
END

NUMBER G_CONTOC 3
BEGIN
  PROMPT 11 2 ""
  CHECKTYPE REQUIRED
END

NUMBER G_SOTTOCONTOC 6
BEGIN
  PROMPT 16 2 ""
  USE LF_PCON SELECT SOTTOCONTO!=""
  INPUT GRUPPO G_GRUPPOC
  INPUT CONTO G_CONTOC
  INPUT SOTTOCONTO G_SOTTOCONTOC
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT G_GRUPPOC GRUPPO 
  OUTPUT G_CONTOC CONTO
  OUTPUT G_SOTTOCONTOC SOTTOCONTO
  OUTPUT G_DESCONTOC DESCR
  CHECKTYPE REQUIRED
  ADD RUN cg0 -0
END

STRING G_DESCONTOC 50
BEGIN
  PROMPT 28 2 ""
  USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
  INPUT DESCR G_DESCONTOC
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT G_SOTTOCONTOC
  CHECKTYPE NONE 
END

STRING G_VALUTA 3
BEGIN
  PROMPT 28 3 "Valuta "
  FLAGS "DGUZ"
  MESSAGE EMPTY CLEAR,G_INVALUTA
  MESSAGE ENABLE,G_INVALUTA
END

DATE G_DATACAMBIO
BEGIN
  PROMPT 40 3 "Data "
  FLAGS "DR"
  USE CAM
  INPUT CODTAB[1,3] G_VALUTA SELECT
  INPUT CODTAB[4,11] G_DATACAMBIO
  DISPLAY "Codice valuta" CODTAB[1,3]
  DISPLAY "Data@10" D0
  DISPLAY "Cambio@18R" S4   
  OUTPUT G_DATACAMBIO D0
  OUTPUT G_CAMBIO S4
  CHECKTYPE SEARCH
  GROUP 3
END

NUMBER G_CAMBIO 15 6
BEGIN
  PROMPT 58 3 "Cambio "
  FLAGS "DU"
  GROUP 3
  PICTURE ".6"
  FIELD ANTIOUTPUT
  CHECKTYPE REQUIRED
END

CURRENCY G_TOTALE 15
BEGIN
  PROMPT 1 4 "Totale riga "
  FLAGS "D"
END

CURRENCY G_RESIDUO_EUR 15
BEGIN
  PROMPT 30 4 "Residuo "
  FLAGS "D"
END

CURRENCY G_RESIDUO_VAL 15
BEGIN
  PROMPT 55 4 "in valuta "
  DRIVENBY G_VALUTA
  FLAGS "D"
  GROUP 3
END


LIST G_SORT 1 15
BEGIN
  PROMPT 1 5 "Ordinamento "
  ITEM "D|Data Scadenza"
  ITEM "P|Partita/Rata"
  ITEM "C|Documento/Rata"
  ITEM "M|Modalit<69> pag."
  ITEM "I|Importo Pagato"
  ITEM "R|Residuo Rata"
  ITEM "T|Totale Rata"
END

SPREADSHEET G_SHEET
BEGIN
  PROMPT 0 6 "Righe"
  ITEM " @1B"
  ITEM "Importo\nPagamento@13F"
  ITEM "Sal\ndo@3BF"
  ITEM "Data@10"
  ITEM "Val.@3"
  ITEM "Residuo\nScadenza@13F"
  ITEM "Importo\nScadenza@13F"
  ITEM "Data\nScadenza@10"
  ITEM "Numero\nDocum.@8"
  ITEM "Data\nDocumento@10"
  ITEM "Importo Euro\nPagamento@13"
  ITEM "Residuo Euro\nScadenza@13"
  ITEM "Anno"
  ITEM "Partita"
  ITEM "Riga\nFatt.@4"
  ITEM "Num.\nRata@4"
  ITEM "Riga\nPag.@4"
  ITEM "Ritenute\nfiscali@13"
  ITEM "Ritenute\nsociali@13"
  ITEM "Modalit<69> di\npagamento@30"
  ITEM "N.reg."
  ITEM "N.riga"
END

ENDPAGE

PAGE "Partite" 0 0 0 0

TLIST G_PARTITE -3 -1
BEGIN
  PROMPT 0 3 ""
  DISPLAY "Partita@35" DESCR
  DISPLAY "Docum.@8" NUMDOC  
  DISPLAY "Data@10R" DATADOC
  DISPLAY "Val@4" CODVAL
  DISPLAY "Dare@15R" DARE
  DISPLAY "Avere@15R" AVERE
  DISPLAY "Abbuoni@15R" ABBUONI
  DISPLAY "Diff. Cambio@15R" DIFFCAM
  DISPLAY "Ritenute fiscali@15R" RITENUTE
  DISPLAY "Ritenute sociali@15R" RITSOC
END

RADIOBUTTON G_TUTTE 1 58
BEGIN
  PROMPT 1 0 "Mostra partite"
  ITEM "0|Corrente"
  ITEM "1|Aperte"
  ITEM "2|Chiuse"
  ITEM "3|Tutte"
  FLAGS "Z"
END

BOOLEAN G_INVALUTA
BEGIN
  PROMPT 60 1 "Importi in valuta"
  GROUP 3
END

ENDPAGE

ENDMASK

PAGE "Riga" -1 -1 78 13

GROUPBOX DLG_NULL 76 6
BEGIN
  PROMPT 1 0 "@BDati rata"
END

NUMBER S_ANNO 4
BEGIN
  PROMPT 2 1 "Anno "
  FLAGS "D"
END

STRING S_PARTITA 7
BEGIN
  PROMPT 15 1 "Partita "
  FLAGS "D"
END

NUMBER S_RIGAF 4
BEGIN
  PROMPT 33 1 "Riga "
  FLAGS "D_"
END

NUMBER S_RATA 4
BEGIN
  PROMPT 46 1 "Rata "
  FLAGS "D"
END

DATE S_DATASCAD
BEGIN
  PROMPT 60 1 "del "
  FLAGS "D"
END

STRING S_NUMDOC 8
BEGIN
  PROMPT 2 2 "Documento "
  FLAGS "D"
END

DATE S_DATADOC
BEGIN
  PROMPT 22 2 "del "
  FLAGS "D"
END

NUMBER S_NREG 6
BEGIN
  PROMPT 42 2 "Registrazione "
  FLAGS "D_"
END

NUMBER S_NRIG 4
BEGIN
  PROMPT 65 2 "Riga "
  FLAGS "D"
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 3 "Totale"
END

TEXT DLG_NULL
BEGIN
  PROMPT 24 3 "Residuo"
END

TEXT DLG_NULL
BEGIN
  PROMPT 47 3 "In Euro"
END

STRING S_VALUTA 3
BEGIN
  PROMPT 19 4 ""
  FLAGS "D"
END

CURRENCY S_RESIDUO 15
BEGIN
  PROMPT 24 4 ""
  FLAGS "D"
  DRIVENBY S_VALUTA
END

CURRENCY S_TOTALE 15
BEGIN
  PROMPT 2 4 ""
  FLAGS "D"
  DRIVENBY S_VALUTA
END

CURRENCY S_RESIDUO_EUR 15
BEGIN
  PROMPT 47 4 ""
  FLAGS "D"
END

BOOLEAN S_SPUNTA
BEGIN
  PROMPT 2 6 "Seleziona"
END

BOOLEAN S_SALDO
BEGIN
  PROMPT 2 7 "Importo a saldo"
END

CURRENCY S_IMPORTO 15
BEGIN
  PROMPT 24 6 ""
  DRIVENBY -G_VALUTA
END

CURRENCY S_IMPORTO_EUR 15
BEGIN
  PROMPT 47 6 ""
  FLAGS "D"
END

NUMBER S_RIGAP 4
BEGIN
  PROMPT 65 6 "Pag. "
  FLAGS "D"
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 8 "Ritenute"
END

TEXT DLG_NULL
BEGIN
  PROMPT 24 7 "Fiscali"
END

TEXT DLG_NULL
BEGIN
  PROMPT 47 7 "Sociali"
END

CURRENCY S_RITFIS 15
BEGIN
  PROMPT 24 8 ""
  FLAGS "U"
END

CURRENCY S_RITSOC 15
BEGIN
  PROMPT 47 8 ""
  FLAGS "U"
END

LIST S_MODOPAG 1 34
BEGIN
  PROMPT 2 9 "Modalit<69> di pagamento "
  ITEM "1|Rimessa Diretta"
  ITEM "2|Tratta"
  ITEM "3|Ricevuta Bancaria"
  ITEM "4|Cessione"
  ITEM "5|Pagher<65>"
  ITEM "6|Lettera di credito"
  ITEM "7|Tratta accettata"
  ITEM "8|Rapporti interbancari diretti"
  ITEM "9|Bonifico"
END

DATE S_DATAPAG
BEGIN
  PROMPT 2 10 "Data                  "
END

ENDPAGE

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_OK 2 2
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_USER 2 2
BEGIN
  PROMPT 2 1 "Seleziona"
  PICTURE TOOL_RECALC
END

BUTTON DLG_CANCEL 2 2
BEGIN
  PROMPT 3 1 ""
END

ENDPAGE

ENDMASK