Jose
/*variables*/
real a,b,c
/*sueldo*/
int alerta
if sle_1.text="" or sle_2.text="" or sle_3.text="" or em_1.text="" thenalerta=messagebox("Mensaje del Sistema","No debe haber espacios en blanco ~nDesea Continuar?",question!,yesno!)
if alerta=1 then
rb_3.checked=false
rb_4.checked=false
rb_1.enabled=falserb_2.enabled=false
rb_1.checked=false
rb_2.checked=false
rb_5.checked=false
rb_6.checked=false
rb_7.checked=false
rb_5.enabled=false
rb_6.enabled=false
rb_7.enabled=falsesle_5.text=string("S/ 0")
sle_6.enabled=false
sle_7.enabled=false
if sle_1.text="" then
sle_1.setfocus()
elseif sle_2.text="" then
sle_2.setfocus()
elseif sle_3.text="" thensle_3.setfocus()
elseif em_1.text="" then
em_1.setfocus()
end if
else
halt
end if
else
if rb_3.checked=true then
a=1300
sle_5.text=string("S/ ")+string(a)
rb_1.enabled=truerb_2.enabled=true
elseif rb_4.checked=true then
a=700
sle_5.text=string("S/ ")+string(a)
rb_1.enabled=true
rb_2.enabled=true
else
rb_1.enabled=false
rb_2.enabled=false
sle_5.text=string("S/ 0")end if
end if
/*bonificacion*/
if rb_1.checked=true then
b=real(a)*0.20
sle_6.text=string("S/ ")+string(real(b))
rb_5.enabled=true
rb_6.enabled=true
rb_7.enabled=true
sle_6.enabled=trueelseif rb_2.checked=true then
b=real(a)*0.25
sle_6.text=string("S/ ")+string(real(b))
rb_5.enabled=true
rb_6.enabled=true
rb_7.enabled=true
sle_6.enabled=true
else
sle_6.text=string("S/0")
end if
/*Descuento*/
if rb_5.checked=true then
c=real(a)*0.08
sle_7.text=string("S/ ")+string(real(c))
sle_7.enabled=true
elseif rb_6.checked=true then
c=real(a)*0.05sle_7.text=string("S/ ")+string(real(c))
sle_7.enabled=true
elseif rb_7.checked=true then
c=real(a)*0.12
sle_7.text=string("S/ ")+string(real(c))
sle_7.enabled=true
else
sle_7.text=string("S/ 0")
end if...
Regístrate para leer el documento completo.