campo-sirio/m770/770100f.uml

// m70100f.uml - masksheet riga pagamento quadri Dbis
// con l'ultima versione dei quadri si utilizza con SC SE (incasiniamoci)

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

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

TEXT DLG_NULL
BEGIN
  PROMPT 2 8 "Somme regime convenzionale"
END 

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

TEXT DLG_NULL
BEGIN
  PROMPT 2 9 "% Imponibile contr.10%"
END 

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

TEXT DLG_NULL
BEGIN
  PROMPT 2 10 "Contr.10% percipiente"
END 

CURRENCY 109 15
BEGIN
  PROMPT 33 10 "" 
  FIELD LF_RPAG->CTSSNPERC
END          

TEXT DLG_NULL
BEGIN
  PROMPT 2 11 "Contr.10% complessivo"
END 

CURRENCY 110 15
BEGIN
  PROMPT 33 11 "" 
  FIELD LF_RPAG->CTSSNCOMP
END          

TEXT DLG_NULL
BEGIN
  PROMPT 2 12 "Codice contr.10%"
END 

STRING 111 1
BEGIN
  PROMPT 33 12 ""     
  FLAGS "U"
  SHEET "Codice|Descrizione@60"
  INPUT 111                                                    
  ITEM " |Niente"
  ITEM "A|redditi completamente assoggettati al contributo 10%"
  ITEM "B|redditi assoggettati in parte al contributo 10%"
  ITEM "C|redditi non assoggettati al contributo 10%"
  OUTPUT 111
  FIELD LF_RPAG->COD10  
  VALIDATE REQIF_FUNC 3 101 102 103 
  WARNING "Il codice contributo Inps deve essere indicato"
END          

TEXT DLG_NULL
BEGIN
  PROMPT 2 13 "Compenso netto"
END 

CURRENCY 112 15
BEGIN
  PROMPT 33 13 "" 
  FLAGS "D"
  FIELD LF_RPAG->NETTO
END

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

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

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

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