campo-sirio/ef/ef0400a.uml

// DEFINIZIONE MASCHERA PER LA ELIMINAZIONE DEGLI EFFETTI
#include "ef0400.h"

PAGE "Eliminazione Effetti" -1 -1 57 14

LIST F_TIPOSEL 20
BEGIN
  PROMPT 2 1 "Tipo Selezione     "
  ITEM "N|Numero progressivo"
  MESSAGE DISABLE,2@
  MESSAGE ENABLE,1@
  ITEM "D|Data scadenza"
  MESSAGE DISABLE,1@
  MESSAGE ENABLE,2@
END

LIST F_TIPODIST 20
BEGIN
  PROMPT 2 2 "Tipo Effetti       "
  ITEM "C|Attivi"
  ITEM "F|Passivi"
END

LIST F_TIPOCANC 20
BEGIN
  PROMPT 2 3 "Tipo Cancellazione "
  ITEM "T|Tutti"
  ITEM "S|Stampati"
  ITEM "C|Contabilizzati"
END

GROUPBOX DLG_NULL 55 3
BEGIN
  PROMPT 1 5 "Selezione effetti per numero progressivo"
  GROUP 1
END

NUMBER F_DA_RIBA 7 0
BEGIN
  PROMPT 2 6 "Dalla Riba "
  GROUP 1
  FIELD LF_EFFETTI->NPROGTR
  USE LF_EFFETTI SELECT (TIPOCF=#F_TIPODIST)||((TIPOCF="")&&(#F_TIPODIST="C"))
  INPUT NPROGTR F_DA_RIBA
  DISPLAY "Nr. progressivo" NPROGTR
  DISPLAY "Data scadenza" DATASCAD
  OUTPUT F_DA_RIBA NPROGTR
// CHECKTYPE NORMAL
END

NUMBER F_A_RIBA  7 0
BEGIN
  PROMPT 30 6 "Alla Riba "
  GROUP 1
  FIELD LF_EFFETTI->NPROGTR
  USE LF_EFFETTI SELECT (TIPOCF=#F_TIPODIST)||((TIPOCF="")&&(#F_TIPODIST="C"))
  INPUT NPROGTR F_A_RIBA
  DISPLAY "Nr. progressivo" NPROGTR
  DISPLAY "Data scadenza" DATASCAD
  OUTPUT F_A_RIBA NPROGTR
//  CHECKTYPE NORMAL
  NUM_EXPR  {#THIS_FIELD>=#F_DA_RIBA}
  WARNING "Limite superiore  non valido"
END

GROUPBOX DLG_NULL 55 3
BEGIN
  PROMPT 1 9 "Selezione effetti per data scadenza"
  GROUP 2
END

DATA F_DA_DATA
BEGIN
  PROMPT 2 10 "Dalla Data "
  GROUP 2
  FIELD LF_EFFETTI->DATASCAD
  USE LF_EFFETTI KEY 3 SELECT (TIPOCF=#F_TIPODIST)||((TIPOCF="")&&(#F_TIPODIST="C"))
  INPUT DATASCAD F_DA_DATA
  DISPLAY "Data scadenza" DATASCAD
  DISPLAY "Nr. progressivo" NPROGTR
  OUTPUT F_DA_DATA DATASCAD
  OUTPUT F_DA_RIBA NPROGTR
//CHECKTYPE NORMAL
END

DATA F_A_DATA
BEGIN
  PROMPT 30 10 "Alla Data "
  GROUP 2
  FIELD LF_EFFETTI->DATASCAD
  USE LF_EFFETTI KEY 3 SELECT (TIPOCF=#F_TIPODIST)||((TIPOCF="")&&(#F_TIPODIST="C"))
  INPUT DATASCAD F_A_DATA
  DISPLAY "Data scadenza" DATASCAD
  DISPLAY "Nr. progressivo" NPROGTR
  OUTPUT F_A_DATA DATASCAD
  OUTPUT F_A_RIBA NPROGTR
  //CHECKTYPE NORMAL
  VALIDATE DATE_CMP_FUNC >= F_DA_DATA
  WARNING "Data limite superiore  non valida"
END

BUTTON DLG_OK 9 2
BEGIN
  PROMPT -13 -1 ""
END

BUTTON DLG_CANCEL 9 2
BEGIN
  PROMPT -23 -1 ""
END

BUTTON DLG_QUIT 9 2
BEGIN
  PROMPT -33 -1 ""
END

ENDPAGE
ENDMASK