#include "ha3100a.h"

TOOLBAR "" 0 0 0 2

BUTTON DLG_FINDREC 2 2
BEGIN
  PROMPT 3 1 "Ricerca"
  PICTURE TOOL_FINDREC
END

BUTTON DLG_SAVEREC 2 2
BEGIN
  PROMPT 1 1 "Salva"
  PICTURE TOOL_SAVEREC
END

#include <helpbar.h>
ENDPAGE

PAGE "Gestione giri"  0 2 0 0

GROUPBOX DLG_NULL 80 5
BEGIN
   PROMPT 1 1 "@bFitri"
END

STRING F_AGENTE 5
BEGIN
  PROMPT 2 2 "Filtra agente "
  USE LF_AGENTI
  INPUT CODAGE F_AGENTE
  DISPLAY "Codice" CODAGE
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_AGENTE CODAGE
  OUTPUT F_DESAGENTE RAGSOC
  CHECKTYPE NORMAL
END

STRING F_DESAGENTE 50
BEGIN
  PROMPT 27 2 ""
  USE LF_AGENTI KEY 2
  INPUT RAGSOC F_DESAGENTE
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODAGE
  COPY OUTPUT F_AGENTE
  CHECKTYPE NORMAL
END

NUMBER F_CLIENTE 6
BEGIN
  PROMPT 2 3 "Filtra cliente"
  FLAGS "ZU"  
  USE LF_CLIFO 
  INPUT TIPOCF "C"
  INPUT CODCF F_CLIENTE
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_CLIENTE CODCF
  OUTPUT F_DESCLIENTE RAGSOC  
  CHECKTYPE NORMAL
  ADD RUN cg0 -1
END

STRING F_DESCLIENTE 50
BEGIN
  PROMPT 27 3 ""  
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC F_DESCLIENTE
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_CLIENTE
  CHECKTYPE NORMAL
  ADD RUN cg0 -1  
END

LISTBOX F_GIORNO 1 10
BEGIN
	PROMPT 2 4 "Giorno       "
	ITEM "0|"
	ITEM "1|Lunedì"
	ITEM "2|Martedì"
	ITEM "3|Mercoledì"
	ITEM "4|Giovedì"
	ITEM "5|Venerdì"
	ITEM "6|Sabato"
	ITEM "7|Domenica"
END

SPREADSHEET F_SHEET 0 -1
BEGIN
   PROMPT 1 6 "Giri"
   ITEM "Canc."
   ITEM "Agente@6"
   ITEM "Ragione Sociale@25"
   ITEM "Giorno@10"
   ITEM "Cliente@6"
   ITEM "Ragione Sociale@25"   
   ITEM "Ordine\nPassaggio@9"
   ITEM "Ora\nPassaggio@9"
END

ENDPAGE
ENDMASK

TOOLBAR "" 0 0 0 2

#include <stdbar.h>

ENDPAGE

PAGE "Giri"  0 2 0 0

GROUPBOX DLG_NULL 80 8
BEGIN
   PROMPT 1 0 "@bRiga"
END

BOOLEAN S_CANC
BEGIN
  PROMPT 2 1 "Cancellare"
END

STRING S_AGENTE 5
BEGIN
  PROMPT 2 2 "Agente   "
  USE LF_AGENTI
  INPUT CODAGE S_AGENTE
  DISPLAY "Codice" CODAGE
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT S_AGENTE CODAGE
  OUTPUT S_RAGSOC RAGSOC
  CHECTYPE REQUIRED
END

STRING S_RAGSOC 50
BEGIN
  PROMPT 19 2 ""
  USE LF_AGENTI KEY 2
  INPUT RAGSOC S_RAGSOC
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODAGE
  COPY OUTPUT S_AGENTE
  CHECTYPE NORMAL
END

LISTBOX S_GIORNO 1 10
BEGIN
  PROMPT 2 3 "Giorno   "
	ITEM "1|Lunedì"
	ITEM "2|Martedì"
	ITEM "3|Mercoledì"
	ITEM "4|Giovedì"
	ITEM "5|Venerdì"
	ITEM "6|Sabato"
	ITEM "7|Domenica"	
END

NUMBER S_CLIENTE 6
BEGIN
  PROMPT 2 4 "Cliente "
  FLAGS "ZU"  
  USE LF_CLIFO 
  INPUT TIPOCF "C"
  INPUT CODCF S_CLIENTE
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT S_CLIENTE CODCF
  OUTPUT S_CLIRAGSOC RAGSOC  
  CHECKTYPE REQUIRED
  ADD RUN cg0 -1
END

STRING S_CLIRAGSOC 50
BEGIN
  PROMPT 19 4 ""  
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC S_CLIRAGSOC
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  COPY OUTPUT S_CLIENTE
  CHECKTYPE NORMAL
  ADD RUN cg0 -1  
END

NUMBER S_ORDPASS 3
BEGIN
  PROMPT 2 6 "Ordine di passaggio "
END

STRING S_ORAPASS 5
BEGIN
  PROMPT 35 6 "Ora arrivo "
  PICTURE "@@:@@"
END

ENDPAGE
ENDMASK