campo-sirio/m770/770100c.uml

// m70100c.uml - masksheet riga pagamento quadro C    

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 "Spese"
END 

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

TEXT DLG_NULL
BEGIN
  PROMPT 2 5 "Imponibile"
END 

CURRENCY 104 15
BEGIN
  PROMPT  33 5 "" 
  FIELD LF_RPAG->IMPONIBILE
END          

TEXT DLG_NULL
BEGIN
  PROMPT 2 6 "% Ritenuta "
END 

NUMBER 105 6
BEGIN
  PROMPT 33 6 ""     
  PICTURE ".2"
  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 7 "Ritenuta lorda"
END 

CURRENCY 106 15
BEGIN
  PROMPT 33 7 ""
  FLAGS "D"
  FIELD LF_RPAG->RITLORDA
END          

TEXT DLG_NULL
BEGIN
  PROMPT 2 8 "Contributi obbligatori"
END 

CURRENCY 107 15
BEGIN
  PROMPT 33 8 ""
  FIELD LF_RPAG->CONTROBB
END          

TEXT DLG_NULL
BEGIN
  PROMPT 2 9 "Detrazioni carichi famigliari"
END 

CURRENCY 108 15
BEGIN
  PROMPT 33 9 ""
  FIELD LF_RPAG->DETFAMIL
END          

TEXT DLG_NULL
BEGIN
  PROMPT 2 10 "N<>giorni lavoro dipendente"
END 

NUMBER 109 3
BEGIN
  PROMPT 33 10 ""
  FIELD LF_RPAG->GIOLAVDIP                             
  NUM_EXPR {(#THIS>=0) && (#THIS<=366)}   
  WARNING "Non ci sono tutti questi giorni in un'anno"
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 11 "Detrazioni lavoro dipendente"
END 
             
CURRENCY 110 15
BEGIN
  PROMPT 33 11 ""
  FIELD LF_RPAG->DETLAVDIP
END          

TEXT DLG_NULL
BEGIN
  PROMPT 2 12 "Totale detrazioni"
END 
             
CURRENCY 111 15
BEGIN
  PROMPT 33 12 ""
  FLAGS "D"           
  FIELD LF_RPAG->TOTDET
END          

TEXT DLG_NULL
BEGIN
  PROMPT 2 13 "Ritenute operate"
END 
             
CURRENCY 112 15
BEGIN
  PROMPT 33 13 ""
  FIELD LF_RPAG->RITENUTA
END          

TEXT DLG_NULL
BEGIN
  PROMPT 2 14 "Compenso netto"
END 

CURRENCY 113 15
BEGIN
  PROMPT 33 14 "" 
  FLAGS "D"
  FIELD LF_RPAG->NETTO
END

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

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

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

CURRENCY 117 15
BEGIN
  PROMPT 80 80 "" 
  FLAGS "D"
  FIELD LF_RPAG->IMPNETTO
END
          
CURRENCY 118 15
BEGIN
  PROMPT 80 80 "" 
  FLAGS "D"
  FIELD LF_RPAG->COMNETTO
END          
          
NUMBER 119 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