//======================================================================
// VfpOle.cpp : Defines the entry point for the application
//======================================================================

#include "StdAfx.h"

// Здесь можно оставить один заголовок
#include "vfp9.tlh"
#include "vfp9.h"


//======================================================================
// CheckHR()
//======================================================================
BOOL CheckHR(HRESULT hr) {
	if(FAILED(hr)) {
		_com_error er(hr);
		MessageBox(NULL, er.ErrorMessage(), _T("Error"), MB_OK);

		return FALSE;
	}

	return TRUE;
}  // CheckHR()

//======================================================================
// WinMain()
//======================================================================
int APIENTRY WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nCmdShow) {
	CoInitialize(NULL);

{  // Блок безопасности COM

	// Для #include "vfp9.tlh"

	Application Vfp9;

	if(!CheckHR(Vfp9.CreateDispatch(_T("VisualFoxpro.Application.9")))) {  // CLSCTX_LOCAL_SERVER
		return -1;
	}

	Vfp9.DoCmd(_T("SET SAFETY OFF"));
	Vfp9.DoCmd(_T("SET DATE GERMAN"));
	Vfp9.DoCmd(_T("SET CENTURY ON"));
	Vfp9.DoCmd(_T("CREATE TABLE D:\\MyDocs\\Emery1.dbf (Code N(5), Line C(50), CurDate D(10))"));
	Vfp9.DoCmd(_T("INSERT INTO Emery1 (Code, Line, CurDate) VALUES (2, 'Привет, Emery из Visual FoxPro!', DATE(2016, 12, 28))"));
	Vfp9.DoCmd(_T("INSERT INTO Emery1 (Code, Line, CurDate) VALUES (3, 'Как твои дела?', DATE(2017, 1, 1))"));
	Vfp9.DoCmd(_T("INSERT INTO Emery1 (Code, Line, CurDate) VALUES (1, 'С Новым 2017 годом!', DATE(2016, 12, 31))"));
	Vfp9.DoCmd(_T("SELECT * FROM Emery1 ORDER BY Code INTO TABLE D:\\MyDocs\\Emery2.dbf"));
	Vfp9.DoCmd(_T("CLOSE ALL"));

	Vfp9.Quit();

	// Для #include "vfp9.h"
	
	VisualFoxpro::ApplicationPtr pVfp9;	

	if(!CheckHR(pVfp9.CreateInstance(_T("VisualFoxpro.Application.9")))) {  // CLSCTX_LOCAL_SERVER
		return -1;
	}

	pVfp9->DoCmd(_T("SET SAFETY OFF"));
	pVfp9->DoCmd(_T("SET DATE GERMAN"));
	pVfp9->DoCmd(_T("SET CENTURY ON"));
	pVfp9->DoCmd(_T("USE D:\\MyDocs\\Emery1"));
	pVfp9->DoCmd(_T("SELECT * FROM Emery1 ORDER BY CurDate INTO TABLE D:\\MyDocs\\Emery3.dbf"));
	pVfp9->DoCmd(_T("CLOSE ALL"));

	pVfp9->Quit();

}  // Блок безопасности COM

	CoUninitialize();

	return 0;
}  // WinMain()

//======================================================================
//======================================================================

