[{"GTezini":".NET"}]

CRM 2011 >> SubGrid - Totalização de Valor (via JScript)

2012-01-10T04:42:00.000-08:00

No CRM 2011 temos a possibilidade de explorar muito bem desenvolvimentos em JScript, jQuery, jSon (ou REST OData).

Seguindo esta linha, segue um código, pequeno inclusive, que faz uma Totalização de Valores, buscando as informações em um SubGrid!

Para a execução do código, basta adicioná-lo no formulário, e chamá-lo no método OnLoad.
Importante adicionar os JScripts prontos da Microsoft, para execução de chamadas jQuery, sendo eles [jquery1.4.1.min.js] e [jqueryrestdataoperationfunctions.js].

Importante também adicionar o campo de moeda do CRM (TransactionCurrencyId), quando existir na tela do CRM algum campo do tipo moeda. Neste caso usaremos e o script abaixo preenche o campo automaticamente.

Estes arquivos podem ser encontrados no SDK do CRM (quando descompactado em qualquer diretório), no caminho [\SDK\samplecode\js\restendpoint\jqueryrestdataoperations\jqueryrestdataoperations\scripts].

Segue Script:

var timeOutVar;
function PrepareAddUpValue() { 
var grid = document.getElementById('GRIDNAME');
 if (grid == null) 
 { 
 // delay one second and try again. 
 timeOutVar = setTimeout(PrepareAddUpValue, 1000); 
 return; 
 }
clearTimeout(timeOutVar);
grid.attachEvent("onrefresh", AddUpValue);
}

function AddUpValue(){
var gridControl = document.getElementById("GRIDNAME").control;
var ids = gridControl.get_allRecordIds();
var new_total = 0.0;

for(var i = 0; i < ids.length; i++) 
 { 
  str_value = gridControl.getCellValue("NOME_COLUNA_GRID", ids[i]).replace("R$", "").replace(" ", "");
  new_total += parseFloatString(str_value);
}

Xrm.Page.getAttribute("new_total").setValue(new_total);
Xrm.Page.data.entity.save();
}

function parseFloatString(str){
str = String(str);
var strNew = "";
for(var i=0; i < str.length; i++){
if (isNaN(parseInt(str.charAt(i))) == false) strNew +=str.charAt(i);
}

return parseFloat(strNew);
}

function SetCurrency(){
   if (Xrm.Page.getAttribute("transactioncurrencyid") != null) return;
   var filter = "?$select=TransactionCurrencyId,CurrencyName";
   retrieveMultiple("TransactionCurrencySet", filter, retrieveMultipleCurrencyCompleted, null);
}

function retrieveMultipleCurrencyCompleted(data, textStatus, XmlHttpRequest){
   if (data == null) return;   
   var idValue = data[0].TransactionCurrencyId;
   var textValue = data[0].CurrencyName;
   var thisEntityType = 'transactioncurrency';
   Xrm.Page.getAttribute("transactioncurrencyid").setValue([{ id: idValue, name: textValue, entityType: thisEntityType }]);
}

SetCurrency();

Veja uma tela de exemplo. Note que, ao adicionar um novo registro, o Script é acionado, totalizando o valor em um campo do formulário. Isto acontece porque o Script atua no evento [OnRefresh] do SubGrid do CRM.

>> VS.NET 2010 - Snippet Designer Plugin

2011-11-01T09:40:00.000-07:00

Realmente facilita a "vida" ter a possibilidade de inserção de um código template complexo e longo com apenas uma chamada de [Shortcut no Code View] do Visual Studio. Este conceito é muito usado e se chama [Code Snippet].

Basicamente para criar um [fragmento de código] efetuarmos os seguintes passos:

