campo-sirio/ef/ef0100c.uml

// DEFINIZIONE MASCHERA, DELLO SHEET DELLE RIGHE EFFETTO, PER LA GESTIONE EFFETTI
#include "ef0100.h"

PAGE "Righe Effetto"  -1 -1 76 13

NUMBER F_IMPFATT 20 2
BEGIN              
  PROMPT 2 1 "Importo fattura "
  PICTURE "###.###.###.###,@@"
END

NUMBER F_IMPEFF 14 2
BEGIN         
  PROMPT 2 2  "Importo effett. "                 
  PICTURE "###.###.###,@@"
  NUM_EXPR #F_IMPFATT>=#F_IMPEFF
  WARNING "L'importo dell'effetto non puo' superare l'importo della fattura"
END

NUMBER F_IMPFATTVAL 20 3
BEGIN         
  PROMPT 2 3 "Imp. fatt. val  "
  PICTURE "###.###.###.###,@@@"
END

NUMBER F_IMPEFFVAL 15 3
BEGIN        
  PROMPT 2 4 "Imp. effet. val "
  PICTURE "###.###.###,@@@"
  NUM_EXPR #F_IMPFATTVAL>=#F_IMPEFFVAL
  WARNING "L'importo dell'effetto in valuta non puo' superare l'importo della fattura in valuta"
END

NUMBER F_ANNO 4 
BEGIN
        PROMPT 2 5 "Anno partita    "
END

STRING F_NUMPART 7
BEGIN              
        PROMPT 2 6 "Nr. partita     "
        FLAG "R"
END

NUMBER F_NUMRIGA 4
BEGIN              
        PROMPT 2 7 "Nr. riga        "
END

NUMBER F_NUMRATA 3
BEGIN             
        PROMPT 2 8 "Nr. rata        "
END

STRING F_NUMFATT 7
BEGIN
        PROMPT 2 9 "Nr. fattura     "
        FLAG "R"
END

DATA F_DATAFATT
BEGIN               
        PROMPT  2 10 "Data fattura    "
        FLAG "R"
END


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

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

BUTTON DLG_DELREC 9 2
BEGIN
  PROMPT -33 -1 "Elimina"
  MESSAGE EXIT, K_DEL
END

ENDPAGE

ENDMASK