campo-sirio/m770/770100c.uml

// m70100c.uml - masksheet riga pagamento
PAGE "Pagamento " -1 -1 66 13

DATE 101 
BEGIN
  PROMPT 1 1 "Data pagamento      "
  FIELD LF_RPAG->DATAPAG
  GROUP 1  
END

GROUPBOX DLG_NULL 65 7
BEGIN
  PROMPT 1 2 ""
END

NUMBER 102 15 
BEGIN
  PROMPT  2 3 "Compenso   " 
  PICTURE "."
  FLAGS "R"
  FIELD LF_RPAG->COMPENSO
  GROUP 1  
END

NUMBER 103 15
BEGIN
  PROMPT 38 3 "Spese    "        
  PICTURE "."
  FLAGS "R"
  FIELD LF_RPAG->SPESA
  GROUP 1  
END

NUMBER 104 15
BEGIN
  PROMPT  2 4 "Imponibile " 
  PICTURE "."  
  FLAGS "R"
  FIELD LF_RPAG->IMPONIBILE
  GROUP 1  
END

NUMBER 105 6
BEGIN
  PROMPT 2 5 "% Ritenuta "   
  FLAGS "R"
  NUM_EXPR {(#THIS>=0) && (#THIS<=100)}
  FIELD LF_RPAG->PERC
  PICTURE ".2"
  GROUP 1  
END

NUMBER 106 15
BEGIN
  PROMPT 38 5 "Ritenuta "
  PICTURE "."
  FLAGS "R"
  FIELD LF_RPAG->RITENUTA
  GROUP 1
END

NUMBER 107 15
BEGIN
  PROMPT 2 6 "Contributi SSN/INPS a carico del percipiente "
  PICTURE "."
  GROUP 1
END

NUMBER 108 15
BEGIN
  PROMPT 2 7 "Contributi SSN/INPS complessivi              "
  PICTURE "."
  GROUP 1
END

NUMBER 109 15
BEGIN
  PROMPT 2 9 "Netto corrisposto     "
  PICTURE "."
  FLAGS "RD"
  FIELD LF_RPAG->NETTO            
  GROUP 1
END

NUMBER PAGF_NUMVERS 6
BEGIN
  PROMPT 38 21 "VER "
  FLAGS "D"
END

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

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

BUTTON DLG_AZZERAPAG 9 2
BEGIN
    PROMPT -33 -1 "Azzera"
    MESSAGE RESET,1@      
END

ENDPAGE

ENDMASK