gralak

Fiz a alterações como sugerida. Estou executando em DELPHI. Baixei novamente o ZIP com as DLLs https://projetoacbr.com.br/wp-content/uploads/2020/11/PayGo-ACBr-TEF.zip Coloquei essa configuração para garantir o path da DLL if ACBrTEFD1.GPAtual = gpPayGoWeb then begin ACBrTEFD1.TEFPayGoWeb.PortaPinPad := 3; ACBrTEFD1.TEFPayGoWeb.PathDLL := 'C:\Program Files (x86)\Embarcadero\Componentes\ACBR\Exemplos\ACBrTEFD\NaoFiscal\Delphi\PGWebLib.dll'; end; Segue em Anexo a Tela com o LOG... Delphi

Sim mesma pasta junto do .exe

Mesma mensagem é apresentada, veja o LOG. - LerConfiguracao - IrParaOperacaoTEF - Ativar - GravarConfiguracao - AtivarPosPrinter - ConfigurarPosPrinter - AtivarTEF - ConfigurarTEF TACBrTEFPGWebAPI.SetInicializada( True ) TACBrTEFPGWebAPI.Inicializar TACBrTEFPGWebAPI.LoadDLLFunctions PW_iInit EACBrTEFPayGoWeb: Erro ao carregar a função: PW_iInit de: PGWebLib.dll PayGoWeb DesInicializado ***************EACBrTEFPayGoWeb*************** Erro ao carregar a função: PW_iInit de: PGWebLib.dll

Pessoal estou recebendo esse retorno no LOG. Estou com a DLL desse link 64Bits WINDOWS https://projetoacbr.com.br/wp-content/uploads/2020/11/PayGo-ACBr-TEF.zip TACBrTEFPGWebAPI.SetInicializada( True ) TACBrTEFPGWebAPI.Inicializar TACBrTEFPGWebAPI.LoadDLLFunctions PW_iInit EACBrTEFPayGoWeb: Erro ao carregar a função: PW_iInit de: PGWebLib.dll PayGoWeb DesInicializado ***************EACBrTEFPayGoWeb*************** Erro ao carregar a função: PW_iInit de: PGWebLib.dll

Pessoal aproveitando o tema onde eu configuro para aumentar o tempo de espera do QRCode em TELA e no PINPAD ?

No PR continua assim... BPeTM: 1 Status: 0 Motivo: UF: 41 Chave: 41909955950956000117630000000000011000000024 Falha: Erro Interno: 0 Erro HTTP: 405 URL: https://homologacao.bpe.fazenda.pr.gov.br/bpe/BPeRecepcaoTM

Depois de executar os testes foi constado que o no SITEF o ACBR não esta preenchendo a propriedade do QRCode. Isso requer alguma configuração ? Ou implementação por parte do ACBR ainda ?

Já olhei esse evento e ainda não entendi como pegar o retorno do campo tipOCampo584 Diz o certificado que o QRCode vai retornar nesse campo mais não consegui chegar como conseguir esse valor ! Poderia ajudar ?

Cheguei até esse ponto e depois para pegar o retorno com o QRCODE e mostrar na tela ?

Pessoal esse retorno seria que a UF ainda não esta preparada para o modelo ? <?xml version="1.0" encoding="UTF-8"?> -<retBPe versao="1.00" xmlns="http://www.portalfiscal.inf.br/bpe"> <tpAmb>2</tpAmb> <cUF>41</cUF> <verAplic>PR-v1_0_30</verAplic> <cStat>225</cStat> <xMotivo>Falha no Schema XML do BP-e. org.xml.sax.SAXParseException; lineNumber: 1; columnNumber: 51; cvc-elt.1.a: Cannot find the declaration of element 'BPeTM'.</xMotivo> </retBPe>

Eu tb estou com esse problema Status: 215 Motivo: Rejeição: Falha no schema XML Só no estado de MG. No PR esta funcionando normalmente.

Status: 215 Motivo: Rejeição: Falha no schema XML Pessoal estou essa rejeição começou hoje no dia 08/10/2019 do nada. Alguém sabe se é algo na RECEITA ou mudou alguma coisa ?

Bom dia e Muito Obrigado Italo...

Pessoal alguém sabe irá haver a Inutilização no BPe ?

OLá maiconsaraiva não sei se seria a melhor saída. Mas no meu caso creie uma function no base de dados que grava terminal e o statusecf simulada. Assim consigo retornar esse status ao iniciar o programa novamente.

Consegui resolver. Na configuração da IMPRESSORA no terminal esta configurado para papel de 48MM mudei para 80MM e saiu certo. Obrigado pela ajuda pessoal...

Já testou com o exemplo do svn? Sim Verifique o zoom do vídeo de seu windows. Sim o ZOOM está em 100% normal..

