#include "sc1300a.h"

TOOLBAR "" 0 20 0 2

// #include <toolbar.h>

BUTTON DLG_SAVEREC 8 2
BEGIN
PROMPT -17 -1 "~Registra"
MESSAGE EXIT,K_SAVE
END

BUTTON DLG_NEWREC 8 2
BEGIN
PROMPT -27 -1 "~Nuovo"
MESSAGE EXIT,K_INS
END

BUTTON DLG_DELREC 8 2
BEGIN
PROMPT -37 -1 "~Elimina"
MESSAGE EXIT,K_DEL
END

BUTTON DLG_FINDREC 8 2
BEGIN
PROMPT -47 -1 "Ri~cerca"
MESSAGE EXIT,K_F9
END

BUTTON DLG_CANCEL 8 2
BEGIN
PROMPT -57 -1 ""
MESSAGE EXIT,K_ESC
END

BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -67 -1 ""
MESSAGE EXIT,K_QUIT
END

BUTTON F_ZAP 10 2
BEGIN
PROMPT -77 -1 "Canc. Tutti"
END

ENDPAGE

PAGE "Archivio Storico Solleciti" -1 -1 78 8

STRING F_CODICE 5
BEGIN
  PROMPT 4 2 "Codice               "
  HELP "Codice del cliente"
  FIELD LF_STOSOLL->CODICE
  FLAGS "UR"
  KEY 1
  USE LF_CLIFO KEY 1 
  INPUT TIPOCF "C"
  INPUT CODCF F_CODICE
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale @30" RAGSOC[1,30]
  DISPLAY "Localita @30" LOCALITACF[1,30]
  OUTPUT F_CODICE CODCF
  OUTPUT F_DESCR  RAGSOC
  CHECKTYPE REQUIRED
END

STRING F_DESCR 50
BEGIN
  PROMPT 4 4 "Ragione sociale      "
  HELP "Ragione sociale del cliente"
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC F_DESCR
  DISPLAY "Ragione sociale @30" RAGSOC[1,30]
  DISPLAY "Codice" CODCF
  DISPLAY "Localita @30" LOCALITACF[1,30]
  OUTPUT F_CODICE CODCF
  OUTPUT F_DESCR  RAGSOC
  CHECKTYPE REQUIRED
END

                       
NUMBER F_TIPO 2
BEGIN
  PROMPT 4 6 "Grado sollecito      "
  USE LF_STOSOLL
  INPUT CODICE F_CODICE
  INPUT TIPO F_TIPO
  DISPLAY "Codice" CODICE
  DISPLAY "Grado" TIPO
  DISPLAY "Data@10" DATASPED
  DISPLAY "Saldo@15" SALDO 
  OUTPUT F_CODICE CODICE
  OUTPUT F_DATA DATASPED
  OUTPUT F_SALDO SALDO
  OUTPUT F_TIPO TIPO
  HELP "Numero di solleciti gia' inviati"
  FIELD TIPO 
  KEY 1       
  CHECKTYPE REQUIRED
  WARNING "Grado sollecito obbligatorio"
  FLAGS "U"
END
             
DATE F_DATA 
BEGIN 
  PROMPT 4 8 "Data invio sollecito "
  HELP "Data di spedizione sollecito"
  FIELD LF_STOSOLL->DATASPED
  FLAGS "A"
END             
             
NUMBER F_SALDO 15
BEGIN
  PROMPT 4 10 "Importo totale       "
  HELP "Ammontare del saldo al momento del sollecito"
  FLAGS "R"
  PICTURE "."
  FIELD LF_STOSOLL->SALDO
END                      
                       
ENDPAGE
ENDMASK