campo-sirio/ef/ef0100a.uml

#include "ef0100.h"

TOOLBAR "" 0 20 0 2

#include <toolbar.h>

ENDPAGE

PAGE "Gestione Effetti" 0 -1 0 19

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 0 "Dati effetto"
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 "Data fattura" DATAFATT
  DISPLAY "Numero fattura" NFATT
  DISPLAY "Importo fattura @R" IMPFATT
  DISPLAY "Importo effetto @R" IMPORTO
  DISPLAY "Tipo" TIPOPAG
  DISPLAY "Nr distinta" NDIST
  DISPLAY "Tipo distinta" TIPODIST
  OUTPUT F_NPROGTR NPROGTR
  OUTPUT F_CODCF CODCF
  OUTPUT F_DATASCAD DATASCAD
  OUTPUT F_CFRAGSOC LF_CLIFO->RAGSOC
  CHECKTYPE REQUIRED
  HELP "Inserire il numero progressivo dell'effetto"
END

NUMBER F_CODCF 6
BEGIN
  PROMPT 2 2 "Cod. cliente "
  FIELD LF_EFFETTI->CODCF
  KEY 2
  USE LF_EFFETTI KEY 2
  JOIN LF_CLIFO TO LF_EFFETTI KEY 1 INTO CODCF=CODCF TIPOCF="C"
  INPUT CODCF F_CODCF 
  INPUT NPROGTR F_NPROGTR
  DISPLAY "Codice cliente" CODCF
  DISPLAY "Nr. progressivo" NPROGTR
  DISPLAY "Data scadenza"  DATASCAD
  DISPLAY "Data fattura" DATAFATT
  DISPLAY "Numero fattura" NFATT
  DISPLAY "Importo fattura @R" IMPFATT
  DISPLAY "Importo effetto @R" IMPORTO
  DISPLAY "Tipo" TIPOPAG
  DISPLAY "Nr distinta" NDIST
  DISPLAY "Tipo distinta" TIPODIST
  COPY OUTPUT F_NPROGTR
  CHECKTYPE REQUIRED
  HELP "Inserire il codice del cliente. F8 ricerca cliente."
END

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

LIST F_TIPOPAG 18
BEGIN
  PROMPT 2 4 "Tipo effetto      "
  FIELD LF_EFFETTI->TIPOPAG
  ITEM "2|Tratta"
  MESSAGE DISABLE,F_CODFOR|RESET,F_CODFOR
  ITEM "3|Ricevuta bancaria"
  MESSAGE DISABLE,F_CODFOR|UNDO,F_CODFOR
  ITEM "4|Cessione"
  MESSAGE ENABLE,F_CODFOR|UNDO,F_CODFOR
  ITEM "5|Paghero'"
  MESSAGE DISABLE,F_CODFOR|UNDO,F_CODFOR
  HELP "Inserire il tipo dell'effetto"
END

STRING F_ULTCLASS 1
BEGIN
  PROMPT 42 4 "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]
  HELP "Inserire l'ulteriore classificazione dell'effetto"
END

DATE F_DATASCAD
BEGIN
  PROMPT 2 5 "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 "Data fattura" DATAFATT
  DISPLAY "Numero fattura" NFATT
  DISPLAY "Importo fattura @R" IMPFATT
  DISPLAY "Importo effetto @R" IMPORTO
  DISPLAY "Tipo" TIPOPAG
  DISPLAY "Nr distinta" NDIST
  DISPLAY "Tipo distinta" TIPODIST
  COPY OUTPUT F_NPROGTR
  CHECKTYPE REQUIRED
  HELP "Inserire la data di scadenza dell'effetto"
END

NUMBER F_IMPORTO 15
BEGIN
  PROMPT 42 5 "Importo effetto   "
  FIELD LF_EFFETTI->IMPORTO
  FLAGS "R"
  PICTURE "."
  HELP "Inserire l'importo dell'effetto"
  VALIDATE NOT_EMPTY_FUNC
  WARNING "Manca l'importo dell'effetto"
END

STRING F_NFATT  7
BEGIN
  PROMPT 2 7 "Nr. fattura       "
  FIELD LF_EFFETTI->NFATT
  VALIDATE NOT_EMPTY_FUNC
  HELP "Inserire il numero della fattura"
  WARNING "Manca il numero della fattura"
END

DATE  F_DATAFATT
BEGIN
  PROMPT 2 8 "Data fattura      "
  FIELD LF_EFFETTI->DATAFATT
  VALIDATE NOT_EMPTY_FUNC
  HELP "Inserire la data della fattura"
  WARNING "Manca la data della fattura"
END

