6b39ab9e24
Corretta gestione valori di default in sede di cambio tipo riga git-svn-id: svn://10.65.10.50/branches/R_10_00@22718 c028cbd2-c16b-5b4b-a496-9718f37d4682
77 lines
1.3 KiB
Plaintext
77 lines
1.3 KiB
Plaintext
#include "ve2800.h"
|
|
|
|
PAGE "Nuovo articolo" -1 -1 54 6
|
|
|
|
STRING F_CODLIS 3
|
|
BEGIN
|
|
PROMPT 1 1 "Listino "
|
|
USE LF_CONDV
|
|
INPUT TIPO "L"
|
|
INPUT COD F_CODLIS
|
|
DISPLAY "Codice" COD
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Valuta" CODVAL
|
|
OUTPUT F_CODLIS COD
|
|
OUTPUT F_DESLIS COD
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "DUG"
|
|
END
|
|
|
|
STRING F_DESLIS 50
|
|
BEGIN
|
|
PROMPT 1 2 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_FROMCOD 20
|
|
BEGIN
|
|
PROMPT 1 3 "Articolo "
|
|
USE ANAMAG SELECT LF_RCONDV->CODRIGA=""
|
|
JOIN LF_RCONDV INTO TIPO="L" COD=#F_CODLIS TIPORIGA="A" CODRIGA=CODART
|
|
INPUT CODART F_FROMCOD
|
|
DISPLAY "Codice@20" CODART
|
|
DISPLAY "Descrizione@20" DESCR
|
|
DISPLAY "Costo" ULTCOS1
|
|
DISPLAY "Ricarico" USER3
|
|
DISPLAY "Replaced by@20" CODARTALT
|
|
OUTPUT F_FROMCOD CODART
|
|
OUTPUT F_FROMDES DESCR
|
|
CHECKTYPE SEARCH
|
|
FLAGS "U"
|
|
END
|
|
|
|
STRING F_FROMDES 50
|
|
BEGIN
|
|
PROMPT 1 4 ""
|
|
USE ANAMAG KEY 2 SELECT LF_RCONDV->CODRIGA=""
|
|
JOIN LF_RCONDV INTO TIPO="L" COD=#F_CODLIS TIPORIGA="A" CODRIGA=CODART
|
|
INPUT DESCR F_FROMDES
|
|
DISPLAY "Descrizione@20" DESCR
|
|
DISPLAY "Codice@20" CODART
|
|
DISPLAY "Costo" ULTCOS1
|
|
DISPLAY "Ricarico" USER3
|
|
DISPLAY "Replaced by@20" CODARTALT
|
|
COPY OUTPUT F_FROMCOD
|
|
CHECKTYPE SEARCH
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
TOOLBAR "Toolbar" 0 0 0 2
|
|
|
|
BUTTON DLG_OK 2 2
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 2 2
|
|
BEGIN
|
|
PROMPT 2 1 ""
|
|
END
|
|
|
|
#include <helpbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|