#include "ve2500b.h"

//Generazione da anagrafica articoli
//-----------------------------------------------
GROUPBOX DLG_NULL 76 6
BEGIN
  PROMPT 1 7 "@bAnagrafica articoli"
  GROUP 2
END

STRING FB_DACODART 20
BEGIN
  PROMPT 2 8 "Da articolo "
  FLAGS "U"
  USE LF_ANAMAG
  INPUT CODART FB_DACODART
  DISPLAY "Articolo@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT FB_DACODART CODART
  OUTPUT FB_DADESART DESCR
  CHECKTYPE NORMAL
  ADD RUN ve2 -3
  GROUP 2
END

STRING FB_DADESART 50 35
BEGIN
  PROMPT 38 8 ""
  USE LF_ANAMAG KEY 2
  INPUT DESCR FB_DADESART
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Articolo@20" CODART
  COPY OUTPUT FB_DACODART
  CHECKTYPE NORMAL
  ADD RUN ve2 -3
  GROUP 2
END

STRING FB_ACODART 20
BEGIN
  PROMPT 2 9 "A articolo  "
  FLAGS "U"
  USE LF_ANAMAG
  INPUT CODART FB_ACODART
  COPY DISPLAY FB_DACODART
  OUTPUT FB_ACODART CODART
  OUTPUT FB_ADESART DESCR
  CHECKTYPE NORMAL
  ADD RUN ve2 -3
  GROUP 2
END

STRING FB_ADESART 50 35
BEGIN
  PROMPT 38 9 ""
  USE LF_ANAMAG KEY 2
  INPUT DESCR FB_ADESART
  COPY DISPLAY FB_DADESART
  COPY OUTPUT FB_ACODART
  CHECKTYPE NORMAL
  ADD RUN ve2 -3
  GROUP 2
END

STRING FB_GRMERC 3
BEGIN
  PROMPT 2 10 "Gr. merc.   "
  FLAGS "U"
  USE GMC SELECT CODTAB[4,5] == ""
  INPUT CODTAB[1,3] FB_GRMERC
  DISPLAY "Gruppo" CODTAB[1,3]
  DISPLAY "Descrizione@50" S0
  OUTPUT FB_GRMERC CODTAB[1,3]
  OUTPUT FB_DESGRMERC S0
  CHECKTYPE NORMAL
  GROUP 2
END

STRING FB_SOTGRMERC 2
BEGIN
  PROMPT 20 10 ""
  FLAGS "U"
  USE GMC 
  COPY INPUT FB_GRMERC
  INPUT CODTAB[4,5] FB_SOTGRMERC
  DISPLAY "Gruppo" CODTAB[1,3]
  DISPLAY "Sottogruppo" CODTAB[4,5]
  DISPLAY "Descrizione@50" S0
  COPY OUTPUT FB_GRMERC
  OUTPUT FB_SOTGRMERC CODTAB[4,5]
  CHECKTYPE NORMAL
  GROUP 2
END

STRING FB_DESGRMERC 50 45
BEGIN
  PROMPT 28 10 ""
  USE GMC KEY 2
  INPUT S0 FB_DESGRMERC
  DISPLAY "Descrizione@50" S0
  DISPLAY "Gruppo" CODTAB[1,3]
  DISPLAY "Sottogruppo" CODTAB[4,5]
  COPY OUTPUT FB_SOTGRMERC
  CHECKTYPE NORMAL
  GROUP 2
END

STRING FB_RAGFIS 5
BEGIN
  PROMPT 2 11 "Raggr. fis. "
  FLAGS "U"
  USE RFA
  INPUT CODTAB FB_RAGFIS
  DISPLAY "Ragg. fisc." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FB_RAGFIS CODTAB
  OUTPUT FB_DESRAGFIS S0
  CHECKTYPE NORMAL
  GROUP 2
END

STRING FB_DESRAGFIS 50
BEGIN
  PROMPT 23 11 ""
  USE RFA KEY 2
  INPUT S0 FB_DESRAGFIS
  DISPLAY "Descrizione@50" S0
  DISPLAY "Ragg. fisc." CODTAB
  COPY OUTPUT FB_RAGFIS
  CHECKTYPE NORMAL
  GROUP 2
END


ENDPAGE

ENDMASK