campo-sirio/ef/ef0100a.uml

#include "ef0100.h"

TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "Testata/Righe" 0 2 0 0

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 0 0 ""
END

NUMBER F_NPROGTR 7
BEGIN
  PROMPT 1 1 "Numero        "
  FIELD NPROGTR
  KEY 1
  USE LF_EFFETTI KEY 1
  JOIN LF_CLIFO TO LF_EFFETTI KEY 1 INTO CODCF=CODCF TIPOCF=TIPOCF
  INPUT NPROGTR F_NPROGTR
  DISPLAY "Nr.progr." NPROGTR   
  DISPLAY "Tipo" TIPOCF
  DISPLAY "Cod.cliente\nfornitore@11" CODCF
  DISPLAY "Data\nscadenza@10" DATASCAD
  DISPLAY "Tipo\ndistinta@9" TIPODIST
  DISPLAY "Nr.\ndistinta@9" NDIST
  DISPLAY "Importo@20V" IMPORTO
  DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
  OUTPUT F_NPROGTR NPROGTR
  CHECKTYPE REQUIRED
  MESSAGE COPY,10@
END

LIST F_TIPOCF 10
BEGIN
  PROMPT 1 2 "Tipo effetto  "
  ITEM "C|Attivo"
    MESSAGE SHOW,8@|HIDE,9@
  ITEM "F|Passivo"
    MESSAGE HIDE,8@|SHOW,9@
  FIELD TIPOCF
END

TEXT DLG_NULL
BEGIN         
  PROMPT 1 3 "Cliente"
  GROUP 8
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 3 "Fornitore"
  GROUP 9
END

NUMBER F_CODCF 6
BEGIN
  PROMPT 15 3 ""
  FIELD CODCF
  USE LF_CLIFO
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT CODCF F_CODCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CODCF CODCF
  OUTPUT F_CFRAGSOC RAGSOC
  OUTPUT F_CODABI CODABI
  OUTPUT F_CODCAB CODCAB
  CHECKTYPE REQUIRED
  ADD RUN cg0 -1
  MESSAGE COPY,11@
END

STRING F_CFRAGSOC 50
BEGIN
  PROMPT 25 3  ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT RAGSOC F_CFRAGSOC
  DISPLAY "Ragione sociale@60" RAGSOC
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_CODCF
  CHECKTYPE REQUIRED
  ADD RUN cg0 -1
  MESSAGE COPY,12@
END

DATE F_DATASCAD
BEGIN
  PROMPT 1 4 "Data scadenza "
  FIELD DATASCAD
  KEY 3
  USE LF_EFFETTI KEY 3
  JOIN LF_CLIFO TO LF_EFFETTI KEY 1 INTO CODCF=CODCF TIPOCF="C"
  INPUT DATASCAD F_DATASCAD
  INPUT NPROGTR F_NPROGTR
  DISPLAY "Data scadenza" DATASCAD
  DISPLAY "Nr. progressivo" NPROGTR
  DISPLAY "Codice cliente" CODCF
  DISPLAY "Nr. distinta" NDIST
  DISPLAY "Tipo distinta" TIPODIST
  COPY OUTPUT F_NPROGTR
  OUTPUT F_DATASCAD DATASCAD
  CHECKTYPE REQUIRED
  MESSAGE COPY,13@
END

LIST F_TIPOPAG 24
BEGIN
  PROMPT 1 6 "Tipo pagamento "
  FIELD TIPOPAG
  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 interb. diretti"
  ITEM "9|Bonifico"
END

STRING F_ULTCLASS 1
BEGIN
  PROMPT 46 6 "Ulteriore classificazione "
  FIELD ULTCLASS
  USE %CLR
  INPUT CODTAB[1,1] F_TIPOPAG  SELECT
  INPUT CODTAB[2,2] F_ULTCLASS
  DISPLAY "Classificazione" CODTAB[2,2]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_ULTCLASS CODTAB[2,2]
END

STRING F_CODVAL 3
BEGIN
  PROMPT 1 7 "Codice valuta  "
  FIELD CODVAL
  FLAGS "UZ"
  USE %VAL
  INPUT CODTAB F_CODVAL
  DISPLAY "Codice" CODTAB
  DISPLAY "Nome@50" S0
  OUTPUT F_CODVAL CODTAB
  OUTPUT F_CONTROEURO B1
  OUTPUT F_CAMBIO S4
  CHECKTYPE NORMAL
END

DATA F_DATACAM
BEGIN
  PROMPT 46 7 "Data cambio      "
  FIELD DATACAMBIO
  FLAGS "R"
  USE CAM
  INPUT CODTAB[1,3] F_CODVAL SELECT
  INPUT CODTAB[4,11] F_DATACAM
  DISPLAY "Valuta@9" CODTAB[1,3]
  DISPLAY "Data@12" D0
  DISPLAY "Cambio@19" S4
  OUTPUT F_DATACAM D0
  OUTPUT F_CONTROEURO B1
  OUTPUT F_CAMBIO S4
  CHECKTYPE SEARCH
  GROUP 1
END

