SetLocal

=========================================================================================================================================

SET Omgeving=ABO_PRD
SET acmd="D:\Program Files (x86)\Profit\AFAS Windows\Kernel\Bin\Afascmd.exe"
SET LogBestand=\\ehrmfs\Logs$\ProfitScripts\SocialeCockpit-%date%.log
SET PeriodeTabel=5
SET NaamAnalyse=ABO 2.21
SET NaamImportDefinitie=Import_ABO
SET PadCockpits=\\ABO_PRD\Profit\ABO\
SET AantalJaarTerugKijken=1

SET /A AantalMaanden=12

=========================================================================================================================================
DEL "%LogBestand%"


date /t=%date%
time /t=%time%
echo ========================================================================================================================================= >> "%LogBestand%"
echo START >> "%LogBestand%"



SET /A CurrentYear=%Date:~6,4%
IF %Date:~3,1% == 0 (Set /A CurrentMonth=%Date:~4,1%)
IF NOT %Date:~3,1% == 0 (Set /A CurrentMonth=%Date:~3,2%)
SET CurrentDay=%Date:~0,2%
SET /A AantalMaanden = %AantalMaanden% + 1 

DEL "%PadCockpits%*temp*.*"

ECHO CurrentYear %CurrentYear% >> "%LogBestand%"
ECHO CurrentMonth %CurrentMonth% >> "%LogBestand%"
ECHO CurrentDay %CurrentDay% >> "%LogBestand%"
ECHO AantalMaanden %AantalMaanden% >> "%LogBestand%"

SET /A CurrentLoopCount=0


	SET /A Year=CurrentYear-%AantalJaarTerugKijken%


	SET /A Month=%CurrentMonth%
	
ECHO Year %Year% >> "%LogBestand%"	
ECHO Month %Month% >> "%LogBestand%"




	SET /a CurrentLoopCount=%CurrentLoopCount%+1
	

		
		
		IF %CurrentLoopCount%==1 (SET /A Month=%Month%)
		IF NOT %CurrentLoopCount%==1 (SET /A Month=%Month%+1)	


		IF %Month%==13 (SET /A year=%Year%+1)
		IF %Month%==13 (SET /A Month=1)
		
			

		SET #=%Month%
		SET Length=0
		:LOOPCOUNTLENGTHMONTH
		 		IF defined # (SET #=%#:~1%&SET /A Length += 1&GOTO LOOPCOUNTLENGTHMONTH)
		IF %length%==1 (SET MonthWithFormat=0%Month%) ELSE (SET MonthWithFormat=%Month%)
		SET Length=0

		SET DateBegin=01-%MonthWithFormat%-%Year%



		IF %Month%==1 (SET /A LastDayOfEndMonth=31)
		IF %Month%==2 (CALL :LeapYear)
		IF %Month%==3 (SET /A LastDayOfEndMonth=31)
		IF %Month%==4 (SET /A LastDayOfEndMonth=30)
		IF %Month%==5 (SET /A LastDayOfEndMonth=31)
		IF %Month%==6 (SET /A LastDayOfEndMonth=30)
		IF %Month%==7 (SET /A LastDayOfEndMonth=31)
		IF %Month%==8 (SET /A LastDayOfEndMonth=31)
		IF %Month%==9 (SET /A LastDayOfEndMonth=30)
		IF %Month%==10 (SET /A LastDayOfEndMonth=31)
		IF %Month%==11 (SET /A LastDayOfEndMonth=30)
		IF %Month%==12 (SET /A LastDayOfEndMonth=31)



		IF %CurrentLoopCount%==%AantalMaanden% (SET Day=%CurrentDay%) ELSE (SET Day=%LastDayOfEndMonth%)


		SET #=%Day%
		SET Length=0
		:LOOPCOUNTLENGTHDAY
		 		IF defined # (SET #=%#:~1%&SET /A Length += 1&GOTO LOOPCOUNTLENGTHDAY)
		IF %length%==1 (SET DayWithFormat=0%Day%) ELSE (SET DayWithFormat=%Day%)
		SET Length=0



	
		SET DateEnd=%DayWithFormat%-%MonthWithFormat%-%Year%





date /t=%date%
time /t=%time%
echo ========================================================================================================================================= >> "%LogBestand%"

ECHO date %date% >> "%LogBestand%"
ECHO time %time% >> "%LogBestand%"
ECHO DateBegin %DateBegin% >> "%LogBestand%"
ECHO DateEnd %DateEnd% >> "%LogBestand%"

echo Start Vullen tijdelijke bestand %date% %time% Startdatum %DateBegin% Einddatum %DateEnd% >> "%LogBestand%"

echo parameters runnen bezetting >> "%LogBestand%"
ECHO acmd %acmd% >> "%LogBestand%"
ECHO Omgeving %Omgeving% >> "%LogBestand%"
ECHO LogBestand %LogBestand% >> "%LogBestand%"
ECHO NaamAnalyse %NaamAnalyse% >> "%LogBestand%"
ECHO DateBegin %DateBegin% >> "%LogBestand%"
ECHO DateEnd %DateEnd% >> "%LogBestand%"
ECHO PeriodeTabel %PeriodeTabel% >> "%LogBestand%"

%acmd% /O"%Omgeving%" /L"%LogBestand%" BEZETTING /A"%NaamAnalyse%" /F"%DateBegin%" /T"%DateEnd%" /K /P"%PeriodeTabel%"

echo========================================================================================================================================= >> "%LogBestand%"
echo Einde vullen tijdelijk bestand %date% %time% >> "%LogBestand%"


IF NOT "%CurrentLoopCount%" == "%AantalMaanden%" GOTO LOOPANALYSE


SET DateBegin=01-01-1900
SET DateEnd=01-01-1900


date /t=%date%
time /t=%time%
echo ========================================================================================================================================= >> "%LogBestand%"
echo Start PUBLICATIE %date% %time% Startdatum %DateBegin% Einddatum %DateEnd% >> "%LogBestand%"


::Analyse wordt aangeroepen tbv het publiceren van Cockpits
%acmd% /O"%Omgeving%" /L"%LogBestand%" BEZETTING /A"%NaamAnalyse%" /F"%DateBegin%" /T"%DateEnd%"


date /t=%date%
time /t=%time%
echo ========================================================================================================================================= >> "%LogBestand%"
echo Einde PUBLICATIE %date% %time% >> "%LogBestand%"
echo ========================================================================================================================================= >> "%LogBestand%"


date /t=%date%
time /t=%time%
echo ========================================================================================================================================= >> "%LogBestand%"
echo Start IMPORT hyperlinks %date% %time% >> "%LogBestand%"

::Importeert de hyperlinks
%acmd% /O"%Omgeving%" /L"%LogBestand%" IMPORT /N"%NaamImportDefinitie%"


date /t=%date%
time /t=%time%
echo ========================================================================================================================================= >> "%LogBestand%"
echo Einde IMPORT hyperlinks %date% %time% >> "%LogBestand%"
echo ========================================================================================================================================= >> "%LogBestand%"
echo EINDE >> "%LogBestand%"

EndLocal


exit


SET /A mod400 = %CurrentYear% %% 400
SET /A mod100 = %CurrentYear% %% 100
SET /A mod4   = %CurrentYear% %% 4
IF %mod400% == 0 (SET /A LastDayOfEndMonth = 29) ELSE (IF %mod100% == 0 (SET /A LastDayOfEndMonth = 28) ELSE (IF %mod4% == 0 (SET /A LastDayOfEndMonth = 29) ELSE (SET /A LastDayOfEndMonth = 28)))