Ir para conteúdo
  • Cadastre-se

gralak

Membros
  • Total de ítens

    160
  • Registro em

  • Última visita

Tudo que gralak postou

  1. gralak

    Rejeilçao 225 BPeTM no PR

    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>
  2. 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.
  3. gralak

    Rejeição 215 MG

    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 ?
  4. gralak

    Inutilização BPe

    Bom dia e Muito Obrigado Italo...
  5. gralak

    Inutilização BPe

    Pessoal alguém sabe irá haver a Inutilização no BPe ?
  6. 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.
  7. 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...
  8. Já testou com o exemplo do svn? Sim Verifique o zoom do vídeo de seu windows. Sim o ZOOM está em 100% normal..
  9. Ja tentei colocar 280 e corta mais ainda...
  10. 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 ?
  11. 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.
  12. gralak

    NFCe Cortando na Impressão

    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!
  13. Pessoal em pesquisa descobri oque onde altera o valor da versão é no seguinte trecho do fonte MDFeWebService.pas procedure TMDFeWebService.DefinirURL; var Versao: Double; begin { sobrescrever apenas se necessário. Você também pode mudar apenas o valor de "FLayoutServico" na classe filha e chamar: Inherited; } Versao := 0; FPVersaoServico := ''; FPURL := ''; TACBrMDFe(FPDFeOwner).LerServicoDeParams(FPLayout, Versao, FPURL); FPVersaoServico := FloatToString(Versao, '.', '0.00'); // Aqui troca para 2.00 end;
  14. Pessoal estou com esse erro no XML <?xml version="1.0" encoding="UTF-8"?> -<consStatServMDFe versao="2.00" xmlns="http://www.portalfiscal.inf.br/mdfe"> <tpAmb>2</tpAmb> <xServ>STATUS</xServ> </consStatServMDFe> Sei que esta errado e deve constar 3.00 mas ja setei o componente como ve300 e mesmo assim fica aparecendo esse 2.00 como eu posso resolver alguém pode ajudar ?
  15. 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
  16. 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>
  17. 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
  18. 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 ?
  19. Vc poderia dar um exemplo de como fazer o processo ?
  20. gralak

    NFCe 4.00 no PR

    Pessoal alguma evolução no envio da NFCe no PR ?
  21. No Arquivo de Serviços e só mudar ou tem que compilar alguma coisa ? Vc poderia descrever o processo por favor ?
  22. Bom dia Matheus vc pode passar mais informações de como configurar pois estou recebendo só falhas. Qual LIB DE CONEXÃO ?
  23. gralak

    NFCe 4.00 no PR

    Qualquer um dos metodos citados. Não funciona a NFCe. Falta mudar mais alguma coisa ?
  24. gralak

    NFCe 4.00 no PR

    Alguma sugestão de ajuda ? Fontes atualizados dia 14/08/2017
  25. gralak

    NFCe 4.00 no PR

    Segue minha configuração na imagem em ANEXO! Fiz a atualização dos FONTES ontem via SVN.
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.