Ja tentei colocar 280 e corta mais ainda...

Pelo que percebi no ESCOPOS deve ser impressora COM no caso a pessoa tem apenas um MP 4200TH na USB compartilhada com outros Terminais. Tem alguma outra Solução ?

Já tentei mudar as margens e também não deu certo. A impressora é uma bematech MP 4200th Obs. Nos outros terminais a impressão sai corretamente. Somente em um sai com esse problema.

Bom dia Pessoal estou com essa situação não consigo encontrar o que provoca isso. Alguém sabe como resolver essa situação ? Segue imagem em Anexo!

Utilizando o COMANDO acima o resultado foi ' Stat: '+IntToStr( ACBrCTe1.Conhecimentos.Items[0].CTe.procCTe.cStat ) RETORNOU '0' ' Motivo: '+ ACBrCTe1.Conhecimentos.Items[0].CTe.procCTe.xMotivo RETORNO VAZIO

Eu estou pegando o retorno dessa maneira e o mesmo não retorna nada; Resposta := Resposta+ ACBrCTe1.WebServices.Retorno.Msg+sLineBreak+ '[RETORNO]'+sLineBreak+ '<ret Versao>'+ACBrCTe1.WebServices.Retorno.verAplic+'</ret Versao>'+sLineBreak+ '<ret TpAmb>'+TpAmbToStr(ACBrCTe1.WebServices.Retorno.TpAmb)+'</ret TpAmb>'+sLineBreak+ '<ret VerAplic>'+ACBrCTe1.WebServices.Retorno.VerAplic+'</ret VerAplic>'+sLineBreak+ '<ret NRec>'+ACBrCTe1.WebServices.Retorno.CteRetorno.nRec+'</ret NRec>'+sLineBreak+ '<ret CStat>'+IntToStr(ACBrCTe1.WebServices.Retorno.CStat)+'</ret CStat>'+sLineBreak+ '<ret XMotivo>'+ACBrCTe1.WebServices.Retorno.XMotivo+'</ret XMotivo>'+sLineBreak+ '<ret CUF>'+IntToStr(ACBrCTe1.WebServices.Retorno.CUF)+'</ret CUF>'+sLineBreak; for I:= 0 to ACBrCTe1.WebServices.Retorno.CteRetorno.ProtCTe.Count-1 do begin for J:= 0 to ACBrCTe1.Conhecimentos.Count-1 do begin if 'CTe'+ACBrCTe1.WebServices.Retorno.CteRetorno.ProtCTe.Items.chCTe = ACBrCTe1.Conhecimentos.Items[j].CTe.infCTe.Id then begin Cmd.Resposta := Cmd.Resposta+ '[CTE'+Trim(IntToStr(ACBrCTe1.Conhecimentos.Items[J].CTe.Ide.nCT))+']'+sLineBreak+ '<cte'+Trim(IntToStr(ACBrCTe1.Conhecimentos.Items[J].CTe.Ide.nCT))+' Versao>'+ACBrCTe1.WebServices.Retorno.CteRetorno.ProtCTe.Items.verAplic+'</cte'+Trim(IntToStr(ACBrCTe1.Conhecimentos.Items[J].CTe.Ide.nCT))+' Versao>'+sLineBreak+ '<cte'+Trim(IntToStr(ACBrCTe1.Conhecimentos.Items[J].CTe.Ide.nCT))+' TpAmb>'+TpAmbToStr(ACBrCTe1.WebServices.Retorno.CteRetorno.ProtCTe.Items.tpAmb)+'</cte'+Trim(IntToStr(ACBrCTe1.Conhecimentos.Items[J].CTe.Ide.nCT))+' TpAmb>'+sLineBreak+ '<cte'+Trim(IntToStr(ACBrCTe1.Conhecimentos.Items[J].CTe.Ide.nCT))+' VerAplic>'+ACBrCTe1.WebServices.Retorno.CteRetorno.ProtCTe.Items.verAplic+'</cte'+Trim(IntToStr(ACBrCTe1.Conhecimentos.Items[J].CTe.Ide.nCT))+' VerAplic>'+sLineBreak+ '<cte'+Trim(IntToStr(ACBrCTe1.Conhecimentos.Items[J].CTe.Ide.nCT))+' CStat>'+IntToStr(ACBrCTe1.WebServices.Retorno.CteRetorno.ProtCTe.Items.cStat)+'</cte'+Trim(IntToStr(ACBrCTe1.Conhecimentos.Items[J].CTe.Ide.nCT))+' CStat>'+sLineBreak+ '<cte'+Trim(IntToStr(ACBrCTe1.Conhecimentos.Items[J].CTe.Ide.nCT))+' XMotivo>'+ACBrCTe1.WebServices.Retorno.CteRetorno.ProtCTe.Items.xMotivo+'</cte'+Trim(IntToStr(ACBrCTe1.Conhecimentos.Items[J].CTe.Ide.nCT))+' XMotivo>'+sLineBreak+ '<cte'+Trim(IntToStr(ACBrCTe1.Conhecimentos.Items[J].CTe.Ide.nCT))+' CUF>'+IntToStr(ACBrCTe1.WebServices.Retorno.CteRetorno.cUF)+'</cte'+Trim(IntToStr(ACBrCTe1.Conhecimentos.Items[J].CTe.Ide.nCT))+' CUF>'+sLineBreak+ '<cte'+Trim(IntToStr(ACBrCTe1.Conhecimentos.Items[J].CTe.Ide.nCT))+' ChCTe>'+ACBrCTe1.WebServices.Retorno.CteRetorno.ProtCTe.Items.chCTe+'</cte'+Trim(IntToStr(ACBrCTe1.Conhecimentos.Items[J].CTe.Ide.nCT))+' ChCTe>'+sLineBreak+ '<cte'+Trim(IntToStr(ACBrCTe1.Conhecimentos.Items[J].CTe.Ide.nCT))+' DhRecbto>'+DateTimeToStr(ACBrCTe1.WebServices.Retorno.CteRetorno.ProtCTe.Items.dhRecbto)+'</cte'+Trim(IntToStr(ACBrCTe1.Conhecimentos.Items[J].CTe.Ide.nCT))+' DhRecbto>'+sLineBreak+ '<cte'+Trim(IntToStr(ACBrCTe1.Conhecimentos.Items[J].CTe.Ide.nCT))+' NProt>'+ACBrCTe1.WebServices.Retorno.CteRetorno.ProtCTe.Items.nProt+'</cte'+Trim(IntToStr(ACBrCTe1.Conhecimentos.Items[J].CTe.Ide.nCT))+' NProt>'+sLineBreak+ '<cte'+Trim(IntToStr(ACBrCTe1.Conhecimentos.Items[J].CTe.Ide.nCT))+' DigVal>'+ACBrCTe1.WebServices.Retorno.CteRetorno.ProtCTe.Items.digVal+'</cte'+Trim(IntToStr(ACBrCTe1.Conhecimentos.Items[J].CTe.Ide.nCT))+' DigVal>'+sLineBreak; break; end; end; end E o Retorno apresentado é [RETORNO] <ret Versao>PR-v3_0_35</ret Versao> <ret TpAmb>2</ret TpAmb> <ret VerAplic>PR-v3_0_35</ret VerAplic> <ret NRec></ret NRec> <ret CStat>215</ret CStat> <ret XMotivo>Falha no schema XML. org.xml.sax.SAXParseException; lineNumber: 1; columnNumber: 94; cvc-pattern-valid: Value '' is not facet-valid with respect to pattern '[0-9]{15}' for type 'TRec'.</ret XMotivo> <ret CUF>41</ret CUF>

