#include "pd6292200a.h"

TOOLBAR "topabar" 0 0 0 2

#include <printbar.h>

ENDPAGE

PAGE "Esportazione clienti e indirizzi spedizione" 0 2 0 0 

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 2 1 "Ditta           "
  FLAGS "FRD"
  USE LF_NDITTE KEY 1
  CHECKTYPE REQUIRED
  INPUT CODDITTA F_CODDITTA
  DISPLAY "Codice" CODDITTA
  DISPLAY "Ragione sociale @50" RAGSOC
  OUTPUT F_CODDITTA CODDITTA
  OUTPUT F_RAGSOC RAGSOC
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 2 2 "Ragione sociale "
  FLAGS "D"
END

NUMBER F_DACODCF 6
BEGIN
  PROMPT 2 9 "Cod.iniziale "
  USE LF_CLIFO
  INPUT TIPOCF "C"
  INPUT CODCF F_DACODCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_DACODCF CODCF
  FIELD #DA_CODCF 
  GROUP 1 3
END

NUMBER F_ACODCF 6
BEGIN
  PROMPT 4 10 "Cod.finale "
  USE LF_CLIFO
  INPUT TIPOCF "C"
  INPUT CODCF F_ACODCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_ACODCF CODCF
  FIELD #A_CODCF 
END

ENDPAGE
ENDMASK