AXForum  
Вернуться   AXForum > Microsoft Dynamics AX > DAX: Программирование
All
Забыли пароль?
Зарегистрироваться Правила Справка Пользователи Сообщения за день Поиск

 
 
Опции темы Поиск в этой теме Опции просмотра
Старый 17.08.2005, 18:30   #4  
EVGL is offline
EVGL
Banned
Соотечественники
Лучший по профессии 2017
Лучший по профессии 2015
Лучший по профессии 2014
 
4,445 / 3001 (0) ++++++++++
Регистрация: 09.07.2002
Адрес: Parndorf, AT
Еще один пример - документооборот в портале. Активизируется автоматически, если есть доступ к документообороту. Ключевые классы: EPDocumentWeblet, EPSendDocument. Ключевая форма: EPDocuInfoEdit.

При этом код может быть примерно такой:
PHP код:
public void setControl()
{
    
WebSession                      webSession WebSession();
    
COMVariant                      vars = new COMVariant();
    
BinData                         binData;
    
SysInetASPUploadIUploadedFile   fileitem null;
    
SysInetASPUploadUploadManager   um;

    
FileName                        filename;
    
FilePath                        filePath;

    
int                             i;
    
DocuRef                         docuRef;
    
DocuActionFile                  docuActionFile;

    
str endSlash(str _str)
    {
        return (
strScan(_str'\\',strLen(_str),-1)) ? _str _str '\\';
    }

    if (! 
webSession.getParm(webControlName))
        return;
    
um WebSession().aspUpload();
    if (! 
um)
        return;

    try
    {
        
ttsbegin;

        for (
1<= um.Files().Count(); i++)
        {
            
binData = new BinData();

            
vars.int(i);
            
fileitem um.Files().Itemvars );
            if (! 
fileitem)
                continue;

            
filename fileItem.FileName();

            if (! 
fileDocuType)
            {
                
fileDocuType DocuType::find(ProblemWebParameters::find().FieleDocuTypeId);
            }
            if (! 
fileDocuType)
                throw 
error("@SYS22620");

            if (! 
filePath)
            {
                
filePath fileDocuType.ArchivePath fileDocuType.ArchivePath DocuParameters::find().ArchivePath;
            }
            if (! 
filePath)
            {
                
filePath xInfo::directory(DirectoryType::Temp);
            }
            
filePath endSlash(filePath);

            
binData.setVariant(fileitem.binary());
            if (! 
WinAPI::fileExists(filePath fileName))
            {
                
filename filePath fileName;
            }
            else
            {
                do
                {
                    
filename WinAPI::getTempFilename(filePath"Att");
                    
filename subStr(filename1strFind(filename'.'strLen(filename), -255) - 1) + '.' +
                               
conpeek(Docu::splitFilename(fileitem.FileName()), 2);
                }
                while (
WinAPI::fileExists(filename));
            }
            if (! 
binData.saveFile(filename))
                throw 
error("@SYS69639" ": " WinAPI::formatMessage(WinAPI::getLastError()));

            
docuActionFile fileDocuType.docuAction();
            
docuRef.clear();
            
docuRef.initValue();
            
docuRef.Name            fileitem.FileName();
            
docuRef.TypeId          fileDocuType.TypeId;
            
docuRef.RefCompanyId    curExt();
            
docuRef.Restriction     DocuRestriction::Internal;
            
docuRef.insert();

            
docuActionFile.insertDocuValue(docuReffilename);
            if (
fileDocuType.filePlace == DocuFilePlace:://Database)
            
{
                
WinAPI::deleteFile(filename);
            }

            
docuRefList.ins(docuRef);
        }
        
ttscommit;
    }
    catch (
Exception::Error)
    {
        
this.abortSave();
    }

 

Похожие темы
Тема Автор Раздел Ответов Посл. сообщение
Web-разработка в DAX 4.0 без Enterprise Portal alex55 DAX: Администрирование 19 11.09.2008 23:16
Inside Dynamics AX 4.0: The Web Framework Blog bot DAX Blogs 0 25.10.2007 03:04
Web-разработка, документация Tarrash DAX: Программирование 3 08.11.2006 08:13
Pokluda: Outbound web service (AIF) Blog bot DAX Blogs 0 28.10.2006 17:43
Web разработка Julietta DAX: Функционал 1 19.10.2004 12:56

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход

Рейтинг@Mail.ru
Часовой пояс GMT +3, время: 10:18.