#include "pd6030100.h"

TOOLBAR "topabar" 0 0 0 2

#include <printbar.h>

ENDPAGE

PAGE "Selezione" 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

DATE F_DATA_STAMPA
BEGIN
  PROMPT 42 1 "Data di stampa  "  
  FLAGS "A"
END

RADIOBUTTON F_PD6030_TYPE 24
BEGIN
  PROMPT 2 4 "Oggetto"
  HELP "Selezionare l'archivio che si desidera stampare"
  ITEM "C|Clienti"     
  ITEM "F|Fornitori"   
  FIELD #F_PD6030_TYPE
END

RADIOBUTTON F_ORDINAMENTO  24
BEGIN
  PROMPT 40 4 "Ordinamento"
  HELP "Selezionare il tipo di ordinamento dei record stampati"
  ITEM "1|per Codice"           
  MESSAGE COPY,F_PD6030_SORT|RESET,4@|HIDE,4@|SHOW,3@
  ITEM "2|per Ragione Sociale"  
  MESSAGE COPY,F_PD6030_SORT|RESET,3@|HIDE,3@|SHOW,4@
END

NUMBER F_PD6030_SORT 1
BEGIN
  PROMPT 0 0 ""
  FLAG "H"
  FIELD #F_PD6030_SORT
END

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

NUMBER F_ACODCF 6
BEGIN
  PROMPT 4 10 "Cod.finale "
  USE LF_CLIFO
  INPUT TIPOCF F_PD6030_TYPE SELECT
  INPUT CODCF F_ACODCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_ACODCF CODCF
  FIELD #ACODCF 
  GROUP 2 3
END

STRINGA F_DARAGSOC 50
BEGIN
  PROMPT 4 9 "Rag.soc.iniziale "
  USE LF_CLIFO KEY 2 
  INPUT TIPOCF F_PD6030_TYPE SELECT
  INPUT RAGSOC F_DARAGSOC
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  OUTPUT F_DARAGSOC RAGSOC
  FIELD #DARAGSOC
  GROUP 1 4
END

STRINGA F_ARAGSOC 50
BEGIN
  PROMPT 4 10 "Rag.soc.finale   "
  USE LF_CLIFO KEY 2
  INPUT TIPOCF F_PD6030_TYPE SELECT
  INPUT RAGSOC F_ARAGSOC
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  OUTPUT F_ARAGSOC RAGSOC
  FIELD #ARAGSOC
  GROUP 2 4
END

ENDPAGE
ENDMASK