campo-sirio/cg/cg2100s.uml

#include "cg2100.h"

TOOLBAR "" 0 20 0 2

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -12 -1 ""
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -22 -1 ""
END

ENDPAGE


PAGE "Pagamento" -1 -1 77 20

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 1 0 "@BPartita"
END

NUMBER S_ANNO 4
BEGIN
  PROMPT 2 1 "Anno partita "  
  FLAGS "RD"
END

STRING S_NUM 7
BEGIN
  PROMPT 38 1 "Numero partita "
  FLAGS "D"
END

STRING S_DESCR 50
BEGIN
  PROMPT 2 2 "Descrizione "
  FLAGS "D"
END

NUMBER S_RATA 4
BEGIN
  PROMPT 2 3 "Rata    "
  FLAGS "D"
END
                                                                                        
DATE S_DATASCAD
BEGIN
  PROMPT 20 3 "Data    "  
  FLAGS "D"
END
            
NUMBER S_RESIDUO 15
BEGIN
  PROMPT 44 3 "Residuo          "
  PICTURE "."
  FLAGS "D"
END         
            
NUMBER S_IMPORTOVAL 15 3
BEGIN
  PROMPT 2 4 "Importo in valuta "
  PICTURE ".3"
  FLAGS "D"
END

NUMBER S_IMPORTO 15
BEGIN
  PROMPT 44 4 "Importo in lire  "
  PICTURE "."
  FLAGS "D"
END         


GROUPBOX DLG_NULL 78 13
BEGIN
  PROMPT 1 6 "@BPagamento"
END

NUMBER S_IMPORTOPAG 15
BEGIN
  PROMPT 2 7 "Importo pagamento "
  PICTURE "."
  FIELD IMPORTOPAG
END         

NUMBER S_IMPORTOPAG 15
BEGIN
  PROMPT 38 7 "Ritenute professionali "
  PICTURE "."
  FIELD RITENUTE
END         

BOOLEAN S_SALDOACC
BEGIN
  PROMPT 2 8 "Saldo "
  FIELD SALDOACC     
END         

DATE S_DATAPAG
BEGIN
  PROMPT 38 8 "Data pagamento    "
  FIELD DATAPAG
END

STRING S_CODPAG 4
BEGIN
  PROMPT 2 9 "Pagamento "
  FLAGS "UZ"
  USE CPG
  INPUT CODTAB S_CODPAG
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Tipo" I0
  OUTPUT S_CODPAG CODTAB
  OUTPUT S_DESPAG S0
  OUTPUT S_TIPOPAG I0
  FIELD CODPAG
END

STRING S_DESPAG 50
BEGIN
  PROMPT 24 9 ""
  USE CPG KEY 2
  INPUT S0 S_DESPAG
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  DISPLAY "Tipo" I0
  COPY OUTPUT S_CODPAG
END

LIST S_TIPOPAG 2 40
BEGIN
  PROMPT 2 10 "Tipo pagamento "
  ITEM "1|Rimessa Diretta"
  ITEM "2|Tratta"
  ITEM "3|Ricevuta Bancaria"
  ITEM "4|Cessione"
  ITEM "5|Paghero'"
  ITEM "6|Lettera di credito"
  ITEM "7|Tratta accettata"
  ITEM "8|Rapporti interbancari diretti"
  ITEM "9|Bonifico"
  ITEM "10|Altro"  
  FIELD TIPOPAG
END
             
TEXT DLG_NULL
BEGIN
  PROMPT 2 11 "@bConto di contropartita"
END             
             
LIST S_TIPO 1 12
BEGIN
  PROMPT 2 12 "Tipo "
  ITEM " |Conto"
  ITEM "C|Cliente"
  ITEM "F|Fornitore"
  FIELD TIPOCF
  FLAGS "H"
END

NUMBER S_GRUPPO 3
BEGIN
  PROMPT 28 11 "Gruppo "
  FIELD GRUPPO
  CHECKTYPE REQUIRED
END

NUMBER S_CONTO 3
BEGIN
  PROMPT 44 11 "Conto "
  FIELD CONTO
  CHECKTYPE REQUIRED
END

