campo-sirio/ef/ef0400a.uml

#include "ef0400.h"

PAGE "Eliminazione Effetti" -1 -1 65 14

LIST F_TIPOSEL 24
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_TIPOCANC 24
BEGIN        
  PROMPT 2 3 "Tipo Cancellazione "
  ITEM "T|Tutti"
  ITEM "S|Quelli stampati"  
  ITEM "C|Quelli 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 KEY 1
  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 KEY 1
  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
  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
  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