@echo off
if not exist "%SystemDrive%\ICR\DATA\" (
echo No existe la carpeta "%SystemDrive%\ICR\DATA\"
pause
goto :eof
)
 
cd /d %SystemDrive%\ICR\DATA\
 
if not exist ".\Procesados\Registros" (mkdir ".\Procesados\Registros")
 
for %%a in (?_*_*_*.txt) do (
for /f "tokens=1,2 delims=_" %%b in ("%%a") do (
for /f "tokens=* delims=0" %%d in ("%%c") do (
call :comando %%a %%b %%d %date% %time:~0,2%.%time:~3,2%
)
)
)
 
pause
goto :eof
 
:comando
%SystemDrive%\ICR\encolador.exe N %~dp1%1 Tabla:Entrada %2 %3 N sa sa CDRA-BAS BASCDR>NUL 2>NUL
echo %SystemDrive%\ICR\encolador.exe N %~dp1%1 Tabla:Entrada %2 %3 N sa sa CDRA-BAS BASCDR>>%SystemDrive%\ICR\DATA\Procesados\Registros\%4-%5.txt
 
if not exist "%2" (mkdir "%2")
if exist "%2" (
if not exist "%2\%3" (mkdir "%2\%3")
)
goto :eof