#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