campo-sirio/lv/lv1100a.uml

#include "lv1100a.h"

TOOLBAR "" 0 0 0 2
BUTTON DLG_PRINT 10 2
BEGIN
  PROMPT 1 1 "~Stampa"
  MESSAGE EXIT,K_ENTER
END

BUTTON DLG_SETPRINT 10 2
BEGIN
  PROMPT 2 1 "~Imposta"
END

BUTTON DLG_PREVIEW 10 2
BEGIN
  PROMPT 3 1 "~Anteprima"
  PICTURE TOOL_PREVIEW
  MESSAGE EXIT,65
END
#include <helpbar.h>

ENDPAGE

PAGE "Stampa Buoni" -1 -1 40 5  

GROUPBOX DLG_NULL 78 4
BEGIN
	PROMPT 1 1 "@bDocumenti da stampare"
END

STRING F_CODNUM 4
BEGIN
  PROMPT 2 2 "Numerazione  "
  HELP "Codice numerazione"
  USE %NUM
  INPUT CODTAB F_CODNUM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUM CODTAB
  OUTPUT F_DESNUM S0
  CHECKTYPE REQUIRED
  FLAGS "UPA"
  WARNING "Numerazione assente"
END

STRING F_DESNUM 50
BEGIN
  PROMPT 24 2 ""
  HELP "Descrizione Numerazione"
  USE %NUM KEY 2
  INPUT S0 F_DESNUM
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODNUM
END

STRING F_TIPODOC 4
BEGIN
  PROMPT 2 3 "Tipo         "
  HELP "Codice tipo documento"
  USE %TIP
  INPUT CODTAB F_TIPODOC
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPODOC CODTAB
  OUTPUT F_DESTIPODOC S0
  CHECKTYPE REQUIRED
  FLAGS "UP"
END

STRING F_DESTIPODOC 50
BEGIN
  PROMPT 24 3 ""
  HELP "Descrizione tipo documento"
  USE %TIP KEY 2
  INPUT S0 F_DESTIPODOC
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_TIPODOC
END

GROUPBOX DLG_NULL 76 3 
BEGIN
  PROMPT 1 5 "@bData documento"
END

DATE F_DATA_FROM
BEGIN
  PROMPT 2 6 "Dal "
  GROUP 1
  CHECKTYPE REQUIRED
  FLAGS "A"
END

DATE F_DATA_TO
BEGIN
  PROMPT 25 6 "Al "
  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 8 "@bParametri Cliente"
END

NUMBER F_CODCF_FROM 6
BEGIN
  PROMPT 2 9 "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
END

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

NUMBER F_CODCF_TO 6
BEGIN
  PROMPT 2 10 "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
END

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

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

STRING F_CODITI_FROM 3
BEGIN
  PROMPT 2 13 "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
END

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

STRING F_CODITI_TO 3
BEGIN
  PROMPT 2 14 "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
END

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

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

//STRING F_CODAUT_FROM 6
//BEGIN
//  PROMPT 2 17 "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
//END
//
//STRING F_DESAUT_FROM 50
//BEGIN
//  PROMPT 25 17 ""
//  FLAGS "D"
//END

//STRING F_CODAUT_TO 6
//BEGIN
//  PROMPT 2 18 "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
//END

//STRING F_DESAUT_TO 50
//BEGIN
//  PROMPT 25 18 ""
//  FLAGS "D"
//END

ENDPAGE

ENDMASK