campo-sirio/m770/770100e.uml

// m70100e.uml - masksheet riga pagamento quadri D,D1,E,E1
// con l'ultima versione dei quadri si utilizza con SF SG (tanto per complicarci la vita)   

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

CURRENCY 103 15
BEGIN
  PROMPT 33 4 ""        
  FIELD LF_RPAG->IMPCPA
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"
  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 7 "Ritenuta"
END 

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

TEXT DLG_NULL
BEGIN
  PROMPT 2 8 "Spese"
END 

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

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

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

TEXT DLG_NULL
BEGIN
  PROMPT 2 10 "Compenso netto"
END 

CURRENCY 109 15
BEGIN
  PROMPT 33 10 "" 
  FLAGS "D"
  FIELD LF_RPAG->NETTO
END

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

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

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

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

NUMBER 116 7
BEGIN
  PROMPT 33 11 "Registrazione num." 
  FLAGS "DR"
  FIELD LF_RPAG->NUMREG
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 "A~zzera"
    MESSAGE RESET,1@      
END

ENDPAGE

ENDMASK