campo-sirio/lv/lv2300a.uml

#include "lv2300a.h"

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

PAGE "Stampa Planning per Itinerario" -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

NUMBER F_COD_ITI_FROM 3
BEGIN
  PROMPT 2 5 "Da Itinerario"
  FLAGS "UZ"  
  USE &ITI
  INPUT CODTAB F_COD_ITI_FROM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_COD_ITI_FROM CODTAB
  OUTPUT F_DES_ITI_FROM S0 
  CHECKTYPE SEARCH
  FIELD #FROM_COD_ITI
END

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

NUMBER F_COD_ITI_TO 3
BEGIN
  PROMPT 2 6 "A Itinerario "
  FLAGS "UZ"  
  USE &ITI
  INPUT CODTAB F_COD_ITI_TO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_COD_ITI_TO CODTAB
  OUTPUT F_DES_ITI_TO S0 
  CHECKTYPE SEARCH
  FIELD #TO_COD_ITI
END

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

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

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

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

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

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

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

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

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

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

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

ENDPAGE

ENDMASK