Patch level : 12.0 no-patch

Files correlati     : fp
Commento            : Preparazione customizzazione calcolo per tipo riga
This commit is contained in:
Simone Palacino 2019-02-14 17:23:01 +01:00
parent 92cf15f42f
commit 28f73a17b9
2 changed files with 94 additions and 14 deletions

View File

@ -1,15 +1,23 @@
#define F_INDIRIZZO 101
#define F_DATABASE 102
#define F_USER 103
#define F_PASSWORD 104
#define F_FLDDEST 105
#define F_FLDUSRDEST 106
#define F_COFI 107
#define F_ESPORTAALLEG 108
#define F_ESPORTADOC 109
#define F_F8 110
#define F_INDIRIZZO 201
#define F_DATABASE 202
#define F_USER 203
#define F_PASSWORD 204
#define F_FLDDEST 205
#define F_FLDUSRDEST 206
#define F_COFI 207
#define F_ESPORTAALLEG 208
#define F_ESPORTADOC 209
#define F_F8 210
#define F_SETPATCH 201
#define F_ENPTYTABLE 202
#define F_DROPTABLE 203
#define F_REBORNDB 204
#define F_SETPATCH 301
#define F_ENPTYTABLE 302
#define F_DROPTABLE 303
#define F_REBORNDB 304
#define S_FORMPERS 401
#define S_TIPODOC 101
#define S_TIPORIGA 102
#define S_QTA 103
#define S_PREZZO 104

View File

@ -89,6 +89,7 @@ END
ENDPAGE
PAGE "Assistenza FP" 0 2 0 0
BUTTON F_SETPATCH 15 2
@ -116,4 +117,75 @@ BEGIN
END
ENDPAGE
PAGE "Formule Pers " 0 2 0 0
SPREADSHEET S_FORMPERS 50 6
BEGIN
PROMPT 1 1 "Personalizzazioni calcolo tipi righe "
ITEM "Tipo\nDoc@4"
ITEM "Tipo\nRiga@4"
ITEM "Qta"
ITEM "Prezzo"
END
ENDPAGE
ENDMASK
PAGE "Elementi spredsheet" 0 2 0 0
STRING S_TIPODOC 4
BEGIN
PROMPT 15 1 "Tipo doc "
HELP "Lasciare libero per tutti i tipo documento"
USE %TIP
SELECT S3[37,40]!=""
INPUT CODTAB S_TIPODOC
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
DISPLAY "Tipo SDI@10" S3[37,40]
OUTPUT S_TIPODOC CODTAB
FLAG "UPA"
END
STRING S_TIPORIGA 4
BEGIN
PROMPT 15 1 "Tipo riga "
USE %TRI
INPUT CODTAB S_TIPORIGA
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT S_TIPORIGA CODTAB
END
STRING S_QTA 10
BEGIN
PROMPT 0 2 "Qta"
FLAG ""
END
STRING S_PREZZO 10
BEGIN
PROMPT 0 2 "Prezzo"
FLAG ""
END
ENDPAGE
TOOLBAR "Riga" 0 0 0 2
BUTTON DLG_OK 2 2
BEGIN
PROMPT 1 1 ""
END
BUTTON DLG_CANCEL 2 2
BEGIN
PROMPT 1 1 ""
END
ENDPAGE
ENDMASK