Patch level : 10.0
Files correlati : pi0002.exe pi0002100a.msk Ricompilazione Demo : [ ] Commento : git-svn-id: svn://10.65.10.50/trunk@20506 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris
parent
490691820a
commit
7ab9ec614e
@ -9,7 +9,7 @@ int main(int argc, char** argv)
|
||||
{
|
||||
case 0:
|
||||
default:
|
||||
pi0002100(argc, argv); break; //presentazione fatture
|
||||
pi0002100(argc, argv); break; //gestione anticipi fatture
|
||||
}
|
||||
exit(0);
|
||||
return 0;
|
||||
|
||||
970
ps/pi0002100.cpp
970
ps/pi0002100.cpp
File diff suppressed because it is too large
Load Diff
@ -1,46 +1,19 @@
|
||||
#define F_TIPOCF 201
|
||||
#define F_DA_DATA 202
|
||||
#define F_A_DATA 203
|
||||
#define F_ABI 204
|
||||
#define F_CAB 205
|
||||
#define F_TIPODIST 206
|
||||
#define F_DIST 207
|
||||
#define F_DUMMYDIST 208
|
||||
#define F_DATADIST 209
|
||||
#define F_CODVAL 210
|
||||
#define F_EURO 211
|
||||
#define F_CAMBIO 212
|
||||
#define F_DATACAMBIO 213
|
||||
#define F_DESCAB 214
|
||||
#define F_SORT 215
|
||||
#define F_CLIFO 220
|
||||
#define F_RAGSOCCF 221
|
||||
#define F_TIPOPAG 222
|
||||
#define F_TOTAL 230
|
||||
#define F_SPESE 231
|
||||
#define F_TIPOEFF 232
|
||||
#define F_PROG 233
|
||||
#define F_CLIFO 201
|
||||
#define F_RAGSOCCF 202
|
||||
#define F_DATAMOV 203
|
||||
#define F_TOTALEANT 204
|
||||
|
||||
#define F_SHEET 300
|
||||
#define F_AGGIORNA 301
|
||||
#define F_CONTABILI 302
|
||||
#define F_UNCONTABIL 303
|
||||
#define F_SHEET 300
|
||||
|
||||
#define F_TIPOPAGEFF 401
|
||||
|
||||
#define F_PAGA 100
|
||||
#define F_IMPORTO 101
|
||||
#define F_ACCSAL 102
|
||||
#define F_DATAPAG 103
|
||||
#define F_VALBEN 104
|
||||
#define F_RESIDUO 105
|
||||
#define F_CODCF 106
|
||||
#define F_RAGSOC 107
|
||||
#define F_ANNO 108
|
||||
#define F_PARTITA 109
|
||||
#define F_RIGA 110
|
||||
#define F_RATA 111
|
||||
#define F_DATA 112
|
||||
#define F_RIGADIST 113
|
||||
#define F_RIGAEFF 114
|
||||
#define F_DESC_TIPO 115
|
||||
#define F_PAGATO 101
|
||||
#define F_IMPORTOANT 102
|
||||
#define F_ABI 103
|
||||
#define F_CAB 104
|
||||
#define F_IMPORTO 105
|
||||
#define F_RESIDUO 106
|
||||
#define F_ANNO 107
|
||||
#define F_PARTITA 108
|
||||
#define F_RIGA 109
|
||||
#define F_RATA 110
|
||||
#define F_DATA 111
|
||||
#define F_TIPOPAG 112
|
||||
|
||||
@ -2,249 +2,29 @@
|
||||
|
||||
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
|
||||
PAGE "Gestione anticipi fatture" 0 2 0 0
|
||||
|
||||
GROUPBOX DLG_NULL 78 6
|
||||
GROUPBOX DLG_NULL 78 4
|
||||
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
|
||||
PROMPT 1 0 "Parametri"
|
||||
END
|
||||
|
||||
NUMBER F_CLIFO 6
|
||||
BEGIN
|
||||
PROMPT 15 7 ""
|
||||
PROMPT 2 1 "Cliente "
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF F_TIPOCF SELECT
|
||||
INPUT TIPOCF "C" SELECT
|
||||
INPUT CODCF F_CLIFO
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
@ -256,9 +36,9 @@ END
|
||||
|
||||
STRING F_RAGSOCCF 50 37
|
||||
BEGIN
|
||||
PROMPT 25 7 ""
|
||||
PROMPT 25 1 ""
|
||||
USE LF_CLIFO KEY 2
|
||||
INPUT TIPOCF F_TIPOCF SELECT
|
||||
INPUT TIPOCF "C" SELECT
|
||||
INPUT RAGSOC F_RAGSOCCF
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
DISPLAY "Codice" CODCF
|
||||
@ -267,182 +47,104 @@ BEGIN
|
||||
ADD RUN cg0 -1
|
||||
END
|
||||
|
||||
DATE F_DA_DATA
|
||||
DATE F_DATAMOV
|
||||
BEGIN
|
||||
PROMPT 2 8 "Dal "
|
||||
PROMPT 2 2 "Data mov. "
|
||||
END
|
||||
|
||||
DATE F_A_DATA
|
||||
CURRENCY F_TOTALEANT
|
||||
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"
|
||||
PROMPT 2 4 "Totale "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
SPREADSHEET F_SHEET 0 -2
|
||||
BEGIN
|
||||
PROMPT 0 12 ""
|
||||
ITEM "Importo@18"
|
||||
ITEM "A/S@3"
|
||||
ITEM "Data Pagamento"
|
||||
ITEM "Val.Ben."
|
||||
PROMPT 0 6 "Partite aperte"
|
||||
ITEM "Importo pagato@18"
|
||||
ITEM "Importo anticipato@18"
|
||||
ITEM "Abi@5"
|
||||
ITEM "Cab@5"
|
||||
ITEM "Importo fattura@18"
|
||||
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"
|
||||
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 "
|
||||
ITEM "Tipo pag."
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
PAGE "Rate" -1 -1 70 10
|
||||
PAGE "Fatture" -1 -1 70 10
|
||||
|
||||
NUMBER F_RIGADIST 4
|
||||
CURRENCY F_PAGATO 18
|
||||
BEGIN
|
||||
PROMPT 31 1 "Riga effetto "
|
||||
PROMPT 1 1 "Importo pagato "
|
||||
END
|
||||
|
||||
CURRENCY F_IMPORTOANT 18
|
||||
BEGIN
|
||||
PROMPT 1 2 "Importo anticipato "
|
||||
END
|
||||
|
||||
NUMBER F_ABI 5
|
||||
BEGIN
|
||||
PROMPT 1 3 "ABI "
|
||||
END
|
||||
|
||||
NUMBER F_CAB 5
|
||||
BEGIN
|
||||
PROMPT 1 4 "CAB "
|
||||
END
|
||||
|
||||
CURRENCY F_IMPORTO 18
|
||||
BEGIN
|
||||
PROMPT 1 5 "Importo fattura "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_RIGAEFF 4
|
||||
CURRENCY F_RESIDUO 18
|
||||
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 ""
|
||||
PROMPT 1 6 "Residuo "
|
||||
NUM_CALC #F_IMPORTO-#F_IMPORTOANT
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 1 3 "Anno "
|
||||
PROMPT 1 7 "Anno "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_PARTITA 7
|
||||
BEGIN
|
||||
PROMPT 21 3 "Partita "
|
||||
PROMPT 21 7 "Partita "
|
||||
FLAGS "D_"
|
||||
END
|
||||
|
||||
NUMBER F_RIGA 4
|
||||
BEGIN
|
||||
PROMPT 38 3 "Riga "
|
||||
PROMPT 38 7 "Riga "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_RATA 4
|
||||
BEGIN
|
||||
PROMPT 50 3 "Rata "
|
||||
PROMPT 50 7 "Rata "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
DATE F_DATA
|
||||
BEGIN
|
||||
PROMPT 1 4 "Scadenza"
|
||||
PROMPT 1 8 "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
|
||||
STRING F_TIPOPAG 30
|
||||
BEGIN
|
||||
PROMPT 1 7 "Tipo pagamento "
|
||||
FLAGS "D"
|
||||
@ -454,17 +156,12 @@ TOOLBAR "" 0 0 0 2
|
||||
|
||||
BUTTON DLG_OK 10 2
|
||||
BEGIN
|
||||
PROMPT -13 -1 ""
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 10 2
|
||||
BEGIN
|
||||
PROMPT -23 -1 ""
|
||||
END
|
||||
|
||||
BUTTON F_PAGA 10 2
|
||||
BEGIN
|
||||
PROMPT -33 -1 "~Paga"
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user