ca7aabe18b
Files correlati : Ricompilazione Demo : [ ] Commento : corretto bug 1864 git-svn-id: svn://10.65.10.50/branches/R_10_00@22169 c028cbd2-c16b-5b4b-a496-9718f37d4682
558 lines
8.6 KiB
Plaintext
Executable File
558 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 |