campo-sirio/co/costcoa.uml

#include "costcoa.h"

PAGE "Stampa Correlazione articolo" -1 -1 78 19

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

BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END

BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END


ENDPAGE

ENDMASK