VEXCOM Sistemas - Valtair

Estou configurando com o meu ponto de captura e CNPJ como homologação, mas o mesmo erro está acontecendo em um cliente que estamos colocando neste momento como produção. Após informar a senha, está apresentando operação cancelada e o processo é abortado. Vou anexar aqui as impressões da configuração e instalação do Tef PayGo e os logs que foram gerados, tentei identificar o que pode estar de errado, porém não consegui identificação Meu pinpad é um PPC 920 (que será usado em homologação) pinpad da cliente é um PPC930 (que será usado em produção) O estranho é que chega chamar a operação no pinpad, pede para informar a senha, porém após confirmar a operação é cancelada. As Dlls tanto de produção como homologação foram baixadas do site https://projetoacbr.com.br/tef/#integracao e estão corretas. e abaixo está uma foto do pós configuração

Tenho uma DLL que roda em apache, é o servidor de minha aplicação IntraWeb, nesta DLL irei colocar a integração com boleto, geração de boletos e leitura de retorno por API, o problema que a unit ACBrBoleto.pas possui uses da Graphics, impossibilitando o build, pois não há visual no projeto da DLL. O Acbr já tem a diretiva NOGUI (que eu utilizo) para resolver isso, porém na unit ACBRBoleto não tem essa tratativa, fiz o ajuste, vou encaminhar aqui a unit alterada. ACBrBoleto.pas

O SVN faz o merge sempre que faço o update. Alterar apenas o arquivo ini que está em anexo, fiz o update agora dos meus fontes, e vi que o italo, já fez a correção recentemente do tratamento correto das mensagens de erro, tem o commit abaixo quer corrigiu: Revision: 31112 Author: italojjr Date: segunda-feira, 30 de outubro de 2023 17:01:12 Message: 30/10/2023 -- IPM.GravarXml/IPM.Provider -- [*] Possível solução para tratar corretamente as mensagens de erro. Por: Italo Giurizzato Junior ---- Modified : /trunk2/Fontes/ACBrDFe/ACBrNFSeX/ACBrNFSeX-change-log.txt Modified : /trunk2/Fontes/ACBrDFe/ACBrNFSeX/Provedores/IPM.GravarXml.pas Modified : /trunk2/Fontes/ACBrDFe/ACBrNFSeX/Provedores/IPM.Provider.pas ACBrNFSeXServicos.ini

Contribuindo com o projeto ACBr, solicito, se possível alguns ajustes, tenho clientes que enviam NFSe nestas cidades, e após os ajustes abaixo, as NFSes estão sendo transmitidas com sucesso. Essas alterações não foram feitas hoje, faz um certo tempo já, então estão funcionando perfeitamente. no arquivo INI: "ACBr\trunk2\Fontes\ACBrDFe\ACBrNFSeX\ACBrNFSeXServicos.ini" A cidade São Carlos / SC que estava: [4216008] Nome=Sao Carlos UF=SC Provedor=Betha o correto é: [4216008] Nome=Sao Carlos UF=SC Provedor=IPM A Cidade de Nonoai / RS que estava [4312708] Nome=Nonoai UF=RS Provedor=DataSmart Versao=2.02 Params=AliasCidade:NONOAIRS o correto é: [4312708] Nome=Nonoai UF=RS Provedor=DataSmart Versao=2.02 Params=AliasCidade:NONOAI O Provedor IPM para a cidade de são carlos, está retornando o sucesso como '00001 - Sucesso' para ter o correto envio da NFSe para este provedor fiz o seguinte ajuste na unit: ACBr\trunk2\Fontes\ACBrDFe\ACBrNFSeX\Provedores\IPM.Provider.pas - Linha 280 Adicionando o "if ((Codigo <> '00001') and (Codigo <> '00001 - Sucesso')) then", pois caso não haja essa condição gera um erro como "Sucesso", pode verificar na imagem abaixo também. procedure TACBrNFSeProviderIPM.ProcessarMensagemErros( RootNode: TACBrXmlNode; Response: TNFSeWebserviceResponse; const AListTag, AMessageTag: string); var I: Integer; ANode: TACBrXmlNode; ANodeArray: TACBrXmlNodeArray; AErro: TNFSeEventoCollectionItem; aMsg, Codigo: string; begin ANode := RootNode.Childrens.FindAnyNs(AListTag); if (ANode = nil) then ANode := RootNode; ANodeArray := ANode.Childrens.FindAllAnyNs(AMessageTag); if not Assigned(ANodeArray) then Exit; for I := Low(ANodeArray) to High(ANodeArray) do begin Codigo := ObterConteudoTag(ANodeArray[I].Childrens.FindAnyNs('codigo'), tcStr); aMsg := ACBrStr(ObterConteudoTag(ANodeArray[I].Childrens.FindAnyNs('Mensagem'), tcStr)); { Codigo = 00001 significa que o processamento ocorreu com sucesso, logo não tem erros. } if ((Codigo <> '00001') and (Codigo <> '00001 - Sucesso')) then begin AErro := Response.Erros.New; AErro.Codigo := Codigo; AErro.Descricao := aMsg; AErro.Correcao := ''; end; end; end;

