Ir para conteúdo
  • Cadastre-se

joaolenosi

Membros
  • Total de ítens

    216
  • Registro em

  • Última visita

Reputação

8 Neutro

Sobre joaolenosi

  • Rank
    Membro

Últimos Visitantes

O bloco dos últimos visitantes está desativado e não está sendo visualizado por outros usuários.

  1. Ok, muitíssimo obrigado!
  2. Boa tarde, Ítalo ! Não existe nenhum proxy, obrigado pela a resposta! Só mais uma dúvida, o campo senha e usuário lá na parte inferior, corresponde ao usuário e senha criado no ambiente de homologação (WebISS)?
  3. joaolenosi

    Configuração NFS-e WebISS

    Boa tarde! Estou iniciando a implementação da NFS-e utilizando o provedor WebISS. Preenchi o exemplo ACBrNFSe corretamente as seguintes abas: Emitente Certificado Geral Mas estou com dúvidas como preencher a aba WebService. Os campos: Host e Porta, como devem ser preenchidos? Quanto ao campo usuário e senha corresponde ao usuário que foi criado no ambiente de homologação? Segue o print.
  4. Olá, amigos! Estou utilizando uma impressora de Bematech MP100S TH e ao realizar uma impressão, está saindo nela e na impressora default do windows. Sabem como resolver esse problema? Já tentei setar a porta, mas o problema persiste.
  5. Muito obrigado, Italo! Vou ficar verificando direto para ver se já está disponível. Assim que efetuar todos os testes, eu posto novamente para dizer se está tudo ok.
  6. Italo, o erro que mencionei no post foi resolvido, porém outro erro aconteceu. Demorei a dar o feedback por que estava debugando. Segue os prints do erro. Te adianto que o problema era que estava faltando abrir " na tag do tinus e o nome também estava escrito errado: inus.com.br Solução do problema: A alteração foi realizada na unit ACBrDFeCapicom procedure TDFeCapicom.VerificarValoresPadrao(var SignatureNode: String; var SelectionNamespaces: String); begin if SignatureNode = '' then SignatureNode := CAPICOM_SIGNATURE_NODE; SelectionNamespaces := StringReplace(SelectionNamespaces, 'xmlns:ds1=inus.com.br"', 'xmlns:ds1="tinus.com.br"', [rfIgnoreCase]); if SelectionNamespaces = '' then SelectionNamespaces := DSIGNS else begin if LeftStr(SelectionNamespaces, Length(DSIGNS)) <> DSIGNS then SelectionNamespaces := DSIGNS + ' ' + SelectionNamespaces; end; end; Eu dei um replace por que não consegui localizar de onde tava vindo o valor. O último problema que está acontecendo é na hora ler o elemento de assinatura XMLDOC. Segue o print: Trecho do código: if (not xmldoc.loadXML( WideString(AXml) )) then raise EACBrDFeException.Create('Não foi possível carregar XML'+sLineBreak+ AXml); xmldoc.setProperty('SelectionNamespaces', SelectionNamespaces); //DEBUG //xmldoc.save('c:\temp\xmldoc.xml'); // Criando Elemento de assinatura // xmldsig := CoMXDigitalSignature50.Create; // Lendo elemento de Assinatura de XMLDOC // xmldsig.signature := xmldoc.selectSingleNode( WideString(SignatureNode) ); if (xmldsig.signature = nil) then raise EACBrDFeException.Create('É preciso carregar o template antes de assinar.'); Valor das variáveis: SignatureNode = .//ds1:EnviarLoteRpsEnvio/ds:Signature xmldsig.signature = nil
  7. Exatamente, estou utilizando o método GerarLote. Vou atualizar e posto o feedback!
  8. Desculpe-me, Italo! Estou emitindo para cidade de Mossoró provedor Tinus. Aqui não possui webservices é apenas a geração do XML e upload manual.
  9. Bom dia! Acabei de atualizar todos os componentes, quando estou gerando o RPS ou um Lote de RPS estou recebendo a seguinte mensagem: Já debuguei o código, e ele está parando aqui: function TDFeSSLClass.AdicionarSignatureElement(ConteudoXML: String; AddX509Data: Boolean; docElement, IdSignature: String): String; var URI, TagEndDocElement: String; I: Integer; begin URI := ExtraiURI(ConteudoXML); TagEndDocElement := '</' + docElement + '>'; I := PosLast(TagEndDocElement, ConteudoXML); if I = 0 then raise EACBrDFeException.Create('Não encontrei final do elemento: ' + TagEndDocElement); Result := copy(ConteudoXML, 1, I - 1) + SignatureElement(URI, AddX509Data, IdSignature) + TagEndDocElement; end; Os valores das variáveis:
  10. Bom dia, Caros amigos. Estou com um problema ao imprimir um Lote de RPS. Debugando o código notei que o ACbr está com problema na contagem do número de notas. O trecho de código retirado da Unit ACBrNFSeDANFSeFR é o seguinte: if Assigned(ACBrNFSe) then begin for I := 0 to TACBrNFSe(ACBrNFSe).NotasFiscais.Count - 1 do begin // dmDanfse.NFSe := TACBrNFSe(ACBrNFSe).NotasFiscais.Items[I].NFSe; CarregaDados(TACBrNFSe(ACBrNFSe).NotasFiscais.Items[I].NFSe); if (I > 0) then Result := frxReport.PrepareReport(False) else Result := frxReport.PrepareReport; end; end O XML que estou utilizando para realizar a impressão só possui dois RPS´s, porém essa linha: TACBrNFSe(ACBrNFSe).NotasFiscais.Count - 1 está retornando 3 registros que subtraído por -1 vai ser igual a 2. Mas como o índice começa de 0, nós temos três interações que são elas 0,1 e 2, desta forma gerando um erro na impressão. Segue em anexo o XML do RPS gerado e o print do debug. Ainda estou analisando o código para ver se o encontro uma solução definitiva. 0000009-lot-rps.xml
  11. Ah entendi. PROBLEMA RESOLVIDO. Solução: Reinstalei o Delphi XE10 e todos os componentes que o ACBr utiliza, depois instalei o ACBr e ficou tudo funcionando.
  12. Acredito que sim. Tô falando do PATH deste caminho: 1) menu Tools->Options-> Environment Variables, 2) Procure na lista "System Variables" a opção "Path" e selecione. Isso no XE10
  13. Régys faz sim, mas você deve remover de System Variables as referência das outras versões.
  14. Eu já tinha feito esse processo que Isaque ensinou. O único problema é com os componentes que tem terminações FR. Tô reparando o delphi XE10 e desinstalei o ACBr do Delphi 7. Vou fazer o processo todo novamente para ver se da certo.
  15. Bom dia, Juliomar! Já fiz esse processo duas vezes e o problema persiste. Me diga uma coisa, é possível ter instalado o ACBr na versão do Delphi 7 e Xe10 no mesmo computador? Ou esse problema não tem relação?
×