////////////////////////////////////////////////////////////////////////////////
// ПРОЦЕДУРЫ И ФУНКЦИИ МОДУЛЯ
//******************************************************************************
// Выполнить()
//
// Параметры:
//
// Возвращаемое значение:
//
// Описание:
//
Процедура Выполнить()               
	Если МонопольныйРежим() = 1 Тогда
		Предупреждение("Для расчета данных необходимо выйти из монопольного режима!");
		Возврат;
	КонецЕсли;
	
	глНачВремя = _GetPerformanceCounter();

	q = Симв(34);
	qq = q+Симв(32)+q;	
	
	//----------------------------------------------------------------------------
	// Удедиться, что имеются необходимые исходные данные
	Если ПустоеЗначение(ГруппаТабелей) = 1 Тогда
		Если ПустоеЗначение(ПодрСотр) = 1 Тогда
		  Предупреждение("Неопределенно подразделение сотрудника!");
		  Возврат;
		КонецЕсли;
	КонецЕсли;
		    
	Если ПустоеЗначение(ОтчДата) = 1 Тогда
	  Предупреждение("Неопределенна отчетная дата!");
	  Возврат;
	КонецЕсли;       
		
	Если (ПустоеЗначение(ПолнКод) = 1) И (СохранятьРасчет = 1) Тогда
	  Предупреждение("Неопределен полный код группы для результатов расчета!");
	  Возврат;
	КонецЕсли;       
	
	Если ПустоеЗначение(глПланДней) = 1 Тогда
	  Предупреждение("Неопределенно количество плановых дней!");
	  Возврат;
	КонецЕсли;       
	
	Если ПустоеЗначение(глПланЧасов) = 1 Тогда
	  Предупреждение("Неопределенно количество плановых часов!");
	  Возврат;
	КонецЕсли;       
	
	//----------------------------------------------------------------------------
	// Провести расчет с помощью внешнего приложения VFP 7.0 LionUZP.exe
	СтрОтчДата = Формат(ОтчДата, "DDDMMYYYY");
	СтрПризнГруппы = СокрЛП(Строка(ГруппаТабелей.ЭтоГруппа()));
	
	Если ПустоеЗначение(ГруппаТабелей) = 0 Тогда
		Если СтрПризнГруппы = "1" Тогда  // Это группа
			КодГруппы = ГруппаТабелей.ПолныйКод();          
			PersId = "''";
			LgKatId = "''";
		Иначе  // Это конечный элемент                    
			КодГруппы = "''";
			PersId = _IdToStr(СокрЛП(Лев(Прав(ЗначениеВСтрокуВнутр(ГруппаТабелей.ПодрСотр.Владелец),11),9)));
			LgKatId = _IdToStr(СокрЛП(Лев(Прав(ЗначениеВСтрокуВнутр(ГруппаТабелей.ПодрСотр.ЛьготаКатегории),11),9)));
		КонецЕсли;                              
	Иначе
		КодГруппы = "''";
		PersId = _IdToStr(СокрЛП(Лев(Прав(ЗначениеВСтрокуВнутр(ПодрСотр.Владелец),11),9)));
		LgKatId = _IdToStr(СокрЛП(Лев(Прав(ЗначениеВСтрокуВнутр(ПодрСотр.ЛьготаКатегории),11),9)));
	                         
		//глПланЧасыСотр = глПолучитьПланЧасыСотр(ПодрСотр, ОтчДата, КонМесяца(ОтчДата));
  КонецЕсли;		

	//Сообщить(PersId);
	
	ЗапуститьПриложение(КаталогПрограммы()+"LionUZP.exe "+q+СтрОтчДата+qq+КодГруппы+qq+СтрПризнГруппы+qq+PersId+qq+LgKatId+qq+КаталогИБ()+q);
	
	Возврат;
КонецПроцедуры  // Выполнить()

    && DDE КАНАЛ

    PUBLIC gn_DDEChanNum        && Номер DDE канала для обмена данными с "1С"
    gn_DDEChanNum = DDEINITIATE("1CV7", "DDE")

    PUBLIC gs_FullDescr1C
    PUBLIC gn_PlanDays1C
    PUBLIC gn_PlanHours1C
    PUBLIC gs_FullSaveGroupCode1C
    PUBLIC gs_SaveCalc1C
    PUBLIC gs_CalcProtocol1C
    PUBLIC gl_IsCalcZPInLog
    PUBLIC gn_KolZnOkrInRates
    PUBLIC gn_KolZnOkrInRBolnL
    PUBLIC gn_KolZnOkrInROtpusk
    PUBLIC gn_RazmOsnSocLg
    PUBLIC gn_WorkLifeMin
    PUBLIC gn_MinZarplata
    PUBLIC gn_MaxVwslLetZaGod
    PUBLIC gn_MaxVwslLetZaMes
    PUBLIC gn_MaxBaseSocNals
    PUBLIC gs_UchitObyazSborsForAliments
    PUBLIC gs_VklPochtSbNaAlimVSumAlim
    PUBLIC gs_CalcProfVznosInOtherPeriods
    PUBLIC gs_CalcBolnListByHours
    PUBLIC gs_IspolzTekMesForCalcBL
    PUBLIC gs_NotDaysBLNotSumma
    PUBLIC gs_UchitIndPlanWorks
