d0ab8cc457
Files correlati : Ricompilazione Demo : [ ] Commento : riportata la versione 98.01.05 patch 34 git-svn-id: svn://10.65.10.50/trunk@7409 c028cbd2-c16b-5b4b-a496-9718f37d4682
445 lines
7.6 KiB
Plaintext
Executable File
445 lines
7.6 KiB
Plaintext
Executable File
#include "ef0100.h"
|
|
|
|
TOOLBAR "" 0 19 0 2
|
|
|
|
#include <toolbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Testata/Righe" 0 -1 0 19
|
|
|
|
GROUPBOX DLG_NULL 80 5
|
|
BEGIN
|
|
PROMPT 0 0 ""
|
|
END
|
|
|
|
NUMBER F_NPROGTR 7
|
|
BEGIN
|
|
PROMPT 1 1 "Numero "
|
|
FIELD 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
|
|
DISPLAY "Ragione Sociale Cliente@50" LF_CLIFO->RAGSOC
|
|
OUTPUT F_NPROGTR NPROGTR
|
|
CHECKTYPE REQUIRED
|
|
MESSAGE COPY,10@
|
|
END
|
|
|
|
NUMBER F_CODCF 6
|
|
BEGIN
|
|
PROMPT 1 2 "Cliente "
|
|
FIELD CODCF
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF "C"
|
|
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 27 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
|
|
ADD RUN cg0 -1
|
|
MESSAGE COPY,12@
|
|
END
|
|
|
|
DATE F_DATASCAD
|
|
BEGIN
|
|
PROMPT 1 3 "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 5 "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 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_CODVAL 3
|
|
BEGIN
|
|
PROMPT 1 6 "Codice valuta "
|
|
FIELD 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 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 1 7 "Cambio "
|
|
FIELD 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 ULTRATA
|
|
END
|
|
|
|
SPREADSHEET F_SHEET_RIGHE 0 7
|
|
BEGIN
|
|
PROMPT 1 9 "Righe effetto"
|
|
ITEM "Importo effetto@14"
|
|
ITEM "Imp.effetto val.@14"
|
|
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
|
|
|
|
NUMBER F_TOTIMP 18 2
|
|
BEGIN
|
|
PROMPT 1 17 "Totale importi "
|
|
FIELD IMPORTO
|
|
PICTURE "###.###.###.###,@@"
|
|
FLAG "D"
|
|
END
|
|
|
|
NUMBER F_TOTIMPVAL 18 3
|
|
BEGIN
|
|
PROMPT 1 18 "Totale importi in valuta "
|
|
FIELD IMPORTOVAL
|
|
PICTURE "###.###.###.###,@@@"
|
|
FLAG "D"
|
|
//GROUP 1
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Parametri" 0 -1 0 19
|
|
|
|
GROUPBOX DLG_NULL 80 5
|
|
BEGIN
|
|
PROMPT 0 0 ""
|
|
END
|
|
|
|
NUMBER DLG_NULL 7
|
|
BEGIN
|
|
PROMPT 1 1 "Numero "
|
|
FLAGS "RD"
|
|
GROUP 10
|
|
END
|
|
|
|
NUMBER DLG_NULL 6
|
|
BEGIN
|
|
PROMPT 1 2 "Cliente "
|
|
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 %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 7 "Codice CAB "
|
|
FIELD CODCABP
|
|
FLAGS "Z"
|
|
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
|
|
|
|
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 80 5
|
|
BEGIN
|
|
PROMPT 0 0 ""
|
|
END
|
|
|
|
NUMBER DLG_NULL 7
|
|
BEGIN
|
|
PROMPT 1 1 "Numero "
|
|
FLAGS "RD"
|
|
GROUP 10
|
|
END
|
|
|
|
NUMBER DLG_NULL 6
|
|
BEGIN
|
|
PROMPT 1 2 "Cliente "
|
|
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
|
|
|
|
SPREADSHEET F_SHEET_EFF 0 8
|
|
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"
|
|
|