// DEFINIZIONE CAMPI MASCHERA PRINCIPALE PER LA GESTIONE EFFETTI
#include "ef0100.h"

TOOLBAR "" 0 19 0 2

#include <toolbar.h>

ENDPAGE

PAGE "Testata/Righe" 0 -1 0 19

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 0 ""
END

NUMBER F_NPROGTR 7
BEGIN        
  PROMPT 2 1 "Numero         "
  FIELD LF_EFFETTI->NPROGTR
  FLAGS "R"
  KEY 1
  USE LF_EFFETTI KEY 1
  JOIN LF_CLIFO TO LF_EFFETTI KEY 1 INTO CODCF=CODCF TIPOCF="C"
  INPUT NPROGTR F_NPROGTR
  DISPLAY "Nr. progressivo" NPROGTR
  DISPLAY "Codice cliente" CODCF
  DISPLAY "Data scadenza" DATASCAD
  DISPLAY "Tipo distinta" TIPODIST
  DISPLAY "Nr. distinta" NDIST
  OUTPUT F_NPROGTR NPROGTR
  OUTPUT F_CODCF CODCF
  OUTPUT F_DATASCAD DATASCAD
  OUTPUT F_TIPOPAG TIPOPAG
  OUTPUT F_CFRAGSOC LF_CLIFO->RAGSOC
  CHECKTYPE REQUIRED
END

NUMBER F_CODCF 6
BEGIN        
  PROMPT 2 2 "Cliente        "
  FIELD LF_EFFETTI->CODCF
  USE LF_CLIFO
  INPUT TIPOCF "C"
  INPUT CODCF F_CODCF 
  DISPLAY "Ragione sociale@60" RAGSOC
  DISPLAY "Codice" CODCF
  OUTPUT F_CODCF CODCF
  OUTPUT F_CFRAGSOC RAGSOC
  CHECKTYPE REQUIRED
END

STRING F_CFRAGSOC 50
BEGIN
  PROMPT 26 2  ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC F_CFRAGSOC 
  DISPLAY "Ragione sociale@60" RAGSOC
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_CODCF
  CHECKTYPE REQUIRED
END

DATE F_DATASCAD
BEGIN        
  PROMPT 2 3 "Data scadenza  "
  FIELD LF_EFFETTI->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
  CHECKTYPE REQUIRED
END

LIST F_TIPOPAG 24
BEGIN        
  PROMPT 2 5 "Tipo pagamento "
  FIELD LF_EFFETTI->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|Bonifici"
END

STRING F_ULTCLASS 1
BEGIN         
  PROMPT 46 5 "Ulteriore classificazione "
  FIELD LF_EFFETTI->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 2 6 "Codice valuta  "
  FIELD LF_EFFETTI->CODVAL
  FLAGS "UZ"
  USE %VAL
  INPUT CODTAB F_CODVAL
  DISPLAY "Codice" CODTAB
  DISPLAY "Nome@50" S0
  OUTPUT F_CODVAL CODTAB
  CHECKTYPE NORMAL
END

DATA F_DATACAM
BEGIN         
  PROMPT 46 6 "Data cambio      "
  FIELD LF_EFFETTI->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" R10
  OUTPUT F_DATACAM D0
  OUTPUT F_CAMBIO R10
  CHECKTYPE SEARCH
  GROUP 1
END

NUMBER F_CAMBIO 15  5
BEGIN         
  PROMPT 2 7 "Cambio         "
  FIELD LF_EFFETTI->CAMBIO
  FLAGS "RU"
  PICTURE ".5"
  CHECKTYPE REQUIRED
  WARNING "E' stata specificata una valuta senza il cambio relativo"
  GROUP 1
END

BOOLEAN F_ULTRATA
BEGIN        
  PROMPT 46 7 "Ultima rata"
  FIELD LF_EFFETTI->ULTRATA
END

SPREADSHEET F_SHEET_RIGHE 76 7
BEGIN
  PROMPT 2 9 "RIGHE EFFETTO"
  ITEM "Importo fatt.@20"
  ITEM "Importo effet.@14"
  ITEM "Imp.fatt.val.@20"
  ITEM "Imp.effet.val.@14"
  ITEM "Anno partita"
  ITEM "Nr. partita"
  ITEM "Nr. riga"
  ITEM "Nr. rata"
  ITEM "Numerazione"
  ITEM "Codice numeraz."   
  ITEM "Anno fattura"
  ITEM "Nr. fattura"
  ITEM "Data fattura"
END

NUMBER F_TOTIMP 18 2
BEGIN         
  PROMPT 2 17 "Totale importi           "
  FIELD LF_EFFETTI->IMPORTO   
  PICTURE "###.###.###.###,@@"
  FLAG "D"
END

