394 lines
7.5 KiB
Plaintext
Executable File
394 lines
7.5 KiB
Plaintext
Executable File
// 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 "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"
|
|
|