#include "hatbatt.h"

PAGE "Attrezzature" -1 -1 78 3

NUMBER F_CODCF 6
BEGIN
  PROMPT 1 1 "Cliente " 
  FLAGS "U"  
  USE LF_CLIFO
  INPUT TIPOCF "C"
  INPUT CODCF F_CODCF
  DISPLAY "Codice" CODCF
  DISPLAY "Descrizione@50" RAGSOC
  OUTPUT F_CODCF CODCF
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE NORMAL
  FIELD #CODCF
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 20 1 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Descrizione@50" RAGSOC
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_CODCF
  CHECKTYPE NORMAL
END

ENDPAGE


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

ENDMAK