campo-sirio/cg/cg2100s.uml

#include "cg2100p.h"

#ifndef NO_TOOLBAR

TOOLBAR "" 0 -2 0 2

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -13 -11 "Conferma"
  PICTURE BMP_OK
END

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -23 -11 "~Elimina"
  PICTURE BMP_DELREC
  PICTURE BMP_DELRECDN
  MESSAGE EXIT,K_DEL
END

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

ENDPAGE

#endif

PAGE "Pagamento" -1 -1 77 20

GROUPBOX S_RATA 78 6
BEGIN
  PROMPT 1 1 "@BCliente COD Partita ANNO NUMERO  Riga:RIGA Rata:RATA del DATA"
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 "D"
END

STRING S_DESCR 51
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         

CURRENCY S_IMPORTO_SCAD 18
BEGIN
  PROMPT 17 4 "Importo "
  FLAGS "D"
END         

STRING S_CODVAL 3
BEGIN
  PROMPT 41 9 "Codice valuta     "
  FLAGS "DU"
END

CURRENCY S_IMPORTOVAL_SCAD 18
BEGIN
  PROMPT 45 4 "in valuta    "
  FLAGS "D"
  DRIVENBY S_CODVAL
  GROUP 3
END

CURRENCY S_RESIDUOPAG 18
BEGIN
  PROMPT 2 5 "Residuo pagamento      "
  FLAGS "D"
END         
            
CURRRENCY S_RESIDUORATA 18
BEGIN
  PROMPT 45 5 "Residuo rata "
  FLAGS "D"
END         

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

CURRENCY S_IMPORTO 18
BEGIN
  PROMPT 2 8 "Importo pagamento "
  FIELD IMPORTO
  VALIDATE REQIF_FUNC 1 S_IMPORTOVAL
  WARNING "L'importo deve essere specificato"
END         

CURRENCY S_RITENUTE 18
BEGIN
  PROMPT 41 8 "Ritenute profess. "
  FIELD RITENUTE
  MESSAGE DIRTY,S_IMPORTO|K_TAB,S_IMPORTO
END         

CURRENCY S_IMPORTOVAL 18
BEGIN
  PROMPT 2 9 "Importo in valuta "
  DRIVENBY S_CODVAL
  FIELD IMPORTOVAL
  GROUP 3
  VALIDATE REQIF_FUNC 1 S_IMPORTO
  WARNING "L'importo in valuta deve essere specificato"
END         

DATE S_DATAPAG
BEGIN
  PROMPT 2 10 "Data pag. "
  CHECKTYPE REQUIRED
  FIELD LF_PARTITE->DATAPAG
END

LIST S_TIPOPAG 1 33
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"
  FIELD LF_PARTITE->TIPOPAG
END

RADIOBUTTON S_SALDOACC 1 24
BEGIN
  PROMPT 1 10 ""  
  FLAGS "Z"
  ITEM "A|Acconto" 
  ITEM "S|Saldo"
  FIELD ACCSAL
END         

TEXT DLG_NULL
BEGIN
  PROMPT 2 12 "@bContropartita"
  GROUP 2
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 REQUIRED
  WARNING "Contropartita assente"
  ADD RUN cg0 -0
  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 NORMAL
  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
  CHECKTYPE SEARCH
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
  FIELD LF_PARTITE->DESCR
END

NUMBER S_VSABI 5
BEGIN
  PROMPT 2 15 "Vs. Banca ABI "
  FLAGS "Z"
  USE %BAN SELECT CODTAB ? "?????"
  INPUT CODTAB[1,5] S_VSABI
  DISPLAY "ABI@5" CODTAB[1,5]
  DISPLAY "Denominazione@50" S0
  OUTPUT S_VSABI CODTAB[1,5]
  OUTPUT S_DESCVSABID S0
  CHECKTYPE NORMAL
  FIELD CODABI
END

NUMBER S_VSCAB 5
BEGIN
  PROMPT 25 15 "CAB "
  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 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_VSCAB
  CHECKTYPE NORMAL
END

STRING S_DESCVSABID 50 37
BEGIN
  PROMPT 37 16 ""
  CHECKTYPE NORMAL  
  FLAGS "D"
END

STRING S_AGENTE 5
BEGIN
  PROMPT 2 17 "Agente        "
  FLAGS "UZ"
  USE LF_AGENTI
  INPUT CODAGE S_AGENTE
  DISPLAY "Codice" CODAGE
  DISPLAY "Descrizione @50" RAGSOC
  OUTPUT S_AGENTE CODAGE
  OUTPUT S_DESCAGENTE RAGSOC
  CHECKTYPE NORMAL
  FIELD CODAG
END

STRING S_DESCAGENTE 50
BEGIN
  PROMPT 24 17 ""
  USE LF_AGENTI KEY 2
  INPUT RAGSOC S_DESCAGENTE
  DISPLAY "Descrizione @50" RAGSOC
  DISPLAY "Codice" CODAGE
  COPY OUTPUT S_AGENTE
  CHECKTYPE NORMAL
END

NUMBER S_NSABI 5
BEGIN
  PROMPT 2 18 "Ns. Banca ABI "
  FLAGS "Z"      
  COPY USE S_VSABI
  INPUT CODTAB[1,5] S_NSABI
  COPY DISPLAY S_VSABI
  OUTPUT S_NSABI CODTAB[1,5]
  OUTPUT S_DESCNSABID S0
  FIELD CODABIPR
  CHECKTYPE NORMAL
END

NUMBER S_NSCAB 5
BEGIN
  PROMPT 25 18 "CAB "
  FLAGS "Z"
  COPY USE S_VSCAB
  INPUT CODTAB[1,5] S_NSABI
  INPUT CODTAB[6,10] S_NSCAB
  COPY DISPLAY S_VSCAB
  OUTPUT S_NSABI CODTAB[1,5]
  OUTPUT S_NSCAB CODTAB[6,10]
  OUTPUT S_DESCNSABI S0
  FIELD CODCABPR
  CHECKTYPE NORMAL
END

STRING S_DESCNSABI 50 37
BEGIN
  PROMPT 37 18 ""
  COPY USE S_DESCVSABI
  INPUT S0 S_DESCNSABI
  COPY DISPLAY S_DESCVSABI
  COPY OUTPUT S_NSCAB
  CHECKTYPE NORMAL
END

STRING S_DESCNSABID 50 37
BEGIN
  PROMPT 37 19 ""
  CHECKTYPE NORMAL
  FLAGS "D"
END

ENDPAGE

ENDMASK