Проект "Сведения о застрахованных лицах" СЗВ-М

[lubezniy]

Это называется "привет, фальсификация"?
Смешно, что будет сдавать ООО, в котором одна директор, и та ушла в декрет - стаж в РСВ она себе покажет, а как сдавать СЗВ_М, это вопрос...

Так и сдавать - указывать. РСВ тоже нужно сдавать регулярно.

[Rak]

Помогите пожалуйста. Не могу понять структуру АФ:ДатаВремя.
Где она описана?
Есть ли такая функция в VisualFoxpro?

[Inovet]

Помогите пожалуйста. Не могу понять структуру АФ:ДатаВремя.
Где она описана?
Есть ли такая функция в VisualFoxpro?

DateTime Data Type
http://www.w3schools.com/Xml/schema_dtypes_date.asp

Насчёт VFP не подскажу, единственная возможная проблема - узнать TimeZone. В Windows API функция
GetTimeZoneInformation
https://msdn.microsoft.com/en-us/lib...=vs.85%29.aspx

[Леонид Николаевич]

Помогите пожалуйста. Не могу понять структуру АФ:ДатаВремя.
Где она описана?
Есть ли такая функция в VisualFoxpro?

У меня пока так (сойдет для любого Foxpro):
cCurDate=DTOS(DATE())
cCurDateCur=LEFT(cCurDate,4)+[-]+SUBSTR(cCurDate,5,2)+[-]+RIGHT(cCurDate,2)
cTime=TIME()

nSdvig=5 && Сдвиг по Гринвичу в Челябинске (можно передать параметром в функцию)
cSdvig=TRANS(nSdvig,[@L 99])+[:00]

nTimeH=VAL(LEFT(cTime,2))-nSdvig
IF nTimeH<0
nTimeH=1
ENDIF
cTimeH=TRANS(nTimeH,[@L 99])
cTimeGr=cTimeH+SUBSTR(cTime,3,6) && По Гринвичу
cDateTime=cCurDateCur+[T]+cTimeGr+[+]+cSdvig

RETURN(cDateTime) && это, если объявить функцию
Удачи!

[Rak]

nSdvig=5 && Сдвиг по Гринвичу в Челябинске (можно передать параметром в функцию)

Как бы этот сдвиг зацепить в VFP ?
Хотя выкопали и такую ф-ю API_GetDateTimeUTC()

[Леонид Николаевич]

nSdvig=5 && Сдвиг по Гринвичу в Челябинске (можно передать параметром в функцию)

Как бы этот сдвиг зацепить в VFP ?
Хотя выкопали и такую ф-ю API_GetDateTimeUTC()

Это вопрос часового пояса, тут и операционка может наврать. У Вас приложение распространено по разным часовым поясам? Тогда пихайте "сдвиг" в настройку И тоже нет гарантии (я вот эпизодически в своем компе поправляю время). Другое дело - а кому оно надо? А если программа наврет с DateTime на пару часов, наверное какой-нить пенсионер незаконно обогатится индексацией?
На пустом месте изобретаем проблемы...

[Inovet]

Я думаю, у них не изобретение проблем, а просто взяли стандартный тип DateTime, а в нём есть этот самый сдвиг, который вроде бы и не обязательная часть, но вот оставили, чтобы было. По сути, время отчёта будет зафиксировано по факту передачи по каналам связи. Или я что-то недопонимаю.

[lubezniy]

Я думаю, у них не изобретение проблем, а просто взяли стандартный тип DateTime, а в нём есть этот самый сдвиг, который вроде бы и не обязательная часть, но вот оставили, чтобы было. По сути, время отчёта будет зафиксировано по факту передачи по каналам связи. Или я что-то недопонимаю.

Время составления в любом случае не будет равным времени передачи. И смысл указания времени в этом файле спорный. Но, раз уж сказано ставить - мы не жадные, поставим.

[vk65]

У меня пока так (сойдет для любого Foxpro):

Вообще-то за такой код из рогатки убивать нужно

cCurDate=DTOS(DATE())
cCurDateCur=LEFT(cCurDate,4)+[-]+SUBSTR(cCurDate,5,2)+[-]+RIGHT(cCurDate,2)

cCurDateCur=transform(DTOS(DATE()), [@R 9999-99-99])

IF nTimeH<0
nTimeH=1
ENDIF

А почему именно 1 ? а не 2 или 3 ?
Фальсификацией занимаемся или не умеем правильно перейти на предыдущие сутки?

&& это, если объявить функцию

Значение возвращается всегда, без разницы - объявляется функция или процедура.

[Леонид Николаевич]

А почему именно 1 ? а не 2 или 3 ?
Фальсификацией занимаемся или не умеем правильно перейти на предыдущие сутки?

Вот же-ж знал, что какой-нить пытливый ум прицепится
Да, потому, что, как выше я сказал, эта "ловля блох" ни о чем...
Все равно это будет фальсификацией, т.к. никого не должно волновать время создания файла в пользовательской программе - это и есть фальсификация... Наверное играет какую-то роль время передачи файла. Это как, если вовремя заполнить годовую декларацию (с проставленной датой заполнения), а сдать ее летом.
А за подсказку с [@R 9999-99-99] спасибо, не догадался бы, что с DTOS() такое сработает! Проверил, получается, что:
transform(DTOS(DATE()), [@R 9999-99-99]) и
transform(VAL(DTOS(DATE())), [@R 9999-99-99])
выводят одно и тоже

[VRALD]

А я просто нулевое время ставлю, программа проверки пропускает

-<СлужебнаяИнформация>
<АФ:GUID>EA0FD7CC-D431-4272-BF96-E41C03802DD5</АФ:GUID>
<АФ:ДатаВремя>2016-03-14T00:00:00</АФ:ДатаВремя>
</СлужебнаяИнформация>

[svv]

cTimeGr=cTimeH+SUBSTR(cTime,3,6) && По Гринвичу
cDateTime=cCurDateCur+[T]+cTimeGr+[+]+cSdvig

Я правильно понял, что вы выводите время по гринвичу + сдвиг?

Вроде как надо выводить локальное время + сдвиг...
Ну т.е. первично "местное" время.

Если кого-то интересует сравнение с другими часовыми поясами - используется указанный сдвиг для приведения к Гринвичу...

Во всяком случае стандартные функции работы со временем в .Net Framework работают именно так. Ну т.е. если я и ошибаюсь, то вместе с Microsoft

[VRALD]

Коллеги, у кого есть форма СЗВ-М в формате Excel?

[Ирина55]

Здесь Word
http://base.consultant.ru/cons/cgi/o...25306986272335

[fla3]

Коллеги, у кого есть форма СЗВ-М в формате Excel?

самоделка