Compusofts

Boa tarde @Daniel Simoes Peguei outro cartão aqui conforme você falou ali que o cartão estava sendo recusado, e ai fazendo outros testes reparei o seguinte: Se eu chamo a função como tefmfAVista ele já vai pra venda a vista certinho. Se eu chamo passando que quero parcelado pelo estabelecimento tefmfParceladoEstabelecimento, ele não pergunta a parte de Cartão a vista ou não, ele vai direto para Crediário, o que dava impressão pra mim que seria o parcelado, até porque na sequência ele pede as parcelas. Se eu chamo sem especificar nada, ai ele pergunta primeiro se é crédito parcelado ou não, depois ainda pergunta se é creditário ou não, ai pergunta as parcelas. Nesse cenário aqui, se eu escolher que Não é Crédito A Vista e que Não é crediário, ai sim consigo fazer a venda parcelada, inclusive com o cartão que usei no log anterior.

Boa tarde, Isso mesmo, ambiente de homologação. Tentei com valores diversos. Acabo de testar com 100,00 redondo e também ocorreu o problema. Anexei o log do DEMO, como o teste no valor de 100,00 reais... onde a única coisa que alterei para testar foi acrescentar o "tefmfParceladoEstabelecimento" na chamada para forçar chamar a prazo, ficando o comando da seguinte maneira: Ok := ACBrTEFAPI1.EfetuarPagamento( IntToStr(Venda.NumOperacao), AValor, Modalidade, CartoesAceitos, tefmfParceladoEstabelecimento); No exemplo do log, abri uma venda de 100,00 reais, escolhi crediário como Sim, ele deu Dados Inválidos, na sequência ele pede novamente se é crediário ou não, ai coloquei não e estoura erro na tela. LogScope.txt

Bom dia Estou fazendo a integração com o TEF Scope via API e não estou conseguindo fazer funcionar a venda crédito parcelada. Estou fazendo a chamada de transação da seguinte maneira: Ok:= ACBrTEFAPI1.EfetuarPagamento( IntToStr(Venda.NumOperacao), valortotal, Modalidade, CartoesAceitos, tefmfParceladoEstabelecimento ); Ao começar a transação dessa maneira, ele pergunta se é crediário, coloco que sim, ele pede as parcelas, ao colocar 2 recebo valores inválidos e volta para a pergunta se é crediário. Caso coloque Não, dá Erro: 65296 - FF 10. No portal da Scope essa transação fica registrada como "Simulação Crediário Crédito" e com Status "Finalizada real-time". Está errada essa chamada ?

Bom dia @Daniel Simoes Falei com o pessoal da Scope no grupo do Telegram e me passaram que só retornaria após o fluxo aprovado. Estou vendo mais detalhadamente com eles ainda pois antes de iniciar o processo nos foi passado que seria possível obter essa informação no meio do fluxo.

Bom dia @Daniel Simoes Consegui fazer o teste, porém ele sempre trás 0 na bandeira, mas vou conversar melhor com o pessoal da Scope pra ver se deveria vir o valor nesse momento. Pelo que eles nos passaram inicialmente sim, mas pelo que tenho acompanhado no grupo deles no Telegram, estou desconfiado que no fluxo não retorna antes da aprovação do pagamento.

Boa tarde @Daniel Simoes Acabei não vendo a mensagem anterior sobre enviar o log. Me desculpe. Opa, muito obrigado. Vou fazer o teste aqui dessa última parte que você passou. Muito obrigado.

Bom dia @Daniel Simoes Exatamente, o número 2 significa que é o cartão Mastercard. Existe uma tabela com esses códigos. Essa tabela está dentro do manual "NCR Manual de Integração Scope.pdf", iniciando na página 336. Sobre o que vc falou "mas isso poderia ser implementado". Você acha que é complexo / demorado de ser feito ?

Complementando. Segundo o Log do DEMO, eu gostaria de pegar o retorno de Param_Coleta conforme imagem abaixo: Porém, essa parte do log é escrita dentro da API, não estou conseguindo pegar pelo componente essa informação no Evento / Ciclo QuandoEsperarOperacao.

Bom dia, Uns tempos atrás estava fazendo a integração do TEFAPI do Sitef e precisava obter o cartão ao inserir no fluxo para tratamento de algumas regras do meu sistema. Me auxiliaram a no evento QuandoEsperarOperacao, usar o seguinte: CodigoBandeiraPadrao := ACBrTEFAPI1.UltimaRespostaTEF.Conteudo.LeInformacao(132, 0).AsString; Funcionou perfeitamente. Agora estou fazendo a integração com o Scope e precisava também pegar a bandeira/outras informações, porém o 132 ali é o tipo campo do Sitef. Não estou conseguindo encontrar como pegar a informação bandeira nesse ponto. Gostaria de saber se tem como ?

Bom dia @Equipe Multilógica Uns tempos atrás estava fazendo a integração do TEFAPI do Sitef e precisava obter o cartão ao inserir no fluxo para tratamento de algumas regras do meu sistema. Me auxiliaram a no evento QuandoEsperarOperacao, usar o seguinte: CodigoBandeiraPadrao := ACBrTEFAPI1.UltimaRespostaTEF.Conteudo.LeInformacao(132, 0).AsString; Funcionou perfeitamente.