Estamos com um problema ao emitir NFSe com o ACBRNFSeX para o provedor Coplan, alguem já passou por essa situação? O tomador é uma pessoa fisica, se mando retenção retorna que não deve reter, se não mandamos retenção, pede retenção. Cód. do erro: E163 Erro: Aliquota nao informada para retencao do ISSQN no Simples Nacional Correção: Informe um percentual de acordo com o enquadramento na tabela de aliquota do simples nacional. Cód. do erro: X202 Erro: Lista de NFSe não encontrada! (ListaNfse) Correção: Cód. do erro: E243 Erro: Esta NFS-e nao devera ter o ISSQN Retido pelo tomador do servico. Correção: Consulte a legislacao vigente para saber as regras de retencao do ISSQN na fonte e selecione ISS Retido = 2 (NaO). Cód. do erro: X202 Erro: Lista de NFSe não encontrada! (ListaNfse) Correção:

Obrigado pelo retorno como você apresentou está de acordo, só vamos notificar o cliente que solicitou que a descrição fosse "Emitente" que conforme o manual de orientação do contribuinte (MOC) não há essa possibilidade. Agradeço a sua explicação, Salvei o link do MOC para consultas antes de novos questionamentos.

Estamos fazendo o envio de uma NFe, e mesmo preenchendo a tag modFrete como 0 (mfContaEmitente) está imprimindo no DANFE "REMETENTE", conforme imagens abaixo Verificamos que na UNIT "pcnConversaoNFe.pas" existe a função que faz a conversão de Enum to String: function modFreteToDesStr(const t: TpcnModalidadeFrete; versao: TpcnVersaoDF): string; begin case versao of ve200, ve300, ve310: case t of mfContaEmitente : result := '0 - EMITENTE'; mfContaDestinatario : result := '1 - DEST/REM'; mfContaTerceiros : result := '2 - TERCEIROS'; mfProprioRemetente : result := '3 - PROP/REMT'; mfProprioDestinatario : result := '4 - PROP/DEST'; mfSemFrete : result := '9 - SEM FRETE'; end; ve400: case t of mfContaEmitente : result := '0 - REMETENTE'; mfContaDestinatario : result := '1 - DESTINATARIO'; mfContaTerceiros : result := '2 - TERCEIROS'; mfProprioRemetente : result := '3 - PROP/REMT'; mfProprioDestinatario : result := '4 - PROP/DEST'; mfSemFrete : result := '9 - SEM FRETE'; end; end; end; Na primeira linha da ve400 onde descreve "0 - REMETENTE" não deveria ser "0 - EMITENTE" ?

Estava tentando utilizar o ACBR Monitor Plus, pois não sabia que seria possível usar os componentes ACBR dentro da minha DLL. Estava sofrendo com as dependencias de Forms, Graphics e controls dentro da minha aplicação. O problema foi meu aqui mesmo, vi que podemos usar direto os componentes ACBr mesmo na DLL, há como remover estas dependencias utilizando uma diretiva na compilação, por exemplo na unit ACBrSocket.pas que tem: Uses math, StrUtils, synacode, ACBrUtil.Base, ACBrUtil.Strings, ACBrUtil.XMLHTML, synautil {$IFDEF UPDATE_SCREEN_CURSOR} ,Controls, Forms {$ENDIF}; e já está previsto que se não quiser fazer o uses, podemos colocar a diretiva na compilação NOGUI que já faz o undef {$IFDEF NOGUI} {$UNDEF UPDATE_SCREEN_CURSOR} {$ENDIF} Isso resolveu o meu problema, já estava previsto por vocês.

Sim, irei realizar a chamada das funções de NFe / NFCe através de uma DLL que rodará em um apache, como não posso fazer o uses dos fontes do acbr nesta dll devido as units Graphics, Forms, .... pretendo realizar chamadas da DLL para o servidor que estará rodando o ACBR Monitor Plus. Se por acaso você já passou por uma situação semelhante, que precisou usar o acbr em uma dll, e utilizar os próprios fontes do acbr e não monitor plus ou as acbr lib, estou aberto a qualquer sugestão hehehe. Agradeço.

