#include "cotbcoa.h"

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

PAGE "Correlazione articolo" 0 2 0 0

NUMBER F_CODMER 6
BEGIN
  PROMPT 2 2 "Mercato  "
  KEY 1
  FIELD CODTAB[1,6]
  USE LF_MERCATICOOP
  JOIN LF_CLIFO INTO TIPOCF=='C' CODCF==CODCF
  INPUT CODCF F_CODMER
  DISPLAY "Mercato" CODCF
  DISPLAY "Ragione sociale@50" 20->RAGSOC
  OUTPUT F_CODMER CODCF
  OUTPUT F_DESMER 20->RAGSOC
	FLAGS "Z"
  CHECKTYPE FORCED
END

STRING F_DESMER 50 40
BEGIN 
  PROMPT 34 2 ""
  FLAGS "D"
END

STRING F_CODARTMER 10
BEGIN
  PROMPT 2 4 "Art.mercato " 
  KEY 1
  FIELD CODTAB[7,16]
  USE %COA
  INPUT CODTAB[1,6] F_CODMER
  INPUT CODTAB[7,16] F_CODARTMER
  DISPLAY "Mercato" CODTAB[1,6]
  DISPLAY "Articolo" CODTAB[7,16]
  DISPLAY "Descrizione@50" S0
  DISPLAY "Cod.corr" S1
  OUTPUT F_CODMER CODTAB[1,6]
  OUTPUT F_CODARTMER CODTAB[7,16]
  OUTPUT F_DESCR S0
  OUTPUT F_CODART S1
	CHECKTYPE REQUIRED
END

STRING F_DESCR 50 40
BEGIN
  PROMPT 34 4 ""
	KEY 2
  FIELD S0
  USE %COA KEY 2
  INPUT S0 F_DESCR
  DISPLAY "Descrizione@50" S0
  DISPLAY "Mercato" CODTAB[1,6]
  DISPLAY "Articolo" CODTAB[7,16]
  DISPLAY "Cod.corr" S1
  COPY OUTPUT F_CODARTMER
	CHECKTYPE REQUIRED
END

STRING F_CODART 20
BEGIN
  PROMPT 2 6 "Articolo "
  FLAG "U"
  FIELD S1
  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 40
BEGIN
  PROMPT 34 6 ""
  USE LF_ANAMAG KEY 2
  INPUT DESCR F_DESART
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODART CODART
  OUTPUT F_DESART DESCR
END

ENDPAGE

ENDMASK