#include "mrtbfia.h"

TOOLBAR "Relapbar" 0 0 0 2
#include <relapbar.h> 
ENDPAGE 

PAGE "Impianti/Articoli"  0 0 0 0

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 1 1 ""
END

STRING F_CODIMP 5
BEGIN
  PROMPT 2 2 "Impianto "
  FLAGS "UZ"
  FIELD CODTAB[1,5]
  KEY 1
  CHECKTYPE REQUIRED
  USE IMP
  INPUT CODTAB F_CODIMP
  DISPLAY "Codice@5" CODTAB
  DISPLAY "Descrizione@60" S0
  OUTPUT F_CODIMP CODTAB[1,5]
  OUTPUT F_DESC S0
END

STRING F_DESC 50
BEGIN
  PROMPT 2 3 "         "
  KEY 1
  CHECKTYPE NORMAL
  USE IMP KEY 2
  INPUT S0 F_DESC
  DISPLAY "Descrizione@60" S0
  DISPLAY "Codice@5" CODTAB
  COPY OUTPUT F_CODIMP
END
   
STRING F_CODART 20
BEGIN
  PROMPT 2 4 "Articolo "
  FIELD CODTAB[6,]
  KEY 1
  FLAG "U"
  USE LF_ANAMAG
  INPUT CODART F_CODART
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODART CODART
  OUTPUT F_DESART DESCR 
  CHECKTYPE REQUIRED
END

STRING F_DESART 50
BEGIN
  PROMPT 2 5 "         "
  KEY 1
  USE LF_ANAMAG KEY 2
  INPUT DESCR F_DESART
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  COPY OUTPUT F_CODART
  CHECKTYPE NORMAL
END

NUMBER F_CODFORN 6
BEGIN
  PROMPT 1 7 "Codice fornitore "
  FIELD I0
  USE LF_CLIFO
  INPUT TIPOCF "F" SELECT
  INPUT CODCF F_CODFORN
  DISPLAY "Codice " CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CODFORN  CODCF
  OUTPUT F_DESFOR RAGSOC
  CHECKTYPE NORMAL
END

STRING F_DESFOR 50
BEGIN
  PROMPT 1 9 "Ragione sociale  "
  USE LF_CLIFO KEY 2
  INPUT TIPOCF  "F" SELECT
  INPUT RAGSOC   F_DESFOR
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice " CODCF
  COPY OUTPUT F_CODFORN
END

ENDPAGE