PROBLEMA: Caixa de mensagem de erro em branco aparece no documento do BizTalk Server controle

Traduções deste artigo Traduções deste artigo
ID do artigo: 825993 - Exibir os produtos aos quais esse artigo se aplica.
Expandir tudo | Recolher tudo

Sintomas

Ao iniciar o controle de documento do Microsoft BizTalk Server, uma caixa de mensagem de erro aparece chamado VBScript: controle de documento do BizTalk erro . Esta caixa de mensagem erro não contém texto. Ele contém um ícone de aviso e um OK botão. Quando você clicar em OK , a maioria dos controles no documento BizTalk controle página está desabilitada.

Causa

Um bug existe no script de contidas no arquivo Submit.htm faz com que esse problema. Esse arquivo está localizado na pasta Program Files\Microsoft BizTalk Server\BizTalkTracking.

Esse problema ocorre se organização pelo menos um nome que aparece no banco de dados InterchangeBTM e o banco de dados InterchangeDTA é uma seqüência de caracteres que avalia um número (por exemplo, "123"). Se esse tipo de seqüência de caracteres é passado para os controles TreeView que contém a página, você receberá a caixa de mensagem erro em branco.

Como Contornar

Para contornar este problema, use um dos seguintes métodos:
  • método 1
    Altere os nomes de organização que aparecem no banco de dados InterchangeBTM e no banco de dados InterchangeDTA para que todos os nomes de organização iniciar com um caractere alfa. Por exemplo, se um nome de organização começar com 123 , altere o nome para que ele seja iniciado com _123 .
  • método 2
    Alternativa a restrição do controle TreeView , modificando a sub-rotina PopulateSourceSelection e o sub-rotina PopulateDestSelection que estão no arquivo Submit.htm da seguinte maneira:
    Private Sub PopulateSourceSelection()
        '//Called from:  window_onload
        '//Description:  Populates Source Selection
    Dim rsDef
    Dim rsSrc
    Dim strTempOrg
    Dim strSrcOrg
    Dim strSrcApp
    strTempOrg = ""
    set rsDef = DSC1.RecordsetDefs.AddNew(SP_GET_SELECTION_SRC,4,"SourceSelection")
    set rsSrc = DSC1.Execute("SourceSelection")
    Do While Not rsSrc.EOF 'Check for end of recordset.
    strSrcOrg = CStr(rsSrc.Fields("nvcSrcOrgName"))
    strSrcOrg2 = strSrcOrg
    If IsNumeric(strSrcOrg2) Then 'Check for Numeric Orgs
    'Add an underscore character (_) to work around the TreeView limitations.
    strSrcOrg2 = "_" & strSrcOrg2
    End If
    If strSrcOrg <> strTempOrg Then 'Check for empty or the same org.
    'Add Org to the root node.
    tvSource2.Nodes.Add ,, strSrcOrg2, strSrcOrg
    strTempOrg = strSrcOrg
    End If
    'Add the App as a child node to the Org *****
    strSrcApp = Trim(CStr(rsSrc.Fields("nvcSrcAppName") & ""))
    dim newnode
    set newnode = tvSource2.Nodes.Add (strSrcOrg2, 4, strSrcOrg & SEP_TREEVIEWKEY_ORGAPP & strSrcApp, strSrcApp)
    if strSrcApp = "" then
    newnode.text = L_TreeCtrlEntryForNoApp_Text
    end if
    rsSrc.MoveNext
    Loop
    'You no longer need the recordset. Delete it.
    DSC1.RecordsetDefs("SourceSelection").Delete
    End Sub
    
    Private Sub PopulateDestSelection()
        '//Called from: window_onload
        '//Description: Populates Destination Selection
    Dim rsDef
    Dim rsDest
    Dim strTempOrg
    Dim strDestOrg
    Dim strDestOrg2
    Dim strDestApp
    strTempOrg = ""
    set rsDef = DSC1.RecordsetDefs.AddNew(SP_GET_SELECTION_DEST,4,"DestinationSelection") 
    set rsDest = DSC1.Execute("DestinationSelection")
    Do While Not rsDest.EOF 'Check for end of recordset.
    strDestOrg = CStr(rsDest.Fields("nvcDestOrgName"))
    strDestOrg2 = strDestOrg 
    If IsNumeric(strDestOrg2) Then 'Check for Numeric Orgs
    'Add an underscore character (_) to work around the TreeView limitations.
    strDestOrg2 = "_" & strDestOrg2
    End If
    If strDestOrg <> strTempOrg Then 'Check for empty or the same org.
    tvDestination2.Nodes.Add ,, strDestOrg2, strDestOrg 
    strTempOrg = strDestOrg
    End If
    '********* Add the App as a child node to the Org. *****
    strDestApp = Trim(CStr(rsDest.Fields("nvcDestAppName") & ""))
    dim newnode
    set newnode = tvDestination2.Nodes.Add (strDestOrg2, 4, strDestOrg & SEP_TREEVIEWKEY_ORGAPP & strDestApp, strDestApp)
    if strDestApp = "" then
    newnode.text = L_TreeCtrlEntryForNoApp_Text
    end if
    rsDest.MoveNext
    Loop
    'Delete the recordset 
    DSC1.RecordsetDefs("DestinationSelection").Delete
    End Sub

Situação

Esse comportamento é por design.

Referências

Para obter informações adicionais, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft:
204054PROBLEMA: Erro 35603 "Chave inválida" com TreeView ou controle ListView

Propriedades

ID do artigo: 825993 - Última revisão: quarta-feira, 8 de outubro de 2003 - Revisão: 1.3
A informação contida neste artigo aplica-se a:
  • Microsoft BizTalk Server 2002 Standard Edition
  • Microsoft BizTalk Server 2000 Standard Edition
Palavras-chave: 
kbmt kbprb KB825993 KbMtpt
Tradução automática
IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 825993

Submeter comentários

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com