NUMBER F_IMPFATT 15
BEGIN
  PROMPT 42 8 "Importo fattura   "
  FIELD LF_EFFETTI->IMPFATT
  FLAGS "R"
  PICTURE "."
  NUM_EXPR {#THIS_FIELD>=#F_IMPORTO}
  HELP "Inserire l'importo della fattura"
  WARNING "L'importo dell'effetto deve essere contenuto nell'importo di fattura"
END

NUMBER F_NRATA 3
BEGIN
  PROMPT 2 9 "Nr. rata          "
  FIELD LF_EFFETTI->NRATA
  HELP "Inserire il numero della rata"
END

BOOLEAN F_ULTRATA
BEGIN
  PROMPT 42 9 "Ultima rata"
  FIELD LF_EFFETTI->ULTRATA
  HELP "Inserire se e' l'ultima rata relativa alla fattura"
END

GROUPBOX DLG_NULL 38 4
BEGIN
  PROMPT 1 10 "Banca d'appoggio"
END

NUMBER F_CODABI 5
BEGIN
  PROMPT 2 11 "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 "Codice CAB" CODTAB[6,10]
  DISPLAY "Denominazione@50" S0
  OUTPUT F_CODABI CODTAB[1,5]
  OUTPUT F_CODCAB CODTAB[6,10]
  CHECKTYPE REQUIRED
  HELP "Inserire il codice ABI della banca d'appoggio"
END

NUMBER F_CODCAB 5
BEGIN
  PROMPT 2 12 "Codice CAB        "
  FIELD LF_EFFETTI->CODCAB
  FLAGS "RZ"
  USE %BAN
  INPUT CODTAB[1,5] F_CODABI
  INPUT CODTAB[6,10] F_CODCAB
  COPY DISPLAY F_CODABI
  OUTPUT F_CODABI CODTAB[1,5]
  OUTPUT F_CODCAB CODTAB[6,10]
  CHECKTYPE REQUIRED
  HELP "Inserire il codice CAB della banca d'appoggio"
END

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

NUMBER F_CODABIP 5
BEGIN
  PROMPT 42 11 "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 "Codice CAB" CODTAB[6,10]
  DISPLAY "Denominazione@50" S0
  OUTPUT F_CODABIP CODTAB[1,5]
  OUTPUT F_CODCABP CODTAB[6,10]
  CHECKTYPE NORMAL
  HELP "Inserire il codice ABI della banca di presentazione effetti"
END

NUMBER F_CODCABP 5
BEGIN
  PROMPT 42 12 "Codice CAB        "
  FIELD LF_EFFETTI->CODCABP
  FLAGS "RZ"
  USE %BAN
  INPUT CODTAB[1,5] F_CODABIP
  INPUT CODTAB[6,10] F_CODCABP
  COPY DISPLAY F_CODABIP
  OUTPUT F_CODABIP CODTAB[1,5]
  OUTPUT F_CODCABP CODTAB[6,10]
  CHECKTYPE NORMAL
  HELP "Inserire il codice CAB della banca di presentazione effetti"
END
GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 14 "Dati stampa"
END

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

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

NUMBER F_IMPBOLLO 15
BEGIN
  PROMPT 2 16 "Importo bollo      "
  FIELD LF_EFFETTI->IMPBOLLO
  FLAGS "R"
  PICTURE "."
END

BOOLEAN F_EFFSTAMP
BEGIN
  PROMPT 48 16 "Effetto stampato"
  FIELD LF_EFFETTI->EFFSTAMP
END

ENDPAGE

PAGE "Pag. 2" 0 -1 0 19

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 0 "Dati distinta"
END

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

NUMBER F_NDIST 8
BEGIN
  PROMPT 53 1 "Nr Distinta   "
  FIELD LF_EFFETTI->NDIST
  FLAGS "D"
  VALIDATE NOT_EMPTY_FUNC
  HELP "Inserire il numero della distinta"
  WARNING "Numero di distinta obbligatorio se si e' inserito il tipo di distinta"
  GROUP 2
END

DATE F_DATADIST
BEGIN
  PROMPT 2 2 "Data distinta  "
  FIELD LF_EFFETTI->DATADIST
  FLAGS "D"
  HELP "Inserire la data della distinta"
  GROUP 2
END

BOOLEAN F_DISTSTAM
BEGIN
  PROMPT 36 2 "Stampata"
  FIELD LF_EFFETTI->DISTSTAM
  FLAGS "D"
  HELP "Inserire se la distinta e' stato stampata"
  GROUP 2
END

NUMBER F_NRIGADIST 6
BEGIN
  PROMPT 53 2 "Nr di riga    " 
  FIELD LF_EFFETTI->NRIGADIST
  FLAGS "D"
  HELP "Inserire il numero di riga della distinta"
  GROUP 2
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 4 "Dati Ri.Ba."
END

DATE F_DATARIBA
BEGIN
  PROMPT 2 5 "Data Ri.Ba.    "
  FIELD LF_EFFETTI->DATARIBA
  HELP "Inserire la data della Ricevuta Bancaria"
END

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

NUMBER F_CODFOR 6
BEGIN
  PROMPT 2 7 "Cod. fornitore "
  FIELD LF_EFFETTI->CODFOR
  USE LF_CLIFO KEY 1 
  INPUT TIPOCF "F"
  INPUT CODCF F_CODFOR
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Sospeso" SOSPESO
  OUTPUT F_CODFOR CODCF
  CHECKTYPE NORMAL
  HELP "Inserire il codice del fornitore relativo alla cessione"
END

BOOLEAN F_EFFCONT 
BEGIN
  PROMPT 49 7 "Effetto contabilizzato"
  FIELD LF_EFFETTI->EFFCONT
  HELP "Inserire se l'effetto e' contabilizzato"
END

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

BOOLEAN F_EFFCOMP
BEGIN
  PROMPT 2 15 "Effetto compilato"
  FIELD LF_EFFETTI->EFFCOMP
END

ENDPAGE

ENDMASK

#include "ef0100b.uml"