campo-sirio/src/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 5
BEGIN
  PROMPT 0 0 ""
END

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

NUMBER F_NPROGTR 7
BEGIN
  PROMPT 30 1 "Numero "
  FIELD NPROGTR
  KEY 1
  USE LF_EFFETTI 
//	SELECT (TIPOCF=#F_TIPOCF)&&(BETWEEN(CODCF,#F_CODCF,#F_CODCF))
  JOIN LF_CLIFO 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

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

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

NUMBER F_CODCF 6
BEGIN
  PROMPT 10 2 ""
  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 23 2  ""
  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 3 "Scadenza "
  FIELD DATASCAD
  KEY 3
  USE LF_EFFETTI KEY 3 SELECT (TIPOCF=#F_TIPOCF)&&(BETWEEN(CODCF, #F_CODCF, #F_CODCF))
  JOIN LF_CLIFO INTO TIPOCF==TIPOCF CODCF==CODCF
  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
  DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
  COPY OUTPUT F_NPROGTR
  OUTPUT F_DATASCAD DATASCAD
  CHECKTYPE REQUIRED
  MESSAGE COPY,13@
END

LIST F_TIPOPAG 24
BEGIN
  PROMPT 1 5 "Tipo pagamento "
  FIELD TIPOPAG
  ITEM "2|Tratta"
    MESSAGE DISABLE,F_MANDATO
  ITEM "3|Ricevuta Bancaria"
    MESSAGE DISABLE,F_MANDATO
  ITEM "4|Cessione"
    MESSAGE DISABLE,F_MANDATO
  ITEM "5|Paghero'"
    MESSAGE DISABLE,F_MANDATO
  ITEM "6|Lettera di credito"
    MESSAGE DISABLE,F_MANDATO
  ITEM "7|Tratta accettata"
    MESSAGE DISABLE,F_MANDATO
  ITEM "8|Rapporti interb. diretti"
    MESSAGE ENABLE,F_MANDATO
  ITEM "9|Bonifico"
  MESSAGE DISABLE,F_MANDATO
END

STRING F_ULTCLASS 1
BEGIN
  PROMPT 46 5 "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_MANDATO 35
BEGIN
  PROMPT 1 6 "Mandato R.I.D. "
  USE &EFMAN SELECT I0=#F_CODCF
  INPUT CODTAB F_MANDATO
  DISPLAY "Codice@35" CODTAB
  DISPLAY "Data@10" D0
  DISPLAY "IBAN@34" S1
  DISPLAY "Descrizione@50" S0
  OUTPUT F_MANDATO CODTAB
  OUTPUT F_IBAN S1
  CHECTYPE REQUIRED
  FIELD MANDATO
  ADD RUN ef0 -1 &EFMAN
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_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_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_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"
  ITEM "A/S"
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

STRING F_IBAN_STATO 2
BEGIN
  PROMPT 1 5 "Stato "
  FLAGS "U"
END

NUMBER F_IBAN_CHECK 2
BEGIN
  PROMPT 11 5 ""
  FLAGS "UZ"
  VALIDATE CHECK_IBAN_FUNC F_IBAN F_IBAN_STATO F_IBAN_CHECK F_BBAN F_BBAN_CIN F_CODABI F_CODCAB F_BBAN_CONTO -1 0
END

STRINGA F_BBAN_CIN 1
BEGIN
  PROMPT 17 5 ""
  FLAGS "U"
  VALIDATE CHECK_BBAN_FUNC F_BBAN F_BBAN_CIN F_CODABI F_CODCAB F_BBAN_CONTO
END

NUMBER F_CODABI 5
BEGIN
  PROMPT 20 5 "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"
END

NUMBER F_CODCAB 5
BEGIN
  PROMPT 35 5 "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
  WARNING "Banca assente"
END

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

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

STRING F_BBAN_CONTO 12
BEGIN
  PROMPT 1 6 "Conto "
  FLAGS "UZ"
  VALIDATE CHECK_BBAN_FUNC F_BBAN F_BBAN_CIN F_CODABI F_CODCAB 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 26 9 "Codice CAB     "
  FIELD CODCABP
  FLAGS "Z"
  USE BNP
  JOIN %BAN ALIAS 100 INTO CODTAB==CODTAB[1,10]
  INPUT CODTAB[1,5] F_CODABIP
  INPUT CODTAB[6,10] F_CODCABP
  INPUT CODTAB[11,12] F_PROG
  DISPLAY "ABI@5" CODTAB[1,5]
  DISPLAY "CAB@5" CODTAB[6,10]
  DISPLAY "Progr." CODTAB[11,12]
  DISPLAY "IBAN@25" S3
  DISPLAY "Denominazione@50" 100@->S0
  OUTPUT F_CODABIP CODTAB[1,5]
  OUTPUT F_CODCABP CODTAB[6,10]
  OUTPUT F_PROG CODTAB[11,12]
  CHECKTYPE NORMAL
  VALIDATE REQIF_FUNC 1 F_CODCABP
  WARNING "Banca assente"
END

NUMBER F_PROG 2
BEGIN        
  PROMPT 50 9 "Progressivo    "
  FLAGS "Z"              
  FIELD PROGBNP
  COPY ALL F_CODCABP
  CHECKTYPE SEARCH
END     
 
STRING F_CUP 15
BEGIN
  PROMPT 2 11 "CUP      "
  USE %CUP
  INPUT CODTAB F_CUP
  DISPLAY "Codice@15" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CUP CODTAB
  OUTPUT F_DCUP S0
  FIELD CUP
  CHECKTYPE NORMAL
END

STRING F_DCUP 50 30
BEGIN
  PROMPT 40 11 ""
  USE %CUP KEY 2
  INPUT S0 F_DCUP
  DISPLAY "Ragione Sociale@50" S0
  DISPLAY "Codice@15" CODTAB
  COPY OUTPUT F_CUP
END

STRING F_CIG 10
BEGIN
  PROMPT 2 12 "CIG      "
  USE %CIG
  INPUT CODTAB F_CIG
  DISPLAY "Codice@10" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice gara" S1
  OUTPUT F_CIG CODTAB
  OUTPUT F_DCIG S0
  FIELD CIG
  CHECKTYPE NORMAL
END

STRING F_DCIG 50 30
BEGIN
  PROMPT 40 12 ""
  USE %CIG KEY 2
  INPUT S0 F_DCIG
  DISPLAY "Ragione Sociale@50" S0
  DISPLAY "Codice@10" CODTAB
  COPY OUTPUT F_CIG
END

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

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

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

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

LIST F_TIPODIST 15
BEGIN
  PROMPT 1 16 "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 16 "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 17 "Data distinta     "
  FIELD DATADIST
  FLAGS "D"
END

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

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

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

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

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

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

STRING F_CONTSEP 6
BEGIN
  PROMPT 1 22 "Contab. separata "
  USE &NPENT
  INPUT CODTAB F_CONTSEP
  DISPLAY "Codice@6" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CONTSEP CODTAB
  OUTPUT F_DESCONTSEP S0
  CHECKTYPE NORMAL
  FIELD CONTSEP
END

STRING F_DESCONTSEP 50 30
BEGIN
  PROMPT 40 22 ""
  USE &NPENT KEY 2
  INPUT S0 F_DESCONTSEP
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@6" CODTAB
  COPY OUTPUT F_CONTSEP
  CHECKTYPE NORMAL
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"