0fe6774d4c
Files correlati : ef0.exe Ricompilazione Demo : [ ] Commento : Bug 0001475: 0001837: Aggiungere selezione banca di appoggio su Disp. Incassi e pagamenti Nel programma di disposizioni incasso e pagamento non è possibile selezionare su quale banca bonificare il fornitore tra quelle presenti in anagrafica. Inoltre anche dal programma aggiornamento effetti se vado nella pagina dei parametri, non posso selezionare dalla tabella dalle banche del fornitore ma dall'anagrafica delle banche. git-svn-id: svn://10.65.10.50/branches/R_10_00@22152 c028cbd2-c16b-5b4b-a496-9718f37d4682
560 lines
8.6 KiB
Plaintext
Executable File
560 lines
8.6 KiB
Plaintext
Executable File
#include "ef0A00a.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
|
|
BUTTON DLG_NEWREC 10 2
|
|
BEGIN
|
|
PROMPT -16 -1 "~Nuovo"
|
|
PICTURE BMP_NEWREC
|
|
PICTURE BMP_NEWRECDN
|
|
GROUP 3
|
|
END
|
|
|
|
BUTTON DLG_SAVEREC 10 2
|
|
BEGIN
|
|
PROMPT -26 -1 "~Registra"
|
|
|
|
PICTURE BMP_SAVEREC
|
|
PICTURE BMP_SAVERECDN
|
|
END
|
|
|
|
BUTTON DLG_DELREC 10 2
|
|
BEGIN
|
|
PROMPT -36 -1 "~Elimina"
|
|
|
|
PICTURE BMP_DELREC
|
|
PICTURE BMP_DELRECDN
|
|
GROUP 5
|
|
END
|
|
|
|
BUTTON DLG_PRINT 10 2
|
|
BEGIN
|
|
PROMPT -46 -1 ""
|
|
PICTURE BMP_PRINT
|
|
END
|
|
|
|
#include <cancelbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Disposizioni incassi/pagamenti" 0 2 0 0
|
|
|
|
GROUPBOX DLG_NULL 78 6
|
|
BEGIN
|
|
PROMPT 1 0 "@bDistinta"
|
|
END
|
|
|
|
LIST F_TIPODIST 1 15
|
|
BEGIN
|
|
PROMPT 2 1 "Tipo "
|
|
ITEM "I|All'incasso"
|
|
MESSAGE ENABLE,F_TIPOEFF
|
|
ITEM "B|Salvo buon fine"
|
|
MESSAGE RESET,F_TIPOEFF|DISABLE,F_TIPOEFF
|
|
ITEM "S|Allo sconto"
|
|
MESSAGE RESET,F_TIPOEFF|DISABLE,F_TIPOEFF
|
|
GROUP 3
|
|
END
|
|
|
|
LIST F_DUMMYDIST 1
|
|
BEGIN
|
|
PROMPT 15 1 ""
|
|
ITEM "1|1"
|
|
FLAGS "H"
|
|
END
|
|
|
|
NUMBER F_DIST 5
|
|
BEGIN
|
|
PROMPT 28 1 "Numero "
|
|
USE LF_EFFETTI KEY 4 SELECT NRIGADIST==1
|
|
INPUT TIPODIST F_TIPODIST
|
|
INPUT NDIST F_DIST
|
|
INPUT NRIGADIST F_DUMMYDIST
|
|
DISPLAY "Tipo" TIPODIST
|
|
DISPLAY "Numero" NDIST
|
|
DISPLAY "Data@10" DATADIST
|
|
DISPLAY "C/F" TIPOCF
|
|
DISPLAY "ABI@5" CODABIP
|
|
DISPLAY "CAB@5" CODCABP
|
|
DISPLAY "Valuta" CODVAL
|
|
OUTPUT F_TIPODIST TIPODIST
|
|
OUTPUT F_DIST NDIST
|
|
OUTPUT F_DATADIST DATADIST
|
|
OUTPUT F_CODVAL CODVAL
|
|
OUTPUT F_CAMBIO CAMBIO
|
|
OUTPUT F_DATACAMBIO DATACAMBIO
|
|
OUTPUT F_EURO CONTROEURO
|
|
OUTPUT F_TIPOCF TIPOCF
|
|
OUTPUT F_ABI CODABIP
|
|
OUTPUT F_CAB CODCABP
|
|
OUTPUT F_PROG PROGBNP
|
|
OUTPUT F_TIPOPAG TIPOPAG
|
|
OUTPUT F_SPESE SPESE
|
|
CHECKTYPE SEARCH
|
|
GROUP 4
|
|
END
|
|
|
|
STRING F_CODVAL 3
|
|
BEGIN
|
|
PROMPT 50 1 "Valuta "
|
|
FLAGS "UZ"
|
|
USE %VAL
|
|
INPUT CODTAB F_CODVAL
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Cambio\nStandard" S4
|
|
DISPLAY "Contro\nEuro@6" B1
|
|
DISPLAY "Denominazione@50" S0
|
|
OUTPUT F_CODVAL CODTAB
|
|
OUTPUT F_EURO B1
|
|
CHECKTYPE NORMAL
|
|
GROUP 3
|
|
MESSAGE EMPTY CLEAR,6@
|
|
MESSAGE ENABLE,6@
|
|
END
|
|
|
|
BOOLEAN F_EURO
|
|
BEGIN
|
|
PROMPT 64 1 "Contro Euro"
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE F_DATADIST
|
|
BEGIN
|
|
PROMPT 2 2 "Data "
|
|
FLAGS "A"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
DATE F_DATACAMBIO
|
|
BEGIN
|
|
PROMPT 23 2 "Data cambio "
|
|
FLAGS "R"
|
|
USE CAM
|
|
JOIN %VAL ALIAS 104 INTO CODTAB[1,3]==CODTAB[1,3]
|
|
INPUT CODTAB[1,3] F_CODVAL SELECT
|
|
INPUT CODTAB[4,11] F_DATACAMBIO
|
|
DISPLAY "Cod" CODTAB[1,3]
|
|
DISPLAY "Data@10" D0
|
|
DISPLAY "Cambio" S4
|
|
DISPLAY "Parita'\nEuro@6" B1
|
|
DISPLAY "Valuta@50" 104@->S0
|
|
OUTPUT F_DATACAMBIO D0
|
|
OUTPUT F_CAMBIO S4
|
|
CHECKTYPE SEARCH
|
|
GROUP 6
|
|
END
|
|
|
|
NUMBER F_CAMBIO 15 6
|
|
BEGIN
|
|
PROMPT 50 2 "Cambio "
|
|
GROUP 6
|
|
END
|
|
|
|
NUMBER F_ABI 5
|
|
BEGIN
|
|
PROMPT 2 3 "Banca "
|
|
FLAGS "Z"
|
|
USE BNP
|
|
JOIN %BAN ALIAS 100 INTO CODTAB==CODTAB[1,10]
|
|
INPUT CODTAB[1,5] F_ABI
|
|
INPUT CODTAB[6,10] F_CAB
|
|
INPUT CODTAB[11,12] F_PROG
|
|
DISPLAY "ABI@5" CODTAB[1,5]
|
|
DISPLAY "CAB@5" CODTAB[6,10]
|
|
DISPLAY "Progr." CODTAB[11,12]
|
|
DISPLAY "IBAN@25" S3
|
|
DISPLAY "Denominazione@50" 100@->S0
|
|
OUTPUT F_ABI CODTAB[1,5]
|
|
OUTPUT F_CAB CODTAB[6,10]
|
|
OUTPUT F_DESCAB 100@->S0
|
|
OUTPUT F_PROG CODTAB[11,12]
|
|
CHECKTYPE SEARCH
|
|
END
|
|
|
|
NUMBER F_CAB 5
|
|
BEGIN
|
|
PROMPT 17 3 ""
|
|
FLAGS "Z"
|
|
COPY ALL F_ABI
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
NUMBER F_PROG 2
|
|
BEGIN
|
|
PROMPT 26 3 ""
|
|
FLAGS "Z"
|
|
COPY ALL F_ABI
|
|
CHECKTYPE SEARCH
|
|
END
|
|
|
|
|
|
STRING F_DESCAB 50 42
|
|
BEGIN
|
|
PROMPT 32 3 ""
|
|
USE %BAN KEY 2 SELECT 100@->CODTAB!=""
|
|
JOIN BNP ALIAS 100 INTO CODTAB==CODTAB
|
|
INPUT S0 F_DESCAB
|
|
DISPLAY "Denominazione@50" S0
|
|
DISPLAY "ABI@5" CODTAB[1,5]
|
|
DISPLAY "CAB@5" CODTAB[6,10]
|
|
OUTPUT F_ABI CODTAB[1,5]
|
|
OUTPUT F_CAB CODTAB[6,10]
|
|
OUTPUT F_DESCAB S0
|
|
CHECKTYPE SEARCH
|
|
END
|
|
|
|
LIST F_TIPOPAG 1 30
|
|
BEGIN
|
|
PROMPT 2 4 "Pagamento "
|
|
ITEM "1|Rimessa Diretta"
|
|
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 interbancari diretti"
|
|
ITEM "9|Bonifico"
|
|
END
|
|
|
|
LIST F_TIPOEFF 1 10
|
|
BEGIN
|
|
PROMPT 50 4 "Tipo effetti "
|
|
ITEM "C|Attivi"
|
|
MESSAGE COPY,F_TIPOCF
|
|
ITEM "F|Passivi"
|
|
MESSAGE COPY,F_TIPOCF
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 5
|
|
BEGIN
|
|
PROMPT 1 6 "@bSelezione effetti"
|
|
END
|
|
|
|
LIST F_TIPOCF 1 9
|
|
BEGIN
|
|
PROMPT 2 7 ""
|
|
ITEM "C|Cliente"
|
|
ITEM "F|Fornitore"
|
|
FLAGS "D"
|
|
//GROUP 3
|
|
END
|
|
|
|
NUMBER F_CLIFO 6
|
|
BEGIN
|
|
PROMPT 15 7 ""
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF F_TIPOCF SELECT
|
|
INPUT CODCF F_CLIFO
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
OUTPUT F_CLIFO CODCF
|
|
OUTPUT F_RAGSOCCF RAGSOC
|
|
CHECKTYPE NORMAL
|
|
ADD RUN cg0 -1
|
|
END
|
|
|
|
STRING F_RAGSOCCF 50 37
|
|
BEGIN
|
|
PROMPT 25 7 ""
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF F_TIPOCF SELECT
|
|
INPUT RAGSOC F_RAGSOCCF
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Codice" CODCF
|
|
COPY OUTPUT F_CLIFO
|
|
CHECKTYPE NORMAL
|
|
ADD RUN cg0 -1
|
|
END
|
|
|
|
DATE F_DA_DATA
|
|
BEGIN
|
|
PROMPT 2 8 "Dal "
|
|
END
|
|
|
|
DATE F_A_DATA
|
|
BEGIN
|
|
PROMPT 20 8 "Al "
|
|
FLAGS "A"
|
|
END
|
|
|
|
LISTBOX F_SORT 10
|
|
BEGIN
|
|
PROMPT 35 8 "Ordinamento "
|
|
ITEM " |Standard"
|
|
ITEM "1|Scadenza"
|
|
ITEM "2|Residuo"
|
|
END
|
|
|
|
BUTTON F_AGGIORNA 10 2
|
|
BEGIN
|
|
PROMPT 66 7 ""
|
|
PICTURE BMP_SELECT
|
|
END
|
|
|
|
LIST F_TIPOPAGEFF 1 30
|
|
BEGIN
|
|
PROMPT 2 9 "Solo effetti con tipo pagamento "
|
|
ITEM " | "
|
|
ITEM "1|Rimessa Diretta"
|
|
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 interbancari diretti"
|
|
ITEM "9|Bonifico"
|
|
END
|
|
|
|
BUTTON F_CONTABILI 30 1
|
|
BEGIN
|
|
PROMPT 2 11 "~Contabilizzazione"
|
|
GROUP 5
|
|
END
|
|
|
|
BUTTON F_UNCONTABIL 30 1
|
|
BEGIN
|
|
PROMPT 47 11 "~Annulla contabilizzazione"
|
|
FLAGS "H"
|
|
END
|
|
|
|
SPREADSHEET F_SHEET 0 -2
|
|
BEGIN
|
|
PROMPT 0 12 ""
|
|
ITEM "Importo@18"
|
|
ITEM "A/S@3"
|
|
ITEM "Data Pagamento"
|
|
ITEM "Val.Ben."
|
|
ITEM "Residuo@18"
|
|
ITEM "Codice"
|
|
ITEM "Ragione Sociale@20"
|
|
ITEM "Anno"
|
|
ITEM "Partita"
|
|
ITEM "Riga"
|
|
ITEM "Rata"
|
|
ITEM "Scadenza@10"
|
|
ITEM "Riga"
|
|
ITEM "Effetto"
|
|
ITEM "Tipo Pagamento@20"
|
|
ITEM "CUP@15"
|
|
ITEM "Descrizione CUP@50"
|
|
ITEM "CIG@10"
|
|
ITEM "Descrizione CIG@50"
|
|
ITEM "ABI@5"
|
|
ITEM "CAB@5"
|
|
ITEM "IBAN@27"
|
|
END
|
|
|
|
CURRENCY F_TOTAL 18
|
|
BEGIN
|
|
PROMPT 1 -1 "Totale "
|
|
DRIVENBY F_CODVAL
|
|
FLAGS "D"
|
|
END
|
|
|
|
CURRENCY F_SPESE 18
|
|
BEGIN
|
|
PROMPT 28 -1 "Spese "
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
PAGE "Rate" -1 -1 70 10
|
|
|
|
NUMBER F_RIGADIST 4
|
|
BEGIN
|
|
PROMPT 31 1 "Riga effetto "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_RIGAEFF 4
|
|
BEGIN
|
|
PROMPT 51 1 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_CODCF 6
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 9 1 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
PROMPT 1 3 "Anno "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_PARTITA 7
|
|
BEGIN
|
|
PROMPT 21 3 "Partita "
|
|
FLAGS "D_"
|
|
END
|
|
|
|
NUMBER F_RIGA 4
|
|
BEGIN
|
|
PROMPT 38 3 "Riga "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_RATA 4
|
|
BEGIN
|
|
PROMPT 50 3 "Rata "
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE F_DATA
|
|
BEGIN
|
|
PROMPT 1 4 "Scadenza"
|
|
FLAGS "D"
|
|
END
|
|
|
|
BOOLEAN F_VALBEN
|
|
BEGIN
|
|
PROMPT 21 4 "Valuta benefciario"
|
|
END
|
|
|
|
DATE F_DATAPAG
|
|
BEGIN
|
|
PROMPT 40 4 "Data pagamento "
|
|
END
|
|
|
|
|
|
CURRENCY F_RESIDUO 18
|
|
BEGIN
|
|
PROMPT 1 5 "Residuo "
|
|
FLAGS "D"
|
|
DRIVENBY -F_CODVAL
|
|
END
|
|
|
|
CURRENCY F_IMPORTO 18
|
|
BEGIN
|
|
PROMPT 1 6 "Importo "
|
|
DRIVENBY -F_CODVAL
|
|
END
|
|
|
|
LIST F_ACCSAL 1 10
|
|
BEGIN
|
|
PROMPT 41 6 ""
|
|
ITEM "A|Acconto"
|
|
ITEM "S|Saldo"
|
|
END
|
|
|
|
STRING F_DESC_TIPO 30
|
|
BEGIN
|
|
PROMPT 1 7 "Tipo pagamento "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_CUP 15
|
|
BEGIN
|
|
PROMPT 1 8 "CUP "
|
|
USE %CUP
|
|
INPUT CODTAB F_CUP
|
|
DISPLAY "Codice@15" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CUP CODTAB
|
|
OUTPUT F_DCUP S0
|
|
FIELD CUP
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DCUP 50 30
|
|
BEGIN
|
|
PROMPT 40 8 ""
|
|
USE %CUP KEY 2
|
|
INPUT S0 F_DCUP
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice@15" CODTAB
|
|
COPY OUTPUT F_CUP
|
|
END
|
|
|
|
STRING F_CIG 10
|
|
BEGIN
|
|
PROMPT 1 9 "CIG "
|
|
USE %CIG
|
|
INPUT CODTAB F_CIG
|
|
DISPLAY "Codice@10" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice gara" S1
|
|
OUTPUT F_CIG CODTAB
|
|
OUTPUT F_DCIG S0
|
|
FIELD CIG
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DCIG 50 30
|
|
BEGIN
|
|
PROMPT 40 9 ""
|
|
USE %CIG KEY 2
|
|
INPUT S0 F_DCIG
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice@10" CODTAB
|
|
COPY OUTPUT F_CIG
|
|
END
|
|
|
|
STRING F_ABIAPP 5
|
|
BEGIN
|
|
PROMPT 1 10 "Banca di appoggio"
|
|
USE LF_CFBAN KEY 2
|
|
JOIN %BAN INTO CODTAB[1,5]==ABI CODTAB[6,10]==CAB
|
|
INPUT TIPOCF -F_TIPOCF SE
|
|
INPUT CODCF F_CODCF SE
|
|
INPUT TIPOBAN "V"
|
|
INPUT ABI F_ABIAPP
|
|
INPUT CAB F_CABAPP
|
|
DISPLAY "Cod. Istit." ABI
|
|
DISPLAY "Cod. Fil." CAB
|
|
DISPLAY "IBAN@27" IBAN
|
|
DISPLAY "Denominazione@50" %BAN->S0
|
|
OUTPUT F_ABIAPP ABI
|
|
OUTPUT F_CABAPP CAB
|
|
OUTPUT F_IBANAPP IBAN
|
|
CHECTYPE NORMAL
|
|
FLAGS "Z"
|
|
ENDPAGE
|
|
|
|
STRING F_CABAPP 5
|
|
BEGIN
|
|
PROMPT 20 10 ""
|
|
COPY ALL F_ABIAPP
|
|
CHECTYPE NORMAL
|
|
FLAGS "Z"
|
|
END
|
|
|
|
STRING F_IBANAPP 27
|
|
BEGIN
|
|
PROMPT 30 10 "IBAN "
|
|
FLAGS "D"
|
|
END
|
|
ENDPAGE
|
|
|
|
TOOLBAR "" 0 0 0 2
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
BUTTON F_PAGA 10 2
|
|
BEGIN
|
|
PROMPT -33 -1 "~Paga"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK |