Stock Y Facturacion

Programa Stock_Factura Comienzo int articulo, x, aux, cou, doc; float total, precio, inte, cuotas, cuil; char pago, aux1, nombre, dir; x:=2; articulo:=0; aux:=0; cou:=0; doc:=0; total:=0; precio:=0; inte:=0; cuotas:=0; cuil:=0; pago:=0; aux1:=0; nombre:=0; dir:=0; Mostrar ("Ingrese el articulo"); Leer (articulo); Mientras (articulo!= ''); Buscar articulo en Posadas; /*1*/ si (articulo=TRUE) x=1; sino Buscar articulo en Ober�; /*2*/ x=0; Fin si si ((x=1)&&(x!=0)) Mostrar ("El articulo esta en posadas"); Mostrar (precio); Fin si Si ((x=0)&&(x!=1)) Mostrar ("El articulo esta eb Ober�"); Mostar ("precio"); Fin si Si ((x=2)&&(x!=0)&&(x!=1)) Mostrar ("No hay el articulo en Stock"); aux:=0; Mostrar ("Ingrese Datos del Cliente"); Mostrar ("Ingrese El Nombre:"); Leer (nombre); Mostrar ("Ingrese Numero de Documento:"); Leer (doc); Mostrar ("Ingrese C.U.I.L/C.U.I.T"); Leer (cuil); Mostrar ("Ingrese Direcci�n"); Leer (dir); Mostrar ("Ingrese la Forma de pago:(Contado, Cheque, Tarjeta, Cuanta Corriente)"); Leer (pago); En caso <pago> sea Contado: Mostrar ("Debe Abonar%f", precio); Fin Contado Cheque: Mostar ("Debe Abonar %f", precio);

Fin Cheque Tarjeta: Mostar ("Ingrese la cantidad de cuotas:"); Leer (cuo); Mostar ("Ingrese los Intereses:"); Leer (inte); total:=((precio*inte)+precio); cuotas:=(total/cuo); Mostar ("Deber� pagar %i cuotas de %f."cuo, cuotas); Fin Tarjeta Cuenta Corriente: Mostar ("Ingrese la cantidad de cuotas:"); Leer (cuo); Mostar ("Ingrese los Intereses:"); Leer (inte); total:=((precio*inte)+precio); cuotas:=(total/cuo); Mostar ("Deber� pagar %i cuotas de %f."cuo, cuotas); Fin cuenta corriente Fin caso Mostrar ("Desea Ticket o Factura:"); Leer (aux1); Si (aux1='ticket') Imprime Ticket(cuo, cuotas, total, nombre, cuil, doc, dir); /*3*/ sino Imprime Factura(cuo, cuotas, total, nombre, cuil, doc, dir); /*4*/ Fin si Guarda Datos en Base Clientes (nombre, cuil, doc, dir, total); /*5*/ Fin si Mostrar ("Ingrese otro Articulo:"); Mostar ("Para Salir prsione ENTER"); Leer (articulo); Fin Mientras Fin Stock_Factura // /*1*/ /*Busca en la base de datos de Posadas si hay en stock el articulo pedido por el cliente.*/ /*2*/ /*Busca en la base de datos de Ober� si hay en stick el articulo pedido por el cliente.*/ /*3*/ /*Es un proceso que se encarga mediante los datos ingresados por teclado del cliente de hacer e imprimir un Ticket de la compra.*/ /*4*/ /*Es un proceso que se encarga mediante los datos ingresados por teclado del cliente de hacer e imprimir una Factura de la compra.*/ /*5*/ /*Se guarda en una base de datos los datos de la venta junto con los datos del cliente.*/