#include "pr0800a.h"

TOOLBAR "" 0 0 0 2
#include <elabar.h>
ENDPAGE

PAGE "Aggiornamento Maturato" 0 2 0 0

GROUPBOX DLG_NULL 78 6
BEGIN
 PROMPT 1 1 "@bSelezione agenti"
END

STRING F_DA_CODAGE 5
BEGIN
  PROMPT 2 2 "Da Codice          "
  FLAGS "UZ"
  USE LF_AGENTI
  INPUT CODAGE F_DA_CODAGE
  DISPLAY "Codice@8R" CODAGE
  DISPLAY "Descrizione@60" RAGSOC
  OUTPUT F_DA_CODAGE CODAGE
  OUTPUT F_DA_RAGSOC RAGSOC
  CHECKTYPE NOPRMAL
  ADD RUN PR0 -4
END

STRING F_DA_RAGSOC 50
BEGIN
  PROMPT 2 3 "Da Ragione sociale "
  USE LF_AGENTI KEY 2
  INPUT RAGSOC F_DA_RAGSOC
  DISPLAY "Descrizione@60" RAGSOC
  DISPLAY "Codice@8R" CODAGE
  COPY OUTPUT F_DA_CODAGE
  CHECKTYPE NORMAL
  ADD RUN PR0 -4
END

STRING F_A_CODAGE 5
BEGIN
  PROMPT 2 4 "A Codice           "
  FLAGS "UZ"
  COPY USE F_DA_CODAGE
  INPUT CODAGE F_A_CODAGE
  COPY DISPLAY F_DA_CODAGE
  OUTPUT F_A_CODAGE CODAGE
  OUTPUT F_A_RAGSOC RAGSOC
  CHECKTYPE NORMAL
  ADD RUN PR0 -4
END

STRING F_A_RAGSOC 50
BEGIN
  PROMPT 2 5 "A Ragione sociale  "
  COPY USE F_DA_RAGSOC
  INPUT RAGSOC F_A_RAGSOC
  COPY DISPLAY F_DA_RAGSOC
  COPY OUTPUT F_A_CODAGE
  CHECKTYPE NORMAL
  ADD RUN PR0 -4
END

RADIOBUTTON F_OPERAZIONE 78
BEGIN
  PROMPT 1 7 "Tipo operazione"
  ITEM "A|Aggiornamento maturato"
    MESSAGE HIDE,2@|SHOW,1@
  ITEM "R|Ripristino pagato"
    MESSAGE HIDE,1@|SHOW,2@
  FLAGS "Z"
END

GROUPBOX DLG_NULL 78 6
BEGIN
 PROMPT 1 10 "@bParametri aggiornamento"
 GROUP 1
END

DATE F_DATA_SCAD
BEGIN
  PROMPT 2 11 "Data scadenza      "
	CHECKTYPE REQUIRED
  GROUP 1
END

NUMBER F_GIORNI_RISCHIO 2
BEGIN
  PROMPT 42 11 "Giorni rischio     "
  GROUP 1

END

BOOLEAN F_CHECK_INSOLUTI
BEGIN
  PROMPT 2 12 "Controllo insoluti registrati dopo il pagamento delle provvigioni"
  GROUP 1

END

TEXT DLG_NULL
BEGIN
	PROMPT 2 13 "@BAttenzione: se non si specificano i giorni di rischio,"
  GROUP 1
END

TEXT DLG_NULL
BEGIN
	PROMPT 2 14 "@Bgli effetti presentati verranno considerati pagati."
  GROUP 1
END

GROUPBOX DLG_NULL 78 4
BEGIN
 PROMPT 1 10 "@bParametri ripristino"
 GROUP 2
END

DATE F_DATA_INIZIO
BEGIN
  PROMPT 2 11 "Data stampa definitiva "
	CHECKTYPE REQUIRED
  GROUP 2
  MESSAGE EMPTY ENABLE,F_DATA_SCADENZA
  MESSAGE CLEAR,F_DATA_SCADENZA
END

DATE F_DATA_SCADENZA
BEGIN
  PROMPT 2 12 "Data scadenza          "
	CHECKTYPE REQUIRED
  GROUP 2
  MESSAGE EMPTY ENABLE,F_DATA_INIZIO
  MESSAGE CLEAR,F_DATA_INIZIO
END


ENDPAGE

ENDMASK