campo-sirio/cg/cg2100s.uml

#include "cg2100p.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 "@BScadenza"
END

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

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

NUMBER S_RIGA 4
BEGIN
  PROMPT 32 1 "Riga "
  FLAGS "D"
  FIELD NRIGA
END

NUMBER S_RATA 4
BEGIN
  PROMPT 44 1 "Rata "
  FLAGS "D"
  FIELD NRATA
END

DATE S_DATA_SCAD
BEGIN
  PROMPT 57 1 "Scadenza "  
  FLAGS "D"
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

LIST S_SEZIONE_SCAD 6
BEGIN
  PROMPT 2 4 "Sez. "
  ITEM "A|Avere"
  ITEM "D|Dare"
  FLAGS "D"
END         

NUMBER S_IMPORTO_SCAD 15
BEGIN
  PROMPT 18 4 "Importo "
  PICTURE "."
  FLAGS "DR"
END         

NUMBER S_IMPORTOVAL_SCAD 15 2
BEGIN
  PROMPT 43 4 "Importo in valuta "
  PICTURE ".2"
  FLAGS "DRV"
  GROUP 3
END

NUMBER S_RESIDUOPAG 15
BEGIN
  PROMPT 2 5 "Residuo pagamento       "
  PICTURE "."
  FLAGS "DR"
END         
            
NUMBER S_RESIDUORATA 15
BEGIN
  PROMPT 43 5 "Residuo rata      "
  PICTURE "."
  FLAGS "DRV"
END         
            
GROUPBOX DLG_NULL 78 12
BEGIN
  PROMPT 1 7 "@BPagamento"
END

NUMBER S_IMPORTO 15
BEGIN
  PROMPT 2 8 "Importo pagamento "
  PICTURE "."
  FIELD IMPORTO
  VALIDATE REQIF_FUNC 1 S_IMPORTOVAL
  WARNING "L'importo deve essere specificato"
END         

NUMBER S_IMPORTOVAL 15 2
BEGIN
  PROMPT 2 9 "Importo in valuta "
  PICTURE ".2"
  FIELD IMPORTOVAL
  GROUP 3
  VALIDATE REQIF_FUNC 1 S_IMPORTO
  WARNING "L'importo in valuta deve essere specificato"
END         

NUMBER S_RITENUTE 15
BEGIN
  PROMPT 38 8 "Ritenute professionali "
  PICTURE "."
  FIELD RITENUTE
  GROUP 2
END         

LIST S_SALDOACC 1 12
BEGIN
  PROMPT 2 10 "Saldo/Acc."
  ITEM "A|Acconto"
  ITEM "S|Saldo"
  FIELD ACCSAL
  GROUP 2
END         

LIST S_TIPOPAG 2 35
BEGIN
  PROMPT 27 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

DATE S_DATAPAG
BEGIN
  PROMPT 2 11 "Data pag. "
  FIELD DATAPAG
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
  GROUP 2
END

NUMBER S_CONTO 3
BEGIN
  PROMPT 42 12 "Conto "
  FIELD CONTOC
  GROUP 2
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 NORMAL
  VALIDATE REQIF_FUNC 1 S_IMPORTO
  GROUP 2
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
  GROUP 2
END

STRING S_CODDESC 5
BEGIN
  PROMPT 2 14 "Descriz. agg. "
  FLAGS "U"
  USE %DPN
  INPUT CODTAB S_CODDESC
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT S_CODDESC CODTAB
  OUTPUT S_DESCAGG S0
END

STRING S_DESCAGG 50
BEGIN
  PROMPT 24 14 ""
  USE %DPN KEY 2
  INPUT S0 S_DESCAGG
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT S_CODDESC
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 NORMAL
  FIELD CODABI
END

NUMBER S_VSCAB 5
BEGIN
  PROMPT 25 15 "CAB "
  FLAGS "Z"            
  COPY ALL S_VSABI
  CHECKTYPE NORMAL
  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 NORMAL
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 NORMAL
END

NUMBER S_NSCAB 5
BEGIN
  PROMPT 25 17 "CAB "
  FLAGS "Z"
  COPY ALL S_NSABI
  FIELD CODCABPR
  CHECKTYPE NORMAL
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 NORMAL
END

ENDPAGE

ENDMASK