campo-sirio/lv/lv2300a.uml

#include "lv2300a.h"

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

PAGE "Stampa Giri." -1 -1 40 5  

GROUPBOX DLG_NULL 76 3 
BEGIN
  PROMPT 1 1 "@bParametri Data"
END

DATE F_DATA_FROM
BEGIN
  PROMPT 2 2 "Dal "
  FIELD #FROM_DATA
  GROUP 1
  CHECKTYPE REQUIRED
  FLAGS "A"
END

DATE F_DATA_TO
BEGIN
  PROMPT 25 2 "Al "
  FIELD #TO_DATA
  FLAGS "A"
  GROUP 2
  CHECKTYPE REQUIRED
  VALITATE DATE_CMP_FUNC >= F_DATA_FROM
  WARNING "La data finale deve essere successiva a quella iniziale"
END

GROUPBOX DLG_NULL 76 4 
BEGIN
  PROMPT 1 4 "@bParametri Itinerario"
END

STRING F_CODITI_FROM 3
BEGIN
  PROMPT 2 5 "Da Itinerario"
  FLAGS "UZ"  
  USE &ITI
  INPUT CODTAB F_CODITI_FROM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODITI_FROM CODTAB
  OUTPUT F_DESITI_FROM S0 
  CHECKTYPE SEARCH
  FIELD #FROM_CODITI
END

STRING F_DESITI_FROM 50
BEGIN
  PROMPT 25 5 ""
  FLAGS "D"
END

STRING F_CODITI_TO 3
BEGIN
  PROMPT 2 6 "A Itinerario "
  FLAGS "UZ"  
  USE &ITI
  INPUT CODTAB F_CODITI_TO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODITI_TO CODTAB
  OUTPUT F_DESITI_TO S0 
  CHECKTYPE SEARCH
  FIELD #TO_CODITI
END

STRING F_DESITI_TO 50
BEGIN
  PROMPT 25 6 ""
  FLAGS "D"
END

GROUPBOX DLG_NULL 76 4 
BEGIN
  PROMPT 1 8 "@bParametri Autista"
END

STRING F_CODAUT_FROM 6
BEGIN
  PROMPT 2 9 "Da Autista   "
  FLAGS "U"  
  USE &AUT
  INPUT CODTAB F_CODAUT_FROM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODAUT_FROM CODTAB
  OUTPUT F_DESAUT_FROM S0 
  CHECKTYPE SEARCH
  FIELD #FROM_CODAUT
END

STRING F_DESAUT_FROM 50
BEGIN
  PROMPT 25 9 ""
  FLAGS "D"
END

STRING F_CODAUT_TO 6
BEGIN
  PROMPT 2 10 "Ad Autista   "
  FLAGS "U"  
  USE &AUT
  INPUT CODTAB F_CODAUT_TO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODAUT_TO CODTAB
  OUTPUT F_DESAUT_TO S0 
  CHECKTYPE SEARCH
  FIELD #TO_CODAUT
END

STRING F_DESAUT_TO 50
BEGIN
  PROMPT 25 10 ""
  FLAGS "D"
END

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 1 12 "@bParametri Cliente"
END

NUMBER F_CODCF_FROM 6
BEGIN
  PROMPT 2 13 "Da Cliente   "
  FLAGS "U"
  USE LF_CLIFO KEY 1
  INPUT TIPOCF "C"
  INPUT CODCF F_CODCF_FROM
  DISPLAY "Codice " CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CODCF_FROM CODCF
  OUTPUT F_RAGSOCCF_FROM RAGSOC
  CHECKTYPE NORMAL
  FIELD #FROM_CODCF
END

STRING F_RAGSOCCF_FROM 50
BEGIN
  PROMPT 25 13 ""
  FLAGS "D"
END

NUMBER F_CODCF_TO 6
BEGIN
  PROMPT 2 14 "A Cliente    "
  FLAGS "U"
  USE LF_CLIFO KEY 1
  INPUT TIPOCF "C"
  INPUT CODCF F_CODCF_TO
  DISPLAY "Codice " CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CODCF_TO CODCF
  OUTPUT F_RAGSOCCF_TO RAGSOC
  CHECKTYPE NORMAL
  FIELD #TO_CODCF
END

STRING F_RAGSOCCF_TO 50
BEGIN
  PROMPT 25 14 ""
  FLAGS "D"
END

LIST F_CHOICE 1 11
BEGIN
  PROMPT 2 16 "Stampa Giri"
  ITEM "G|Giornaliero"
  ITEM "S|Settimanale"
  FLAGS "U"
END

ENDPAGE

ENDMASK