Typecast Inválido No Fonte.

[ServerInfo]

Arquivo: ACBrNFSeWebServices.pas

Linha 2573

 

Trocado o typecast de TNFSeEnviarLoteRPS para  TNFSeGerarLoteRPS

 

 

=      proTecnos: vNotas := vNotas +
=                             '<' + Prefixo4 + 'Rps>' +
=                               '<' + Prefixo4 + 'tcDeclaracaoPrestacaoServico' +
-                                 RetornarConteudoEntre(TNFSeEnviarLoteRPS(Self).FNotasFiscais.Items[I].XML_Rps_Ass,
=                                   '<' + Prefixo4 + 'tcDeclaracaoPrestacaoServico', '</Signature>') +
=                               '</Signature>'+
=                              '</' + Prefixo4 + 'Rps>';

 

 

=      proTecnos: vNotas := vNotas +
=                              '<' + Prefixo4 + 'Rps>' +
=                               '<' + Prefixo4 + 'tcDeclaracaoPrestacaoServico' +
+                                 RetornarConteudoEntre(TNFSeGerarLoteRPS(Self).FNotasFiscais.Items[I].XML_Rps_Ass,
=                                   '<' + Prefixo4 + 'tcDeclaracaoPrestacaoServico', '</Signature>') +
=                               '</Signature>'+
=                              '</' + Prefixo4 + 'Rps>';

 

Por favor incorporar as alterações no projeto.

ACBrNFSeWebServices.pas

Editado 17 Março, 2015 por ServerInfo

[Juliomar Marchetti]

Boa tarde

favor anexar o arquivo ao post ! não cole trecho de códigos!

para isso é só clicar no botão mais opções na caixa onde  digita o post!

[ServerInfo]

Boa tarde

favor anexar o arquivo ao post ! não cole trecho de códigos!

para isso é só clicar no botão mais opções na caixa onde  digita o post!

 

Editado. Obrigado

[Juliomar Marchetti]

A equipe agradece a correção!

 

já está no svn!

 

Obrigado