campo-sirio/pr/pr0800a.uml

#include "pr0800a.h"

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

PAGE "Aggiornamento Maturato" 0 2 0 0

GROUPBOX DLG_NULL 80 6
BEGIN
 PROMPT 1 1 "Selezione agenti"
 FLAGS "R"
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

GROUPBOX DLG_NULL 80 5
BEGIN
 PROMPT 1 7 "Parametri"
 FLAGS "R"
END

DATE F_DATA_SCAD
BEGIN
  PROMPT 2 8 "Data scadenza      "
	CHECKTYPE REQUIRED
END

NUMBER F_GIORNI_RISCHIO 2
BEGIN
  PROMPT 2 9 "Giorni rischio     "
END

BOOLEAN F_CHECK_INSOLUTI
BEGIN
  PROMPT 2 10 "Controllo insoluti registrati dopo il pagamento delle provvigioni"
END

TEXT DLG_NULL
BEGIN
	PROMPT 2 12 "@BAttenzione se non vengono impostati giorni di rischio tutti gli effetti presentati"
END

TEXT DLG_NULL
BEGIN
	PROMPT 2 13 "@Bverrano considerati pagati."
END

ENDPAGE

ENDMASK