Estou iniciando o uso do ACBrMonitorPlus, e irei utilizar como TCP/IP Já criei o meu exemplo em delphi (conforme exemplo do form que há em lazarus) para envio via socket dos comandos, assistindo o primeiro vídeo, vi que é possível enviar como parâmetro o arquivo, e também é possível o envio do conteúdo de um arquivo ini, como NFCe por exemplo. Meu App Acbr monitor estou fazendo a chamada corretamente? pois estou tendo erro de estrutura de XML. NFe.CriarEnviarNFe("[infNFe] versao=4.0 [Identificacao] natOp=Venda de Mercadoria indPag=0 mod=65 serie=1 nNF=000001021 dEmi=14/09/2018 11:43:00 tpNF=1 Finalidade=0 idDest=1 indFinal=1 indPres=1 tpimp=4 tpAmb=2 [Emitente] CRT=3 CNPJ=33053846000149 IE=260039357 Razao=FORMIGA GUINCHO & ILUMINAR MATERIAIS ELETRICOS LTDA Fantasia=ILUMINAR MATERIAIS ELETRICOS Fone=4991084267 CEP=89840000 Logradouro=AV SANTA CATARINA Numero=1200 Complemento=SALA 01 Bairro=Centro CidadeCod=4204400 Cidade=Coronel Freitas UF=SC [Produto001] CFOP=5102 Codigo=77902 cEAN=SEM GTIN Descricao=KIT INDIVIDUAL NCM=84719012 Unidade=UND Quantidade=1 ValorUnitario=100 ValorTotal=100 ValorDesconto=0,00 vFrete=0,00 vSeg=0,00 vOutro=0,00 indEscala=N CNPJFab=05481336000137 uTrib=UND cEANTrib=SEM GTIN [ICMS001] CSOSN=102 Ori=0 ValorBase=100 Aliquota=10 Valor=10 pCredSN=0,00 vCredICMSSN=0,00 ModalidadeST=4 ValorBaseST=0,00 AliquotaST=0,00 ValorST=0,00 PercentualReducao=0,00 vBCFCP=0 pFCP=0 vFCP=0 [PIS001] CST=01 ValorBase=0,00 Aliquota=0,00 Valor=0,00 [COFINS001] CST=01 ValorBase=0,00 Aliquota=0,00 Valor=0,00 [IPI001] CST=53 ValorBase=0,00 Aliquota=0,00 Valor=0,00 [Total] BaseICMS=100 ValorICMS=10 vICMSDeson=0.00 BaseICMSSubstituicao=0,00 ValorICMSSubstituicao=0,00 ValorProduto=100 ValorFrete=0,00 ValorSeguro=0,00 ValorDesconto=0,00 ValorIPI=0,00 ValorPIS=0,00 ValorCOFINS=0,00 ValorOutrasDespesas=0,00 ValorNota=100 vFCP=0 [DadosAdicionais] infAdFisco= infCpl=Tributos Incidentes Lei Federal 12.741/12 - Total R$00,00 Federal R$00,00 Estadual R$00,00 [Transportador] modFrete=9 [pag001] tPag=01 vPag=100 xPag=Descricao Pagamento vTroco=0 [infRespTec] CNPJ=33462939000127 xContato=VALTAIR GUARNIERI [email protected] fone=49991084267")

O problema era no evento ACBrTEFDPayGoWebObtemCampo Deve haver o onlynumber quando há solicitação da DLL para valores, no meu caso estava retornando virgula, e estava abortando o processo ou não encontrando a venda o código abaixo resolveu o problema. if (AForm.TipoCampo = tcoCurrency) then // PayGoWeb não precisa de ponto decimal Resposta := OnlyNumber(Resposta);

Mesmo após a instalação dos drivers do Gertec PPC 920, segue com o mesmo comportamento na minha aplicação. Na aplicação Demo funciona. seguirei vendo o que há de diferente.

Estou acessando o menu administrativo e realizando o cancelamento de uma venda, porém apresenta ERRO PINPAD e a transação é cancelada, já fiz análise dos meus fontes com os fontes do ACBrTefD_demo e aparentemente os mesmos métodos estão implementados, está funcionando todo recebimento, relatórios gerenciais, .... apenas o cancelamento não é possível realizar. No exemplo do AcbrDemo funciona como esperado, como disse estou revisando e lendo os fontes a algum tempo e sem encontrar a solução até o momento. Abaixo está o Log gerado, deixei apenas uma venda e o cancelamento da venda (para que o arquivo seja menor), também vou anexar o meu código fonte da comunicação com o TEF. comms_230630.log uDMTefDedicadoPDV.dcu uDMTefDedicadoPDV.dfm Anexei o DCU e o correto era o .pas uDMTefDedicadoPDV.pas

Muito obrigado, realmente era essa situação.

Utilizando o PayGoWeb, estou tentando habilitar na configuração o ponto de captura que foi liberado, no processo de configuração ocorreu tudo certo, porém quando prossigo para o processo de instalação no menu gerencial, apresenta a mensagem: PONTO DE CAPTURA NAO LIBERADO PARA INSTALACAO. Há algum processo que deve ser realizado antes de seguir para este processo?