Proceso FACTURA_SIMULACION
Definir APP, NOM, RUC, NOMPROD Como Cadena;
Definir CANT Como Entero;
Definir PU, SUBT1, DESC, IVA, SUBT2, TPAGAR Como Real;
Escribir "======================================================================";
Escribir "======================================================================";
Escribir "POR FAVOR INGRESE APELLIDOS DEL CLIENTE";
Leer APP;
Escribir "POR FAVOR INGRESE NOMBRES DEL CLIENTE";
Leer NOM;
Escribir "POR FAVOR INGRESE EL RUC DEL CLIENTE";
Leer RUC;
Escribir "======================================================================";
Escribir "======================================================================";
Escribir "POR FAVOR INGRESE EL NOMBRE DEL PRODUCTO";
Leer NOMPROD;
Escribir "POR FAVOR INGRESE LA CANTIDAD COMPRADA DEL PRODUCTO";
Leer CANT;
Escribir "POR FAVOR INGRESE EL PRECIO UNITARIO DE VENTA DEL PRODUCTO";
Leer PU;
Escribir "======================================================================";
Escribir "======================================================================";
//PROCESAR Y MOSTRAR EL SUBTOTAL 1, SABIENDO QUE SE DEBE CALCULAR (CANTIDAD
//POR PRECIO UNITARIO).
SUBT1<-(CANT*PU);
//PROCESAR Y MOSTRAR EL DESCUENTO DEL 25% CUANDO EL SUBTOTAL1 ES MAYOR O
IGUAL //A 5000 DOLARES; CASO CONTRARIO PROCESAR UN DESCUENTO DEL 15%.
Si SUBT1 >= 5000 Entonces
// PROCESAR Y MOSTRAR EL SUBTOTAL2 (SUBTOTAL1 – DESCUENTO).
// PROCESAR Y MOSTRAR EL IVA 12%.
// PROCESAR Y MOSTRAR EL TOTAL A PAGAR (SUBTOTAL2 +IVA).
DESC<-(SUBT1*25)/100;
SUBT2<-(SUBT1-DESC);
IVA<-(SUBT2*12)/100;
TPAGAR<-(SUBT2 + IVA);
Escribir "EL VALOR DEL SUBTOTAL1 ES DE:", SUBT1;
Escribir "EL VALOR DEL DESCUENTO ES DE:", DESC;
Escribir "EL VALOR DEL SUBTOTAL2 ES DE:", SUBT2;
Escribir "EL VALOR DEL IVA QUE SE APLICA A SUBTOTAL2 ES DE:", IVA;
Escribir "SR. ", APP, " ", NOM, ", ", "EL VALOR TOTAL A PAGAR ES DE:", TPAGAR;
SiNo
// PROCESAR Y MOSTRAR EL SUBTOTAL2 (SUBTOTAL1 – DESCUENTO).
// PROCESAR Y MOSTRAR EL IVA 12%.
// PROCESAR Y MOSTRAR EL TOTAL A PAGAR (SUBTOTAL2 +IVA).
DESC<-(SUBT1*15)/100;
SUBT2<-(SUBT1-DESC);
IVA<-(SUBT2*12)/100;
TPAGAR<-(SUBT2 + IVA);
Escribir "EL VALOR DEL SUBTOTAL1 ES DE:", SUBT1;
Escribir "EL VALOR DEL DESCUENTO ES DE:", DESC;
Escribir "EL VALOR DEL SUBTOTAL2 ES DE:", SUBT2;
Escribir "EL VALOR DEL IVA QUE SE APLICA A SUBTOTAL2 ES DE:", IVA;
Escribir "SR. ", APP, " ", NOM, ", ", "EL VALOR TOTAL A PAGAR ES DE:", TPAGAR;
FinSi
FinProceso