#include "costcoa.h"

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

PAGE "Stampa Correlazione articolo" 0 2 0 0

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

STRING F_INIZIO2 50
BEGIN 
  PROMPT 22 2 ""
  FLAGS "D"
END

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

STRING F_FINE2 50
BEGIN 
  PROMPT 22 4 ""
  FLAGS "D"
END

ENDPAGE

ENDMASK