@echo offtitle *.- Inventario De Productos -.*if not exist List-Bakup (goto :crear) else (goto :si-exist):crearmd List-Bakup:si-existif not exist keyboard.exe (goto :crear_key) else (goto :menu):menucopy /y Lista.txt List-Bakup\Lista-Bakup.tmp > nul 2>&1copy /y ventas.txt List-Bakup\Ventas-Bakup.tmp > nul 2>&1color 2clsecho.echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»echo º Fecha: %date%º º Autor: By FaySor ºecho ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹ ÉÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹echo º Hora: %time%º º PANTALLA COMPLETA: Alt + ENTER. ºecho ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼecho.echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»echo ºÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»ºecho ººÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»ººecho ººº ºººecho ººº ºººecho ººº BIENVENIDOS AL INVENTARIO DE PRODUCTOS ºººecho ººº ºººecho ººº ºººecho ººÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼººecho ºÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼºecho ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼecho.echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»echo º (1-). Buscar Producto. (2-). Vender. (3-). Buscar Ventas. ºecho ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹echo º (4-). Registar Productos. (5-). Editar Lista. (6-). Salir. ºecho ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼkeyboardif ["%errorlevel%"]==["48"] (goto :opciones)if ["%errorlevel%"]==["49"] (goto :Buscar)if ["%errorlevel%"]==["50"] (goto :venta)if ["%errorlevel%"]==["51"] (goto :infovnd)if ["%errorlevel%"]==["52"] (goto :Registrar)if ["%errorlevel%"]==["53"] (goto :edit-list)if ["%errorlevel%"]==["54"] (exit)if not ["%errorlevel%"]==["54"] (goto :menu):opcionestitle *.- OPCIONES -.*clsecho.echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»echo º Fecha: %date%º º Autor: By FaySor ºecho ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹ ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼecho º Hora: %time%º ÉÍÍÍÍÍÍ»echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ º MENU ºecho ÈÍÍÍÍÍͼecho.echo.echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»echo º OPCIONES ºecho ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼecho.echo.echo.echo.echo.echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»echo º (1-). ELIMINAR LISTA. (2-). ELIMINAR VENTAS. (3-). RECUPERAR LIST y VENTA. ºecho ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹echo º (4-). MENU. (5-). SALIR. ºecho ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼkeyboardif ["%errorlevel%"]==["49"] (del /f Lista.txt & echo Listo... Lista Eliminada. & ping -n 4 localhost > nul 2>&1 & goto :opciones)if ["%errorlevel%"]==["50"] (del /a /f ventas.txt & echo Listo... Ventas Eliminada. & ping -n 4 localhost > nul 2>&1 & goto :opciones)if ["%errorlevel%"]==["51"] (copy /y List-Bakup\Lista-Bakup.tmp Lista.txt > nul 2>&1 & copy /y List-Bakup\Ventas-Bakup.tmp ventas.txt > nul 2>&1 & echo Listo... Lista Recupera. & ping -n 4 localhost > nul 2>&1 & goto :opciones)if ["%errorlevel%"]==["52"] (goto :menu)if ["%errorlevel%"]==["53"] (exit)if not ["%errorlevel%"]==["53"] (goto :opciones):Buscarclsecho.echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»echo º Fecha: %date%º º Autor: By FaySor ºecho ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹ ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼecho º Hora: %time%º ÉÍÍÍÍÍÍ»echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ º MENU ºecho ÈÍÍÍÍÍͼecho.echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»echo º INTRODUCIR PRODUCTO A BUSCAR ºecho ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼecho.echo.echo ÉÍÍÍÍÍÍÍÍÍ»set/p "opc=ºPRODUCTO:º "echo ÌËÍÍÍËÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍ»echo ººLn:º PRODUCTOS: º PRECIO: º CANTIDAD: ºecho ÈÊÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍͼif /I ["%opc%"]==["menu"] (goto :menu)if not defined opc (goto :Buscar)type Lista.txt | find /I /N "%opc%"echo.echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»echo º (1-). Buscar Producto. (2-). Ventas. (3-). Carculadora. (4-). Salir. ºecho ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ:opcdnkeyboardif ["%errorlevel%"]==["49"] (goto :Buscar)if ["%errorlevel%"]==["50"] (goto :vntsgya)if ["%errorlevel%"]==["51"] (start calc.exe & goto :opcdn)if ["%errorlevel%"]==["52"] (exit)if not ["%errorlevel%"]==["52"] (goto :Buscar):vntsgyaecho ÉÍÍÍÍÍÍ»echo º YA ºecho ÉËÍÍÍÍÍÍÍÍÍ» ÈÍÍÍÍÍͼset/p "nls=ºº Linea º "echo ÈÊÍÍÍÍÍÍÍÍͼif /I ["%nls%"]==["menu"] (goto :menu)if ["%nls%"]==["0"] (goto :vntsgya)if not defined nls (goto :vntsgya)if /I ["%nls%"]==["ya"] (goto :Buscar)if ["%nls%"]==["1"] (set "funcion=tokens=*" & goto :nr)set "nr=-1"set /a nls=%nls%%nr%set "funcion=tokens=* skip=%nls%":nrFOR /F "%funcion%" %%a IN ('type Lista.txt') DO (set valorvt=%%agoto :valorvt):valorvtset valorvt=%valorvt:~0,42%echo %valorvt%:cntsgyaecho ÉËÍÍÍÍÍÍÍÍÍÍÍ»set/p "clss=ºº Cantidad º "echo ÈÊÍÍÍÍÍÍÍÍÍÍͼif /I ["%clss%"]==["menu"] (goto :menu)if not defined clss (goto :cntsgya)if /I ["%clss%"]==["ya"] (goto :Buscar)set "date1=%date:/=-%"echo %date1% - %time% = %clss% %valorvt% >> ventas.txtcopy /y ventas.txt List-Bakup\Ventas-Bakup.tmp > nul 2>&1goto :vntsgya:ventaclsecho.echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»echo º Fecha: %date%º º Autor: By FaySor ºecho ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹ ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼecho º Hora: %time%º ÉÍÍÍÍÍÍ»echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ º MENU ºecho ÈÍÍÍÍÍͼecho.echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»echo º INTRODUCIR PRODUCTO A VENDER ºecho ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼecho ÉÍÍÍÍÍÍ»echo º YA ºecho ÈÍÍÍÍÍͼ:vntsgecho ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»echo º CANTIDAD Y PRODUCTO ºecho ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼecho.set/p "vnd= "if /I ["%vnd%"]==["menu"] (goto :menu)if not defined vnd (goto :venta)if /I ["%vnd%"]==["ya"] (goto :vntrg)set "date1=%date:/=-%"echo %date1% - %time% = %vnd% >> ventas.txtcopy /y ventas.txt List-Bakup\Ventas-Bakup.tmp > nul 2>&1goto :vntsg:vntrgecho.echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»echo º (1-). Vender. (2-). Buscar Ventas. (3-). Buscar Producto. (4-). Salir. ºecho ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼkeyboardif ["%errorlevel%"]==["49"] (goto :venta)if ["%errorlevel%"]==["50"] (goto :infovnd)if ["%errorlevel%"]==["51"] (goto :Buscar)if ["%errorlevel%"]==["52"] (exit)if not ["%errorlevel%"]==["52"] (goto :venta):infovndclsecho.echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»echo º Fecha: %date%º º Autor: By FaySor ºecho ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹ ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼecho º Hora: %time%º ÉÍÍÍÍÍÍ»echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ º MENU ºecho ÈÍÍÍÍÍͼecho.echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»echo º INTRODUCIR FECHA DE VENTA ºecho ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼecho.echo.set/p "infovnd= FECHA: "echo ÉÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»echo º FECHA º HORA º PRODUCTO ºecho ÈÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼecho.if /I ["%infovnd%"]==["menu"] (goto :menu)if not defined infovnd (goto :infovnd)type ventas.txt | find /I "%infovnd%"echo.echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»echo º (1-). Buscar Ventas. (2-). Vender. (3-). Buscar Producto. (4-). Salir. ºecho ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼkeyboardif ["%errorlevel%"]==["49"] (goto :infovnd)if ["%errorlevel%"]==["50"] (goto :venta)if ["%errorlevel%"]==["51"] (goto :Buscar)if ["%errorlevel%"]==["52"] (exit)if not ["%errorlevel%"]==["52"] (goto :infovnd):Registrarclsecho.echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»echo º Fecha: %date%º º Autor: By FaySor ºecho ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹ ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼecho º Hora: %time%º ÉÍÍÍÍÍÍ» ÉÍÍÍÍÍÍ»echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ º YA º º MENU ºecho ÈÍÍÍÍÍͼ ÈÍÍÍÍÍͼecho.echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»echo º REGISTRO DE PRODUCTOS ºecho ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼecho.echo.echo ÉÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍ»echo ºLn:º PRODUCTOS: º PRECIO: º CANTIDAD: ºecho ÈÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍͼ:regsset/p "prod= "if not defined prod (goto :Registrar)if /I ["%prod%"]==["ya"] (goto :yamenu)if /I ["%prod%"]==["menu"] (goto :menu)if /I ["%prod%"]==["editar"] (start edit Lista.txt && goto :Registrar)set "prod=%prod% "set prod=%prod:~0,42%:precioset/p "prec= Bsf: "if not defined prec (goto :precio)if /I ["%prec%"]==["ya"] (goto :yamenu)set "prec=Bsf: %prec% "set prec=%prec:~0,14%:cantidadset/p "cantid= "if not defined cantid (goto :cantidad)if /I ["%cantid%"]==["ya"] (goto :yamenu)set "cantid=%cantid% "set cantid=%cantid:~0,7%echo %prod% %prec% %cantid% >> Lista.txtcopy /y Lista.txt List-Bakup\Lista-Bakup.tmp > nul 2>&1goto :regs:yamenuecho.echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»echo º (1-). Registrar Productos. (2-). Editar. (3-). Calculadora. (4-). Salir. ºecho ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼkeyboardif ["%errorlevel%"]==["49"] (goto :Registrar)if ["%errorlevel%"]==["50"] (start edit Lista.txt && goto :Registrar)if ["%errorlevel%"]==["51"] (start calc.exe & echo. & pause & goto :Registrar)if ["%errorlevel%"]==["52"] (exit)if not ["%errorlevel%"]==["52"] (goto :Registrar):: Editar Lista de Inventario:edit-listclsecho.echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»echo º Fecha: %date%º º Autor: By FaySor ºecho ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹ ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼecho º Hora: %time%º ÉÍÍÍÍÍÍ» ÉÍÍÍÍÍÍ»echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ º YA º º MENU ºecho ÈÍÍÍÍÍͼ ÈÍÍÍÍÍͼecho.echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»echo º EDITOR DE INVENTARIO ºecho ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼecho.echo ÉÍÍÍÍÍÍÍÍÍ»set/p "opc=ºPRODUCTO:º "echo ÌËÍÍÍËÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍ»echo ººLn:º PRODUCTOS: º PRECIO: º CANTIDAD: ºecho ÈÊÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍͼif /I ["%opc%"]==["menu"] (goto :menu)if not defined opc (goto :edit-list)type Lista.txt | find /I /N "%opc%"echo.echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»echo º (1-). BUSCAR. (2-). Ed. NOMBRE. (3-). Ed. PRECIO. (4-). Ed. CANTIDAD. ºecho ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹echo º (5-). ELIMINAR LINEA. (6-). EXIT. ºecho ÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼkeyboardif ["%errorlevel%"]==["49"] (goto :edit-list)if ["%errorlevel%"]==["50"] (goto :ed-Nombre)if ["%errorlevel%"]==["51"] (goto :ed-Precio)if ["%errorlevel%"]==["52"] (goto :ed-Cantidad)if ["%errorlevel%"]==["53"] (goto :elim-Linea)if ["%errorlevel%"]==["54"] (exit)if not ["%errorlevel%"]==["54"] (goto :edit-list):ed-Nombreecho ÉÍÍÍÍÍÍ»echo º YA ºecho ÉËÍÍÍÍÍÍÍÍÍ» ÈÍÍÍÍÍͼset/p "n=ºº Linea º "echo ÈÊÍÍÍÍÍÍÍÍͼif not defined n (goto :ed-Nombre)if ["%n%"]==["0"] (goto :ed-Nombre)if /I ["%n%"]==["menu"] (goto :menu)if /I ["%n%"]==["ya"] (goto :edit-list)if ["%n%"]==["1"] (set "funcion=tokens=*" & goto :nr0)set "nr=-1"set /a nls=%n%%nr%set "funcion=tokens=* skip=%nls%":nr0echo ÉËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»set/p "dtprd=ºº Descriccion Del Producto º "echo ÈÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼif not defined dtprd (goto :ed-Nombre)if /I ["%dtprd%"]==["menu"] (goto :menu)if /I ["%dtprd%"]==["ya"] (goto :edit-list)set /p "siono= (S/N) "if not defined siono (goto :ed-Nombre)if /I ["%siono%"]==["s"] (goto :sipok0)if /I ["%siono%"]==["n"] (goto :ed-Nombre):sipok0FOR /F "%funcion%" %%a IN ('type Lista.txt') DO (set dtlns=%%agoto :dtprss0):dtprss0set "dtprd=%dtprd% "set "dtprd1=%dtprd:~0,42%"set "dtlns=%dtlns% "set "dllns=%dtlns:~43,30%"echo %dtprd1% %dllns%>> Lista.txt(echo %n%decho E) | EDLIN /B Lista.txt > nul 2>&1del /F LISTA.BAKren LISTA.TXT Lista.txt > nul 2>&1echo Listo...!!ping -n 2 localhost > nul 2>&1copy /y Lista.txt List-Bakup\Lista-Bakup.tmp > nul 2>&1goto :edit-list:ed-Precioecho ÉÍÍÍÍÍÍ»echo º YA ºecho ÉËÍÍÍÍÍÍÍÍÍ» ÈÍÍÍÍÍͼset/p "n=ºº Linea º "echo ÈÊÍÍÍÍÍÍÍÍͼif not defined n (goto :ed-Precio)if ["%n%"]==["0"] (goto :ed-Precio)if /I ["%n%"]==["menu"] (goto :menu)if /I ["%n%"]==["ya"] (goto :edit-list)if ["%n%"]==["1"] (set "funcion=tokens=*" & goto :nr1)set "nr=-1"set /a nls=%n%%nr%set "funcion=tokens=* skip=%nls%":nr1echo ÉËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»set/p "dtprd=ºº Precio Del Producto º "echo ÈÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼif not defined dtprd (goto :ed-Precio)if /I ["%dtprd%"]==["menu"] (goto :menu)if /I ["%dtprd%"]==["ya"] (goto :edit-list)set /p "siono= (S/N) "if not defined siono (goto :ed-Precio)if /I ["%siono%"]==["s"] (goto :sipok1)if /I ["%siono%"]==["n"] (goto :ed-Precio):sipok1FOR /F "%funcion%" %%a IN ('type Lista.txt') DO (set dtlns=%%agoto :dtprss1):dtprss1set "cantid78=%dtlns% "set "dtprd=%dtprd% "set "dtprd1=%dtprd:~0,10%"set "dtlns=%dtlns% "set "dllns=%dtlns:~0,43%"set "cantid78=%cantid78:~58,14%"echo %dllns% Bsf: %dtprd1%%cantid78%>> Lista.txt(echo %n%decho E) | EDLIN /B Lista.txt > nul 2>&1del /F LISTA.BAKren LISTA.TXT Lista.txt > nul 2>&1echo Listo...!!ping -n 2 localhostl > nul 2>&1copy /y Lista.txt List-Bakup\Lista-Bakup.tmp > nul 2>&1goto :edit-list:ed-Cantidadecho ÉÍÍÍÍÍÍ»echo º YA ºecho ÉËÍÍÍÍÍÍÍÍÍ» ÈÍÍÍÍÍͼset/p "n=ºº Linea º "echo ÈÊÍÍÍÍÍÍÍÍͼif not defined n (goto :ed-Cantidad)if ["%n%"]==["0"] (goto :ed-Cantidad)if /I ["%n%"]==["menu"] (goto :menu)if /I ["%n%"]==["ya"] (goto :edit-list)if ["%n%"]==["1"] (set "funcion=tokens=*" & goto :nr2)set "nr=-1"set /a nls=%n%%nr%set "funcion=tokens=* skip=%nls%":nr2echo ÉËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»set/p "dtprd=ºº Cantidad Del Producto º "echo ÈÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼif not defined dtprd (goto :ed-Cantidad)if /I ["%dtprd%"]==["menu"] (goto :menu)if /I ["%dtprd%"]==["ya"] (goto :edit-list)set /p "siono= (S/N) "if not defined siono (goto :ed-Cantidad)if /I ["%siono%"]==["s"] (goto :sipok2)if /I ["%siono%"]==["n"] (goto :ed-Cantidad):sipok2FOR /F "%funcion%" %%a IN ('type Lista.txt') DO (set dtlns=%%agoto :dtprss2):dtprss2set "dtprd=%dtprd% "set "dtprd1=%dtprd:~0,9%"set "dtlns=%dtlns% "set "dllns=%dtlns:~0,43%"set "cantidvl=%dtlns% "set "cantidvl=%cantidvl:~43,20%"echo %dllns%%cantidvl%%dtprd1%>> Lista.txt(echo %n%decho E) | EDLIN /B Lista.txt > nul 2>&1del /F LISTA.BAKren LISTA.TXT Lista.txt > nul 2>&1echo Listo...!!ping -n 2 localhost > nul 2>&1copy /y Lista.txt List-Bakup\Lista-Bakup.tmp > nul 2>&1goto :edit-list:: Elimina Lineas Completas.:elim-Lineaecho ÉÍÍÍÍÍÍ»echo º YA ºecho ÉËÍÍÍÍÍÍÍÍÍ» ÈÍÍÍÍÍͼset/p "n=ºº Linea º "echo ÈÊÍÍÍÍÍÍÍÍͼif not defined n (goto :elim-Linea)if ["%n%"]==["0"] (goto :edit-list)if /I ["%n%"]==["menu"] (goto :menu)if /I ["%n%"]==["ya"] (goto :edit-list)set /p "siono= (S/N) "if not defined siono (goto :elim-Linea)if /I ["%siono%"]==["s"] (goto :sipok)if /I ["%siono%"]==["n"] (goto :elim-Linea):sipok(echo %n%decho E) | EDLIN /B Lista.txt > nul 2>&1del /F LISTA.BAKren LISTA.TXT Lista.txt > nul 2>&1echo Listo...!!ping -n 2 localhost > nul 2>&1copy /y Lista.txt List-Bakup\Lista-Bakup.tmp > nul 2>&1goto :edit-list:crear_key(echo n keyboard.datecho e 0000 4D 5A 2E 00 01 00 00 00 02 00 00 10 FF FF F0 FFecho e 0010 FE FF 00 00 00 01 F0 FF 1C 00 00 00 00 00 00 00echo e 0020 B4 08 CD 21 3C 00 75 02 CD 21 B4 4C CD 21echo rcxecho 002Eecho w0echo qecho.)>keyboard.dattype keyboard.dat|debug>NUL 2>&1del /f/q/a "keyboard.exe">NUL 2>&1ren keyboard.dat "keyboard.exe"goto:menu