NUMBER S_SOTTOCONTO 6
BEGIN
  PROMPT 58 11 "Sottoconto "
  FIELD SOTTOCONTO
  USE LF_PCON
  INPUT GRUPPO S_GRUPPO
  INPUT CONTO S_CONTO
  INPUT SOTTOCONTO S_SOTTOCONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT S_GRUPPO GRUPPO
  OUTPUT S_CONTO CONTO
  OUTPUT S_SOTTOCONTO SOTTOCONTO
  OUTPUT S_DESCRCONTO DESCR
  CHECKTYPE REQUIRED
END

STRING S_DESCRCONTO 50
BEGIN
  PROMPT 2 12 "Descrizione conto      "
  USE LF_PCON KEY 2
  INPUT DESCR S_DESCRCONTO
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT S_SOTTOCONTO
  CHECKTYPE REQUIRED
END

STRING S_DESCAGG 50
BEGIN
  PROMPT 2 14 "Descrizione aggiuntiva "
  FIELD DESCAGG
END

NUMBER S_VSABI 5
BEGIN
  PROMPT 2 15 "Vostra Banca - ABI "
  FLAGS "Z"
  USE %BAN
  INPUT CODTAB[1,5] S_VSABI
  INPUT CODTAB[6,10] S_VSCAB
  DISPLAY "ABI@5" CODTAB[1,5]
  DISPLAY "CAB@5" CODTAB[6,10]
  DISPLAY "Denominazione@50" S0
  OUTPUT S_VSABI CODTAB[1,5]
  OUTPUT S_VSCAB CODTAB[6,10]
  OUTPUT S_DESCVSABI S0
  CHECKTYPE REQUIRED
  FIELD VSABI
END

NUMBER S_VSCAB 5
BEGIN
  PROMPT 30 15 "CAB "
  FLAGS "Z"            
  COPY ALL S_VSABI
  CHECKTYPE REQUIRED
  FIELD VSCAB
END

STRING S_DESCVSABI 50 32
BEGIN
  PROMPT 42 15 ""
  USE %BAN KEY 2
  INPUT S0 S_DESCVSABI
  DISPLAY "Denominazione@50" S0
  DISPLAY "ABI@5" CODTAB[1,5]
  DISPLAY "CAB@5" CODTAB[6,10]
  COPY OUTPUT S_VSABI
  CHECKTYPE REQUIRED
END

STRING S_AGENTE 5
BEGIN
  PROMPT 2 16 "Agente "
  FLAGS "UZ"
  USE AGE
  INPUT CODTAB S_AGENTE
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione @50" S0
  OUTPUT S_AGENTE CODTAB
  OUTPUT S_DESCAGENTE S0
  CHECKTYPE NORMAL
  FIELD AGENTE
END

STRING S_DESCAGENTE 50
BEGIN
  PROMPT 24 16 ""
  USE AGE KEY 2
  INPUT S0 S_DESCAGENTE
  DISPLAY "Descrizione @50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT S_AGENTE
  CHECKTYPE NORMAL
END


NUMBER S_NSABI 5
BEGIN
  PROMPT 2 17 "Nostra Banca - ABI "
  FLAGS "Z"      
  COPY USE S_VSABI
  INPUT CODTAB[1,5] S_NSABI
  INPUT CODTAB[6,10] S_NSCAB
  COPY DISPLAY S_VSABI
  OUTPUT S_NSABI CODTAB[1,5]
  OUTPUT S_NSCAB CODTAB[6,10]
  FIELD NSABI 
  CHECKTYPE REQUIRED
END

NUMBER S_VSCAB 5
BEGIN
  PROMPT 30 17 "CAB "
  FLAGS "Z"
  COPY ALL S_NSABI
  FIELD NSCAB
  CHECKTYPE REQUIRED
END

STRING S_DESCNSABI 50 32
BEGIN
  PROMPT 42 15 ""
  COPY USE S_DESCVSABI
  INPUT S0 S_DESCNSABI
  COPY DISPLAY S_DESCVSABI
  COPY OUTPUT S_NSABI
  CHECKTYPE REQUIRED
END

ENDPAGE

ENDMASK