Pseint- Comisiones de Vendedores

Proceso Comisiones_Vendedores
definir nom,t_vent,iva Como Caracter
definir precio,iva_con,t_iva,vlr_est1,com_tot_1,vlr_est_2,com_tot_2,vlr_est_3,com_tot_3,vlr_tot_4,com_est_4,dias,i,cnt Como entero
definir v_iva,cost_est como real
escribir "digite cantidad de vendedores"
leer cnt;
Para i<-1 Hasta cnt Con Paso 1 Hacer
escribir "digite nombre del vendedor";
leer nom;
escribir "digite precio de venta";
leer precio;
Escribir " digite tipo de venta ( credito o contado)";
leer t_vent;

v_iva<-0.16;
cost_est<-0.75;
si t_vent="contado" Entonces
Escribir "digite si la venta tiene o no tiene iva (si o no)";
leer iva;
escribir "la venta es de contado";
Si iva="si" Entonces
iva_con<- precio*v_iva;
t_iva<-precio-iva_con;
vlr_est_1<-t_iva*cost_est;
com_tot_1<-vlr_est_1*0.07;
escribir " la comision por la venta del producto que tiene iva es : " com_tot_1;
Sino
vlr_est_2<-precio*cost_est;
com_tot_2<-vlr_est_2*0.10;
escribir " la comision por la venta del producto exento del iva es : " com_tot_2;
Fin Si
Sino
escribir "digite cantidad de dias dados a credito";
leer dias;
escribir "la venta es a credito";
Si dias>=1 Y dias<30 Entonces
vlr_est_3<-precio*cost_est;
com_tot_3<-vlr_est_3*0.05;
escribir "la comision por ",dias," a credito es:  " com_tot_3;
Sino
Si dias>=30 Y dias<60 Entonces
vlr_est_4<-precio*cost_est;
com_tot_4<-vlr_est_4*0.03;
escribir "la comision por ",dias," a credito es:  " com_tot_4;
finsi
Fin Si
FinSi
escribir "-------------------------------------------------";
FinPara
FinProceso