NUMBER F_CAMBIO 15 6
BEGIN
  PROMPT 1 8 "Cambio         "
  FIELD CAMBIO
  FLAGS "RU"
  PICTURE ".6"
  CHECKTYPE REQUIRED
  WARNING "E' stata specificata una valuta senza il cambio relativo"
  GROUP 1
END

BOOLEAN F_CONTROEURO
BEGIN
  PROMPT 40 8 "Controeuro    "
  FIELD CONTROEURO
END

BOOLEAN F_ULTRATA
BEGIN
  PROMPT 56 8 "Ultima rata"
  FIELD ULTRATA
END

SPREADSHEET F_SHEET_RIGHE 0 -2
BEGIN
  PROMPT 1 9 "Righe effetto"
  ITEM "Importo effetto@18"
  ITEM "Imp.effetto val.@18"
  ITEM "Cod.numerazione"
  ITEM "Numerazione"
  ITEM "Anno fattura"
  ITEM "Nr. fattura"
  ITEM "Data fattura"
  ITEM "Importo fatt.@20"
  ITEM "Imp.fatt.val.@20"
  ITEM "Anno partita"
  ITEM "Nr. partita"
  ITEM "Nr. riga"
  ITEM "Nr. rata"
END

CURRENCY F_TOTIMP 18
BEGIN
  PROMPT 1 -1 "Totale importi "
  FIELD IMPORTO
  FLAG "D"
END

CURRENCY F_TOTIMPVAL 18
BEGIN
  PROMPT 41 -1 "Totale in valuta "
  DRIVENBY F_CODVAL
  FIELD IMPORTOVAL
  FLAG "D"
END

ENDPAGE

PAGE "Parametri" 0 -1 0 19

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 0 0 ""
END

NUMBER DLG_NULL 7
BEGIN
  PROMPT 1 1 "Numero         "
  FLAGS "RD"
  GROUP 10
END

TEXT DLG_NULL
BEGIN         
  PROMPT 1 2 "Cliente"
  GROUP 8
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 2 "Fornitore"
  GROUP 9
END

NUMBER DLG_NULL 6
BEGIN
  PROMPT 16 2 ""
  FLAGS "RD"
  GROUP 11
END

STRING DLG_NULL 50
BEGIN
  PROMPT 26 2  ""
  FLAGS "D"
  GROUP 12
END

DATE DLG_NULL
BEGIN
  PROMPT 51 1 "Data scadenza  "
  FLAGS "D"
  GROUP 13
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 0 4 "@bBanca d'appoggio"
END

NUMBER F_CODABI 5
BEGIN
  PROMPT 1 5 "Codice ABI        "
  FIELD CODABI
  FLAGS "Z"
  USE %BAN SELECT CODTAB ?= "?????"
  INPUT CODTAB F_CODABI
  DISPLAY "Codice ABI" CODTAB[1,5]
  DISPLAY "Denominazione@50" S0
  OUTPUT F_CODABI CODTAB[1,5]
  CHECKTYPE REQUIRED
  WARNING "Codice ABI assente"
  MESSAGE COPY,F_BBAN_ABI
END

NUMBER F_CODCAB 5
BEGIN
  PROMPT 41 5 "Codice CAB        "
  FIELD CODCAB
  FLAGS "Z"
  USE %BAN KEY 1 SELECT CODTAB ?= "??????????"
  INPUT CODTAB[1,5] F_CODABI
  INPUT CODTAB[6,10] F_CODCAB
  DISPLAY "Codice ABI" CODTAB[1,5]
  DISPLAY "Codice CAB" CODTAB[6,10]
  DISPLAY "Denominazione@50"  S0
  OUTPUT F_CODABI CODTAB[1,5]
  OUTPUT F_CODCAB CODTAB[6,10]
  CHECKTYPE REQUIRED
  VALIDATE REQIF_FUNC 1 F_CODCABP
  WARNING "Banca assente"
  MESSAGE COPY,F_BBAN_CAB
END

STRING F_IBAN 34
BEGIN
  PROMPT 2 60 ""
  FLAGS "D"
  FIELD IBAN
END

STRING F_IBAN_STATO 2
BEGIN
  PROMPT 1 6 "Codice IBAN  "
  FLAGS "U"
  VALIDATE CHECK_IBAN_FUNC F_IBAN F_IBAN_STATO F_IBAN_CHECK F_BBAN F_BBAN_CIN F_BBAN_ABI F_BBAN_CAB F_BBAN_CONTO
END

NUMBER F_IBAN_CHECK 2
BEGIN
  PROMPT 19 6 ""
  FLAGS "UZ"
  VALIDATE CHECK_IBAN_FUNC F_IBAN F_IBAN_STATO F_IBAN_CHECK F_BBAN F_BBAN_CIN F_BBAN_ABI F_BBAN_CAB F_BBAN_CONTO
END

STRINGA F_BBAN 30
BEGIN
  PROMPT 30 6 "BBAN "
  FLAGS "UH"
END

STRINGA F_BBAN_CIN 1
BEGIN
  PROMPT 30 6 "BBAN "
  FLAGS "U"
  VALIDATE CHECK_BBAN_FUNC F_BBAN F_BBAN_CIN F_BBAN_ABI F_BBAN_CAB F_BBAN_CONTO
