Erro na TACBrECFBematech.ArquivoMFD_DLL

[iran]

O Erro ocorre ao pegar o endereço do ClicheSL[1] que está vaizio , no clicheSL[0] e retornado todo o Cliche, acredito que não esteja quebrando as linas no vetor.

  { Obtendo Dados do Usuário }

  ClicheSL  := TStringList.Create ;

  cRazao    := '' ;

  cEndereco := '' ;

  try

     try

        ClicheSL.Text := Cliche ;

        cRazao        := ClicheSL[0] ;  

        cEndereco     := ClicheSL[1] ;  // O erro ocorre aqui. 

     except

     end ;

  finally

     ClicheSL.Free ;

  end ;

[augustonascimento]

A variável Cliche é de qual tipo?

Tem certeza que ele possui mais de uma linha?

Existe uma quebra entre o texto? Por Exemplo: "#13#10"?

Tenta fazer assim:

  ClicheSL  := TStringList.Create ;

  cRazao    := '' ;

  cEndereco := '' ;

  try

     try

        ClicheSL.AddStrings(TStringList(Cliche));

        cRazao        := ClicheSL.Strings[0] ;  

        cEndereco     := ClicheSL.Strings[1] ;

     except

     end ;

  finally

     ClicheSL.Free ;

  end ;

o TStringList transforma o "Cliche" em uma lista com as quebras e o "AddStrings" adiciona ele à outra StringList;

Não tenho como testar agora, se não der certo assim, faço alguns testes depois!

[Edit] Não sei se o "AddStrings(TStringList(Cliche))" vai funcionar como o esperado, o ".Text := " também faz a quebra, de um Count na StringList para saber quantas linhas tem a Lista, e ter certeza que está havendo quebra!

[Daniel Simoes]

Pode ser que a empresa de lacração não tenha feito um "bom serviço" e não tenha inserido a quebra de linha no Cliche....

Acho que podemos fazer essa atribuição num Try/Except... mas nesse caso a variável cEndereco sempre ficaria vazia

[EMBarbosa]

Na verdade, a melhor coisa mesmo me parece que seria substituir as funções atuais (Bematech_FI_DownloadMFD e BemaGeraRegistrosTipoE) pela outra função da Bematech (a saber Bematech_FI_ArquivoMFD)...

Reduziria o código e os possíveis erros incluindo esse daí. Também resolveria o problema de gerar o arquivo do tipo MF.

[iran]

Bom dia Augusto,

A variável Cliche é de qual tipo?

Property Cliche : String read GetCliche ; //IMS 28/09/2009

Tem certeza que ele possui mais de uma linha?

Só tem uma linha com todos os dados da empresa.

Existe uma quebra entre o texto? Por Exemplo: "#13#10"?

Não existe quebra de linha

o TStringList transforma o "Cliche" em uma lista com as quebras e o "AddStrings" adiciona ele à outra StringList;

Não funcionou da violação de acesso ao tentar converter.