campo-sirio/m770/770100g.uml

// m70100f.uml - masksheet riga pagamento quadri G

PAGE "Pagamento " -1 -1 50 19

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

GROUPBOX DLG_NULL 49 15
BEGIN
  PROMPT 1 2 ""
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 3 "Compenso"
END 

CURRENCY 102 15 
BEGIN
  PROMPT  33 3 "" 
  FIELD LF_RPAG->COMPENSO
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 4 "Imponibile"
END 

CURRENCY 103 15
BEGIN
  PROMPT  33 4 "" 
  FIELD LF_RPAG->IMPONIBILE
END          

TEXT DLG_NULL
BEGIN
  PROMPT 2 5 "% Ritenuta "
END 

NUMBER 104 6
BEGIN
  PROMPT 33 5 ""     
  PICTURE ".2"
  FLAGS "R"
  NUM_EXPR {(#THIS>=0) && (#THIS<=100)}
  WARNING "L'aliquota deve essere compresa tra 0 e 100"
  FIELD LF_RPAG->PERC
END          

TEXT DLG_NULL
BEGIN
  PROMPT 2 6 "Ritenuta totale"
END 

CURRENCY 105 15
BEGIN
  PROMPT 33 6 ""
  FIELD LF_RPAG->RITENUTA
END          

TEXT DLG_NULL
BEGIN
  PROMPT 2 7 "Utili pagati"
END 

CURRENCY 106 15
BEGIN
  PROMPT 33 7 ""
  FIELD LF_RPAG->UTPAGATI
END          

TEXT DLG_NULL
BEGIN
  PROMPT 2 8 "Ritenute utili pagati"
END 

CURRENCY 107 15
BEGIN
  PROMPT 33 8 ""
  FIELD LF_RPAG->RITUTPAG
END          
             
TEXT DLG_NULL
BEGIN
  PROMPT 2 9 "Utili spettanti"
END 

CURRENCY 108 15
BEGIN
  PROMPT 33 9 ""
  FLAGS "D"           
  FIELD LF_RPAG->UTSPETT
END          

TEXT DLG_NULL
BEGIN
  PROMPT 2 10 "Ritenute utili spettanti"
END 

CURRENCY 109 15
BEGIN
  PROMPT 33 10 ""
  FLAGS "D"           
  FIELD LF_RPAG->RITUTSPE
END                       
             
TEXT DLG_NULL
BEGIN
  PROMPT 2 11 "Numero quote"
END 

NUMBER 110 6
BEGIN
  PROMPT 33 11 ""     
  PICTURE ".2"
  NUM_EXPR {(#THIS>=0) && (#THIS<=100)}
  WARNING "L'aliquota deve essere compresa tra 0 e 100"
  FIELD LF_RPAG->NQUOTE
END               

TEXT DLG_NULL
BEGIN
  PROMPT 2 12 "Totale"
END 

CURRENCY 111 15
BEGIN
  PROMPT 33 12 "" 
  FLAGS "D"
  FIELD LF_RPAG->NETTO
END          

// --------------------------------------------------
// Inizio campi gestiti a programma ma non a maschera
// --------------------------------------------------
CURRENCY 112 15
BEGIN
  PROMPT 80 80 "" 
  FLAGS "D"
  FIELD LF_RPAG->SOMNSRIT
END          

CURRENCY 113 15
BEGIN
  PROMPT 80 80 "" 
  FLAGS "D"
  FIELD LF_RPAG->AMMLORDO
END

CURRENCY 114 15
BEGIN
  PROMPT 80 80 "" 
  FLAGS "D"
  FIELD LF_RPAG->QUOTAPROV
END

CURRENCY 115 15
BEGIN
  PROMPT 80 80 "" 
  FLAGS "D"
  FIELD LF_RPAG->IMPNETTO
END
          
CURRENCY 116 15
BEGIN
  PROMPT 80 80 "" 
  FLAGS "D"
  FIELD LF_RPAG->COMNETTO
END          
          
NUMBER 117 5
BEGIN
  PROMPT 80 80 ""
  FLAGS "RD"           
  FIELD LF_RPAG->NUMVERS
END
// ------------------------------------------------
// Fine campi gestiti a programma ma non a maschera
// ------------------------------------------------

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 "A~zzera"
    MESSAGE RESET,1@      
END

ENDPAGE

ENDMASK