*    PUBLIC gs_KoefIndSrednOtp
    PUBLIC gn_KoefIndSrednOtp
    PUBLIC gn_KoefIndSrednBL
    PUBLIC gd_MaxDateKoefIndOtp
    PUBLIC gd_MaxDateKoefIndBL
    PUBLIC gd_DateNachDeystvBL
    PUBLIC gd_DateNachDeystvOtp
    PUBLIC ARRAY gan_KoefIndSrednih[12]
    PUBLIC gn_PlanDays
    PUBLIC gn_PlanHours
    PUBLIC gn_WorkDays
    PUBLIC gn_WorkHours
    
    PUBLIC s_DateNachDeystvBL
    PUBLIC s_DateNachDeystvOtp
    
    PUBLIC _DayRate_
    _DayRate_ = 0

    IF gn_DDEChanNum > -1 
        gs_FullDescr1C = ALLTRIM(DDEREQUEST(gn_DDEChanNum, "глПолнНаим"))
        gn_PlanDays1C = VAL(DDEREQUEST(gn_DDEChanNum, "глПланДней"))
        gn_PlanHours1C = VAL(DDEREQUEST(gn_DDEChanNum, "глПланЧасов"))
        gs_FullSaveGroupCode1C = ALLTRIM(DDEREQUEST(gn_DDEChanNum, "глПолныйКод"))
        gs_SaveCalc1C = DDEREQUEST(gn_DDEChanNum, "глСохранятьРасчет")
        gs_CalcProtocol1C = DDEREQUEST(gn_DDEChanNum, "глПротоколРасчета")
        gl_IsCalcZPInLog = IIF(gs_CalcProtocol1C == "1", .T., .F.)        && Писать в файл протокола (LogFile)?    
        gn_KolZnOkrInRates = VAL(Get1CConst("КолЗнаковОкрВРасценках", gs_NachOtchPer))
        gn_KolZnOkrInRBolnL = VAL(Get1CConst("КолЗнаковОкрВСрДнБолЛ", gs_NachOtchPer))
        gn_KolZnOkrInROtpusk = VAL(Get1CConst("КолЗнаковОкрВСрДнОтпуск", gs_NachOtchPer))
        gn_RazmOsnSocLg = VAL(Get1CConst("РазмерОснСоцЛьг", gs_NachOtchPer))
        gn_WorkLifeMin = VAL(Get1CConst("ПрожитМинДляРабот", gs_NachOtchPer))
        gn_MinZarplata = VAL(Get1CConst("МинЗарплата", gs_NachOtchPer))
        gn_MaxVwslLetZaGod = VAL(Get1CConst("МаксВыслЛетЗаГод", gs_NachOtchPer))
        gn_MaxBaseSocNals = VAL(Get1CConst("МаксЗарплДляСоцНалогов", gs_NachOtchPer))
        gs_UchitObyazSborsForAliments = Get1CConst("УчитыватьОбязСборыДляАлим", gs_NachOtchPer)
        gs_VklPochtSbNaAlimVSumAlim = Get1CConst("ВключатьПочтСборНаАлимВСумАлим", gs_NachOtchPer)
        gs_CalcProfVznosInOtherPeriods = Get1CConst("СчитатьПрофВзносВДругихПериод", gs_NachOtchPer)
        gs_CalcBolnListByHours = Get1CConst("РасчетБольничныхПоЧасам", gs_NachOtchPer)
        gs_IspolzTekMesForCalcBL = Get1CConst("ИсполТекущМесДляРасчБЛ", gs_NachOtchPer)
        gs_NotDaysBLNotSumma = Get1CConst("НетДнейБЛНетСуммы", gs_NachOtchPer)
        gs_UchitIndPlanWorks = Get1CConst("УчитыватьПланЧасыПоИндГраф", gs_NachOtchPer)
        
*        gs_KoefIndSrednOtp = Get1CConst("КоэфИндРасчСреднихОтпуска", gs_NachOtchPer)
*        gn_KoefIndSrednOtp = VAL(gs_KoefIndSrednOtp)
        gn_KoefIndSrednOtp = VAL(Get1CConst("КоэфИндРасчСреднихОтпуска", gs_NachOtchPer))
        gn_KoefIndSrednBL = VAL(Get1CConst("КоэфИндРасчСреднихБЛ", gs_NachOtchPer))

        s_MaxDateKoefIndOtp = ALLTRIM(Get1CConst("МаксДатаДействКоэфИндОтп", gs_NachOtchPer))
        yyyy = VAL(RIGHT(s_MaxDateKoefIndOtp, 4))
        mm = VAL(SUBSTR(s_MaxDateKoefIndOtp, 4, 2))
        dd = VAL(LEFT(s_MaxDateKoefIndOtp, 2))
        gd_MaxDateKoefIndOtp = DATE(yyyy, mm, dd)

        s_MaxDateKoefIndBL = ALLTRIM(Get1CConst("МаксДатаДействКоэфИндБЛ", gs_NachOtchPer))
        yyyy = VAL(RIGHT(s_MaxDateKoefIndBL, 4))
        mm = VAL(SUBSTR(s_MaxDateKoefIndBL, 4, 2))
        dd = VAL(LEFT(s_MaxDateKoefIndBL, 2))
        gd_MaxDateKoefIndBL = DATE(yyyy, mm, dd)
        
        TRY
            s_DateNachDeystvBL = ALLTRIM(DDEREQUEST(gn_DDEChanNum, "глДатаНачДействияБЛ"))            
            yyyy = VAL(RIGHT(s_DateNachDeystvBL, 4))
            mm = VAL(SUBSTR(s_DateNachDeystvBL, 4, 2))
            dd = VAL(LEFT(s_DateNachDeystvBL, 2))
            gd_DateNachDeystvBL = DATE(yyyy, mm, dd)
        CATCH
            s_DateNachDeystvBL = "01.01.1900"
            gd_DateNachDeystvBL = DATE(1900, 1, 1)
        ENDTRY
        
        TRY
            s_DateNachDeystvOtp = ALLTRIM(DDEREQUEST(gn_DDEChanNum, "глДатаНачДействияОтп"))            
            yyyy = VAL(RIGHT(s_DateNachDeystvOtp, 4))
            mm = VAL(SUBSTR(s_DateNachDeystvOtp, 4, 2))
            dd = VAL(LEFT(s_DateNachDeystvOtp, 2))
            gd_DateNachDeystvOtp = DATE(yyyy, mm, dd)
        CATCH
            s_DateNachDeystvOtp = "01.01.1900"
            gd_DateNachDeystvOtp = DATE(1900, 1, 1)
        ENDTRY
    ELSE
        DO ErrorMessage WITH "Не могу открыть канал DDE для обмена данными!" IN Errors
    ENDIF

