
gralak
Membros-
Total de ítens
160 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Tudo que gralak postou
-
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.
-
Bom dia e Muito Obrigado Italo...
-
Pessoal alguém sabe irá haver a Inutilização no BPe ?
-
CliSiTef pré-homologação Seq. 44 - ACBRTefD + NFC-e
gralak replied to sismais's tópico in Dúvidas sobre TEF
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!
-
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;
-
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 ?
-
CTE-OS - Como obter os dados do retorno após aprovação?
gralak replied to Gabriel Bonzanini's tópico in ACBrCTe
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 -
CTE-OS - Como obter os dados do retorno após aprovação?
gralak replied to Gabriel Bonzanini's tópico in ACBrCTe
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> -
CTE-OS - Como obter os dados do retorno após aprovação?
gralak replied to Gabriel Bonzanini's tópico in ACBrCTe
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 -
CTE-OS - Como obter os dados do retorno após aprovação?
gralak replied to Gabriel Bonzanini's tópico in ACBrCTe
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 ? -
CTE-OS - Como obter os dados do retorno após aprovação?
gralak replied to Gabriel Bonzanini's tópico in ACBrCTe
Vc poderia dar um exemplo de como fazer o processo ? -
Pessoal alguma evolução no envio da NFCe no PR ?
-
Qualquer um dos metodos citados. Não funciona a NFCe. Falta mudar mais alguma coisa ?
-
Alguma sugestão de ajuda ? Fontes atualizados dia 14/08/2017
-
Segue minha configuração na imagem em ANEXO! Fiz a atualização dos FONTES ontem via SVN.