Também não consegui acessar essa propriedade. Nos arquivos XML encontros todos os dados do PROTOCOLO de liberação mas o componente não é carregado

Para o Envio fiz o seguinte processo. ACBrCTe1.Conhecimentos.Clear; if FileExists(Cmd.Params(0)) then ACBrCTe1.Conhecimentos.LoadFromFile(Cmd.Params(0)) else raise Exception.Create('Arquivo '+Cmd.Params(0)+' não encontrado.'); ACBrCTe1.Conhecimentos.GerarCTe; if Cmd.Params(2) <> '0' then ACBrCTe1.Conhecimentos.Assinar; ACBrCTe1.Conhecimentos.Validar; if ACBrCTe1.Conhecimentos.Items[0].CTe.Ide.modelo = 67 then begin FrmACBrMonitor.rdModeloDFCTe.ItemIndex := 1; ACBrCTe1.Configuracoes.Geral.ModeloDF := pcteConversaoCTe.moCTeOS; end else begin FrmACBrMonitor.rdModeloDFCTe.ItemIndex := 0; ACBrCTe1.Configuracoes.Geral.ModeloDF := pcteConversaoCTe.moCTe; end; if not(ACBrCTe1.WebServices.StatusServico.Executar) then raise Exception.Create(ACBrCTe1.WebServices.StatusServico.Msg); if Trim(OnlyNumber(Cmd.Params(1))) = '' then ACBrCTe1.WebServices.Enviar.Lote := '1' else ACBrCTe1.WebServices.Enviar.Lote := OnlyNumber(Cmd.Params(1)); //StrToIntDef( OnlyNumber(Cmd.Params(1)),1); ACBrCTe1.WebServices.Enviar.Executar; Tem que mudar alguma coisa para obter os resultados ?