END

NUMBER F_BBAN_ABI 5
BEGIN
  PROMPT 38 6 ""
  FLAGS "DGZ"
END

NUMBER F_BBAN_CAB 5
BEGIN
  PROMPT 45 6 ""
  FLAGS "DGZ"
END

STRING F_BBAN_CONTO 12
BEGIN
  PROMPT 52 6 ""
  FLAGS "UZ"
  VALIDATE CHECK_BBAN_FUNC F_BBAN F_BBAN_CIN F_BBAN_ABI F_BBAN_CAB F_BBAN_CONTO
END


GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 0 8 "@bBanca di presentazione"
END

NUMBER F_CODABIP 5
BEGIN
  PROMPT 1 9 "Codice ABI        "
  FIELD CODABIP
  FLAGS "Z"
END

NUMBER F_CODCABP 5
BEGIN
  PROMPT 41 9 "Codice CAB        "
  FIELD CODCABP
  FLAGS "Z"
  USE BNP 
  JOIN %BAN ALIAS 100 INTO CODTAB==CODTAB
  INPUT CODTAB[1,5] F_CODABIP
  INPUT CODTAB[6,10] F_CODCABP
  DISPLAY "Codice ABI" CODTAB[1,5]
  DISPLAY "Codice CAB" CODTAB[6,10]
  DISPLAY "Denominazione@50" 100@->S0
  OUTPUT F_CODABIP CODTAB[1,5]
  OUTPUT F_CODCABP CODTAB[6,10]
  CHECKTYPE NORMAL
  VALIDATE REQIF_FUNC 1 F_CODCABP
  WARNING "Banca assente"
END

DATE F_DATAEMISS
BEGIN
  PROMPT 1 11 "Data di emissione "
  FIELD DATAEMISS
END

NUMBER F_NUMEMISS 8
BEGIN
  PROMPT 42 11 "Nr. di emissione  "
  FIELD NUMEMISS
END

BOOLEAN F_EFFSTAMP
BEGIN
  PROMPT 1 12 "Effetto stampato"
  FIELD EFFSTAMP
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 0 13 "@bDistinta"
END

LIST F_TIPODIST 15
BEGIN
  PROMPT 1 14 "Tipo distinta    "
  FIELD TIPODIST
  ITEM " | "
  ITEM "I|All'incasso"
  ITEM "B|Salvo buon fine"
  ITEM "S|Allo sconto"
  FLAGS "D"
END

NUMBER F_NDIST 5
BEGIN
  PROMPT 42 14 "Nr. distinta      "
  FIELD NDIST
  FLAGS "D"
  VALIDATE NOT_EMPTY_FUNC
  WARNING "Numero di distinta obbligatorio se si e' inserito il tipo di distinta"
END

DATE F_DATADIST
BEGIN
  PROMPT 1 15 "Data distinta     "
  FIELD DATADIST
  FLAGS "D"
END

NUMBER F_NRIGADIST 4
BEGIN
  PROMPT 42 15 "Nr. di riga       "
  FIELD NRIGADIST
  FLAGS "D"
END

BOOLEAN F_DISTSTAM
BEGIN
  PROMPT 1 16 "Distinta stampata"
  FIELD DISTSTAM
  FLAGS "D"
END

DATE F_DATARIBA
BEGIN
  PROMPT 1 18 "Data Ri.Ba.       "
  FIELD DATARIBA
END

BOOLEAN F_DISRIBAEST
BEGIN
  PROMPT 42 18 "Distinta Ri.Ba. estratta"
  FIELD DISRIBAEST
END

BOOLEAN F_EFFCONT
BEGIN
  PROMPT 1 19 "Effetto contabilizzato"
  FIELD EFFCONT
END

BOOLEAN F_EFFCOMP
BEGIN
  PROMPT 42 19 "Effetto completato"
  FIELD EFFCOMP
END

ENDPAGE

PAGE "Cessionari" 0 -1 0 19

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 0 0 ""
END

NUMBER DLG_NULL 7
BEGIN
  PROMPT 1 1 "Numero         "
  FLAGS "RD"
  GROUP 10
END

DATE DLG_NULL
BEGIN
  PROMPT 51 1 "Data scadenza  "
  FLAGS "D"
  GROUP 13
END

TEXT DLG_NULL
BEGIN         
  PROMPT 1 2 "Cliente"
  GROUP 8
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 2 "Fornitore"
  GROUP 9
END

NUMBER DLG_NULL 6
BEGIN
  PROMPT 16 2 ""
  FLAGS "D"
  GROUP 11
END

STRING DLG_NULL 50
BEGIN
  PROMPT 26 2  ""
  FLAGS "D"
  GROUP 12
END

SPREADSHEET F_SHEET_EFF
BEGIN
  PROMPT 1 4 "Obbligati principali"
  ITEM "Ragione Sociale@50"
  ITEM "Localita'@35"
  ITEM "Stato"
  ITEM "Cod. comune"
  ITEM "Comune@50"
END

ENDPAGE

ENDMASK

#include "ef0100c.uml"
#include "ef0100b.uml"