Citar
@echo off
title Asistente de Facturacion v1
echo Bienvenido.
pause
goto ano
:ano
cls
echo Porfavor ingrese el ano (ejemplo 2012), por favor no cometa errores.
set /p ano=
if EXIST %ano% goto mes
if NOT EXIST %ano% goto crearano
pause
:crearano
MD %ano%
goto mes
:mes
cls
echo Inserte el numero del mes
set /p mes=
if %mes%==1 set /a fecha== enero
if %mes%==2 set /a fecha== febrero
if %mes%==3 set /a fecha== marzo
if %mes%==4 set /a fecha== abril
if %mes%==5 set /a fecha== mayo
if %mes%==6 set /a fecha== junio
if %mes%==7 set /a fecha== julio
if %mes%==8 set /a fecha== agosto
if %mes%==9 set /a fecha== septiembre
if %mes%==10 set /a fecha== octubre
if %mes%==11 set /a fecha== noviembre
if %mes%==12 set /a fecha== diciembre
pause
if "C:\Documents and Settings\parra\My Documents\facturacion\%ano%\%fecha%" exist goto menu
if "C:\Documents and Settings\parra\My Documents\facturacion\%ano%\%fecha%" not exist goto crearmes
:crearmes
mkdir C:\Documents and Settings\parra\My Documents\facturacion\%ano%\%fecha%
cls
goto menu
pause
:menu
cls
echo Digite el numaro de opcion correspondiente.
echo º1-CREAR Nueva FACTURA
echo º2-Convertir Factura
echo º3-Instrucciones
echo º4-Salir
set /p "menu=>"
if %menu%==1 goto crear
if %menu%==2 goto convertir
if %menu%==3 goto instrucciones
if %menu%==4 goto salir
echo Digito(s) invalidos
pause
goto menu
:crear
cls
echo Ingresa el nombre de tu carpeta
set /p "name1=>"
echo su carpeta se llamara %name%, es eso correcto (S/N)
set /p "nameson=>"
if %nameson%==N goto crear
if %nameson%==n goto crear
if %nameson%==S goto copyopen
if %nameson%==s goto copyopen
:copyopen
cls
copy C:\Documents and Settings\parra\My Documents\facturacion\facturabase.xls C:\Documents and Settings\parra\My Documents\facturacion\%ano%\%fecha%
rename C:\Documents and Settings\parra\My Documents\facturacion\facturabase.xls C:\Documents and Settings\parra\My Documents\facturacion\%name1%.xls
pause
title Asistente de Facturacion v1
echo Bienvenido.
pause
goto ano
:ano
cls
echo Porfavor ingrese el ano (ejemplo 2012), por favor no cometa errores.
set /p ano=
if EXIST %ano% goto mes
if NOT EXIST %ano% goto crearano
pause
:crearano
MD %ano%
goto mes
:mes
cls
echo Inserte el numero del mes
set /p mes=
if %mes%==1 set /a fecha== enero
if %mes%==2 set /a fecha== febrero
if %mes%==3 set /a fecha== marzo
if %mes%==4 set /a fecha== abril
if %mes%==5 set /a fecha== mayo
if %mes%==6 set /a fecha== junio
if %mes%==7 set /a fecha== julio
if %mes%==8 set /a fecha== agosto
if %mes%==9 set /a fecha== septiembre
if %mes%==10 set /a fecha== octubre
if %mes%==11 set /a fecha== noviembre
if %mes%==12 set /a fecha== diciembre
pause
if "C:\Documents and Settings\parra\My Documents\facturacion\%ano%\%fecha%" exist goto menu
if "C:\Documents and Settings\parra\My Documents\facturacion\%ano%\%fecha%" not exist goto crearmes
:crearmes
mkdir C:\Documents and Settings\parra\My Documents\facturacion\%ano%\%fecha%
cls
goto menu
pause
:menu
cls
echo Digite el numaro de opcion correspondiente.
echo º1-CREAR Nueva FACTURA
echo º2-Convertir Factura
echo º3-Instrucciones
echo º4-Salir
set /p "menu=>"
if %menu%==1 goto crear
if %menu%==2 goto convertir
if %menu%==3 goto instrucciones
if %menu%==4 goto salir
echo Digito(s) invalidos
pause
goto menu
:crear
cls
echo Ingresa el nombre de tu carpeta
set /p "name1=>"
echo su carpeta se llamara %name%, es eso correcto (S/N)
set /p "nameson=>"
if %nameson%==N goto crear
if %nameson%==n goto crear
if %nameson%==S goto copyopen
if %nameson%==s goto copyopen
:copyopen
cls
copy C:\Documents and Settings\parra\My Documents\facturacion\facturabase.xls C:\Documents and Settings\parra\My Documents\facturacion\%ano%\%fecha%
rename C:\Documents and Settings\parra\My Documents\facturacion\facturabase.xls C:\Documents and Settings\parra\My Documents\facturacion\%name1%.xls
pause
mi problema debe ser:
Citar
:crearmes
mkdir C:\Documents and Settings\parra\My Documents\facturacion\%ano%\%fecha%
cls
goto menu
pause
mkdir C:\Documents and Settings\parra\My Documents\facturacion\%ano%\%fecha%
cls
goto menu
pause
No se que mas decir, y no estoy seguro de como hacerle.
si ese es el error seguramente estos tambien esten mal:
Citar
if "C:\Documents and Settings\parra\My Documents\facturacion\%ano%\%fecha%" exist goto menu
if "C:\Documents and Settings\parra\My Documents\facturacion\%ano%\%fecha%" not exist goto crearmes
if "C:\Documents and Settings\parra\My Documents\facturacion\%ano%\%fecha%" not exist goto crearmes
Citar
:copyopen
cls
copy C:\Documents and Settings\parra\My Documents\facturacion\facturabase.xls C:\Documents and Settings\parra\My Documents\facturacion\%ano%\%fecha%
rename C:\Documents and Settings\parra\My Documents\facturacion\facturabase.xls C:\Documents and Settings\parra\My Documents\facturacion\%name1%.xls
pause
cls
copy C:\Documents and Settings\parra\My Documents\facturacion\facturabase.xls C:\Documents and Settings\parra\My Documents\facturacion\%ano%\%fecha%
rename C:\Documents and Settings\parra\My Documents\facturacion\facturabase.xls C:\Documents and Settings\parra\My Documents\facturacion\%name1%.xls
pause
de antemano gracias (perdón por las faltas ortograficas no tengo corrector en este momento.
Editado:
ya lo arregle:
Citar
@echo off
title Asistente de Facturacion v1
echo Bienvenido.
pause
goto ano
:ano
cls
echo Porfavor ingrese el ano (ejemplo 2012), por favor no cometa errores.
set /p ano=
if EXIST %ano% goto mes
if NOT EXIST %ano% goto crearano
pause
:crearano
MD %ano%
goto mes
:mes
cls
echo Inserte el numero del mes
set /p mes=
if %mes%==1 set fecha=enero
if %mes%==2 set fecha=febrero
if %mes%==3 set fecha=marzo
if %mes%==4 set fecha=abril
if %mes%==5 set fecha=mayo
if %mes%==6 set fecha=junio
if %mes%==7 set fecha=julio
if %mes%==8 set fecha=agosto
if %mes%==9 set fecha=septiembre
if %mes%==10 set fecha=octubre
if %mes%==11 set fecha=noviembre
if %mes%==12 set fecha=diciembre
pause
if exist "%ano%\%fecha%" goto menu
if not exist "%ano%\%fecha%" goto crearmes
:crearmes
mkdir %ano%\%fecha%
cls
goto menu
pause
:menu
cls
echo Digite el numero de opcion correspondiente y precione enter.
echo º1-CREAR Nueva FACTURA
echo º2-Convertir Factura
echo º3-Instrucciones
echo º4-Salir
set /p "menu=>"
if %menu%==1 goto crear
if %menu%==2 goto convertir
if %menu%==3 goto instrucciones
if %menu%==4 goto salir
echo Digito(s) invalidos
pause
goto menu
:crear
echo Ingrese nombre de la factura.
set /p "factura=>"
copy facturabase.xls %ano%\%fecha%\
ren %ano%\%fecha%\facturabase.xls %factura%.xls
pause
goto menu
title Asistente de Facturacion v1
echo Bienvenido.
pause
goto ano
:ano
cls
echo Porfavor ingrese el ano (ejemplo 2012), por favor no cometa errores.
set /p ano=
if EXIST %ano% goto mes
if NOT EXIST %ano% goto crearano
pause
:crearano
MD %ano%
goto mes
:mes
cls
echo Inserte el numero del mes
set /p mes=
if %mes%==1 set fecha=enero
if %mes%==2 set fecha=febrero
if %mes%==3 set fecha=marzo
if %mes%==4 set fecha=abril
if %mes%==5 set fecha=mayo
if %mes%==6 set fecha=junio
if %mes%==7 set fecha=julio
if %mes%==8 set fecha=agosto
if %mes%==9 set fecha=septiembre
if %mes%==10 set fecha=octubre
if %mes%==11 set fecha=noviembre
if %mes%==12 set fecha=diciembre
pause
if exist "%ano%\%fecha%" goto menu
if not exist "%ano%\%fecha%" goto crearmes
:crearmes
mkdir %ano%\%fecha%
cls
goto menu
pause
:menu
cls
echo Digite el numero de opcion correspondiente y precione enter.
echo º1-CREAR Nueva FACTURA
echo º2-Convertir Factura
echo º3-Instrucciones
echo º4-Salir
set /p "menu=>"
if %menu%==1 goto crear
if %menu%==2 goto convertir
if %menu%==3 goto instrucciones
if %menu%==4 goto salir
echo Digito(s) invalidos
pause
goto menu
:crear
echo Ingrese nombre de la factura.
set /p "factura=>"
copy facturabase.xls %ano%\%fecha%\
ren %ano%\%fecha%\facturabase.xls %factura%.xls
pause
goto menu