NUMBER F_TOTIMPVAL 18 3
BEGIN   
  PROMPT 2 18 "Totale importi in valuta "
  FIELD LF_EFFETTI->IMPORTOVAL
  PICTURE "###.###.###.###,@@@"
  FLAG "D"
  //GROUP 1
END 

ENDPAGE

PAGE "Parametri" 0 -1 0 19

GROUPBOX DLG_NULL 38 4 
BEGIN
  PROMPT 1 1 "BANCA D'APPOGGIO"
END

NUMBER F_CODABI 5
BEGIN
  PROMPT 2 2 "Codice ABI        "
  FIELD LF_EFFETTI->CODABI
  FLAGS "RZ"
  USE %BAN KEY 1 SELECT CODTAB ?= "?????" 
  INPUT CODTAB F_CODABI
  DISPLAY "Codice ABI" CODTAB[1,5]
  DISPLAY "Denominazione@50" S0
  OUTPUT F_CODABI CODTAB[1,5]
  OUTPUT F_CODCAB CODTAB[6,10]
  CHECKTYPE REQUIRED
  WARNING "Codice ABI assente"
END

NUMBER F_CODCAB 5
BEGIN        
  PROMPT 2 3 "Codice CAB        "
  FIELD LF_EFFETTI->CODCAB
  FLAGS "RZ"
  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 1 "BANCA DI PRESENTAZIONE"
END

NUMBER F_CODABIP 5
BEGIN         
  PROMPT 42 2 "Codice ABI        "
  FIELD LF_EFFETTI->CODABIP
  FLAGS "RZ"
  USE %BAN 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 3 "Codice CAB        "
  FIELD LF_EFFETTI->CODCABP
  FLAGS "RZ"
  USE %BAN 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

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 5 ""
END

DATE F_DATAEMISS
BEGIN        
  PROMPT 2 6 "Data di emissione "
  FIELD LF_EFFETTI->DATAEMISS
END

NUMBER F_NUMEMISS 8
BEGIN         
  PROMPT 42 6 "Nr. di emissione  "
  FIELD LF_EFFETTI->NUMEMISS
END

BOOLEAN F_EFFSTAMP
BEGIN
  PROMPT 2 7 "Effetto stampato"
  FIELD LF_EFFETTI->EFFSTAMP
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 9 ""
END

LIST F_TIPODIST 15
BEGIN         
  PROMPT 2 10 "Tipo distinta     "
  FIELD LF_EFFETTI->TIPODIST
  ITEM " |** Nessuno **"
  MESSAGE DISABLE,2@|RESET,2@
  ITEM "I|All'incasso"
  MESSAGE ENABLE,2@
  ITEM "B|Salvo buon fine"
  MESSAGE ENABLE,2@
  ITEM "S|Allo sconto"
  MESSAGE ENABLE,2@
END

NUMBER F_NDIST 8
BEGIN          
  PROMPT 42 10 "Nr. distinta      "
  FIELD LF_EFFETTI->NDIST
  FLAGS "D"
  VALIDATE NOT_EMPTY_FUNC
  WARNING "Numero di distinta obbligatorio se si e' inserito il tipo di distinta"
  GROUP 2
END

DATE F_DATADIST
BEGIN         
  PROMPT 2 11 "Data distinta     "
  FIELD LF_EFFETTI->DATADIST
  FLAGS "D"
  GROUP 2
END

BOOLEAN F_DISTSTAM
BEGIN
  PROMPT 2 12 "Distinta stampata"
  FIELD LF_EFFETTI->DISTSTAM
  FLAGS "D"
  GROUP 2
END

NUMBER F_NRIGADIST 6
BEGIN         
  PROMPT 42 12 "Nr. di riga       " 
  FIELD LF_EFFETTI->NRIGADIST
  FLAGS "D"
  GROUP 2
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 14 ""
END

DATE F_DATARIBA
BEGIN         
  PROMPT 2 15 "Data Ri.Ba.       "
  FIELD LF_EFFETTI->DATARIBA
END

BOOLEAN F_DISRIBAEST
BEGIN          
  PROMPT 42 15 "Distinta Ri.Ba. estratta"
  FIELD LF_EFFETTI->DISRIBAEST
END

BOOLEAN F_EFFCONT 
BEGIN
  PROMPT 2 17 "Effetto contabilizzato"
  FIELD LF_EFFETTI->EFFCONT
END

BOOLEAN F_EFFCOMP
BEGIN
  PROMPT 42 17 "Effetto completato"
  FIELD LF_EFFETTI->EFFCOMP
END

ENDPAGE

PAGE "Cessionari" 0 -1 0 19

SPREADSHEET F_SHEET_EFF 76 8
BEGIN
  PROMPT 3 2 "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"