Prezados, bom dia.
Estou tentando realizar a criação de um documento via serviço e recebo a seguinte notificação: Não é possivel cadastrar o documento sem Anexo(s)
A rotina cria a estrutura das pastas corretamente, porém, quando chega no arquivo em si, é que ocorre o problema.
LAnexo := ECMDocumentService.attachment.Create;
LAnexo.fileName := LArquivoItem; // exemplo: c:\documentos\arquivo.txt
LAnexo.fileSize := TFuncoes.TamanhoArquivo(LArquivoItem); // retorna o tamanho em bytes do arquivo
LAnexo.attach := True; // é um anexo local
LAnexo.editing := False; // não esta em edição
LAnexo.principal := True; // é um arquivo principal
LAnexo.iconPath := '1'; // ícone padrão
LAnexo.filecontent := LoadFileToByteDynArray(LArquivoItem); // arquivo convertido em bytes
LAnexo.descriptor := False; // não é um arquivo descritor (arquivo .dat)
// instancio o array de anexo
LAnexos := ECMDocumentService.attachmentArray.Create;
// informo o tamanho do array
LAnexos.SetattachmentArrayLength(1);
// Adiciono o anexo ao array
lanexos.SetattachmentArray(0, LAnexo);
// chamo o serviço
LRetorno := LDocumentService.createSimpleDocument(C_USUARIO, C_SENHA, C_COMPANYID, LparentID, C_PUBLISHED, LNomeArquivo, LAnexos);
Alguém saberia indicar se esqueci de algo?