campo-sirio/ef/ef0100a.uml

#include "ef0100.h"

TOOLBAR "" 0 19 0 2

#include <toolbar.h>

ENDPAGE

PAGE "Testata/Righe" 0 -1 0 19

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=F_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 "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 5
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 27 2  ""
  FLAGS "D"
  GROUP 12
END

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

GROUPBOX DLG_NULL 38 4
BEGIN
  PROMPT 0 5 "Banca d'appoggio"
END

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

NUMBER F_CODCAB 5
BEGIN
  PROMPT 1 7 "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"
END

GROUPBOX DLG_NULL 38 4
BEGIN
  PROMPT 41 5 "Banca di presentazione"
END

NUMBER F_CODABIP 5
BEGIN
  PROMPT 42 6 "Codice ABI        "
  FIELD CODABIP
  FLAGS "Z"
//  USE BNP KEY 1 SELECT CODTAB ?= "?????"
//  INPUT CODTAB F_CODABIP
//  DISPLAY "Codice ABI" CODTAB[1,5]
//  DISPLAY "Denominazione@50" S0
//  OUTPUT F_CODABIP CODTAB[1,5]
//  OUTPUT F_CODCABP CODTAB[6,10]
//  CHECKTYPE NORMAL
//  WARNING "Codice ABI assente"
END

NUMBER F_CODCABP 5
BEGIN
  PROMPT 42 7 "Codice CAB        "
  FIELD CODCABP
  FLAGS "Z"
  USE BNP 
// KEY 1 SELECT 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"  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 10 "Data di emissione "
  FIELD DATAEMISS
END

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

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

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

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

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

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

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

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

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

ENDPAGE

PAGE "Cessionari" 0 -1 0 19

GROUPBOX DLG_NULL 78 5
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 "D"
  GROUP 11
END

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

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

SPREADSHEET F_SHEET_EFF
BEGIN
  PROMPT 1 6 "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"