#include "../ba/ba3200.h"
PAGE "Stampa tabella ordinamenti "-1 -1 76 15 

GROUPBOX DLG_NULL 74 5
BEGIN
  PROMPT 1 1 "Da"
END
   
STRING F_INIZIO1 1
BEGIN 
  PROMPT 2 3 "" 
  USE ORD 
  INPUT CODTAB F_INIZIO1 
  DISPLAY "Codice@10" CODTAB 
  DISPLAY "Descrizione@50" S0 
  OUTPUT F_INIZIO1 CODTAB 
  OUTPUT F_INIZIO2 S0   
  GROUP 1
  FIELD CODTAB 
  FLAGS "U" 
  CHECKTYPE SEARCH 
END

STRING F_INIZIO2 50 
BEGIN 
  PROMPT 15 3 "" 
  USE ORD 
  INPUT S0 F_INIZIO2 
  DISPLAY "Descrizione@50" S0 
  DISPLAY "Codice" CODTAB 
  OUTPUT F_INIZIO2 S0 
  OUTPUT F_INIZIO1 CODTAB 
  GROUP 1
  FIELD S0 
  FLAGS "U" 
  CHECKTYPE SEARCH 
END

GROUPBOX DLG_NULL 74 5
BEGIN 
  PROMPT 1 6 "A"
END

STRING F_FINE1 1 
BEGIN
  PROMPT 2 8 "" 
  USE ORD 
  INPUT CODTAB F_FINE1 
  DISPLAY "Codice@10" CODTAB 
  DISPLAY "Descrizione@50" S0 
  OUTPUT F_FINE1 CODTAB 
  OUTPUT F_FINE2 S0 
  GROUP 2
  FIELD CODTAB 
  FLAGS "U"  
  CHECKTYPE SEARCH
END 

STRING F_FINE2 50 
BEGIN
  PROMPT 15 8 "" 
  USE ORD 
  INPUT S0 F_FINE2 
  DISPLAY "Descrizione@50" S0 
  DISPLAY "Codice" CODTAB 
  OUTPUT F_FINE2 S0 
  OUTPUT F_FINE1 CODTAB 
  GROUP 2
  FIELD S0 
  FLAGS "U"        
  CHECKTYPE SEARCH
END 

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

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

ENDPAGE
ENDMASK