29ec2137f6
Files correlati : ps0017.exe Ricompilazione Demo : [ ] Commento : Incassi Dinamica git-svn-id: svn://10.65.10.50/branches/R_10_00@21437 c028cbd2-c16b-5b4b-a496-9718f37d4682
444 lines
6.6 KiB
Plaintext
Executable File
444 lines
6.6 KiB
Plaintext
Executable File
#include "ps0017100a.h"
|
|
|
|
TOOLBAR "" 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_ABI CODABIP
|
|
OUTPUT F_CAB CODCABP
|
|
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
|
|
INPUT CODTAB[1,5] F_ABI
|
|
INPUT CODTAB[6,10] F_CAB
|
|
DISPLAY "ABI@5" CODTAB[1,5]
|
|
DISPLAY "CAB@5" CODTAB[6,10]
|
|
DISPLAY "Denominazione@50" 100@->S0
|
|
OUTPUT F_ABI CODTAB[1,5]
|
|
OUTPUT F_CAB CODTAB[6,10]
|
|
OUTPUT F_DESCAB 100@->S0
|
|
CHECKTYPE SEARCH
|
|
END
|
|
|
|
NUMBER F_CAB 5
|
|
BEGIN
|
|
PROMPT 17 3 ""
|
|
FLAGS "Z"
|
|
COPY ALL F_ABI
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DESCAB 50 48
|
|
BEGIN
|
|
PROMPT 26 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"
|
|
FLAGS "D"
|
|
END
|
|
|
|
LIST F_TIPOEFF 1 10
|
|
BEGIN
|
|
PROMPT 50 4 "Tipo effetti "
|
|
ITEM "C|Attivi"
|
|
END
|
|
|
|
DATE F_DA_DATA
|
|
BEGIN
|
|
PROMPT 2 7 "Dal "
|
|
END
|
|
|
|
DATE F_A_DATA
|
|
BEGIN
|
|
PROMPT 20 7 "Al "
|
|
FLAGS "A"
|
|
END
|
|
|
|
LISTBOX F_SORT 10
|
|
BEGIN
|
|
PROMPT 35 7 "Ordinamento "
|
|
ITEM " |Standard"
|
|
ITEM "1|Scadenza"
|
|
ITEM "2|Residuo"
|
|
END
|
|
|
|
BUTTON F_AGGIORNA 10 2
|
|
BEGIN
|
|
PROMPT 66 6 ""
|
|
PICTURE BMP_SELECT
|
|
END
|
|
|
|
BUTTON F_CONTABILI 30 1
|
|
BEGIN
|
|
PROMPT 2 8 "~Contabilizzazione"
|
|
GROUP 5
|
|
END
|
|
|
|
BUTTON F_UNCONTABIL 30 1
|
|
BEGIN
|
|
PROMPT 47 8 "~Annulla contabilizzazione"
|
|
FLAGS "H"
|
|
END
|
|
|
|
SPREADSHEET F_SHEET 0 -2
|
|
BEGIN
|
|
PROMPT 0 9 ""
|
|
ITEM "Importo@18"
|
|
ITEM "A/S@3"
|
|
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"
|
|
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
|
|
|
|
PAGE "Selezione effetti" -1 -1 78 19
|
|
|
|
LIST F_TIPOPAGEFF 1 30
|
|
BEGIN
|
|
PROMPT 2 1 "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
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
PAGE "Rate" -1 -1 60 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
|
|
|
|
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 20
|
|
BEGIN
|
|
PROMPT 1 7 "Tipo pagamento "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_CUP 22
|
|
BEGIN
|
|
PROMPT 1 8 "CUP "
|
|
USE %CUP
|
|
INPUT CODTAB F_CUP
|
|
DISPLAY "Codice@22" 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@22" 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
|
|
|
|
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 |