c85ed9c594
Files correlati : ef0.exe ef0100a.msk ef0300a.msk ef0800a.msk Ricompilazione Demo : [ ] Commento : GF20044 Pur avendo inserito, nella relativa tabella, le banche di presentazione quando cerco di inserire una distinta sulla bamca xy appare il seguente messaggio d'errore:"VALORE NON VALIDO PER BANCA DI PRESENTAZIONE XY" GF20045 Nella pagina parametri banche di presentazione se vado in ricerca non mi appare la denominazione della Banca. GF20046 Ho generato degli effetti raggruppati creando tre ricevute bancarie dell'importo della fattura al netto dell'importo della nota di credito, nell'operazione contabile di contabilizzazione della relativa distinta di presentazione non riesce a chiudere correttamente le partite o meglio crea in fondo alla partita delle righe 9999 rata 9999 invece di chiudere la rata corrispondente. git-svn-id: svn://10.65.10.50/trunk@11283 c028cbd2-c16b-5b4b-a496-9718f37d4682
493 lines
8.0 KiB
Plaintext
Executable File
493 lines
8.0 KiB
Plaintext
Executable File
#include "ef0100.h"
|
|
|
|
TOOLBAR "" 0 -2 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=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 "Importo@20" IMPORTO
|
|
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"
|
|
END
|
|
|
|
NUMBER F_CODCABP 5
|
|
BEGIN
|
|
PROMPT 42 7 "Codice CAB "
|
|
FIELD CODCABP
|
|
FLAGS "Z"
|
|
USE BNP
|
|
JOIN %BAN ALIAS 100 INTO CODTAB==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" 100@->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"
|
|
|