Bom dia, sim, eu esqueci de retornar, eu fiz o teste, deixando desse jeito que informou no fonte. E deu certo. Essa parte ja esta tudo ok ref a validacao da senha. Eu removi aquilo que havia dito anteriormente. Obrigado.

Bom dia Italo. Atualizei os fontes e fiz o teste Debugando o fonte, na unit AssessorPublico.Proveder ao "TratarRetornoConsultaLoteRPS", Creio que esteja incorreto a informação, pois esta verificando ANodeArray, sendo o que foi atribuido anteriomente foi o ANode. ( print abaixo ) Fiz a seguinte alteração ANode := ANode.Childrens.FindAnyNs('Mensagem'); if not Assigned(ANode) then begin AErro := Response.Erros.New; AErro.Codigo := Cod203; AErro.Descricao := Desc203; Exit; end; ANode := ANode.Childrens.FindAnyNs('NFSE'); if not Assigned(ANode) then begin AErro := Response.Erros.New; AErro.Codigo := Cod203; AErro.Descricao := Desc203; Exit; end; Mas mesmo assim, após a consulta, as informações do retorno não esta indo para os campos do Response da consulta e também nao esta atualizando os campos dentro do componente por exemplo ACBrNFseX1.NotasFiscais.Items[0].NFSe.Protocolo; ACBrNFSeX1.NotasFiscais.Items[0].NFSe.InfID.ID; 33300-con-lot.xml 33300-con-lot-soap.xml 33300-lista-nfse-con-lot.xml 33300-lista-nfse-con-lot-soap.xml 96-env-lot.xml 96-env-lot-soap.xml 96-rec.xml 96-rec-soap.xml

Boa tarde, é falta de atualização da pasta inteira do ACBr. Aqui mostra dessa forma.

Bom dia, Atualizei os fontes, e fiz novos testes. O qual agora vem o retorno no Response ( TNFSeEmiteResponse ).Protocolo a informação preenchida. Com esse retorno consigo agora efetuar a ResponseConsultaLote := ACBrNFSeX1.ConsultarLoteRps(Response.Protocolo, Response.Lote); Em anexo segue os xml da consulta, parece ter algo "estranho" pois tem muita informacao "duplicada" nesses xml, nao entendi o porque. Mesmo assim, ao tentar acessar a informação do Numero da nota por exemplo apos a consulta, ResponseConsultaLote.InfRetorno.NumeroNota , a informação esta zerada. Assim como as demais informacoes de Link, idnota...etc, Basicamente não esta atribuindo as informacoes do retorno para as variaveis. os xml começado com 94 = Envio , e 33296 = Consulta Lote Rps 33296-con-lot-soap.xml 33296-lista-nfse-con-lot.xml 33296-lista-nfse-con-lot-soap.xml 33296-con-lot.xml 94-env-lot.xml 94-env-lot-soap.xml 94-rec.xml 94-rec-soap.xml

Boa tarde @Italo Giurizzato Junior Referente ao retorno do Assessor Publico. Estou fazendo os teste em homologação, e ao executar o envio, no retorno do webservice vem somente "<Mensagem>3234</Mensagem>" , o qual esse numero seria o numero do protocolo. Imagens anexadas. O retorno vem como "sucesso" , mas nao alimenta os campos por exemplo ao tentar acessar ACBrNFseX1.NotasFiscais.Items[0].NFSe.Protocolo; 94-env-lot.xml 94-env-lot-soap.xml 94-rec.xml 94-rec-soap.xml 3521086704993200010856000000000017834-rps.xml

Então também achei estranho mas se quiser testar no ambiente de homologação os dados abaixo Usuário: 67049932000108 Senha: 123 Código do ISSQN (INSCRICAO): 90028 ela eh "simples" , nada de mais faça a utilização dos md5 apontados e verá que apresentaram resultados diferentes

Boa tarde, creio que pertença sim ao delphi. estou utilizando a versao Delphi 10.2.2

Bom, segue em anexo as unit alteradas, verifica se são validas as alterações feitas. ACBRNFSeXConversao. - Removido uses Synacode; - Adicionado uses IdHashMessageDigest; - Adicionado funçao MD5 function MD5(Frase: String): String; begin with TIdHashMessageDigest5.Create do try Result :=LowerCase( HashStringAsHex(Frase) ); finally Free; end; end; AssessorPublico.Provider with TACBrNFSeX(FPDFeOwner).Configuracoes.Geral do begin Result := '<nfse:Usuario>' + Emitente.WSUser + '</nfse:Usuario>' + '<nfse:Senha>' + MD5( Emitente.WSSenha ) + '</nfse:Senha>'; end; AssessorPublico.Provider.pas ACBrNFSeXConversao.pas

