1c6584e817
Files correlati : Ricompilazione Demo : [ ] Commento : iniziato programma aggiornamento multiplo listini...un casino infernalissimo! git-svn-id: svn://10.65.10.50/trunk@19366 c028cbd2-c16b-5b4b-a496-9718f37d4682
172 lines
2.4 KiB
Plaintext
Executable File
172 lines
2.4 KiB
Plaintext
Executable File
#include "ve2700.h"
|
|
|
|
TOOLBAR "Toolbar" 0 0 0 2
|
|
|
|
BUTTON DLG_SAVEREC 2 2
|
|
BEGIN
|
|
PROMPT 10 -1 "~Salva"
|
|
PICTURE TOOL_SAVEREC
|
|
END
|
|
|
|
#include <cancelbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Aggiornamento listini" 0 2 0 0
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 0 0 "@bDati listino padre"
|
|
END
|
|
|
|
LIST DLG_NULL 1 7
|
|
BEGIN
|
|
PROMPT 100 100 ""
|
|
ITEM "L|Listino"
|
|
FLAGS "D"
|
|
FIELD TIPO
|
|
KEY 1
|
|
END
|
|
|
|
STRING F_FATHCATVEN 2
|
|
BEGIN
|
|
PROMPT 1 1 "Cat. ven. "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_FATHDESVEN 50
|
|
BEGIN
|
|
PROMPT 18 1 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_FATHCODLIS 3
|
|
BEGIN
|
|
PROMPT 1 2 "Listino "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_FATHDESLIS 50
|
|
BEGIN
|
|
PROMPT 18 2 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_GRMERC 3
|
|
BEGIN
|
|
PROMPT 1 4 "Gr. merc. "
|
|
FLAGS "U"
|
|
USE GMC SELECT CODTAB[4,5] == ""
|
|
INPUT CODTAB[1,3] F_GRMERC
|
|
DISPLAY "Gruppo" CODTAB[1,3]
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_GRMERC CODTAB[1,3]
|
|
OUTPUT F_DESGRMERC S0
|
|
CHECKTYPE NORMAL
|
|
GROUP 2
|
|
END
|
|
|
|
STRING F_SOTGRMERC 5
|
|
BEGIN
|
|
PROMPT 20 4 ""
|
|
FLAGS "U"
|
|
USE GMC
|
|
COPY INPUT F_GRMERC
|
|
INPUT CODTAB[4,5] F_SOTGRMERC
|
|
DISPLAY "Gruppo" CODTAB[1,3]
|
|
DISPLAY "Sottogruppo" CODTAB[4,5]
|
|
DISPLAY "Descrizione@50" S0
|
|
COPY OUTPUT F_GRMERC
|
|
OUTPUT F_SOTGRMERC CODTAB[4,5]
|
|
CHECKTYPE NORMAL
|
|
GROUP 2
|
|
END
|
|
|
|
STRING F_DESGRMERC 50 45
|
|
BEGIN
|
|
PROMPT 28 4 ""
|
|
USE GMC KEY 2
|
|
INPUT S0 F_DESGRMERC
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Gruppo" CODTAB[1,3]
|
|
DISPLAY "Sottogruppo" CODTAB[4,5]
|
|
COPY OUTPUT F_SOTGRMERC
|
|
CHECKTYPE NORMAL
|
|
GROUP 2
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 5 "@bListini figli"
|
|
END
|
|
|
|
SPREADSHEET F_LISTINI_FIGLI 78 4
|
|
BEGIN
|
|
PROMPT 0 6 "@bListini figli"
|
|
ITEM "Cat.Ven."
|
|
ITEM "Codice"
|
|
ITEM "Ricarico@8"
|
|
ITEM "Descrizione@50"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
/////////////////////////////////////////
|
|
//maschera di riga
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 10 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -33 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Riga listino figlio" -1 -1 78 22
|
|
|
|
STRING F_CATVEN 2
|
|
BEGIN
|
|
PROMPT 1 1 "Cat. ven. "
|
|
FLAGS "U"
|
|
KEY 1
|
|
USE CVE
|
|
INPUT CODTAB F_CATVEN
|
|
DISPLAY "Cat." CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CATVEN CODTAB
|
|
//OUTPUT F_DESVEN S0
|
|
//CHECKTYPE FORCED
|
|
END
|
|
|
|
STRING F_CODLIS 3
|
|
BEGIN
|
|
PROMPT 1 2 "Listino "
|
|
FLAGS "U"
|
|
END
|
|
|
|
STRING F_RICARICO 5
|
|
BEGIN
|
|
PROMPT 1 3 "Ricarico "
|
|
END
|
|
|
|
STRING F_DESLIS 50
|
|
BEGIN
|
|
PROMPT 18 2 ""
|
|
FLAGS ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK |