campo-sirio/cg/cg2100s.uml

#include "cg2100.h"

TOOLBAR "" 0 20 0 2

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

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -23 -1 "~Elimina"
  MESSAGE EXIT,K_DEL
END

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

ENDPAGE


PAGE "Pagamento" -1 -1 77 20

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

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

STRING S_NUM 7
BEGIN
  PROMPT 19 1 "Numero "
  FLAGS "DR"
  FIELD NUMPART
END

STRING S_RIGA 4
BEGIN
  PROMPT 40 1 "Riga "
  FLAGS "DR"
  FIELD NRIGA
END

STRING S_NUMDOC 7
BEGIN
  PROMPT 2 2 "Numero Documento "
  FLAGS "D"
END

DATE S_DATADOC
BEGIN
  PROMPT 28 2 "Data documento "
  FLAGS "D"
END

NUMBER S_NUMPROT 5
BEGIN
  PROMPT 56 2 "Protocollo IVA "
  FLAGS "DR"
END

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

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

NUMBER S_IMPORTO 15
BEGIN
  PROMPT 38 5 "Importo "
  PICTURE "."
  FLAGS "DR"
END         

LIST S_SEZIONE 6
BEGIN
  PROMPT 68 5 ""
  ITEM "A|Avere"
  ITEM "D|Dare"
  FLAGS "D"
END         



GROUPBOX DLG_NULL 78 12
BEGIN
  PROMPT 1 7 "@BPagamento"
END

NUMBER S_IMPORTOPAG 15
BEGIN
  PROMPT 2 8 "Importo pagamento "
  PICTURE "."
  FIELD IMPORTO
  FLAGS "UR"
  WARNING "Inserire un importo inferiore al residuo"
END         

NUMBER S_RITENUTE 15
BEGIN
  PROMPT 38 8 "Ritenute professionali "
  PICTURE "."
  FLAGS "UR"
  FIELD RITENUTE
END         

LIST S_SALDOACC 1 12
BEGIN
  PROMPT 2 9 "Saldo "
  ITEM "A|Acconto"
  ITEM "S|Saldo"
  FIELD SALACC     
END         

DATE S_DATAPAG
BEGIN
  PROMPT 38 9 "Data pagamento         "
  FIELD DATAREG
END

STRING S_CODPAG 4
BEGIN
  PROMPT 2 10 "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
  CHECKTYPE REQUIRED
END

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

LIST S_TIPOPAG 2 35
BEGIN
  PROMPT 2 11 "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 12 "@bContropartita"
END             
             
LIST S_TIPO 1 12
BEGIN
  PROMPT 2 12 "Tipo "
  ITEM " |Conto"
  ITEM "C|Cliente"
  ITEM "F|Fornitore"
  FIELD TIPOC
  FLAGS "H"
END

NUMBER S_GRUPPO 3
BEGIN
  PROMPT 24 12 "Gruppo "
  FIELD GRUPPOC
  CHECKTYPE REQUIRED
  FLAGS "R"
END

NUMBER S_CONTO 3
BEGIN
  PROMPT 42 12 "Conto "
  FIELD CONTOC
  CHECKTYPE REQUIRED
  FLAGS "R"
END

NUMBER S_SOTTOCONTO 6
BEGIN
  PROMPT 57 12 "Sottoconto "
  FIELD SOTTOCONTC
  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
  FLAGS "R"
END

STRING S_DESCRCONTO 50
BEGIN
  PROMPT 2 13 "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 agg.      "
  FIELD DESCR
END

NUMBER S_VSABI 5
BEGIN
  PROMPT 2 15 "Vs. 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 CODABI
END

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

STRING S_DESCVSABI 50 37
BEGIN
  PROMPT 37 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 CODAG
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 "Ns. 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]
  OUTPUT S_DESCNSABI S0
  FIELD CODABIPR
  CHECKTYPE REQUIRED
END

NUMBER S_NSCAB 5
BEGIN
  PROMPT 25 17 "CAB "
  FLAGS "Z"
  COPY ALL S_NSABI
  FIELD CODCABPR
  CHECKTYPE REQUIRED
END

STRING S_DESCNSABI 50 37
BEGIN
  PROMPT 37 17 ""
  COPY USE S_DESCVSABI
  INPUT S0 S_DESCNSABI
  COPY DISPLAY S_DESCVSABI
  COPY OUTPUT S_NSABI
  CHECKTYPE REQUIRED
END

ENDPAGE

ENDMASK