C11/System/OPTIMA/SQL/batch/VPP28.bat

@echo off
call "C:\GlobalCube\Tasks\scripts\config2.bat"
rem ==VPP28==
del C:\GlobalCube\System\OPTIMA\SQL\logs\VPP28*.* /Q /F >nul 2>nul

if not "%1"=="" goto :increment

:full
  call sql_query.bat "TRUNCATE TABLE [OPTIMA].[import].[VPP28]"
  call bcp_queryout.bat "VPP28_1" "SELECT T1.[KEYPART], T1.[STATE_CODE_PARAM], T1.[TRANSACT_DATE], T1.[HANDLER], T1.[NEXT_TRLIST], T1.[FIRST_TRLIST], T1.[LAST_TRLIST], T1.[NEXT_LEDGER_PAGE], T1.[FIRST_LEDGER_PAGE], T1.[LAST_LEDGER_PAGE], T1.[NEXT_BATCH], T1.[FIRST_BATCH], T1.[LAST_BATCH], T1.[LEDGER_DATE_YY], T1.[LEDGER_DATE_MM], T1.[LEDGER_DATE_DD], T1.[CUSTOMER_DATE_YY], T1.[CUSTOMER_DATE_MM], T1.[CUSTOMER_DATE_DD], T1.[SUPPLIER_DATE_YY], T1.[SUPPLIER_DATE_MM], T1.[SUPPLIER_DATE_DD], T1.[CUST_SPEC], T1.[SUPP_SPEC], T1.[CUST_PAYMENT_SPEC], T1.[USE_SUPP_KEY], T1.[DATE_LIMIT], T1.[POST_ENTRY_LIMIT], T1.[CONS_PAGENO_BOOKS], T1.[EDP_ACCT_CHECK], T1.[USE_SUPP_NAME], T1.[BATCH_PRINT_FUNC], T1.[CHECK_UNCLOSED_DEALS], T1.[CHART_CONV_DATE], T1.[CHART_CONV_FY_START_DATE], T1.[CHART_CONV_FY_END_DATE], T1.[BUDGET_NO], T1.[AA_DIALOG_BOX], T1.[USE_SUPP_NAME_VEH], T1.[USE_SUPP_NAME_LEAS], T1.[timestamp], T1.[UNIQUE_IDENT], '1' as [Client_DB] FROM [deop01].[dbo].[vPP28] T1  WHERE 1 = 1 ORDER BY T1.[timestamp] "
  call bcp_in.bat "VPP28_1" "[import].[VPP28]" "OPTIMA"
  call bcp_queryout.bat "VPP28_2" "SELECT T1.[KEYPART], T1.[STATE_CODE_PARAM], T1.[TRANSACT_DATE], T1.[HANDLER], T1.[NEXT_TRLIST], T1.[FIRST_TRLIST], T1.[LAST_TRLIST], T1.[NEXT_LEDGER_PAGE], T1.[FIRST_LEDGER_PAGE], T1.[LAST_LEDGER_PAGE], T1.[NEXT_BATCH], T1.[FIRST_BATCH], T1.[LAST_BATCH], T1.[LEDGER_DATE_YY], T1.[LEDGER_DATE_MM], T1.[LEDGER_DATE_DD], T1.[CUSTOMER_DATE_YY], T1.[CUSTOMER_DATE_MM], T1.[CUSTOMER_DATE_DD], T1.[SUPPLIER_DATE_YY], T1.[SUPPLIER_DATE_MM], T1.[SUPPLIER_DATE_DD], T1.[CUST_SPEC], T1.[SUPP_SPEC], T1.[CUST_PAYMENT_SPEC], T1.[USE_SUPP_KEY], T1.[DATE_LIMIT], T1.[POST_ENTRY_LIMIT], T1.[CONS_PAGENO_BOOKS], T1.[EDP_ACCT_CHECK], T1.[USE_SUPP_NAME], T1.[BATCH_PRINT_FUNC], T1.[CHECK_UNCLOSED_DEALS], T1.[CHART_CONV_DATE], T1.[CHART_CONV_FY_START_DATE], T1.[CHART_CONV_FY_END_DATE], T1.[BUDGET_NO], T1.[AA_DIALOG_BOX], T1.[USE_SUPP_NAME_VEH], T1.[USE_SUPP_NAME_LEAS], T1.[timestamp], T1.[UNIQUE_IDENT], '2' as [Client_DB] FROM [deop02].[dbo].[vPP28] T1  WHERE 1 = 1 ORDER BY T1.[timestamp] "
  call bcp_in.bat "VPP28_2" "[import].[VPP28]" "OPTIMA"
  goto :cleanup

