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 16

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

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

STRING F_CODNUM 4
BEGIN
  PROMPT 2 3 "Codice numeraz.  "
  FIELD LF_REFFETTI->CODNUM
  USE %NUM
  INPUT CODTAB F_CODNUM
  DI "Codice" CODTAB
  DI "Descrizione@50" S0
  OUTPUT F_CODNUM CODTAB
  CHECKTYPE NORMAL
  FLAG "UA"
  WARNING "Numerazione assente"
END

LIST F_PROVV 13
BEGIN
  PROMPT 2 4 "Tipo numerazione "
  FIELD LF_REFFETTI->PROVV
  ITEM "D|Definitiva"
  ITEM "P|Provvisoria"
END

NUMBER F_ANNODOC 4
BEGIN
  PROMPT 2 5 "Anno documento   "
  FIELD LF_REFFETTI->ANNODOC
END

NUMBER F_NUMFATT 6
BEGIN
  PROMPT 2 6 "Nr. fattura      "
  FLAG "R"
  USE LF_DOC
  INPUT ANNO F_ANNODOC SELECT
  INPUT PROVV F_PROVV SELECT
  INPUT CODNUM F_CODNUM SELECT
  INPUT NDOC F_NUMFATT
  DISPLAY "Num." CODNUM
  DISPLAY "Anno" ANNO
  DISPLAY "Provv" PROVV
  DISPLAY "Tipo" TIPODOC
  DISPLAY "N.Doc. " NDOC
  OUTPUT F_ANNODOC ANNO
  OUTPUT F_PROVV   PROVV
  OUTPUT F_CODNUM  CODNUM
  OUTPUT F_NUMFATT NDOC       
  CHECKTYPE SEARCH
END

DATA F_DATAFATT
BEGIN
   PROMPT  2 7 "Data fattura     "
END

CURRENCY F_IMPFATT 20
BEGIN
  PROMPT 2 8 "Importo fattura  "
//  PICTURE "###.###.###.###,@@"
END

CURRENCY F_IMPFATTVAL 20
BEGIN
  PROMPT 2 9 "Imp. fatt. val   "
  DRIVENBY -F_CODVAL
//  PICTURE "###.###.###.###,@@@"
END

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

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

NUMBER F_NUMRIGA 4
BEGIN
  PROMPT 2 12 "Nr. riga         "    
  FLAGS "D"
END

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

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

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

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

ENDPAGE

ENDMASK