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
183 lines
3.4 KiB
Plaintext
Executable File
183 lines
3.4 KiB
Plaintext
Executable File
// DEFINIZIONE MASCHERA PRINCIPALE PER LA GESTIONE DISTINTE
|
|
#include "ef0300.h"
|
|
|
|
TOOLBAR "" 0 -2 0 2
|
|
#include <toolbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Distinta" 0 -1 0 19
|
|
|
|
GROUPBOX DLG_NULL 78 10
|
|
BEGIN
|
|
PROMPT 1 0 ""
|
|
END
|
|
|
|
LIST F_TIPODIST 17
|
|
BEGIN
|
|
PROMPT 2 1 "Tipo Distinta "
|
|
KEY 4
|
|
FIELD LF_EFFETTI->TIPODIST
|
|
ITEM "I|All'incasso"
|
|
MESSAGE ENABLE,F_TIPOCF
|
|
ITEM "B|Salvo buon fine"
|
|
MESSAGE RESET,F_TIPOCF|DISABLE,F_TIPOCF
|
|
ITEM "S|Allo sconto"
|
|
MESSAGE RESET,F_TIPOCF|DISABLE,F_TIPOCF
|
|
END
|
|
|
|
LIST F_NUMBERRIGA 12
|
|
BEGIN
|
|
PROMPT 1 60 "Numero Riga Distinta "
|
|
KEY 4
|
|
FIELD LF_EFFETTI->NRIGADIST
|
|
ITEM "1|PRIMA RIGA"
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_NUMBER 5
|
|
BEGIN
|
|
PROMPT 48 1 "Numero Distinta "
|
|
FIELD LF_EFFETTI->NDIST
|
|
FLAGS "R"
|
|
KEY 4
|
|
USE LF_EFFETTI KEY 4 SELECT NRIGADIST == 1
|
|
INPUT TIPODIST F_TIPODIST
|
|
INPUT NDIST F_NUMBER
|
|
INPUT NRIGADIST F_NUMBERRIGA
|
|
DISPLAY "Numero" NDIST
|
|
DISPLAY "Tipo" TIPODIST
|
|
DISPLAY "Data@10" DATADIST
|
|
DISPLAY "ABI@5" CODABIP
|
|
DISPLAY "CAB@5" CODCABP
|
|
DISPLAY "C/F@5" TIPOCF
|
|
OUTPUT F_NUMBER NDIST
|
|
OUTPUT F_TIPODIST TIPODIST
|
|
OUTPUT F_NUMBERRIGA NRIGADIST
|
|
OUTPUT F_NPROGTR NPROGTR
|
|
OUTPUT F_TIPOCF TIPOCF
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
NUMBER F_NPROGTR 7
|
|
BEGIN
|
|
PROMPT 1 60 ""
|
|
KEY 1
|
|
FIELD LF_EFFETTI->NPROGTR
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE F_DATA
|
|
BEGIN
|
|
PROMPT 2 2 "Data Distinta "
|
|
FIELD LF_EFFETTI->DATADIST
|
|
END
|
|
|
|
LIST F_TIPOCF 10
|
|
BEGIN
|
|
PROMPT 48 2 "Tipo effetti "
|
|
ITEM "C|Attivi"
|
|
ITEM "F|Passivi"
|
|
END
|
|
|
|
NUMBER F_CODABIP 5
|
|
BEGIN
|
|
PROMPT 15 3 "Codice ABI "
|
|
FIELD LF_EFFETTI->CODABIP
|
|
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]
|
|
OUTPUT F_DENBANP 100@->S0
|
|
CHECKTYPE SEARCH
|
|
END
|
|
|
|
NUMBER F_CODCABP 5
|
|
BEGIN
|
|
PROMPT 15 4 "Codice CAB "
|
|
FIELD LF_EFFETTI->CODCABP
|
|
FLAGS "Z"
|
|
COPY ALL F_CODABIP
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_DENBANP 50
|
|
BEGIN
|
|
PROMPT 2 5 "Banca di Presentazione "
|
|
USE %BAN KEY 2 SELECT 100@->CODTAB!=""
|
|
JOIN BNP ALIAS 100 INTO CODTAB==CODTAB
|
|
INPUT S0 F_DENBANP
|
|
DISPLAY "Denominazione@50" S0
|
|
DISPLAY "Codice ABI" CODTAB[1,5]
|
|
DISPLAY "Codice CAB" CODTAB[6,10]
|
|
OUTPUT F_CODABIP CODTAB[1,5]
|
|
OUTPUT F_CODCABP CODTAB[6,10]
|
|
OUTPUT F_DENBANP S0
|
|
CHECKTYPE SEARCH
|
|
END
|
|
|
|
LIST F_TIPOPAG 24
|
|
BEGIN
|
|
PROMPT 2 6 "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|Bonifico"
|
|
END
|
|
|
|
STRING F_CODVAL 3
|
|
BEGIN
|
|
PROMPT 2 7 "Codice Valuta "
|
|
FLAGS "UZ"
|
|
USE %VAL
|
|
INPUT CODTAB F_CODVAL
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Nome@50" S0
|
|
OUTPUT F_CODVAL CODTAB
|
|
END
|
|
|
|
CURRENCY F_TOTIMP 18
|
|
BEGIN
|
|
PROMPT 2 8 "Valore di presentazione "
|
|
FLAGS "D"
|
|
DRIVENBY F_CODVAL
|
|
END
|
|
|
|
BUTTON F_IMPBUTTON 9 2
|
|
BEGIN
|
|
PROMPT 50 7 "~Selezione"
|
|
PICTURE BMP_SELECT
|
|
END
|
|
|
|
SPREADSHEET F_SHEET_RIBA
|
|
BEGIN
|
|
PROMPT 0 10 "RIGHE DISTINTA"
|
|
ITEM "Da elim."
|
|
ITEM "Nr. Ri.Ba."
|
|
ITEM "Scadenza"
|
|
ITEM "Cliente/Fornitore@50"
|
|
ITEM "Banca d'appoggio@40"
|
|
ITEM "Nr. Fattura"
|
|
ITEM "Data Fattura"
|
|
ITEM "Nr. Rata"
|
|
ITEM "Valuta"
|
|
ITEM "Importo"
|
|
ITEM "Importo Val."
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|
|
|
|
#include "ef0300b.uml"
|
|
|