:increment
  call sql_query.bat "TRUNCATE TABLE [OPTIMAX].[temp].[VPP28]"

  call sql_timestamp.bat "VPP28_1" "[OPTIMA].[import].[VPP28]" "1"
  call bcp_queryout.bat "VPP28_1" "SELECT T1.[KEYPART], T1.[STATE_CODE_PARAM], T1.[TRANSACT_DATE], T1.[HANDLER], T1.[NEXT_TRLIST], T1.[FIRST_TRLIST], T1.[LAST_TRLIST], T1.[NEXT_LEDGER_PAGE], T1.[FIRST_LEDGER_PAGE], T1.[LAST_LEDGER_PAGE], T1.[NEXT_BATCH], T1.[FIRST_BATCH], T1.[LAST_BATCH], T1.[LEDGER_DATE_YY], T1.[LEDGER_DATE_MM], T1.[LEDGER_DATE_DD], T1.[CUSTOMER_DATE_YY], T1.[CUSTOMER_DATE_MM], T1.[CUSTOMER_DATE_DD], T1.[SUPPLIER_DATE_YY], T1.[SUPPLIER_DATE_MM], T1.[SUPPLIER_DATE_DD], T1.[CUST_SPEC], T1.[SUPP_SPEC], T1.[CUST_PAYMENT_SPEC], T1.[USE_SUPP_KEY], T1.[DATE_LIMIT], T1.[POST_ENTRY_LIMIT], T1.[CONS_PAGENO_BOOKS], T1.[EDP_ACCT_CHECK], T1.[USE_SUPP_NAME], T1.[BATCH_PRINT_FUNC], T1.[CHECK_UNCLOSED_DEALS], T1.[CHART_CONV_DATE], T1.[CHART_CONV_FY_START_DATE], T1.[CHART_CONV_FY_END_DATE], T1.[BUDGET_NO], T1.[AA_DIALOG_BOX], T1.[USE_SUPP_NAME_VEH], T1.[USE_SUPP_NAME_LEAS], T1.[timestamp], T1.[UNIQUE_IDENT], '1' as [Client_DB] FROM [deop01].[dbo].[vPP28] T1  WHERE T1.[timestamp] > convert(binary(8), '%TS%', 1) AND 1 = 1 ORDER BY T1.[timestamp] "
  call bcp_in.bat "VPP28_1" "[temp].[VPP28]" "OPTIMAX"

  call sql_timestamp.bat "VPP28_2" "[OPTIMA].[import].[VPP28]" "2"
  call bcp_queryout.bat "VPP28_2" "SELECT T1.[KEYPART], T1.[STATE_CODE_PARAM], T1.[TRANSACT_DATE], T1.[HANDLER], T1.[NEXT_TRLIST], T1.[FIRST_TRLIST], T1.[LAST_TRLIST], T1.[NEXT_LEDGER_PAGE], T1.[FIRST_LEDGER_PAGE], T1.[LAST_LEDGER_PAGE], T1.[NEXT_BATCH], T1.[FIRST_BATCH], T1.[LAST_BATCH], T1.[LEDGER_DATE_YY], T1.[LEDGER_DATE_MM], T1.[LEDGER_DATE_DD], T1.[CUSTOMER_DATE_YY], T1.[CUSTOMER_DATE_MM], T1.[CUSTOMER_DATE_DD], T1.[SUPPLIER_DATE_YY], T1.[SUPPLIER_DATE_MM], T1.[SUPPLIER_DATE_DD], T1.[CUST_SPEC], T1.[SUPP_SPEC], T1.[CUST_PAYMENT_SPEC], T1.[USE_SUPP_KEY], T1.[DATE_LIMIT], T1.[POST_ENTRY_LIMIT], T1.[CONS_PAGENO_BOOKS], T1.[EDP_ACCT_CHECK], T1.[USE_SUPP_NAME], T1.[BATCH_PRINT_FUNC], T1.[CHECK_UNCLOSED_DEALS], T1.[CHART_CONV_DATE], T1.[CHART_CONV_FY_START_DATE], T1.[CHART_CONV_FY_END_DATE], T1.[BUDGET_NO], T1.[AA_DIALOG_BOX], T1.[USE_SUPP_NAME_VEH], T1.[USE_SUPP_NAME_LEAS], T1.[timestamp], T1.[UNIQUE_IDENT], '2' as [Client_DB] FROM [deop02].[dbo].[vPP28] T1  WHERE T1.[timestamp] > convert(binary(8), '%TS%', 1) AND 1 = 1 ORDER BY T1.[timestamp] "
  call bcp_in.bat "VPP28_2" "[temp].[VPP28]" "OPTIMAX"

  call sql_query.bat "DELETE T1 FROM [OPTIMA].[import].[VPP28] T1 INNER JOIN [OPTIMAX].[temp].[VPP28] T2 ON T1.[CLIENT_DB] = T2.[CLIENT_DB] AND T1.[UNIQUE_IDENT] = T2.[UNIQUE_IDENT]"
  call sql_query.bat "INSERT INTO [OPTIMA].[import].[VPP28] with (TABLOCK) SELECT * FROM [OPTIMAX].[temp].[VPP28] T1"

:cleanup
  call delete.bat "C:\GlobalCube\System\OPTIMA\SQL\temp\VPP28_1.csv"
  call delete.bat "C:\GlobalCube\System\OPTIMA\SQL\temp\VPP28_2.csv"