1 - Criamos um arquivo XML;
2 - Primeiro adicionamos o Elemento CodeSnippets;
3 - Logo após adicionamos a seção Header;
4 - Depois adicionamos mais um elemento (<Snippet>) que conterá o Código Template;
5 - E por fim, salvamos o arquivo com a extensão .SNIPPET, no diretório de snippets no Visual Studio, geralmente em [C:\Users\[UserName]\Documents\Visual Studio 2010\Code Snippets\Visual C#\My Code Snippets].

Segue exemplo dos passos seguidos acima:

<CodeSnippets
    xmlns="http://schemas.microsoft.com/VisualStudio/2005/CodeSnippet">
    <CodeSnippet Format="1.0.0">
        <Header>
            <Title>
                My Snippet
            </Title>
        </Header>
        <Snippet>
            <Code Language="CSharp">
                <![CDATA[MessageBox.Show("Hello World");]]>
            </Code>
        </Snippet>
    </CodeSnippet>
</CodeSnippets>

Porém, para facilitar ainda mais a vida do desenvolvedor, segue a dica do [Snippet Designer] que aumenta mais ainda a produtividade de criação de snippets, usando a IDE do Visual Studio.

Por exemplo, uma vez que você criou um código reutilizável, e gostaria de transformá-lo em um Snippet, com este Plugin basta selecionar seu código e exportá-lo como um snippet, como mostra a imagem abaixo:

Existem mais recursos interessantes, que estão documentados no link para baixar o Plugin.

>> CRM 2011 - Busca de Dados do CRM via JScript-JQuery

2011-09-13T05:46:00.001-07:00

Segue os procedimentos para utilizar este poderoso recurso do CRM 2011:

1 - Baixar o SDK do produto;

2 - Após extrair o SDK em qualquer diretório, ir até o sub-diretório [sdk\samplecode\js\restendpoint\jqueryrestdataoperations\jqueryrestdataoperations\scripts] e importar o arquivo [jquery1.4.1.min.js] como um [Web Resource] no CRM;

3 - Efetuar o mesmo procedimento do passo 2, para o arquivo [jqueryrestdataoperationfunctions.js];

4 - Ao associar estes Web Resources a entidade do CRM desejada, atente para a ordem, pois é relevante no carregamento da página:
4.1 - primeiro [jquery1.4.1.min.js];
4.2 - depois [jqueryrestdataoperationfunctions.js];
4.3 - por último, seu próprio JS, que utilizará os recursos acima.

P.S.: Apenas para lembrar o caminho, para efetuar o passo 4, abrir o formulário da entidade desejada e clicar no botão [Propriedades do Formulário], como exemplifica a tela abaixo:

5- No sub-diretório citado no passo 2, existe uma arquivo chamado [jqueryrestdataoperationactions.js] que contém diversos exemplos de uso. Segue abaixo um deles:

function retrieveAccount(id) {
 // [retrieveRecord] está presente na biblioteca [jqueryrestdataoperationfunctions.js].
 retrieveRecord(id, "AccountSet", retrieveAccountCompleted, null);
}

function retrieveAccountCompleted(data, textStatus, XmlHttpRequest) {
alert(data.Name);
}

Para trabalhar com buscas mais complexas, existe a função [retrieveMultiple]. Porém, infelizmente, não existe exemplo no SDK. Consegui achar um artigo muito bom chamado [Adding Selection Criteria to REST Queries in CRM 2011]. Testei um caso com sucesso. Vale realmente a pena checar.

>> CRM 4.0 - FetchXML via JScript

2011-09-13T05:09:00.000-07:00

Segue código aprimorado (extraído do SDK - http://technet.microsoft.com/en-us/library/cc677073.aspx) para busca de qualquer informação do CRM, via JScript.

window.ExecFetchXML = function (entityName, column, conditionAttribute, operator, value, fieldOrderName, fieldOrderValue, page, count) {

    var fetchMapping = "logical";
    var filterType = "and";
    var authenticationHeader = GenerateAuthenticationHeader();
    var columnSplit = column.split(",");
    var conditionAttributeSplit = conditionAttribute.split(",");
    var operatorSplit = operator.split(",");
    var valueSplit = value.split(",");

    var xml = "<?xml version='1.0' encoding='utf-8'?>" +
    "<soap:Envelope xmlns:soap='http://schemas.xmlsoap.org/soap/envelope/'" +
    " xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance'" +
    " xmlns:xsd='http://www.w3.org/2001/XMLSchema'>" +
    authenticationHeader +
    "<soap:Body>" +
    "<Fetch xmlns='http://schemas.microsoft.com/crm/2007/WebServices'>" +
    "<fetchXml><fetch mapping='" + fetchMapping + "'";

    if (page != null) xml += " page='" + page + "' ";
    if (count != null) xml += " count='" + count + "' ";

    xml += "><entity name='" + entityName + "'>";

    if (columnSplit.length > 1) {
        for (i = 0; i < columnSplit.length; i++) {
            xml += "<attribute name='" + String(columnSplit[i]) + "'/>";
        }
    }
    else {
        xml += "<attribute name='" + column + "'/>";
    }

    if (fieldOrderName != null && fieldOrderValue != null) {
        xml += "<order attribute='" + fieldOrderName +
        "' descending='" + fieldOrderValue + "'/>";
    }

    if (conditionAttribute != null && operator != null && value != null) {
        xml += "<filter type='" + filterType + "'>";

        if (conditionAttributeSplit.length > 1) {
            for (i = 0; i < conditionAttributeSplit.length; i++) {
                xml += "<condition attribute='" + conditionAttributeSplit[i] + "'" +
                " operator='" + operatorSplit[i] + "' value='" + valueSplit[i] + "'/>";
            }
        }
        else {
            xml += "<condition attribute='" + conditionAttribute + "'" +
            " operator='" + operator + "' value='" + value + "'/>";
        }

        xml += "</filter>";
    }

    xml += "</entity>" +
    "</fetch></fetchXml>" +
    "</Fetch>" +
    "</soap:Body>" +
    "</soap:Envelope>";

    // Prepare the xmlHttpObject and send the request.
    var xHReq = new ActiveXObject("Msxml2.XMLHTTP");
    xHReq.Open("POST", "/mscrmservices/2007/CrmService.asmx", false);
    xHReq.setRequestHeader("SOAPAction", "http://schemas.microsoft.com/crm/2007/WebServices/Fetch");
    xHReq.setRequestHeader("Content-Type", "text/xml; charset=utf-8");
    xHReq.setRequestHeader("Content-Length", xml.length);
    xHReq.send(xml);

    // Capture the result.
    var resultXml = xHReq.responseXML;

    // Check for errors.
    var errorCount = resultXml.selectNodes('//error').length;
    if (errorCount == 0) {
        // Capture the result and UnEncode it.
        var resultSet = new String();
        resultSet = resultXml.text;

        resultSet = resultSet.replace("<resultset morerecords=\"0\" />", "");

        if (resultSet != "") {
            // Create an XML document that you can parse.
            var oXmlDoc = new ActiveXObject("Microsoft.XMLDOM");
            oXmlDoc.async = false;
            // Load the XML document that has the UnEncoded results.
            oXmlDoc.loadXML(resultSet);

            var retValue = null;

            if (oXmlDoc.getElementsByTagName('result') != null) {

                var objLen = oXmlDoc.getElementsByTagName('result').length;
                retValue = new Array(objLen);

                // Loop nas Linhas
                for (j = 0; j < objLen; j++) {

                    retValue[j] = new Object();

                    if (columnSplit.length > 1) {
                        for (i = 0; i < columnSplit.length; i++) {
                            if (oXmlDoc.getElementsByTagName('result')[j].selectSingleNode(String(columnSplit[i])))
                                eval("retValue[" + String(j) + "]." + String(columnSplit[i]) + "= '" + oXmlDoc.getElementsByTagName('result')[j].selectSingleNode('./' + String(columnSplit[i])).text + "'");
                        }
                    }
                    else {

                        if (oXmlDoc.getElementsByTagName('result')[j].selectSingleNode(column))
                            eval("retValue[" + String(j) + "]." + column + "= '" + oXmlDoc.getElementsByTagName('result')[j].selectSingleNode(column).text + "'");

                    }
                }
            }
        }
    }

    return retValue;
}

E as formas de utilização:

var result1 = window.ExecFetchXML('account', 'accountid, name', 'name', 'like', '%TESTE%', null, null, null, null);
alert(result1[0].accountid);
alert(result1[0].name);


/*
- Ordenado por [name];
- Ascendente [true];
- Retorna 2 páginas, com 10 clientes por página.
*/
var result2 = window.ExecFetchXML('account', 'accountid, name', 'name', 'eq', 'TESTE', 'name', 'true', 2, 10);

/*
- Busca por vários campos (name like '%TESTE%' e cnpj='12345678900');
*/
var result3 = window.ExecFetchXML('account', 'accountid, name', 'name,cnpj', 'like,eq', '%TESTE%,12345678900', null, null, null, null);

>> CRM 4.0 - Erro de Abertura de Popups

2011-03-31T12:34:00.000-07:00

Se você está se deparando com o seguinte erro no CRM:

Não foi possível abrir uma janela do Microsoft Dynamics CRM. É possível que ela tenha sido bloqueada por um bloqueador de pop-ups. Adicione este servidor Microsoft Dynamics CRM a lista de sites aos quais o seu bloqueador de pop-ups permite abrir novas janelas: <servidorcrm>

e já revisou (muitas vezes) as configurações do Internet Explorer, porém não encontrou a solução, segue mais uma dica importante:

- Pode acontecer que, ao tentar salvar um registro na entidade do CRM, algum [PLUGIN] esteja sendo executado; e se este plugin estiver usando a função:

// Gera um retorno de mensagem para o usuário do CRM (em um Popup).
throw new InvalidPluginExecutionException(MensagemErro);

Pode acontecer que a variável [MensagemErro] exceda o tamanho de [1900] caracteres, o que vai impossibilitar a passagem desta mensagem para a camada de [interface] do CRM, a qual deveria mostrá-la para o usuário.

Portanto, uma cadeia de caracteres muito grande, gera um erro "mentiroso" para o usuário!

Fiquem atentos CRM Developers!

[]s

>> DICA: Internet Information Services EXPRESS!

2011-03-22T08:30:00.000-07:00

Quem desenvolve aplicações WEB, e já teve a necessidade de executar este tipo de aplicação em uma máquina [não-servidora], ou seja, que não contenha o [Internet Information Services] da Microsoft, deve estar familiarizado com o termo [Cassini Web Server], que justamente faz o papel do IIS.

Porém, como se sabe, esta aplicação é limitada, e consegue gerenciar aplicações que rodam sob o .NET Framework, até a versão 2.0 .

A boa notícia é que a Microsoft lançou uma versão [gratuita] do IIS, chamada IIS Express. Inclusive, nesta versão, é possível rodar aplicações que utilizam o .NET Framework 4.0 .

O blog do [Scott Guthrie] explica muito bem esta tecnologia.

[]s

>> Microsoft Office - Tecnologia OpenXML

2010-12-09T05:33:00.000-08:00

Olá Pessoal,

Gostaria de partilhar com vocês uma nova tecnologia desenvolvida pela Microsoft para manipulação de qualquer documento do Office, chamada [Office Open XML - OOXML]. Quem ainda não usou vai realmente se surpreender, principalmente se está acostumado a usar a tecnologia anterior, chamada [Office Interop Automation].

Veja alguma das principais vantagens desta nova tecnologia:

- Manipula documentos do Office no formato ZIP [XML-based]. Para comprovar isto, basta renomear algum documento Office para [.zip] e notar que seu conteúdo é representado por um pacote de XMLs e outros arquivos de recursos relacionados;

- Esta tecnologia foi padronizada pela [ECMA], que regulariza e organiza padrões [mundiais] no uso de softwares;

- OOXML pode ser usado a partir da versão 2007 do Office;

- E o que considero como principal vantagem, possui a melhor performance já vista na manipulação de documentos.
Por exemplo, foi feita uma comparação pela Microsoft no uso da tecnologia anterior com a OOXML (http://msdn.microsoft.com/en-us/library/ff191178.aspx). Foi desenvolvido um código para inserir uma imagem em cada uma das 300 linhas em uma [tabela do Word]. Na tecnologia anterior o tempo gasto para realizar esta tarefa foi de [60 segundos]. Na tecnologia OOXML este tempo caiu para incríveis [5 segundos]!.

- Diferentemente da versão anterior, OOXML NÃO EXIGE a instalação do Microsoft Office no servidor onde seu código será instalado. Enorme vantagem!...

A utilização deste componente no seu projeto .NET é muito simples, basta adicionar uma referência do arquivo [Document.OpenXml.dll] no seu projeto e sair codificando.

Para ilustrar o uso deste componente, note o código abaixo, que usa [Linq To Object] do .NET Framework para recuperar todas as [tables] de um documento do Office Word:

using DocumentFormat.OpenXml;
using DocumentFormat.OpenXml.Packaging;
using DocumentFormat.OpenXml.Wordprocessing;

using (WordprocessingDocument wordDocument = WordprocessingDocument.Open('c:\WordDoc.docx', true))
{
List<Table> listTable = wordDocument.MainDocumentPart.Document.Body.Elements<Table>().ToList<Table>();
}

É claro que, quando você começa a estudar mais a fundo esta tecnologia, nota que, para algumas tarefas, o desenvolvimento se torna mais complexo, até porque você vai manipular uma estrutura de arquivos proprietários do pacote ZIP-XML-Based. Por exemplo, se precisar adicionar um texto em uma célula de uma tabela do Office Word, vai notar que precisa seguir algumas regras de uso de objetos dentro da célula. Veja o código abaixo:

using DocumentFormat.OpenXml;
using DocumentFormat.OpenXml.Packaging;
using DocumentFormat.OpenXml.Wordprocessing;

using (WordprocessingDocument doc = WordprocessingDocument.Open('c:\WordDoc.docx', true))
{
Table table = doc.MainDocumentPart.Document.Body.Elements<table>().First();
TableRow row = table.Elements<tablerow>().ElementAt(1);
TableCell cell = row.Elements<tablecell>().ElementAt(2);
Paragraph p = cell.Elements<paragraph>().First();
Run r = p.Elements<run>().First();
Text t = r.Elements<text>().First();
t.Text = 'Some Text';
}

No exemplo acima, o código realiza os seguintes passos:
- Acessa a [primeira table] que encontrar no documento;
- Acessa a [segunda] linha;
- E altera o conteúdo da [terceira] coluna.

Notamos também que existe uma [hierarquia] de objetos a serem acessados, como por exemplo, a classe [Paragraph] que contém a classe [Run], que por sua vez contém a classe [Text].

Assim como em outros produtos Microsoft, a documentação referente ao OOXML é muito boa. Basta baixar o SDK, acessando:

http://www.microsoft.com/downloads/en/details.aspx?FamilyId=C6E744E5-36E9-45F5-8D8C-331DF206E0D0&displaylang=en

Note que existem dois tipos de instalador:

1 - OpenXMLSDKTool.msi

Esta ferramenta é muito útil porque permite a visualização do conteúdo de qualquer documento Office, e um incrível recurso que possibilita gerar [código .NET] a partir de qualquer parte do documento aberto. Desta forma o processo de aprendizado é acelerado, pois você analisa um código pronto.

Segue tela do OpenXMLTool, com a utilização do [Reflect Code]:

2 - OpenXMLSDKv2.msi

Possui a documentação completa do OOXML, com diversos exemplos práticos.

Tela principal do SDK:

That´s It!

>> CRM 4.0 - Link Dinâmico no Corpo do Email

2010-10-21T10:01:00.000-07:00

Olá Pessoal,

Pouco tempo atrás me surgiu uma necessidade interessante, a criação de um [Link Dinâmico] no corpo de um email no CRM.

Eu consegui criar uma solução simples e funcional que gostaria de partilhar com vocês.

Para esta solução existem diversos cenários possíveis para a configuração do Link Dinâmico, porém, vamos usar um cenário em que deveremos enviar um email para um contato que foi criado no CRM.

No corpo do email enviaremos um link que apontará para o formulário do CRM, no registro daquele contato criado.

Para o envio do email utilizaremos o recurso do CRM de Workflow. Veja como deverá ficar o workflow completo:

1 - Como primeiro passo, vamos criar dois campos na entidade de Contato, por exemplo, [new_url_ctt] e [new_url_link] do tipo [ntext] e adicioná-los no formulário do Contato (importante adicionar no formulário para podermos utilizá-los nos passos a frente);

2 - Adicione no [OnLoad] do Formulário de Contato o JScript abaixo, para preenchimento do campo [new_url_ctt]:

if(crmForm.FormType != 1)
{
if(crmForm.all.new_url_ctt.DataValue == null)
{
crmForm.all.new_url_ctt.DataValue = 'http://localhost:5555/sfa/conts/edit.aspx?id='
+ crmForm.ObjectId;

crmForm.Save();
}
}

3 - Vamos agora desenvolver um workflow para preencher o campo [new_url_link] e enviar o email;
3.1 - Crie, portanto, um workflow para ser disparado no evento de [criação de novo registro];
3.2 - Clique no botão [Adicionar Etapa] e escolha [Aguardar Condição]; para a condição coloque [até que url_ctt "contenha dados"];
3.3 - Uma vez que a condição foi satisfeita, adicione a etapa [Atualizar Registro]. No botão [Definir Propriedades], atualize o campo [new_url_link] conforme mostra a imagem abaixo:

3.4 - E como passo final adicione a etapa [Enviar Email], usando o campo [new_url_link] que foi preenchido no passo anterior, conforme a imagem:

Quando o email for criado pelo CRM, o link aparecerá no corpo do email, como mostra a figura:

That´s It!

>> CRM 4.0 - Dica para Esconder uma Opção do Menu Vertical do Formulário

2010-07-07T07:16:00.000-07:00

Uma dica rápida!

Segue código JScript para desabilitar uma opção de menu vertical do formulário do CRM.

A idéia é colar o código abaixo no [OnLoad] do formulário e usar a função, passando como parâmetro o [nome] do item do menu que deseja esconder. Por exemplo, para esconder a opção [mais endereços], use a função da seguinte maneira:

crmForm.disableVerticalMenuItem("crmNavBar", "mais endereços");

crmForm.disableVerticalMenuItem = function (navBar, menuItem)
{
   menuItem = menuItem.toLowerCase().replace(/^\s+|\s+$/g, '');
   il=document.getElementById(navBar).getElementsByTagName('li');

   for(i=0;i < il.length;i++)
   {
      liItem = il[i].innerText.toLowerCase().replace(/^\s+|\s+$/g, '');

      if (liItem == menuItem)
      {
         anchor = il[i].getElementsByTagName('a')[0];
         anchor.parentNode.removeChild(anchor);
      }
   }
}

crmForm.disableVerticalMenuItem("crmNavBar", "mais endereços");

>> CRM 4.0 - Exibição de Relatórios no IFRAME (OnLine e OffLine Access)

2010-03-26T08:23:00.001-07:00

Sem dúvida alguma, um dos grandes recursos do Dynamics CRM para o desenvolvedor é a possibilidade de integração do [Reporting Services] no produto. Inclusive, o processo de publicação dos relatórios desenvolvidos no Dynamics CRM fica fácil, pois utilizamos a própria interface do produto para isto.

Pensando nisto, imagine o desenvolvimento de um relatório para o Dynamics CRM, porém, com a necessidade de visualização deste relatório em um [IFrame]; e mais, o relatório deve funcionar para as versões do Dynamics CRM [OnLine] e para [Outlook OFFLine]!.

Pois bem, segue uma forma [simples] de resolver esta questão:

1 - Desenvolva normalmente seu relatório (usando, é claro, as FilteredViews);
2 - Efetue o Upload do relatório no Dynamics CRM;
3 - Adicione o [IFrame] na entidade que deseja visualizar o relatório;

A idéia agora é preencher o IFrame dinamicamente, no [OnLoad] do formulário.

Usando o importante recurso do Dynamics CRM chamado [URL Addressable Forms], também podemos nos utilizar disto para os relatórios.

Portanto, no [OnLoad] do formulário, adicione o seguinte código:

var reportID = getReportIDByName("NOMEDOSEURELATORIO");

var urlReport = SERVER_URL + "/crmreports/viewer/viewer.aspx?action=run&id=" + reportID + "&context=records&recordstype=1&records=" + crmForm.ObjectId + "&helpID=NOMEDOSEURELATORIO.rdl";

crmForm.all.IFRAME_report.src=urlReport;

function getReportIDByName(reportname)
{
   return ExecFetchXML('report', 'reportid', 'name', 'eq', reportname);
}

function ExecFetchXML(entityName, column, conditionAttribute, operator, value)
{
 var guid = "";
 var fetchMapping = "logical";
 var filterType = "and";
 var authenticationHeader = GenerateAuthenticationHeader();

 // Prepare the SOAP message.
 var xml = "<?xml version='1.0' encoding='utf-8'?>"+ 
 "<soap:Envelope xmlns:soap='http://schemas.xmlsoap.org/soap/envelope/'"+
 " xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance'"+
 " xmlns:xsd='http://www.w3.org/2001/XMLSchema'>"+ 
 authenticationHeader+ 
 "<soap:Body>"+ 
 "<Fetch xmlns='http://schemas.microsoft.com/crm/2007/WebServices'>"+ 
 "<fetchXml><fetch mapping='"+fetchMapping+"'>"+ 
 "<entity name='"+entityName+"'>"+ 
 "<attribute name='"+column+"'/>"+ 
                     "<filter type='"+filterType+"'>"+ 
                     "<condition attribute='"+conditionAttribute+"'"+
                     " operator='"+operator+"' value='"+value+"'/>"+ 
                     "</filter>"+ 
 "</entity>"+ 
 "</fetch></fetchXml>"+ 
 "</Fetch>"+ 
 "</soap:Body>"+ 
 "</soap:Envelope>";
 // Prepare the xmlHttpObject and send the request.
 var xHReq = new ActiveXObject("Msxml2.XMLHTTP");
 xHReq.Open("POST", "/mscrmservices/2007/CrmService.asmx", false);
 xHReq.setRequestHeader("SOAPAction","http://schemas.microsoft.com/crm/2007/WebServices/Fetch");
 xHReq.setRequestHeader("Content-Type", "text/xml; charset=utf-8");
 xHReq.setRequestHeader("Content-Length", xml.length);
 xHReq.send(xml);
 // Capture the result.
 var resultXml = xHReq.responseXML;

 // Check for errors.
 var errorCount = resultXml.selectNodes('//error').length;
 if (errorCount == 0)
 {
 // Capture the result and UnEncode it.
 var resultSet = new String();
 resultSet = resultXml.text;

 // Create an XML document that you can parse.
    var oXmlDoc = new ActiveXObject("Microsoft.XMLDOM");
    oXmlDoc.async = false; 
 // Load the XML document that has the UnEncoded results.
    oXmlDoc.loadXML(resultSet);

                        if (oXmlDoc.getElementsByTagName('result') != null)
       guid = oXmlDoc.getElementsByTagName('result')[0].selectSingleNode('./' + column).nodeTypedValue;    
 }
 
 return guid;
}

Note o uso dos seguintes recursos:

- Obtenção do [ID] do relatório adicionado no CRM, através da função [getReportIDByName];

- URL de relatórios do CRM: [/crmreports/viewer/viewer.aspx]. Note os parâmetros preenchidos para a execução dinâmica do relatório;

- O relatório será também executado no modo OFFLINE (através do uso da variável Global [SERVER_URL] do CRM);

- E a utilização de um FetchXML (função ExecFetchXML) para busca de informação na Entidade [ReportBase] do CRM.

Segue exemplo, em uma Conta, da execução de um relatório em um IFrame:

That´s It!

Abraços.

.NET Framework 3.5 - LINQ

2009-02-17T12:26:00.000-08:00

Introdução ao LINQ (Language-Integrated Query)

LINQ é realmente um passo inovador no Visual Studio 2008 e .NET Framework 3.5, servindo como [ponte] entre o mundo dos objetos e o mundo dos dados.

O interessante deste recurso é o fato de construir suas [Queries] usando coleções fortemente tipadas de objetos, como uma linguagem de programação.

A ilustração abaixo mostra uma [LINQ Query] parcialmente completa, efetuando uma busca no banco de dados Sql Server, com total checagem de tipo e suporte a IntelliSense:

No Visual Studio você pode escrever LINQ Queries no [Visual Basic] ou [C#] com Sql Server, XML Documents, ADO.NET DataSets, e qualquer coleção de objetos que suporta [IEnumerable] ou a Interface Genérica [IEnumerable(T)].

Para aprendermos mais sobre a Tecnologia LINQ, segue artigos sobre suas quatro principais atuações:

- LINQ to SQL (http://gtezini.blogspot.com/2009/02/net-framework-35-linq-to-sql.html)

- LINQ to XML (http://gtezini.blogspot.com/2009/02/net-framework-35-linq-to-xml.html)

- LINQ to DataSet (http://gtezini.blogspot.com/2009/02/net-framework-35-linq-to-dataset.html)

- LINQ to Objects (http://gtezini.blogspot.com/2009/02/net-framework-35-linq-to-objects.html)

.NET Framework 3.5 - LINQ to Objects

2009-02-17T09:22:00.000-08:00

O termo [LINQ to Objects] se refere ao uso de LINQ queries diretamente com qualquer coleção IEnumerable ou IEnumerable(T) sem o uso de qualquer provedor intermediário ou API, como no caso do [LINQ to SQL] ou [LINQ to XML].

Assim como no uso dos outros recursos do LINQ (SQL, XML e DataSet) LINQ to Objects proporciona uma mudança significativa no desenvolvimento, de forma a simplificar a codificação, comparando por exemplo, ao uso do foreach.

Em adição, LINQ queries oferecem três vantagens principais sobre os tradicionais foreach loops:

1 - Eles são mais concisos e legíveis, especialmente quando filtram múltiplas condições;
2 - Eles provêem mais poder de filtragem, ordenação e agrupamento com um mínimo de codificação;
3 - Eles podem ser portados para outras fontes de dados com pequena ou nenhuma modificação.

O exemplo a seguir mostra uma query sobre um ArrayList. Note que este exemplo usa inicializadores de objeto quando o código chama o método [Add], mas isto não é requerido.

[Visual Basic]

Imports System.Collections

Imports System.Linq

Module Module1

    Public Class Student

        Public FirstName As String

        Public LastName As String

        Public Scores As Integer()

    End Class

    Sub Main()

        Dim student1 As New Student With {.FirstName = "Svetlana", _

                                     .LastName = "Omelchenko", _

                                     .Scores = New Integer() {98, 92, 81, 60}}

        Dim student2 As New Student With {.FirstName = "Claire", _

                                    .LastName = "O'Donnell", _

                                    .Scores = New Integer() {75, 84, 91, 39}}

        Dim student3 As New Student With {.FirstName = "Cesar", _

                                    .LastName = "Garcia", _

                                    .Scores = New Integer() {97, 89, 85, 82}}

        Dim student4 As New Student With {.FirstName = "Sven", _

                                    .LastName = "Mortensen", _

                                    .Scores = New Integer() {88, 94, 65, 91}}

        Dim arrList As New ArrayList()

        arrList.Add(student1)

        arrList.Add(student2)

        arrList.Add(student3)

        arrList.Add(student4)

        ' Use an explicit type for non-generic collections

        Dim query = From student As Student In arrList _

                    Where student.Scores(0) > 95 _

                    Select student

        For Each student As Student In query

            Console.WriteLine(student.LastName & ": " & student.Scores(0))

        Next

        ' Keep the console window open in debug mode.

        Console.WriteLine("Press any key to exit.")

        Console.ReadKey()

    End Sub

End Module

' Output:

'   Omelchenko: 98

'   Garcia: 97

[C#]

using System;

using System.Collections;

using System.Linq;

namespace NonGenericLINQ

{

    public class Student

    {

        public string FirstName { get; set; }

        public string LastName { get; set; }

        public int[] Scores { get; set; }

    }

    class Program

    {

        static void Main(string[] args)

        {

            ArrayList arrList = new ArrayList();

            arrList.Add(

                new Student

                    {

                        FirstName = "Svetlana", LastName = "Omelchenko", Scores = new int[] { 98, 92, 81, 60 }

                    });

            arrList.Add(

                new Student

                    {

                        FirstName = "Claire", LastName = "O’Donnell", Scores = new int[] { 75, 84, 91, 39 }

                    });

            arrList.Add(

                new Student

                    {

                        FirstName = "Sven", LastName = "Mortensen", Scores = new int[] { 88, 94, 65, 91 }

                    });

            arrList.Add(

                new Student

                    {

                        FirstName = "Cesar", LastName = "Garcia", Scores = new int[] { 97, 89, 85, 82 }

                    });

            var query = from Student student in arrList

                        where student.Scores[0] > 95

                        select student;

            foreach (Student s in query)

                Console.WriteLine(s.LastName + ": " + s.Scores[0]);

            // Keep the console window open in debug mode.

            Console.WriteLine("Press any key to exit.");

            Console.ReadKey();

        }

    }

}

/* Output: 

    Omelchenko: 98

    Garcia: 97

*/

________________________________
101 Visual Basic LINQ Samples! - http://msdn.microsoft.com/en-us/vbasic/bb688088.aspx

.NET Framework 3.5 - LINQ to DataSet

2009-02-17T08:47:00.000-08:00

LINQ to DataSet faz com que a busca de dados em [objetos DataSet] se tornem ainda mais fáceis e rápidas.

Este recurso traz maior produtividade e flexibilidade para os desenvolvedores já que trabalham com [Queries] na sua própria linguagem de programação.

LINQ to DataSet expõe, primariamente, os métodos adicionais nas classes [DataRowExtensions] and [DataTableExtensions]. Também se utiliza da arquitetura do ADO.NET 2.0, não tendo a intenção da substituir o ADO.NET 2.0 no código da aplicação.

O relacionamento do [LINQ to DataSet] com o [ADO.NET 2.0] e o [Data Store] é ilustrado no diagrama abaixo:

Querying DataSets Usando LINQ to DataSet

No exemplo abaixo podemos notar a facilidade de busca e manipulação dos dados em um DataSet do ADO.NET 2.0. Como a classe [DataTable] não implementa a interface [IEnumerable(T)], chamamos o método [AsEnumerable] para usar o DataTable com uma [fonte] para a cláusula [From] da LINQ query.

O exemplo busca todos os pedidos [online] da tabela [SalesOrderHeader] e mostra os atributos [order ID], [order date], e [order number] .

[Visual Basic]

' Fill the DataSet.

Dim ds As New DataSet()

ds.Locale = CultureInfo.InvariantCulture

' See the FillDataSet method in the Loading Data Into a DataSet topic.

FillDataSet(ds)

Dim orders As DataTable = ds.Tables("SalesOrderHeader")

Dim query = _

From order In orders.AsEnumerable() _

Where order.Field(Of Boolean)("OnlineOrderFlag") = True _

Select New With { _

.SalesOrderID = order.Field(Of Integer)("SalesOrderID"), _

.OrderDate = order.Field(Of DateTime)("OrderDate"), _

.SalesOrderNumber = order.Field(Of String)("SalesOrderNumber") _

}

For Each onlineOrder In query

Console.Write("Order ID: " & onlineOrder.SalesOrderID)

Console.Write(" Order date: " & onlineOrder.OrderDate)

Console.WriteLine(" Order number: " & onlineOrder.SalesOrderNumber)

Next

[C#]

// Fill the DataSet.

DataSet ds = new DataSet();

ds.Locale = CultureInfo.InvariantCulture;

FillDataSet(ds);

DataTable orders = ds.Tables["SalesOrderHeader"];

var query =

from order in orders.AsEnumerable()

where order.Field("OnlineOrderFlag") == true

select new

{

SalesOrderID = order.Field("SalesOrderID"),

OrderDate = order.Field("OrderDate"),

SalesOrderNumber = order.Field("SalesOrderNumber")

};

foreach (var onlineOrder in query)

{

Console.WriteLine("Order ID: {0} Order date: {1:d} Order number: {2}",

onlineOrder.SalesOrderID,

onlineOrder.OrderDate,

onlineOrder.SalesOrderNumber);

}

________________________________
101 Visual Basic LINQ Samples! - http://msdn.microsoft.com/en-us/vbasic/bb688088.aspx

.NET Framework 3.5 - LINQ to XML

2009-02-17T08:08:00.000-08:00

LINQ to XML provê uma interface de programação [in-memory] com [Modelo de Objeto de Documentos - DOM].

O interessante deste novo recurso é que ficou mais fácil a manipulação de XMLs (comparando por exemplo ao uso do XPATH) pois este tipo de objeto é manipulado através de Queries, similar a manipulação no SQL.

O exemplo abaixo mostra a facilidade de uso. Está sendo retornada uma lista, ordernado pelo campo partnumber, dos itens com valor maior do que 100.

[C#]

IEnumerable partNos =

    from item in purchaseOrder.Descendants("Item")

    where (int) item.Element("Quantity") *

        (decimal) item.Element("USPrice") > 100

    orderby (string)item.Element("PartNumber")

    select item;

[Visual Basic]

Dim partNos = _

    From item In purchaseOrder... _

    Where (item..Value * _

           item..Value) > 100 _

    Order By item..Value _

    Select item

A melhoria na manipulação da interface de programação XML é realmente significativa. Inclusive podemos fazer todo tipo de manipulação, como fariamos em uma programação XML, sendo elas:

- Carregar XML de arquivos ou streams.
- Serializar XML para arquivos ou streams.
- Query XML usando [XPath-like].
- Manipular a [árvore XML] in-memory usando métodos comm Add, Remove, ReplaceWith, e SetValue.
- Validar a [árvore XML] usando XSD.

Para exemplificar a facilidade na criação da árvore em XML, note o código abaixo:

[C#]

XElement contacts =

    new XElement("Contacts",

        new XElement("Contact",

            new XElement("Name", "Patrick Hines"),

            new XElement("Phone", "206-555-0144", 

                new XAttribute("Type", "Home")),

            new XElement("phone", "425-555-0145",

                new XAttribute("Type", "Work")),

            new XElement("Address",

                new XElement("Street1", "123 Main St"),

                new XElement("City", "Mercer Island"),

                new XElement("State", "WA"),

                new XElement("Postal", "68042")

            )

        )

    );

E no Visual Basic o uso é ainda mais simplificado, pois usa-se o XML de forma literal:

[Visual Basic]

Dim contacts = _

    < Contacts >

        < Contact >

            < Name >Patrick Hines< /Name >

            < Phone Type="Home" >206-555-0144< /Phone >

            < Phone Type="Work">425-555-0145< /Phone >

            < Address >

                < Street1 >123 Main St< /Street1 >

                < City> Mercer Island< /City >

                < State >WA< /State >

                < Postal >68042< /Postal >

            < /Address >

        < /Contact >

    < /Contacts >

________________________________
101 Visual Basic LINQ Samples! - http://msdn.microsoft.com/en-us/vbasic/bb688088.aspx

.NET Framework 3.5 - LINQ to SQL

2009-02-17T05:50:00.000-08:00

LINQ to SQL é um componente do .NET Framework 3.5 que provê uma Infraestrutura em tempo de execução para gerenciar dados relacionais como [objetos].

Por exemplo, o objeto [nw], no código abaixo, é criado para representar o Banco de Dados [Northwind] que faz um "Select" na Tabela [Customers], retornando os registros da cidade de [Londres].

[Visual Basic]

' NorthwndDataContext herda de System.Data.Linq.DataContext.

Dim nw As New NorthwndDataContext("C:\SQL Server 2000 Sample Databases\northwnd.mdf")

Dim companyNameQuery = _

From cust In nw.Customers _

Where cust.City = "London" _

Select cust.CompanyName

For Each customer In companyNameQuery

Console.WriteLine(customer)

Next

[C#]

// NorthwndDataContext herda de System.Data.Linq.DataContext.

NorthwndDataContext nw = new NorthwndDataContext(@"C:\SQL Server 2000 Sample Databases\northwnd.mdf");

var companyNameQuery =

from cust in nw.Customers

where cust.City == "London"

select cust.CompanyName;

foreach (var customer in companyNameQuery)

{

Console.WriteLine(customer);

}

Adicionando [LINQ to SQL Data Classes] em um Projeto

Para trabalharmos de forma orientada a objetos com o LINQ to SQL, como o exemplo acima mostrou no uso da classe [NorthwndDataContext], o Visual Studio 2008 disponibiliza duas ferramentas de apoio para a geração da classes de dados:

- Object Relational Designer (http://msdn.microsoft.com/en-us/library/bb384429.aspx);

- SQLMetal (http://msdn.microsoft.com/pt-br/library/bb386987.aspx);

Com o O/R Designer, temos a disposição uma rica interface, dentro do Visual Studio 2008, para criarmos nossas classes de dados. Repare que existe um [Template] para isto no [VS 2008], chamado [LINQ to SQL Classes], quando se adiciona um item novo no projeto (.dbml).

Com o SQLMetal, fazemos o mesmo, só que fora do Visual Studio 2008, na linha de comando do DOS.

O seguinte exemplo gera a classe de dados (em Visual Basic) baseado no Banco de Dados Northwind:

sqlmetal /code:northwind.vb /language:vb "c:\northwnd.mdf" /sprocs /functions

P.S.: Note que nos exemplos trabalhamos com o Banco de Dados [Northwind] do Sql Server 2000. Ele ainda continua sendo um bom banco para testes (principalmente devido seu tamanho). Para usar este banco no Sql Server 2005, faça o seguinte:

1 - Efetue o download em: http://www.microsoft.com/downloads/details.aspx?familyid=06616212-0356-46a0-8da2-eebc53a68034&displaylang=en

2 - Execute o arquivo [SQL2000SampleDb.msi], e adicione (Attach) o banco [Northwnd.mdf], localizado em [C:\SQL Server 2000 Sample Databases].

________________________________
101 Visual Basic LINQ Samples! - http://msdn.microsoft.com/en-us/vbasic/bb688088.aspx

>> CRM 4.0 - Preenchimento Automático de PickList (REVISADO)

2009-02-10T06:56:00.000-08:00

------------ REVISÃO ---------------
Efetuei algumas alterações/correções pois, ao salvar o registro, estava gerando erro (explicado no passo 2 abaixo).
------------------------------------

Ainda na atual versão do CRM (4.0) não se pode configurar objetos para preenchimento automático de outros, via configuração básica do produto. Por exemplo, ao selecionar uma Conta, em um [Lookup], retornar em um [Picklist] os Contatos da Conta.

Segue então solução, via desenvolvimento JavaScript, para isto.

1 - Criar um PickList vazio;

2 - Carregar o Picklist com uma quantidade "razoável" de linhas "VAZIAS". Porquê? Acontece que estamos carregando o Picklist dinamicamente. Internamente, o CRM busca em seu [METADADOS] as informações do Picklist tanto no [OnLoad] do Formulário quanto no [OnSave]. Ignorando este processo interno, ao carregar aleatóriamente os dados no PickList vai gerar um erro, pois o CRM nos dirá que [incialmente, ao carregar o formulário, o metadados para este Picklist não continha informação, porém agora contém, gerando uma exceção de índice do Dropdownlist].

3 - No [OnChange] do Lookup desejado (no meu exemplo, de Conta) adicionar o código:

window.getAccountContacts();

4 - E no [OnLoad] do Form do CRM, adicionar o código abaixo:

window.getAccountContacts = function (e)
{
crmForm.all.new_pickcontact.DataValue = null;
crmForm.all.new_pickcontact.Disabled = true;

if (crmForm.all.customerid.DataValue==null) return;

var customerid = crmForm.all.customerid.DataValue[0].id;
var authenticationHeader = GenerateAuthenticationHeader();

var xml = "<" + "?xml version=\"1.0\" encoding=\"utf-8\"?>" + 
 "<" + "soap:Envelope xmlns:soap="+
 "\"http://schemas.xmlsoap.org/soap/envelope/\" "+
 "xmlns:xsi=\"http://www.w3.org/2001/XMLSchema-instance\" "+
 "xmlns:xsd=\"http://www.w3.org/2001/XMLSchema\">" + 
 authenticationHeader+
 "<" + "soap:Body>" + 
 "<" + "RetrieveMultiple xmlns="+
 "\"http://schemas.microsoft.com/crm/2007/WebServices\">" + 
 "<" + "query xmlns:q1="+
 "\"http://schemas.microsoft.com/crm/2006/Query\" "+
 "xsi:type=\"q1:QueryByAttribute\">" + 
 "<" + "q1:EntityName>contact" + "<" + "/q1:EntityName>" + 
 "<" + "q1:ColumnSet xsi:type=\"q1:ColumnSet\">" + 
 "<" + "q1:Attributes>" + 
 "<" + "q1:Attribute>fullname" + "<" + "/q1:Attribute>" + 
 "<" + "/q1:Attributes>" + 
 "<" + "/q1:ColumnSet>" + 
 "<" + "q1:Attributes>" + 
 "<" + "q1:Attribute>parentcustomerid" + "<" + "/q1:Attribute>" + 
 "<" + "/q1:Attributes>" + 
 "<" + "q1:Values>" + 
 "<" + "q1:Value xsi:type=\"xsd:string\">"+
 customerid+
 "<" + "/q1:Value>" + 
 "<" + "/q1:Values>" + 
 "<" + "/query>" + 
 "<" + "/RetrieveMultiple>" + 
 "<" + "/soap:Body>" + 
 "<" + "/soap:Envelope>";

xmlHttpRequest = new ActiveXObject("Msxml2.XMLHTTP");
 xmlHttpRequest.Open(
  "POST", 
  "/mscrmservices/2007/CrmService.asmx", 
  true
  );

 xmlHttpRequest.setRequestHeader(
  "SOAPAction",
  "http://schemas.microsoft.com/crm/2007/WebServices/RetrieveMultiple" );

 xmlHttpRequest.setRequestHeader(
  "Content-Type", "text/xml; charset=utf-8" );

 xmlHttpRequest.setRequestHeader(
  "Content-Length", xml.length );

 xmlHttpRequest.onreadystatechange = StateChangeAccountContacts;
 xmlHttpRequest.send(xml);
}

function StateChangeAccountContacts() 
{ 
if (xmlHttpRequest.readyState == 4) 
{ 
var resultXml = xmlHttpRequest.responseXML; 
var oXmlDoc = new ActiveXObject("Microsoft.XMLDOM"); 
oXmlDoc.async = false; 
oXmlDoc.loadXML(resultXml.xml); 
var businessEntities = oXmlDoc.getElementsByTagName('BusinessEntity'); 

var oTempArray = new Array();
oTempArray[0] = crmForm.all.mit_pickcontact.originalPicklistOptions[0];

for (i=0;i < businessEntities.length;i++) 
{ 
   var fullName = businessEntities[i].selectSingleNode('./q1:fullname');
   if (fullName != null)
  {
      var opt = crmForm.all.mit_pickcontact.originalPicklistOptions[i+1];
      opt.Text = fullName.text;
      oTempArray[i+1] = opt;
  }
} 

crmForm.all.new_pickcontact.Options = oTempArray;
crmForm.all.new_pickcontact.Disabled = false;
crmForm.all.new_pickcontact.DataValue = crmForm.all.new_pickcontact.originalSelectedIndex;

} 
}

crmForm.all.new_pickcontact.originalPicklistOptions = crmForm.all.new_pickcontact.Options;
crmForm.all.new_pickcontact.originalSelectedIndex = crmForm.all.new_pickcontact.selectedIndex;
window.getAccountContacts();

>> CRM 4.0 - Manipulação de Anexos (SDK)

2009-02-05T10:20:00.000-08:00

A versão 4.0 do Dynamics CRM simplificou para nós, desenvolvedores, o uso de diversos recursos do SDK. Um deles é a busca e manipulação de Anexos nas entidades do produto.

Para este caso, note que em cada Anotação (relacionada a uma entidade do CRM) existe um campo chamado documentbody que armazena o conteúdo do arquivo anexado pelo usuário (BASE64 Format).

Para demonstrar isto, segue função genérica (C#) que retorna as Anotações (de uma determinada Entidade) que contém anexos. A função retorna o conteúdo de cada anexo (pelo processo de Decoding do .NET).

P.S.: Lembrando que a função consegue ler o conteúdo de anexos no formato do CRM (BASE64). Arquivos com formatos diferentes precisam de tratamentos específicos para leitura. Exemplo, os arquivos do Office2007, como xlsx (http://michaelmalloy.blogspot.com/2008/04/c-read-excel-2007-xlsx-files.html).

Chamada da função que busca as Anotações:

            BusinessEntityCollection notes = getEntityNotes(new Guid("272526EA-ED6B-43CC-A8DC-A2965405A463"));

            foreach (BusinessEntity be in notes.BusinessEntities)
            {
                annotation annot = be as annotation;
                if (!string.IsNullOrEmpty(annot.documentbody))
                {                    
                    string attachBody = DecodeByteArryToString(annot.mimetype, annot.documentbody);
                }
            }

Função que busca as Anotações da Entidade:

        public static BusinessEntityCollection getEntityNotes(Guid entityId)
        {
            // Set up the CRM Service.
            CrmAuthenticationToken token = new CrmAuthenticationToken();
            token.AuthenticationType = 0;
            token.OrganizationName = "OrgName";
            CrmService service = new CrmService();
            service.Url = "http://localhost:5555/mscrmservices/2007/crmservice.asmx";
            service.CrmAuthenticationTokenValue = token;
            service.Credentials = System.Net.CredentialCache.DefaultCredentials;

            BusinessEntityCollection notes = null;

            ConditionExpression caseCondition = new ConditionExpression();
            caseCondition.AttributeName = "objectid";
            caseCondition.Operator = ConditionOperator.Equal;
            caseCondition.Values = new object[] { entityId };

            FilterExpression filter = new FilterExpression();
            filter.FilterOperator = LogicalOperator.And;
            filter.Conditions = new ConditionExpression[] { caseCondition };

            QueryExpression query = new QueryExpression();
            query.EntityName = EntityName.annotation.ToString();
            query.ColumnSet = new AllColumns();
            query.Criteria = filter;

            RetrieveMultipleRequest retrieve = new RetrieveMultipleRequest();
            retrieve.Query = query;

            RetrieveMultipleResponse retrieved = (RetrieveMultipleResponse)service.Execute(retrieve);
            notes = retrieved.BusinessEntityCollection;

            return notes;
        }

        public static string DecodeByteArryToString(string mimeType, string documentbody)
        {
            Byte[] ByteArry = System.Convert.FromBase64String(documentbody);
            Decoder byteArryDecoder = null;

            if (mimeType.IndexOf("text/") >= 0)
            {
                byteArryDecoder = Encoding.UTF7.GetDecoder();
            }
            else
            {
                byteArryDecoder = Encoding.Unicode.GetDecoder();
            }

            int charCount = byteArryDecoder.GetCharCount(ByteArry, 0, ByteArry.Length);
            char[] bodyChars = new Char[charCount];
            int charsDecodedCount = byteArryDecoder.GetChars(ByteArry, 0, ByteArry.Length, bodyChars, 0);
            return new string(bodyChars);
        }

>> CRM 4.0 - PickList Multi-Value

2009-02-04T08:33:00.000-08:00

O objeto Picklist do CRM é um recurso interessante para montagem de listas rápidas, porém, dependendo do projeto em que está, vai ser necessário o uso de alguns recursos adicionais do objeto, como o de [multipla escolha]...Então desenvolvi um método (totalmente em JavaScript) que [transforma] o Picklist original em um [Novo], com múltipla escolha.

Segue design de um Picklist [transformado]:

Como funciona a transformação

1 - Crie normalmente seu Picklist e adicione-o no form do crm;

2 - Crie um atributo Auxiliar (nvarchar,texto,100) para armazenar os valores do Picklist Multi-Value; adicione-o também no form do CRM;

3 - Copie a função abaixo no OnLoad do Form do CRM. A função (createMultiValuePickList) possui os seguintes parâmetros:

pickList - Informar o objeto Picklist original do CRM;
objAux - Informar o objeto criado no passo 2 citado acima.

P.S.1.: O Novo Picklist ficará no lugar do [objAux] e o Picklist Original ficará [oculto] no Form do CRM.

P.S.2.: Como a função [createMultiValuePickList] cria objetos [novos] no Form do CRM e não altera e/ou reutiliza qualquer recurso padrão do produto, este procedimento pode se enquadrar na forma [Suportada] de customização.

Segue chamada da função:

createMultiValuePickList(crmForm.all.new_services, crmForm.all.new_services_aux);

Segue função completa:

function createMultiValuePickList(pickList, objAux)
{
/* Desabilitar o PickList do CRM e o campo aux que guardará os valores do Picklist Multi-Value */
var pickLabel = document.getElementById(pickList.id + "_c");
pickLabel.style.visibility = "hidden";
pickList.style.width = "0px";
objAux.style.width = "0px";

/* Cria a Table principal, que conterá o Picklist e o Botão para habilitar o Picklist */
var oMainTable = document.createElement("TABLE");
oMainTable.style.width =  '100%';
oMainTable.setAttribute('table-layout', 'fixed');
/* Adiciona a Table Principal */
objAux.insertAdjacentElement("BeforeBegin", oMainTable);

var oMainTHead = document.createElement("THEAD");
oMainTable.appendChild(oMainTHead);

var input1 = document.createElement('input');
input1.setAttribute('type', 'text');
input1.setAttribute('name', 'input_txt');
input1.setAttribute('id', 'input_txt');
input1.setAttribute('readOnly', 'true');

input1.onclick = function()
{
document.getElementById('divPicklist').style.visibility = 'hidden';
document.getElementById('input_btn').style.backgroundImage = 'url(/_imgs/selectOn.gif)';
}


var input2 = document.createElement('input');
input2.style.width =  '18px';
input2.setAttribute('type', 'button');
input2.setAttribute('name', 'input_btn');
input2.setAttribute('id', 'input_btn');
input2.style.backgroundImage = 'url(/_imgs/selectOn.gif)';
input2.style.backgroundColor="#D6E8FF";
input2.style.backgroundPosition="center center";

input2.onclick = function()
{
var div1 = document.getElementById('divPicklist');
div1.style.visibility = (div1.style.visibility=='visible' ? 'hidden' : 'visible');
this.style.backgroundImage = (div1.style.visibility=='hidden' ? 'url(/_imgs/selectOn.gif)' : 'url(/_imgs/ico/16_succeeded.png)');
var txt = document.getElementById('input_txt');
txt.value='';
objAux.value='';

for(i=0; i < pickList.options.length; i++)
{
var chk = document.getElementById('chk_' + String(pickList.options[i].value));
if (chk)
{
if (chk.checked)
{
txt.value+=pickList.options[i].text+',';
objAux.value += pickList.options[i].value+',';
}
}
}

if (txt.value.indexOf(',')>0) txt.value= txt.value.substr(0, txt.value.length-1);
if (objAux.value.indexOf(',')>0) objAux.value= objAux.value.substr(0, objAux.value.length-1);

}

var input3 = document.createElement('input');
input3.style.width =  '18px';
input3.setAttribute('type', 'button');
input3.setAttribute('name', 'input_btn2');
input3.setAttribute('id', 'input_btn2');
input3.style.backgroundImage = 'url(/_imgs/ico/16_L_remove.gif)';
input3.style.backgroundColor="#D6E8FF";
input3.style.backgroundPosition="center center";

input3.onclick = function()
{
document.getElementById('divPicklist').style.visibility = 'hidden';
document.getElementById('input_btn').style.backgroundImage = 'url(/_imgs/selectOn.gif)';
document.getElementById('input_txt').value='';
objAux.value='';

for(i=0; i < pickList.options.length; i++)
{
var chk = document.getElementById('chk_' + String(pickList.options[i].value));
if (chk) chk.checked=false;
}

}

var oRow1 = document.createElement("TR");
var oRow2 = document.createElement("TR");

var oDivRow2 = document.createElement("DIV");
oDivRow2.setAttribute('id', 'divPicklist');
oDivRow2.style.position = 'absolute';
oDivRow2.style.height = '180px';
oDivRow2.style.width = '100%';
oDivRow2.style.border = 'solid 1px gray';
oDivRow2.style.backgroundColor = 'white';
oDivRow2.style.overflow = 'scroll';
oDivRow2.style.visibility='hidden';

oMainTHead.appendChild(oRow1);
oMainTHead.appendChild(oRow2);

/* 1a Coluna - TextBox */
var oCell1 = document.createElement("TH");
oCell1.style.width = '90%';
oCell1.appendChild(input1);
oRow1.appendChild(oCell1);

/* 2a Coluna - Botão */
var oCell2 = document.createElement("TH");
oCell2.style.width = '10%';
oCell2.appendChild(input2);
oRow1.appendChild(oCell2);

/* 3a Coluna - Botão */
var oCell3 = document.createElement("TH");
oCell3.style.width = '10%';
oCell3.appendChild(input3);
oRow1.appendChild(oCell3);

/* Cria a Table que terá o conteúdo do Picklist Original */
var oTablePick = document.createElement("TABLE");
oTablePick.setAttribute('width', '100%');
oTablePick.setAttribute('table-layout', 'fixed');

var oTHeadPick = document.createElement("THEAD");
oTablePick.appendChild(oTHeadPick);

oDivRow2.appendChild(oTablePick);

var defaultPick = crmForm.all.mit_services;
for(i=0; i < defaultPick.options.length; i++)
{
   oRowPick = document.createElement("TR");
   oTHeadPick.appendChild(oRowPick);

   /* 1a Coluna - CheckBox */
   oCellPick1 = document.createElement("TH");
   oCellPick1.setAttribute('width', '10%');

   if (defaultPick.options[i].text!="")
   {
      var chk = document.createElement('input');
      chk.style.border = 'none';
      chk.type = 'checkbox';
      chk.id = 'chk_' + String(defaultPick.options[i].value);
      chk.name = 'chk_' + String(defaultPick.options[i].value);
      oCellPick1.appendChild(chk);
   }

   oRowPick.appendChild(oCellPick1);

   /* 2a Coluna - Texto do PickList Original */
   oCellPick2 = document.createElement("TH");
   oCellPick2.setAttribute('width', '90%');
   oCellPick2.innerHTML = defaultPick.options[i].text;
   oRowPick.appendChild(oCellPick2);
}

/* Adicionar oTablePick na 2a linha da oMainTable */
var oCellPick1_line2 = document.createElement("TH");
oCellPick1_line2.setAttribute('width', '90%');
oCellPick1_line2.appendChild(oDivRow2);
oRow2.appendChild(oCellPick1_line2);

/* 2a coluna em branco */
var oCellPick2_line2 = document.createElement("TH");
oCellPick2_line2.style.width = '10%';
oRow2.appendChild(oCellPick2_line2);

/* 3a coluna em branco */
var oCellPick3_line2 = document.createElement("TH");
oCellPick3_line2.style.width = '10%';
oRow2.appendChild(oCellPick3_line2);

/* DataBind do componente */
if (objAux.value.indexOf(",")>0)
{
   var txt_width = String(input1.clientWidth) + 'px';
   var aBind = objAux.value.split(",");
   for(i=0; i <= aBind.length; i++)
   {
      if (defaultPick.options[aBind[i]])
      {
         input1.value += defaultPick.options[aBind[i]].text + ',';
         var chk = document.getElementById('chk_' + String(aBind[i]));
         if (chk) chk.checked=true;
      }
   }
   if (input1.value.indexOf(',')>0)
   {
      input1.value= input1.value.substr(0, input1.value.length-1);
      input1.style.width = txt_width;
   }
}

}

>> CRM 4.0 - Relationship via SDK

2009-01-29T05:26:00.000-08:00

Já tiveram a necessidade de relacionar duas entidades, porém o CRM não permite da forma que deseja?

Por exemplo, pode-se relacionar no CRM a entidade [QuoteDetail] a outras entidades, porém somente via [N:1] ou [N:N]...mas não via [1:N].

Porque isto é relevante? Imagine que deseja ter, na tela de [Produtos da Cotação], [Despesas] associadas a cada Item. Via Customização Padrão do CRM não vai conseguir fazer isto! Pois não aparece na tela do [Produto da Cotação] o [Menu Vertical] de links de relacionamentos com outras entidades (comum a maioria das entidades).

O que se aprende neste artigo:

- Funcionamento de [Relationships] do CRM;
- Como reaproveitar chamadas de URL do produto;
- Usar o SDK para, programaticamente, adicionar e remover relacionamento entre entidades (classes AssociateEntitiesRequest e DisassociateEntitiesRequest).

A solução:

1 - Criar o relacionamento [N:N], para gerar o link entre as entidades [QuoteDetail] e [qq outra];

2 - Adicionar um [iFrame] do CRM, e na URL, adicionar o seguinte:

É claro que a URL deverá ser preenchida programaticamente, via [OnLoad] do Form do CRM, pois notamos na URL, parâmetros como [oId] que vai representar o [Guid] da entidade que [contém] o iFrame, o parâmetro [oType], representando o código da entidade, e por fim, [tabSet] que representa o nome do relacionamento entre as entidades.

No meu exemplo acima estou mostrando no iFrame a [Lista de Despesas] associada a um [Produto da Cotação].

Desta forma, consigo mostrar o relacionamento como se fosse [1:N].

Porém, o trabalho não acabou! Se notar, no cabeçalho do Grid que está sendo mostrado no iFrame, possui apenas o botão [Adicionar Existentes]...o que é inviável, pois queremos simular o processo [1:N], na qual apareceria o botão [Novo ].

Para resolver isto, crie um novo botão customizado, alterando o Isv.Config, no meu caso, para a entidade [Despesa], adicionando um JavaScript que:

1 - Captura o Id da entidade principal (no meu exemplo, o Produto da Cotação);
2 - Criar um atributo para guardar o valor do ID do passo 1. No meu exemplo eu guardo o ID do [Produto da Cotação] em um campo criado na Entidade [Despesas];
3 - Prepare a url que simule a criação do registro;
4 - No [OnLoad] do Form (no meu exemplo, de Despesas), recupere o Id capturado no passo 1.

Abaixo segue códigos para os passos citados:

- Adicionando o botão no Isv.Config do CRM4:

- No [OnLoad] do Form do CRM, JavaScript do passo 3:

E finalmente, criar o código SDK (criar uma dll de PLUGIN - PostCreate e PostDelete) para criar o Link entre as entidades (no meu exemplo, entre QuoteDetail e [outra entidade]):

private static void fnEntityRelationShip(Boolean add)
{
// Set up the CRM Service.
CrmAuthenticationToken token = new CrmAuthenticationToken();
token.AuthenticationType = 0;
token.OrganizationName = "OrgName";

CrmService service = new CrmService();
service.Url = "http://localhost:5555/mscrmservices/2007/crmservice.asmx";
service.CrmAuthenticationTokenValue = token;
service.Credentials = System.Net.CredentialCache.DefaultCredentials;

if (add)
{
// Create an AssociateEntities request.
AssociateEntitiesRequest request = new AssociateEntitiesRequest();

request.Moniker1 = new Moniker();
request.Moniker1.Id = new Guid("a1db8742-a3ec-dd11-a193-0015f2044350");
request.Moniker1.Name = EntityName.quotedetail.ToString();

request.Moniker2 = new Moniker();
request.Moniker2.Id = new Guid("21CA2C7C-7989-DD11-B2DA-0015F2044350");
request.Moniker2.Name = EntityName.mit_despesa.ToString();

// Set the relationship name to associate on.
request.RelationshipName = "mit_quotedetail_mit_despesa";

// Execute the request.
service.Execute(request);
}
else
{
// Create a request.
DisassociateEntitiesRequest request = new DisassociateEntitiesRequest();

// Assign the request a moniker for both entities that need to be disassociated.
request.Moniker1 = new Moniker();
request.Moniker1.Id = new Guid("a1db8742-a3ec-dd11-a193-0015f2044350");
request.Moniker1.Name = EntityName.quotedetail.ToString();

request.Moniker2 = new Moniker();
request.Moniker2.Id = new Guid("21CA2C7C-7989-DD11-B2DA-0015F2044350");
request.Moniker2.Name = EntityName.mit_despesa.ToString();

// Set the relationship name that associates the two entities.
request.RelationshipName = "mit_quotedetail_mit_despesa";

// Execute the request.
DisassociateEntitiesResponse response = (DisassociateEntitiesResponse)service.Execute(request);
}
}

>> CRM 4.0 - AJAX + Preenchimento Automático de Lookup

2008-12-19T07:39:00.000-08:00

Já tiveram a necessidade de preenchimento automático de um campo Lookup, baseado na escolha de alguma informação em outro campo? Somente em JavaScript?

Segue código template que ilustra isto, de forma que, ao selecionar uma Conta na Oportunidade, o sistema atualize a Lista de Preço da Oportunidade (existente na Conta).

Note que o código (JavaScript) utiliza o Web Services do CRM, método Retrieve para busca de dados de uma entidade, baseado no ID.

No [OnChange] do campo [Cliente Provável] da Oportunidade, adicionar o template abaixo:

P.S.: Substitua o nome [CAMPO_RETORNO] pelo nome do campo que representa o ID da Lista de Preço da Conta.

---- ONCHANGE FIELD ACTION ----
getAccountPriceLevel();

function getAccountPriceLevel()
{
var server = window.location.host;
xmlhttp = new ActiveXObject("Msxml2.XMLHTTP");
xmlhttp.open("POST", "http://" + server + "/mscrmservices/2007/crmservice.asmx", true);
xmlhttp.setRequestHeader("Content-Type", "text/xml; charset=utf-8");
xmlhttp.setRequestHeader("SOAPAction", "http://schemas.microsoft.com/crm/2007/WebServices/Retrieve");

var soapBody = "<soap:Body><Retrieve xmlns=\"http://schemas.microsoft.com/crm/2007/WebServices\"><entityName>account</entityName>";
soapBody += "<id>" + crmForm.all.customerid.DataValue[0].id + "</id>";
soapBody += "<columnSet xmlns:q1=\"http://schemas.microsoft.com/crm/2006/Query\" xsi:type=\"q1:ColumnSet\"><q1:Attributes>";
soapBody += "<q1:Attribute>CAMPO_RETORNO</q1:Attribute>";
soapBody += "</q1:Attributes></columnSet>";
soapBody += "</Retrieve></soap:Body>";

var soapXml = "<soap:Envelope " +
"xmlns: soap='http://schemas.xmlsoap.org/soap/envelope/' "+
"xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' "+
"xmlns:xsd='http://www.w3.org/2001/XMLSchema'>";
soapXml += GenerateAuthenticationHeader();
soapXml += soapBody;
soapXml += "</soap:Envelope>";

xmlhttp.onreadystatechange = StateChangeAccountPriceLevel;
xmlhttp.send(soapXml);
}

function StateChangeAccountPriceLevel()
{
if (xmlhttp.readyState == 4)
{
var oNodes = xmlhttp.responseXML.selectSingleNode("//RetrieveResult").childNodes;
var priceLevelID = oNodes[0].text;

if (crmForm.all.pricelevelid.DataValue == null)
{
var lookupData = new Array();
var lookupItem= new Object();
lookupItem.id = priceLevelID;
lookupItem.typename = 'pricelevel';
lookupItem.name = 'Lista de Preço Padrão';
lookupData[0] = lookupItem;
crmForm.all.pricelevelid.DataValue = lookupData;
}
}
}

>> CRM 4.0 - Data Migration Manager

2008-12-18T10:55:00.000-08:00

[Data Migration Manager] - desenvolvido para transporte de dados em massa de uma fonte de dados para a base do CRM.

Segue algumas orientações para uso do DMM:

1 - Demostração

Veja este "webcast" que ensina o uso do DMM - http://channel9.msdn.com/posts/jodonnell/Microsoft-Dynamics-CRM-40--Data-Migration-Manager-with-John-ODonnell/

2 - Restrições

- NÃO instale o DMM no Servidor do CRM (DMM só roda no [Windows Vista] ou [Windows XP]);
- Alguns desenvs instalam o DMM no Servidor do [SQL SERVER - 32 bits];

- Se o banco de dados for de [64 bits] o DMM Não vai funcionar;

- Use uma máquina Client, 32 bits com [local SQL Express] para o DataBase de Migração;
- Instale o DMM escolhendo a opção do banco de dados [SQL SERVER 2005 EXPRESS EDITION];

- Instale e rode o DMM com um usuário [local admin] e [CRM Admin]. Isto é importante porque o DMM usa o Web Services do CRM! Inclusive o DMM só pode ser usado pelo usuário que o instalou.

- DMM não pode ser usado enquanto o [Microsoft Office Outlook] estiver rodando;

Fonte adicional: http://rc.crm.dynamics.com/rc/regcont/en_us/Live/help/How_dmw_install.htm

>> CRM 4.0 - "Limitações" no Acompanhamento de Atividades

2008-12-16T10:07:00.000-08:00

Apesar da flexibilidade no uso de Acompanhamento de Atividades no CRM (http://gtezini.blogspot.com/2008/12/crm-40-boto-acompanhamento-de.html) existem algumas "limitações" que impedem o uso deste recurso.

Por exemplo, se você tentar efetuar um Acompanhamento (do tipo Tarefa) para uma atividade do tipo [Telefonema], atividade esta pertencente a uma [Campanha Rápida], ao salvar o acompanhamento, receberá a seguinte mensagem do CRM:

"[Campanhas rápidas] não podem ter [tarefa] como uma [atividade de acompanhamento]"

O que isto significa?

Seguindo o mesmo raciocínio do [KB 909824] que explica a impossibilidade de criação de [acompanhamento de atividade do tipo tarefa] para uma [atividade do tipo email]...

Podemos explicar este caso da seguinte forma:

"Quando você tenta criar um [acompanhamento do tipo tarefa], o Microsoft CRM configura o campo "Regarding" da [atividade de acompanhamento do tipo tarefa]. Para este campo, o Microsoft CRM tenta usar o valor do campo "Regarding" da [atividade de telefonema]. Contudo, não existe um relacionamento entre o [acompanhamento do tipo tarefa] e a [campanha rápida]."

Por este motivo aparece a msg de restrição.

Solução MS:

Use os seguintes tipos de atividades para acompanhamento:

- Telefonema;
- Carta;
- Fax;
- E-mail;
- Apontamento.

>> CRM 4.0 - Botão Acompanhamento de Atividades

2008-12-16T09:57:00.000-08:00

Dica rápida...

Para que serve o botão de "Acompanhamento" existente nas telas de detalhes dos vários tipos de atividades do CRM?

O Acompanhamento (ou FollowUp) também é uma atividade no CRM, dos tipos tarefa, email, telefonema, etc. É um recurso que faz parte do Painel "Assistente de Formulário" do CRM.

Por exemplo, você pode criar uma atividade de serviço de acompanhamento futuro. Imagine uma empresa que acabou de concluir a troca de óleo para um cliente; você pode criar uma nova atividade de serviço para outra troca de óleo em seis meses, de forma a "associar" uma tarefa em outra.

Veja este exemplo: http://rc.crm.dynamics.com/rc/regcont/pt_br/op/articles/followup.aspx

>> CRM 4.0 - Revisar Quota Programaticamente

2008-12-12T07:13:00.001-08:00

Existem alguns desenvolvimentos para o Dynamics CRM (via SDK) que poderíamos categorizar como sendo "não tão óbvios". Por exemplo, não existem exemplos completos para, programaticamente, Revisar uma Quota.

Juntando o "quebra-cabeça" para este caso, segue abaixo função Template.

public string ReviseQuote(string id)
{
// Set up the CRM Service.
CrmAuthenticationToken token = new CrmAuthenticationToken();
token.AuthenticationType = 0;
token.OrganizationName = "OrgName";

CrmService CrmWebService = new CrmService();
CrmWebService.Url = "http://localhost:5555/mscrmservices/2007/crmservice.asmx";
CrmWebService.CrmAuthenticationTokenValue = token;
CrmWebService.Credentials = System.Net.CredentialCache.DefaultCredentials;

string idRet = string.Empty;
Boolean CloseQuoteRequestOk = true;

// 1 - CLOSE QUOTE ACTIVITY

crmSdk.BusinessEntity beQuote = CrmWebService.Retrieve(crmSdk.EntityName.quote.ToString(), new Guid(id), new crmSdk.AllColumns());
crmSdk.quote _quote = beQuote as crmSdk.quote;

if (_quote == null) return string.Empty;

quoteclose _quoteClose = new quoteclose();
Lookup _lookUp = new Lookup();
_lookUp.type = EntityName.quote.ToString();
_lookUp.Value = new Guid(id);
CrmDateTime _crmDate1 = new CrmDateTime();
CrmDateTime _crmDate2 = new CrmDateTime();
_crmDate1.Value = new DateTime(1999, 12, 31, 23, 0, 0).ToString("u");
_crmDate2.Value = DateTime.Now.ToString("s");
_quoteClose.quoteid = _lookUp;
_quoteClose.subject = "Oferta Fechada (Revisada) " + _quote.quotenumber;
_quoteClose.quotenumber = _quote.quotenumber;
_quoteClose.revision = _quote.revisionnumber;
_quoteClose.actualstart = _crmDate1;
_quoteClose.actualend = _crmDate2;
CloseQuoteRequest closeQuoteRequest = new CloseQuoteRequest();
closeQuoteRequest.QuoteClose = _quoteClose;
closeQuoteRequest.Status = 7; // Revised
try
{
CrmWebService.Execute(closeQuoteRequest);
}
catch (System.Web.Services.Protocols.SoapException ex)
{
CloseQuoteRequestOk = false;
System.Diagnostics.EventLog.WriteEntry("Application", "CloseQuoteRequest ERROR => QuoteID: [" + id + "] / Message: " + ex.Detail.InnerText);
}

if (!CloseQuoteRequestOk) return string.Empty;

// 2 - REVISE QUOTE
ReviseQuoteRequest reviseReq = new ReviseQuoteRequest();
ColumnSet columns = new ColumnSet();
columns.Attributes = new string[] { "quoteid" };
reviseReq.ColumnSet = columns;
reviseReq.QuoteId = new Guid(id);
reviseReq.ReturnDynamicEntities = false;
ReviseQuoteResponse reviseResp = null;
try
{
reviseResp = (ReviseQuoteResponse)CrmWebService.Execute(reviseReq);
idRet = "{" + (reviseResp.BusinessEntity as quote).quoteid.Value.ToString().ToUpper() + "}";
}
catch (System.Web.Services.Protocols.SoapException ex)
{
idRet = string.Empty;
System.Diagnostics.EventLog.WriteEntry("Application", "ReviseQuoteRequest ERROR => QuoteID: [" + id + "] / Message: " + ex.Detail.InnerText);
}
return idRet;
}

>> CRM 4.0 - Envio de Email Template (com anexos)

2008-12-10T07:22:00.001-08:00

Segue código completo para envio de Email Template, com anexos.

A função SendEmailTemplate recebe como parâmetros o número, nome e ID da entidade como referência para o email (campo "referente a"), a descrição do Template do CRM a ser usado para envio do email, para quais usuários enviar e os anexos.

public static string SendEmailTemplate(int otc, string CrmEntityName, Guid oID, string templateTitle, string[] aUser, string[] aFiles)
{
 // Set up the CRM Service.
 CrmAuthenticationToken token = new CrmAuthenticationToken();
 token.AuthenticationType = 0; 
 token.OrganizationName = "OrgName";
  
 CrmService CrmWebService = new CrmService();
 CrmWebService.Url = "http://localhost:5555/mscrmservices/2007/crmservice.asmx";
 CrmWebService.CrmAuthenticationTokenValue = token;
 CrmWebService.Credentials = System.Net.CredentialCache.DefaultCredentials;

 Guid emailTemplateID = getTemplate(CrmWebService, otc, templateTitle);

 if (emailTemplateID.Equals(Guid.Empty))
 {
  string err = "Não foi possível localizar o Email template ";
  err += "com a palavra chave [" + templateTitle + "] para a entidade [" + otc.ToString() + "].";
  return err;
 }

 crmSdk.WhoAmIRequest userRequest = new crmSdk.WhoAmIRequest();
 crmSdk.WhoAmIResponse userResponse = (crmSdk.WhoAmIResponse)CrmWebService.Execute(userRequest);

 crmSdk.BusinessEntity beSystemUser = CrmWebService.Retrieve(crmSdk.EntityName.systemuser.ToString(), userResponse.UserId, new crmSdk.AllColumns());
 crmSdk.systemuser _systemuser = beSystemUser as crmSdk.systemuser;

 if (_systemuser.internalemailaddress == null)
 {
  string err = "Seu usuário, no CRM, não possui EMAIL cadastrado (Email Primário).";
  return err;
 }

 crmSdk.Owner _owner = new crmSdk.Owner();
 _owner.type = crmSdk.EntityName.systemuser.ToString();
 _owner.Value = userResponse.UserId;

 // Instantiate the Template as an EMAIL Object.
 crmSdk.InstantiateTemplateRequest instTemplate = new crmSdk.InstantiateTemplateRequest();
 instTemplate.TemplateId = emailTemplateID;
 instTemplate.ObjectId = oID;
 instTemplate.ObjectType = CrmEntityName;
 crmSdk.InstantiateTemplateResponse instTemplateResponse = null;

 try
 {
  instTemplateResponse = (crmSdk.InstantiateTemplateResponse)CrmWebService.Execute(instTemplate);
 }
 catch (System.Web.Services.Protocols.SoapException ex)
 {
  return "InstantiateTemplateResponse Error - " + ex.Detail.InnerText;
 }
 catch (Exception ex)
 {
  return "InstantiateTemplateResponse Error - " + ex.Message;
 }

 //Convert the returned entity to an email entity, this is really just the merged template body
 crmSdk.email emailFromTemplate = (crmSdk.email)instTemplateResponse.BusinessEntityCollection.BusinessEntities[0];

 //Add Recipients to the email
 CrmUtil.crmSdk.activityparty partyFROM = new CrmUtil.crmSdk.activityparty();
 partyFROM.partyid = new CrmUtil.crmSdk.Lookup();
 partyFROM.partyid.type = CrmUtil.crmSdk.EntityName.systemuser.ToString();
 partyFROM.partyid.Value = userResponse.UserId;

 crmSdk.activityparty[] aParties = new crmSdk.activityparty[aUser.Length];

 int loop = 0;

 for (int j = 0; j < aUser.Length; j++)
 {
  aParties[loop] = new crmSdk.activityparty();
  aParties[loop].partyid = new crmSdk.Lookup();
  aParties[loop].partyid.type = crmSdk.EntityName.systemuser.ToString();
  aParties[loop].partyid.Value = new Guid(aUser[j]);
  loop++;
 }

 emailFromTemplate.from = new crmSdk.activityparty[] { partyFROM };
 emailFromTemplate.to = aParties;
 emailFromTemplate.ownerid = _owner;
 emailFromTemplate.regardingobjectid = new crmSdk.Lookup();
 emailFromTemplate.regardingobjectid.type = CrmEntityName;
 emailFromTemplate.regardingobjectid.Value = oID;

 // Create the Email
 crmSdk.TargetCreateEmail targetCreate = new crmSdk.TargetCreateEmail();
 targetCreate.Email = emailFromTemplate;
 crmSdk.CreateRequest request = new crmSdk.CreateRequest();
 request.Target = targetCreate;
 crmSdk.CreateResponse response = null;
 try
 {
  response = (crmSdk.CreateResponse)CrmWebService.Execute(request);
 }
 catch (System.Web.Services.Protocols.SoapException ex)
 {
  return "TargetCreateEmail Error - " + ex.Detail.InnerText;
 }

 // Add Attachments
 string msgRet = AddAttachments(response.id, aFiles);
 if (!string.IsNullOrEmpty(msgRet)) return msgRet;

 // Send Email
 crmSdk.SendEmailRequest req = new crmSdk.SendEmailRequest();
 req.EmailId = response.id;
 req.TrackingToken = "";
 req.IssueSend = true;
 crmSdk.SendEmailResponse res = null;
 try
 {
  res = (crmSdk.SendEmailResponse)CrmWebService.Execute(req);
 }
 catch (System.Web.Services.Protocols.SoapException ex)
 {
  return "SendEmailRequest - " + ex.Detail.InnerText;
 }

 return "Email criado com sucesso.";
}

private static Guid getTemplate(crmSdk.CrmService CrmWebService, int otc, string templateTitle)
{
 crmSdk.QueryExpression _Query = new crmSdk.QueryExpression();
 _Query.EntityName = crmSdk.EntityName.template.ToString();
 _Query.ColumnSet = new crmSdk.AllColumns();

 crmSdk.ConditionExpression _ce1 = new crmSdk.ConditionExpression();
 crmSdk.ConditionExpression _ce2 = new crmSdk.ConditionExpression();

 _ce1.AttributeName = "templatetypecode";
 _ce1.Operator = crmSdk.ConditionOperator.Equal;
 _ce1.Values = new object[] { otc };

 _ce2.AttributeName = "title";
 _ce2.Operator = crmSdk.ConditionOperator.Like;
 _ce2.Values = new object[] { "%" + templateTitle + "%" };

 crmSdk.FilterExpression _FilterExpression = new crmSdk.FilterExpression();
 _FilterExpression.FilterOperator = crmSdk.LogicalOperator.And;
 _FilterExpression.Conditions = new crmSdk.ConditionExpression[] { _ce1, _ce2 };

 _Query.Criteria = _FilterExpression;
 crmSdk.BusinessEntityCollection _Bec = CrmWebService.RetrieveMultiple(_Query);

 Guid gResult = Guid.Empty;

 if (_Bec.BusinessEntities.Length > 0)
 {
  crmSdk.template oTemplate = _Bec.BusinessEntities[0] as crmSdk.template;
  gResult = oTemplate.templateid.Value;
 }

 return gResult;
}

private static string AddAttachments(crmSdk.CrmService CrmWebService, Guid emailID, string[] aFiles)
{
 string retMsg = string.Empty;
 string sServerPath = HttpContext.Current.Server.MapPath(@"\");
 sServerPath = sServerPath.Replace(@"\", "||");

 for (int i = 0; i < aFiles.Length; i++)
 {
  string fileNameCRM = aFiles[i];
  RemoveSpecialChars(ref fileNameCRM);

  string file = sServerPath + @"UploadFiles\\" + aFiles[i];
  string Newfile = sServerPath + @"UploadFiles\\" + fileNameCRM;

  file = file.Replace("||", "\\\\");
  Newfile = Newfile.Replace("||", "\\\\");

  string additionalError = "\nTentando adicionar anexo: " + Newfile;

  FileInfo info = new FileInfo(file);
  string sExtension = info.Extension;

  try
  {
   string fileCompare1 = aFiles[i].Trim().ToLower();
   string fileCompare2 = fileNameCRM.Trim().ToLower();
   if (!fileCompare1.Equals(fileCompare2))
   {
    info.MoveTo(Newfile);
   }
  }
  catch (IOException ex)
  {
   retMsg ="IOException (MoveTo) - " + ex.Message + additionalError;
   return retMsg;
  }
  catch (Exception ex)
  {
   retMsg = "IOException (MoveTo) - " + ex.Message + additionalError;
   return retMsg;
  }

  FileStream fl = File.OpenRead(Newfile);

  byte[] byteData = new byte[fl.Length];
  fl.Read(byteData, 0, (int)fl.Length);
  fl.Close();

  crmSdk.activitymimeattachment oMimeAttach = new crmSdk.activitymimeattachment();
  oMimeAttach.activityid = new crmSdk.Lookup();
  oMimeAttach.activityid.Value = emailID;
  oMimeAttach.activityid.type = crmSdk.EntityName.email.ToString();
  oMimeAttach.attachmentnumber = new crmSdk.CrmNumber();
  oMimeAttach.attachmentnumber.Value = i;
  oMimeAttach.filename = fileNameCRM;
  oMimeAttach.body = Convert.ToBase64String(byteData, 0, byteData.Length);

  try
  {
   CrmWebService.Create(oMimeAttach);
   try { info.Delete(); }catch { }
  }
  catch (SoapException ex)
  {
   retMsg = "Activitymimeattachment Error - " + ex.Detail.InnerText + additionalError;
  }
  catch (Exception ex)
  {
   retMsg = "Activitymimeattachment Error - " + ex.Message + additionalError;
  }

 }
 return retMsg;
}

private static string RemoveSpecialChars(ref string fileName)
{
 fileName = Regex.Replace(fileName, @"[^\w\.@-]", "");
 fileName = fileName.Replace("ª", "");
 fileName = fileName.Replace("º", "");
 return fileName;
}

>> CRM 4.0 - Converter System.DateTime para CRMDateTime

2008-12-10T05:50:00.000-08:00

public static CrmDateTime ConvertToCRMDateTime(DateTime dateTime)
{
CrmDateTime crmDateTime = new CrmDateTime();
crmDateTime.date = dateTime.ToShortDateString();
crmDateTime.time = dateTime.ToShortTimeString();
TimeSpan offset = TimeZone.CurrentTimeZone.GetUtcOffset(dateTime);
string sOffset = string.Empty;
if (offset.Hours < 0)
{
sOffset = "-" + (offset.Hours * -1).ToString().PadLeft(2, '0');
}
else
{
sOffset = "+" + offset.Hours.ToString().PadLeft(2, '0');
}

sOffset += ":" + offset.Minutes.ToString().PadLeft(2, '0');
crmDateTime.Value = dateTime.ToString(string.Format("yyyy-MM-ddTHH:mm:ss{0}", sOffset));

return crmDateTime;
}

>> CRM 4.0 Plugin - Dicas no uso do IPluginExecutionContext

2008-12-10T05:37:00.000-08:00

Segue algumas dicas no uso do parâmetro que é passado para nosso plugin, o IPluginExecutionContext.

1 - Detectar a Origem da execução do Plugin (Alteração ou Conversão de um registro em outro).

Por exemplo, para saber se a execução do seu Plugin tem como origem a Conversão de uma Quota em Pedido.

using System;
using Microsoft.Crm.Sdk;
using Microsoft.Crm.SdkTypeProxy;

public class Main_Plugin: IPlugin
{
public void Execute(IPluginExecutionContext context)
{
Boolean IsConvertionMode = (context.CallerOrigin.GetType() == typeof(AsyncServiceOrigin) && context.Depth > 1);

2 - Função genérica para recuperar o ID do registro do CRM para os Eventos de CREATE, UPDATE e DELETE.

public static Guid GetIDParam(DynamicEntity de, IPluginExecutionContext context, string propertyName)
{
Guid ret = Guid.Empty;

if (context.MessageName.Equals("Create"))
ret = (Guid)context.OutputParameters[ParameterName.Id];

else if (context.MessageName.Equals("Update"))
ret = ((Key)de.Properties[propertyName]).Value;

else if (context.MessageName.Equals("Delete"))
{
Moniker mon = (Moniker)context.InputParameters.Properties["Target"];
ret = mon.Id;
}

return ret;
}

3 - Passando dados entre Plugins

Compartilhar dados entre Plugins fica fácil com uso da Collection SharedVariables.

Imagine um Plugin de Account, com os Eventos de PRE-Update e POST-Update configurados. Uma determinada ação deverá ser tomada no evento de POST-Update; porém a ação somente será executada se ANTES da alteração do Account o registro possuia um status específico para um campo de Picklist.

Isto é possível 'guardando' o valor do Picklist na Collection SharedVariables (no PRE-Update) e consultando esta collection no POST-Update.

Segue template de código:

public class AccountPreHandler : IPlugin
{
public void Execute(IPluginExecutionContext context)
{
context.SharedVariables["statusAcct"] = [Get Picklist Value];
}
}

public class AccountPostHandler : IPlugin
{
public void Execute(IPluginExecutionContext context)
{
if (context.SharedVariables.Contains("statusAcct"))
{
int statusAcct = (int)context.SharedVariables["statusAcct"];
if (statusAcct==1)
// Do something...
}
}
}

>> Exchange Server & Active Sync Mobile

2008-12-05T07:58:00.000-08:00

Configurar o Pocket PC para sincronizar emails com o Exchange, a primeira vista, parece ser simples. Porém, na prática, não é!

Um colega de trabalho, na empresa que estou atuando no momento, estava com este problema. Pesquisando nos principais fóruns sobre o assunto (around the world!), notei que a dificuldade é geral, e não existe uma solução simples devido a própria natureza do processo.

Porém consegui uma solução para o caso dele, seguindo os seguintes passos:

1 - Habilitar acesso OWA no Exchange Server Manager;

2 - Habilitar acesso ao OWA para determinado usuário no AD;

3 - Windows HOSTS File

- No Exchange Server, editar o arquivo hosts em C:\windows\system32\drivers\etc;
- Adicionar Public IP e FQDN do Exchange server (Windows server name + domain name, NÃO o Internet domain);
>> 1.1.1.1 server.contoso.local

4 - Exchange Virtual Directory

Desabilitar a opção "forms-based authentication".

Abra o Exchange Manager. Expanda o nó [Administrative Groups], expanda o nó [first administrative group] e também o nó [Servers]. Expanda [Protocols], depois [HTTP]. Abaixo de [HTTP], clique com o botão direito do mouse em [Exchange Virtual Server], e escolha [Properties]. Clique na aba [Settings], e limpe o checkbox [Enable Forms Based Authentication] e clique em OK.

Fonte: http://support.microsoft.com/default.aspx/kb/817379

5 - IIS

- Habilitar Integrated Windows Authentication;
- Habilitar Basic Authentication (opcional);
- Habilitar Kerberos / NTLM Authentication.

DOS Command:

- Ir ao diretório de scripts:
cd Inetpub\Adminscripts

- Consultar o tipo de autenticação:
cscript adsutil.vbs get w3svc/1/root/NTAuthenticationProviders

- Configurar o tipo de autenticação NTLM:
cscript adsutil.vbs set w3svc/1/root/NTAuthenticationProviders "Negotiate,NTLM";

P.S.: w3svc/1/root/ - O número "1" representa "Default Web Site" no IIS.

Links úteis:

85010014 error - http://www.tech-archive.net/Archive/PocketPC/microsoft.public.pocketpc.activesync/2006-02/msg00293.html

Exchange ActiveSync Errors and Solutions - http://www.pocketpcfaq.com/faqs/activesync/exchange_errors.php

OMA in Exchange 2003 - http://www.petri.co.il/configure_oma.htm

>> CRM - Número Sequencial Aleatório em JavaScript

2008-12-04T05:02:00.001-08:00

O CRM possui, em algumas entidades, a geração automática de números sequenciais, como por exemplo na entidade Quota, no formato [COT-12345-SER43R].

Pensando nisto, criei um processo para fazer o mesmo (com exceção do número ser aleatório e não sequencial) totalmente em JavaScript.

P.S.: A função generateGuid() pode também ser útil em outros casos pois simula a geração do tipo GUID do banco de dados Sql.

Segue código template:

if (crmForm.FormType==1) // GERAR CÓDIGO SOMENTE NO CREATE DO FORM DO CRM
{
var seq = generateSeqNumber();
var seqPosStart = seq.length-4;
seq = seq.substr(seqPosStart,4);

var guid = generateGuid();
var guidPosStart = guid.length-6;
guid = guid.substr(guidPosStart,6);

crmForm.all.new_numerochamado.DataValue = "CHA-" + seq + "-" + guid;
}

function generateSeqNumber()
{
tmToday = new Date();
return String(tmToday.getTime());
}

function generateGuid()
{
var result, i, j;
result = '';
for(j=0; j<32; j++)
{
if( j == 8 j == 12 j == 16 j == 20)
result = result + '-';
i = Math.floor(Math.random()*16).toString(16).toUpperCase();
result = result + i;
}
return result;
}

>> [CRM + IE + [MaxConnPerServer=2]] = PostBack Errors

2008-12-01T10:36:00.000-08:00

Abri hoje um chamado na Microsoft para tentar solucionar um problema com o Dynamics CRM 4.0, referente a um estranho problema de travamento na conversão de Quota em Pedido.

O CRM até criava o pedido normalmente, porém travava o IE para atualizar os dados do Pedido criado.

Geramos um diagóstico completo do Server (CRM/SQL/IIS/AD) e nada de errado aparecia nos logs.

Então chegamos a conclusão que o problema estava no IE. Por padrão, o IE trabalha com no máximo 2 sessões de download. Porém, no caso do CRM, fica muito restrita esta configuração. Aumentamos para 10 conexões simultâneas e o problema foi resolvido.

Os passos para correção são:

Inicie o editor do Registry (Regedt32.exe).
Localize a seguinte chave:
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings

No menu [Editar], aponte para [Novo] e clique em [DWORD Value], então adicione os seguintes valores de chave:

Value name: MaxConnectionsPer1_0Server
Value data: 10
Base: Decimal

Value Name: MaxConnectionsPerServer
Value data: 10
Base: Decimal

P.S.: A Microsoft recomenda baixar o número de conexões indicada no KB até que o erro volte a ocorrer.

Fonte: http://support.microsoft.com/kb/282402

>> Microsoft CRM Diagnostics Tool 4

2008-12-01T08:54:00.000-08:00

Para uma análise detalhada do Servidor do CRM 4.0, segue dica da ferramenta de Diagnóstico que coleta uma grande quantidade de informações, sendo elas:

CRM Server Report
– System Information
– Environment Variables
– TCPIP Parameters Registry
– Boot.ini Content
– .Net Framework Registration
– CRM Services Status and Logon Info
– CRM Registry Keys
– CRM Installed Files
- %ProgramFiles%
- GAC
– Web Sites Bindings
– ApplPool Indentities
– CRM WebSite Authentication
– SQL Server Information
– CRM System Settings
– CRM AD Groups Information
– Organization and Deployment Informations

(retrieve by SDK or SQL queries)

- SRS Data Connector Report
– System Information
– Environment Variables
– SRS Data Connector Installed files
- %ProgramFiles%\CRM Data Conn
- %ProgramFiles%\ReportServer
– ReportServer Settings (WMI)
– Report Manager Settings (WMI)
– RSReportServer.config content
– RSSrvPolicy.config content
– SRSDataConnectorSetup.log
- CRM E-Mail Router Report
– System Information
– Environment Variables
– CRM E-Mail Router nstalled files
– CRM E-Mail Router Service Info
– Microsoft.Crm.Tools.EmailAgent.Xml content
– Crm40ExchangeSetup.log

Segue aparência da Ferramenta:

Link para Download: http://cid-9c1e3e43c991888d.skydrive.live.com/self.aspx/Microsoft%20CRM%20Support%20Tools/CrmDiagTool4.zip

Fonte da Matéria: http://blogs.msdn.com/benlec/archive/2008/03/04/crmdiagtool4-for-microsoft-crm-4-0-has-been-released.aspx

>> CRM 4.0 - Exclusão física de registros

2008-11-27T08:53:00.000-08:00

O serviço de exclusão física de registros no CRM 4.0 mudou desde a versão anterior (3.0). O processo de exclusão é gerenciado pelo mesmo sistema que controla Triggers de Workflows e todos os jobs de processos assíncronos, como o Duplicate Detection e a chamada de plugins assíncronos (CrmAsyncService.exe). O tempo padrão é de 1440 minutos (24 hs) para o serviço de exclusão física de registros (tabela ScaleGroupOrganizationMaintenanceJobs do BD MSCRM_CONFIG). Segue link para baixar utilitário para poder mudar este tempo.

http://code.msdn.microsoft.com/ScaleGroupJobEditor/Release/ProjectReleases.aspx?ReleaseId=676

Se desejar "forçar" a exclusão física dos registros, podemos fazer isto por executar um Update na tabela de Jobs do CRM da seguinte forma:

USE MSCRM_CONFIG
UPDATE ScaleGroupOrganizationMaintenanceJobs
SET NextRunTime = getdate() -- Right Now!
WHERE OperationType = 14 -- Deletion Service

Após o Update, reinicie o serviço assíncrono do CRM.

>> Dicas JavaScript (ASP.NET & MSCRM 4.0)

2008-11-27T03:43:00.000-08:00

Segue abaixo códigos JavaScript úteis no desenvolvimento ASP.NET e também para uso no Microsoft Dynamics CRM 4.0:

JS ASP.NET - Função para obter o valor de algum dos parâmetros da Query String da página.

function getQueryStringParam(name)
{
name = name.replace(/[\[]/,"\\\[").replace(/[\]]/,"\\\]");
var regexS = "[\\?&]"+name+"=([^&#]*)";
var regex = new RegExp( regexS );
var results = regex.exec( window.location.href );
if( results == null ) return "";
else
return results[1];
}

JS ASP.NET - Função para Converter o primeiro caractere de toda frase em Maiúsculo.

function UCWords(str)
{
var arrStr = str.split(" ");
var strOut = "";
var i = 0;
var stringValues = "da-de-do-das-dos";
while (i < arrStr.length)
{

if (stringValues.indexOf(arrStr[i].toLowerCase()) < 0)
{
firstChar = arrStr[i].substring(0,1);
remainChar = arrStr[i].substring(1);
firstChar = firstChar.toUpperCase();
remainChar = remainChar.toLowerCase();
strOut += firstChar + remainChar + ' ';
}
else
strOut += arrStr[i] + ' ';

i++;
}
return strOut.substr(0,strOut.length - 1);
}

JS ASP.NET - Adicionar / Remover itens em um DropDownList.

function ClearDropDownList(list)
{
for(i=list.options.length-1; i>=0 ;i--)
{
list.remove(i);
}
}
function addDropDownListOption(list, text, value)
{
var optn = document.createElement("OPTION");
optn.text = text;
optn.value = value;
list.options.add(optn);
}

JS MSCRM 4.0 - Validação de campo Data via JavaScript.

if (ValidateDate(crmForm.all.requestdeliveryby))
{
// Custom code...
}

function ValidateDate(field){
var checkstr = "0123456789";
var DateField = field;
var Datevalue = "";
var DateTemp = "";
var seperator = ".";
var leap = 0;
var err = 0;
var i;
err = 0;
var day = DateField.DataValue.getDate();
var month = (DateField.DataValue.getMonth()+1);
var year = DateField.DataValue.getYear();
DateValue = day + "/" + month + "/" + year;
/* Delete all chars except 0..9 */
for (i = 0; i < DateValue.length; i++) {
if (checkstr.indexOf(DateValue.substr(i,1)) >= 0) {
DateTemp = DateTemp + DateValue.substr(i,1);
}
}
DateValue = DateTemp;
/* Validation of month*/
if ((month < 1) || (month > 12)) {
err = 21;
}
/* Validation of day*/
if (day < 1) {
err = 22;
}
/* Validation leap-year / february / day */
if ((year % 4 == 0) || (year % 100 == 0) || (year % 400 == 0)) {
leap = 1;
}
if ((month == 2) && (leap == 1) && (day > 29)) {
err = 23;
}
if ((month == 2) && (leap != 1) && (day > 28)) {
err = 24;
}
/* Validation of other months */
if ((day > 31) && ((month == "01") || (month == "03") || (month == "05") || (month == "07") || (month == "08") || (month == "10") || (month == "12"))) {
err = 25;
}
if ((day > 30) && ((month == "04") || (month == "06") || (month == "09") || (month == "11"))) {
err = 26;
}
/* if 00 ist entered, no error, deleting the entry */
if ((day == 0) && (month == 0) && (year == 00)) {
err = 0; day = ""; month = ""; year = ""; seperator = "";
}
if (err != 0)
{
alert("Data Inválida!");
DateField.focus();
}
return (err == 0);
}

JS MSCRM 4.0 - Inserir / Formatar objetos dinamicamente na página do CRM.

with(crmForm.all.new_labelicms)
{
style.border = 0;
style.color = '#6699cc';
style.fonteSize = '7px';
style.fontWeight = 'bold';
style.overflow = 'hidden';
Disabled = true;
DataValue = 'Obs % ICMS: No caso de venda direta...'
}

/* Insert Adjacent Elements */
var server = window.location.host;
var oImg = document.createElement("<" + "img src='http://" + server + "/_imgs/ico/16_alert.gif'" + " />");
var oHr = document.createElement("<" + "HR class='ms-crm-MenuList-Spacer'" + ">");
var oSpn = document.createElement("<" + "span" + ">");
oSpn.innerText = ' Observações';
oSpn.style.fontWeight = 'bold';
crmForm.all.mit_labelicms.insertAdjacentElement("BeforeBegin",oImg);
crmForm.all.mit_labelicms.insertAdjacentElement("BeforeBegin",oSpn);
crmForm.all.mit_labelicms.insertAdjacentElement("BeforeBegin",oHr);

JS MSCRM 4.0 - AJAX no CRM - Chamada assíncrona em um Web Services Customizado.

function FillUOMProduct()
{
var xmlHttpRequest = new ActiveXObject("Msxml2.XMLHTTP");
var server = window.location.host;
var params = "?productID=" + crmForm.all.productid.DataValue[0].id;
params += "&fields=productnumber,defaultuomid";
var url="http://"+ server+"/WebServicesCRM/Product.asmx/GetProductById"+params;
xmlHttpRequest.open("GET", url, true);
xmlHttpRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");
xmlHttpRequest.setRequestHeader ("SOAPAction", "http://tempuri.org/GetProductById");
xmlHttpRequest.onreadystatechange = HandleStateChangeProduct;
xmlHttpRequest.send();
}

function HandleStateChangeProduct()
{
if (xmlHttpRequest.readyState == 4)
{
var doc = new ActiveXObject('Microsoft.XMLDOM');
var result = xmlHttpRequest.responseXML.xml;
doc.loadXML(result);
}
}

>> CRM 4.0; IE6; KB953838; Error!!

2008-11-19T07:21:00.000-08:00

Após efetuar um Security Update (KB953838) do Windows, teremos um repetitivo "File Download for Blank.aspx" no CRM 4.0.

Soluções:

1 - Instalar o IE7, ou:
2 - Desinstalar o KB953838, ou:
3 - Efetuar o download da Blank.aspx (qq diretório); right-click no arquivo -> Abrir como -> Escolher Programa -> selecionar IE, marcando o checkbox para sempre usar este tipo de programa;

>> Unable to Load Client Print Control - CRM 4.0

2008-11-19T05:22:00.000-08:00

Recentemente, no cliente que estou atuando (com o Microsoft Dynamics CRM 4.0) houve uma reclamação de um erro ao tentar imprimir um relatório desenvolvido no Reporting Services.

Pesquisando sobre o assunto e a mensagem de erro descobri a causa, um HotFix de Segurança da Microsoft (KB956391).

Para solucionar o problema, vai ser necessário atualizações de Service Packs, do Report Viewer e do Sql Server (2005 / 2008).

Segue links para Download dos pacotes:

Microsoft Report Viewer Redistributable 2005 Service Pack 1
http://www.microsoft.com/downloads/details.aspx?FamilyID=82833f27-081d-4b72-83ef-2836360a904d&DisplayLang=en

Security Update for SQL Server 2005 Service Pack 3
http://www.microsoft.com/downloads/details.aspx?displaylang=en&FamilyID=ae7387c3-348c-4faa-8ae5-949fdfbe59c4

______________________________________________________________________

Microsoft Report Viewer Redistributable 2008 Service Pack 1
http://www.microsoft.com/downloads/details.aspx?displaylang=en&FamilyID=bb196d5d-76c2-4a0e-9458-267d22b6aac6

Security Update for SQL Server 2008 Service Pack 1
http://www.microsoft.com/downloads/details.aspx?displaylang=en&FamilyID=66ab3dbb-bf3e-4f46-9559-ccc6a4f9dc19

P.S.: Se o servidor do [Reporting Services] não for o mesmo do [Sql Server], existe a necessidade da instalação do [Microsoft Dynamics CRM Data Connector for Reporting Services] no servidor do Sql Server, para que a autenticação funcione corretamente na execução de relatórios pelo CRM.

>> ResizeControls - aspx

2008-11-18T11:05:00.000-08:00

Gostaria de deixar os objetos de uma aspx sempre com a altura da janela do browser?

Adicione o código abaixo no html de sua página:

P.S.: Execute a função resizeControls() do método onresize do BODY da página.

>> Busca do ID de um Web Site no IIS

2008-11-18T10:30:00.000-08:00

Segue código Template para encontrar o ID de um determinado projeto Web no IIS:

<< C# - VS.NET 2005 - Console Application >>

using System.DirectoryServices;
using System;

public class IISAdmin
{
public static void GetWebsiteID(string websiteName)
{
DirectoryEntry w3svc = new DirectoryEntry("IIS://localhost/w3svc");

foreach(DirectoryEntry de in w3svc.Children)
{
if(de.SchemaClassName == "IIsWebServer" && de.Properties["ServerComment"][0].ToString() == websiteName)
{
Console.Write(de.Name);
}

}

}
public static void Main()
{
GetWebsiteID("Default Web Site");
}

}

>> .NET 2.0 - Chamada Web Services - Sem "Add Web References"

2008-11-18T10:05:00.000-08:00

Segue exemplo de código para chamada a Web Services sem a necessidade de adição da referência web no projeto.

Basta passar para a função "CallWebServices" a URL, o nome da função e os parâmetros do Web Services.

Exemplo de uso da função:

using System.Xml;
using System.Collections;
using System.Collections.Generic;
using System.Text;

List<'Hashtable> oParams = new List<'Hashtable>();
Hashtable ht1 = new Hashtable();
ht1.Add("paramName", "productid");
ht1.Add("paramValue", "413D080B-09A7-DB11-89C7-0016356BE094");
oParams.Add(ht1);

string xml = CallWebServices("http://localhost/MyWS/product.asmx", "GetProductPriceList", oParams);

public static string CallWebServices(string url, string functionName, List<'Hashtable> oParams)
{
HttpWebRequest request = (HttpWebRequest)WebRequest.Create(url);
request.Credentials = System.Net.CredentialCache.DefaultCredentials;
request.Headers.Add("SOAPAction", "\"http://tempuri.org/" + functionName + "\"");
request.Method = "POST";
request.ContentType = "text/xml; charset=utf-8";
request.Accept = "text/xml";
request.Timeout = 10000;
Stream requestStream = request.GetRequestStream();
string soapEnvelope = "";
soapEnvelope += " soapEnvelope += " xmlns:xsi=\"http://www.w3.org/2001/XMLSchema-instance\"";
soapEnvelope += " xmlns:xsd=\"http://www.w3.org/2001/XMLSchema\"";
soapEnvelope += " xmlns:soap=\"http://schemas.xmlsoap.org/soap/envelope/\">";
soapEnvelope += " ";
soapEnvelope += " <" + functionName + " xmlns=\"http://tempuri.org/\">";
if (oParams.Count > 0)
{
Boolean hashListOk = (oParams[0].Contains("paramName") && oParams[0].Contains("paramValue"));
if (!hashListOk) return string.Empty;
foreach (Hashtable ht in oParams)
{
soapEnvelope += "<" + ht["paramName"].ToString() + ">" + ht["paramValue"].ToString() + "";
}
}
soapEnvelope += " ";
soapEnvelope += " ";
soapEnvelope += " ";
// Convert the string into a byte array.
ASCIIEncoding encoder = new ASCIIEncoding();
byte[] ByteArray = encoder.GetBytes(soapEnvelope);
// Write data to the stream.
requestStream.Write(ByteArray, 0, ByteArray.Length);
requestStream.Flush();
requestStream.Close();
StreamReader esr = null;
string result = string.Empty;
try
{
esr = new StreamReader(request.GetResponse().GetResponseStream());
result = esr.ReadToEnd();
}
catch (System.Web.Services.Protocols.SoapException ex)
{
string x = ex.Detail.InnerText;
}
catch (Exception ex)
{
string x = ex.Message;
}
return result;
}

>> Artigos - ASP.NET 1.1

2008-11-18T06:53:00.000-08:00

Olá pessoal,

Gostaria de compartilhar com vocês algumas dicas e códigos para facilitar no entendimento e desenvolvimento na plataforma .NET, mais especificamente no ASP.NET 1.1 (em breve também para as versões 2.0 e 3.5) .

Abaixo segue links de artigos que publiquei no site do msdn para desenvolvedores, o SharePedia (http://www.msdnbrasil.com.br/Sharepedia/).

P.S.: Para baixar os artigos, é necessária uma conta no Passport.NET ou Windows Live da Microsoft.

- Navegando entre Forms - http://www.msdnbrasil.com.br/secure/sharepedia/download.aspx?id=52345

- Mantendo informações de estado em uma aplicação Web - http://www.msdnbrasil.com.br/secure/sharepedia/download.aspx?id=52270

- Entendendo Transações - http://www.msdnbrasil.com.br/secure/sharepedia/download.aspx?id=52644

- Autenticação e autorização de usuários - segurança na sua aplicação Web - PARTE I - http://www.msdnbrasil.com.br/secure/sharepedia/download.aspx?id=52199

- Autenticação e autorização de usuários - segurança na sua aplicação Web - PARTE II - http://www.msdnbrasil.com.br/secure/sharepedia/download.aspx?id=52200

- Autenticação e autorização de usuários - segurança na sua aplicação Web - PARTE III - http://www.msdnbrasil.com.br/secure/sharepedia/download.aspx?id=52201

- WebApp - Trabalhando com objetos – Parte I - http://www.msdnbrasil.com.br/secure/sharepedia/download.aspx?id=52266

- WebApp - Trabalhando com objetos – Parte II - http://www.msdnbrasil.com.br/secure/sharepedia/download.aspx?id=52267

- Tratamento de erros/exceptions - ASP.NET - http://www.msdnbrasil.com.br/secure/sharepedia/download.aspx?id=52034