IPB

Здравствуйте, гость ( Вход | Регистрация )

Фото
 
DmitriyS .
DmitriyS
Начинающий
Интересы
Нет данных
24-March 08
2278*
20th December 2010 - 13:48
Jul 23 2019, 23:47
7 (0 сообщений в день)
AIM Нет данных
Yahoo Нет данных
ICQ Нет данных
MSN Нет данных
Контакт E-mail скрыт

DmitriyS

Пользователи

*


Темы
Сообщения
Blogs
20 Dec 2010
Так как стандартные графики 1С убоги, всегда пользусь Диаграммами эксель - ОLE -> Диаграмма Микрософт офис эксель , размещаем на форме, далее при построении
DataSheet = Объект.Sheets("Лист1");
DiagramSheet = Объект.Sheets("Диаграмма1");
.....
Diagram = DiagramSheet.ChartObjects.Add(1,1,500,500).Chart;

После переустановки офиса на 2007, выпадает ошибка:
Diagram = DiagramSheet.ChartObjects.Add(0,0,300,300).Chart;
{C:\...}: Метод не найден

Что нужно поменять чтобы под 2007 заработало все по старому ?

вот ветка тоже по построение, но этот код работать под 2007 офис небудет
http://www.forum.mista.ru/topic.php?id=20085
9 Jun 2009
После того как переустановили Сервер, SQL Сервер.
Отчет при формиировании (SQL запрос) на определенные даты стал выдавать ошибку:

State 42000, native 8623, message [Microsoft][ODBC SQL Server Driver][SQL Server]Internal Query Processor Error: The query processor could not produce a query plan. Contact your primary support provider for more information.

Также изменяя скажем параметры : период отчета, различные параметры которые включают фильтры (например по товару определенному и т.д.) могут убрать либо снова вызвать ошибку при выполнении запроса.
Локально и до переустановки ошибок не было.
8 Dec 2008
Отправка сообщений через SQL, как сделать чтобы во вложении было несколько файлов ? на данный момент вообще не один файл не отсылается

Отправка осуществляется с помощью процедуры

ТекстЗапроса="IF EXISTS(SELECT * FROM Sysobjects WHERE NAME = 'sp_send_cdosysmail')
|DROP PROCEDURE sp_send_cdosysmail
|";
_ODBC.Выполнить(ТекстЗапроса);
ТекстЗапроса="CREATE PROCEDURE [dbo].[sp_send_cdosysmail]
|@From varchar(100) ,
|@To varchar(100) ,
|@Subject varchar(100)="" "",
|@Body varchar(4000) ="" "",
|@AttachmentPath varchar(4000) ="" ""
|/********************************************************************

|This stored procedure takes the parameters and sends an e-mail.
|All the mail configurations ae hard-coded in the stored procedure.
|Comments are added to the stored procedure where necessary.
|References to the CDOSYS objects are at the following MSDN Web site:
|"http://msdn.microsoft.com/lirary/default.asp?url=/library/en-us/cdosys/html/_cdosys_messaging.asp" target="_blank">http://msdn.microsoft.com/lirary/default.asp?url=/library/en-us/cdosys/html/_cdosys_messaging.asp

|*******************************************************************/
|AS
|Declare @iMsg int
|Declare @hr int
|Declare @source varchar(255)
|Declare @description varchar(500)
|Declare @output varchar(1000)
|--************* Create the CDO.Message Object
|EXEC @hr = sp_OACreate 'CDO.Message', @iMsg OUT
|--***************Configuring the Message Object ******************
|-- This is to configure a remote SMTP server.
|-- "http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cdosys/html/_cdosys_schema_configuration_sendusing.asp" target="_blank">http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cdosys/html/_cdosys_schema_configuration_sendusing.asp

|EXEC @hr = sp_OASetProperty @iMsg, 'Configuration.fields(""http://schemas.microsoft.com/cdo/configuration/sendusing"").Value','2'

|-- This is to configure the Server Name or IP address.
|-- Replace MailServerName by the name or IP of your SMTP Server.
|EXEC @hr = sp_OASetProperty @iMsg, 'Configuration.fields(""http://schemas.microsoft.com/cdo/configuration/smtpserver"").Value', :ИмяСервера

|-- Save the configurations to the message object.
|EXEC @hr = sp_OAMethod @iMsg, 'Configuration.Fields.Update', null
|-- Set the e-mail parameters.
|EXEC @hr = sp_OASetProperty @iMsg, 'To', @To
|EXEC @hr = sp_OASetProperty @iMsg, 'From', @From

|EXEC @hr = sp_OASetProperty @iMsg, 'Subject', @Subject
|-- If you are using HTML e-mail, use 'HTMLBody' instead of 'TextBody'.
|EXEC @hr = sp_OASetProperty @iMsg, 'TextBody', @Body
|set @AttachmentPath='AddAttachment(""'+@AttachmentPath+'"")'
|EXEC @hr = sp_OAMethod @iMsg, @AttachmentPath, NULL
|EXEC @hr = sp_OAMethod @iMsg, 'Send', NULL
|-- Sample error handling.
|IF @hr <>0
|select @hr
|BEGIN
| EXEC @hr = sp_OAGetErrorInfo NULL, @source OUT, @description OUT
| IF @hr = 0
| BEGIN
| SELECT @output = ' Source: ' + @source
| PRINT @output
| SELECT @output = ' Description: ' + @description
| PRINT @output
| END
| ELSE
| BEGIN
| PRINT ' sp_OAGetErrorInfo failed.'
| RETURN
| END
|END
|-- Do some error handling after each step if you have to.
|-- Clean up the objects created.
|EXEC @hr = sp_OADestroy @iMsg";

_ODBC.УстановитьТекстовыйПараметр("ИмяСервера",СокрЛП(Константа.ИмяПочтовогоСервера));
_ODBC.ВыполнитьИнструкцию(ТекстЗапроса);
18 Jun 2008
Интересно получается при повторном вызове запроса остатка в модуле проведения выдает результат с учетом движения в этом документе:

МОДУЛЬ ПРОВЕДЕНИЯ ДОКУМЕНТА

Запрос = Создатьобъект("ODBCRecordset");
ТекстЗапроса = "
|SELECT
| КоличествоОстаток Количество,
| СуммаОстаток Сумма
|FROM
| $РегистрОстатки.Товары(
| :Момент~
| ,
| ,Товар =:ВыбТовар AND Склад =:ВыбСклад
| ,(Товар)
| ,) Остатки
|";
Запрос.УстановитьТекстовыйПараметр("Момент",СформироватьПозициюДокумента(ТекущийДокумент(), -1));
Запрос.УстановитьТекстовыйПараметр("ВыбТовар",Товар);
Запрос.УстановитьТекстовыйПараметр("ВыбСклад",Склад);
ТЗ = СоздатьОбъект("СписокЗначений");
ТЗ = Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
глПоказать(ТЗ); // ПОказывает остаток = 5 (к примеру)


/// создаем движение по товару списываем 1 ед. товара

Количество = 1; Себ = 0;
Регистр.Товары.ДвижениеРасход(Товар,Склад,Количество,Себ,5);

// Снова вызываем запрос описаный выше (копировать не буду для того чтобы не занимать много места)

В результате получаем остаток = 4 , т.е.
Запрос выдает остаток с учетом движения выполненного в документе
24 Mar 2008
Как таблицу значений значений превратить во временную таблицу SQL ? Есть ли какой быстрый способ, чем внесение строк таблицы в цикле ?


2 Jul 2009 - 3:13

DmitriyS.

.
RSS Текстовая версия Сейчас: 23rd July 2019 - 20:47