Bom dia @Italo Giurizzato Junior, Com o ultimo update, e as demais atualizacao do ACBrNFSeX, efetuei os teste novamente Problema encontrado. AssessorPublico.Provider Senha deve ser em MD5 em hexadecimal e minusculo; with TACBrNFSeX(FPDFeOwner).Configuracoes.Geral do begin Result := '<nfse:Usuario>' + Emitente.WSUser + '</nfse:Usuario>' + '<nfse:Senha>' + LowerCase(StrToHex( MD5( Emitente.WSSenha ) )) + '</nfse:Senha>'; end; Adicionei no ACBrNFSeXConversao a funcao StrToHex ( o qual tem no pcnConversao, mas se eu adicionar ele na unit da erro em outra função ), entao joguei para essa unit. function StrToHex(const S: String): String; var I: Integer; begin Result:= ''; for I := 1 to length (S) do Result:= Result+IntToHex(ord(S[i]),2); end; resultando <nfse:Senha>202cb962ac59075b20134b07152d234b70</nfse:Senha> No caso esta sendo gerado ERRADO, o correto seria <nfse:Senha>202cb962ac59075b964b07152d234b70</nfse:Senha> em um determinado momento no meu sistema eu uso o MD5 , mas declarado dessa forma Uses IdHashMessageDigest; function TfrmACBrNFSe.MD5(Frase: String): String; begin with TIdHashMessageDigest5.Create do try Result :=LowerCase( HashStringAsHex(Frase) ); finally Free; end; end; E esse gera o resultado correto; Fazendo gerar correto a criptografia do md5 ref a senha, a transmissão deu certo. Comunicou com o webservice e transmitiu a nota.

@edit Fiz a conversao do MD5 para HEXA e mudou o erro pelo menos rs Erro(s): Código : X999 Mensagem: SOAP-ENV:Client - Error reading nfse:Nfse.Execute Correção: Vou tentar analisar o que pode ser

Boa tarde, Vou testar o que vc falou , apos o MD5 conerter para Hexa -------------- ENTÃO, o inicio dos testes ao tentar efetuar a primeira "comunicação" acusou que a SENHA estava Errada. Mandei um email para o suporte e o mesmo me retornou essa imagem do manual Após usar o MD5(senha), ai "parece" que validou a informação de login e senha, mas apresenta esse erro que informei. Anexo ele acabou de me manda um exemplo do xml EnvioNotaWebserviceUmaNota.xml

Bom dia Italo, Baixei a unit, coloquei na pasta, abrir o projeto do Exemplo, e dei Build All ; mesmo assim apresenta o mesmo erro. 2-env-lot-soap.xml 2-env-lot.xml

bom dia, Baixei a unit, e coloquei na pasta dos fontes/AcbrDFe/ACBeNFSeX/Provedores/ Fui no exemplo e removi a criptografia da senha, passando ela normal, com a troca da unit, ele realmente não deu erro de senha como apresentava anteriormente. Mas mesmo assim apresenta o mesmo problema. "Modo de Envio : Enviar Lote Numero do Lote: 2 Data de Envio : 30/12/1899 Numero do Prot: Sucesso : False Erro(s): Código : X999 Mensagem: SOAP-ENV:Client - An invalid XML character (Unicode: 0x7) was found in the element content of the document. Correção: ---------" Segue em anexo o "ini" da configuracao usado no programa exemplo. PS : fiz o update do acbr inteiro e reinstalei para ver se era algo ref a isso, mas mesmo assim, obtém o mesmo retorno. ACBrNFSeX_Exemplo.ini

Boa tarde , tenho sim. Segue em anexo. Leiaute-WebServices-Consulta-XML.pdf leiaute-WebServices-NFSe-XML.pdf

Ola boa tarde, Estou refazendo a parte de transmissão da NFSe, e ja vou aproveitar e colocar o novo componente ACBrNFSeX. Ate então NÃO estava utilizando o ACBrNFSe, usava um consumo direto ao webservice. Bom levantei alguma informações: Provedor : Assessor Publico Cidade : Presidente Venceslau-SP url para testes : https://s1.asp.srv.br/issonline-homolog/servlet/anfse?wsdl ( alterei no ACBrNFSeXServicos.ini , na cidade correspondente , na linha HomRecepcionar= https://s1.asp.srv.br/issonline-homolog/servlet/anfse ) Link: https://s1.asp.srv.br/issonline-homolog Usuário: 67049932000108 Senha: 123 Código do ISSQN (INSCRICAO): 90028 OBS: Nesta base, a tag ATIVIDADE deve ser informada com o valor 14.02(com ponto para separar o código da atividade). Na base de produção(Presidente Venceslau), é informado o código sem o ponto(1402). Configurei certo no Programa Exemplo, nas primeiras tentativas deu erro de "senha", no caso , eu passei informado o MD5 da senha, portanto creio que houve a comunicação correta do webservice. Apos corrigir, fiz nova tentativa e me retorna a seguinte msg: Erro(s): Código : X999 Mensagem: SOAP-ENV:Client - An invalid XML character (Unicode: 0x7) was found in the element content of the document. Correção: Anexado os xml de envio; 1-env-lot.xml 1-env-lot-soap.xml