* MESSAGEBOX(s_DateNachDeystvBL)
* MESSAGEBOX(s_DateNachDeystvOtp)

    gn_KolZnOkrInRates = IIF(EMPTY(gn_KolZnOkrInRates), 5, gn_KolZnOkrInRates)
    gn_KolZnOkrInRBolnL = IIF(EMPTY(gn_KolZnOkrInRBolnL), gn_KolZnOkrInRates, gn_KolZnOkrInRBolnL)
    gn_KolZnOkrInROtpusk = IIF(EMPTY(gn_KolZnOkrInROtpusk), gn_KolZnOkrInRates, gn_KolZnOkrInROtpusk)
    gn_MaxVwslLetZaMes = ROUND(gn_MaxVwslLetZaGod/12, 2)

*================================================================================================
&& ПЕРЕДАЧА ДАННЫХ В "1С" ПО DDE КАНАЛУ
PROCEDURE DDE
    PARAMETERS pn_CurRec, pn_AllRecs

    PRIVATE i 
    
    IF gn_DDEChanNum > -1
        SELECT c_PersLKPodrTabel1        && Результирующий курсор с расчетными данными сотрудника

        && Цикл по видам расчета данного сотрудника
        FOR i = 1 TO RECCOUNT()
            GO i
            SCATTER MEMVAR 

            && Расчетные параметры
            s_CurRec = LTRIM(STR(pn_CurRec))
            s_AllRecs = LTRIM(STR(pn_AllRecs))
            s_No = LTRIM(STR(i))
            s_PodrPersId = '"'+ALLTRIM(m.PodrPersId)+'"'
            s_VidRaschId = '"'+ALLTRIM(m.VidRaschId)+'"'
            s_NachZachPer = '"'+DTOC(m.NachZachPer)+'"'
            s_KonZachPer = '"'+DTOC(m.KonZachPer)+'"'
            s_KoefVidaRasch = LTRIM(STR(m.KoefVidaRasch, 9, 5))
            s_Rate = LTRIM(STR(m.Rate, 10, 5))
            s_WorkDays = LTRIM(STR(m.WorkDays, 6, 2))
            s_HoursPerDay = LTRIM(STR(m.HoursPerDay, 5, 2))
            s_WorkHours = LTRIM(STR(m.WorkHours, 7, 2))
            s_FactVwrabotka = LTRIM(STR(m.FactVwrabotka, 9, 2))
            s_PlanVwrabotka = LTRIM(STR(m.PlanVwrabotka, 9, 2))
            s_Summa = LTRIM(STR(m.Summa, 10, 2))
            s_PlanDays =  LTRIM(STR(m.PlanDays, 6, 2))
            s_PlanHours = LTRIM(STR(m.PlanHours, 7, 2))

            = DDEREQUEST(gn_DDEChanNum, "глDDE("+ ;
                    s_CurRec+","+ ;
                    s_AllRecs+","+ ;
                    s_No+","+ ;
                    s_PodrPersId+","+ ;
                    s_VidRaschId+","+ ;
                    s_NachZachPer+","+ ;
                    s_KonZachPer+","+ ;
                    s_KoefVidaRasch+","+ ;
                    s_Rate+","+ ;
                    s_WorkDays+","+ ;
                    s_HoursPerDay+","+ ;
                    s_WorkHours+","+ ;
                    s_FactVwrabotka+","+ ;
                    s_PlanVwrabotka+","+ ;
                    s_Summa+","+ ;
                    s_PlanDays+","+ ;
                    s_PlanHours+")")
        ENDFOR 
    ELSE 
        DO ErrorMessage WITH "Не могу открыть канал DDE для обмена данными!" IN Errors
    ENDIF
ENDPROC 
*================================================================================================
*================================================================================================