bZottis_IG

Obrigado.

Oi Juliomar, consegui fazer o QR Code, mas usei uma função que usa a API do Google(on line), como quem usar a NFSe tem que ter internet, achei que não haveria problema, consegui um componente free que faz off-line, mas tem dll, então não sei se seria viável. como faço para te passar o que fiz? obrigado

Oi Juliomar, o que "Peguei" no fórum da Betha, que é o provedor em questão, que o QR Code é o link que retorna no XMl na tag "outras Informacoes" eu já consigo pegar o link, vou tentar desenvolver por aqui e te falo.

Bom Dia Juliomar, agradeço pela ajuda, com o ponto e vírgula, deu certo, mas só no Danfe do ACBR, usando o link da nota, não quebra. mas aí é com o cliente imprimir pelo meu sistema ou pelo site. outra coisa que percebi, é que o Danfe pelo site, sai um QR Code; Sabe da possibilidade de implantar isso no ACBR? Obrigado

Obrigado Michel, tem 3 itens 07.09, 16.01 e o 16.01 novamente

Pessoal, onde estou errando? O web service retorna que a lista de serviço é inexistente, mas o XML contém a tag. e também não consigo fazer a quebra de linha, já passei chr(13), espaço vazio, #13+#10 e nada <OutrasInformacoes>Cod Cta: - Cod Cliente:138</OutrasInformacoes> <Servico> <Valores><ValorServicos>10.00</ValorServicos><IssRetido>2</IssRetido><ValorIss>50.00</ValorIss><BaseCalculo>10.00</BaseCalculo><Aliquota>5.0000</Aliquota><ValorLiquidoNfse>10.00</ValorLiquidoNfse></Valores> <ItemListaServico>709</ItemListaServico> <Discriminacao>{[[Descricao=TESTE 1 TESTE 2 TESTE 3][Quantidade=1][ValorUnitario=10][Deducoes=0][DescontoCondicionado=0][DescontoIncondicionado=0]]}</Discriminacao><CodigoMunicipio>5006200</CodigoMunicipio></Servico> desde já agradeço qualque ajuda

Olá, gostaria de saber como faço para mandar a descriminação do serviço em várias Linhas, mas sendo apenas 1 serviço. no forúm da Betha, só fala quando é vários serviços. { [[Descricao=COBRANCA DE PAGINAS IMPRESSAS MONOCROMATICAS] [Quantidade=15463] [ValorUnitario=0.085] [Deducoes=0][DescontoCondicionado=0] [DescontoIncondicionado=0] ] [[Descricao=COBRANCA DE PAGINAS IMPRESSAS COLORIDAS][Quantidade=4305][ValorUnitario=0.639][Deducoes=0][DescontoCondicionado=0] [DescontoIncondicionado=0] ] [[Descricao=COBRANCA PAG. MONOCROMATICAS IMPRES. TERMICA ETIQUETADORA][Quantidade=1395][ValorUnitario=0.088][Deducoes=0] [DescontoCondicionado=0]]} tentei colocar assim: passando a quantidade e o valor apenas no primeiro registro, mas da erro. while ....... with Servico.ItemServico.Add do begin Descricao := dadosCad.dtsNFSeDESCRIMINA.Value; //Quantidade := 1; //ValorUnitario := dadosCad.dtsNFSeTOTAL_FINAL.Value;//15.00; end; agradeço desde já, pois falta apenas alguns detalhes para liberar o sistema para o cliente, e ele ta na minha cola(pra variar).

obrigado

obrigado mais uma vez italo, vou fazer os testes, ontem não consegui mexer com o sistema, quanto ao arquivo anexo, eu tinha anexado, era um arquivo do word com todas as telas dos erros nas funções. tentarei hoje a noite postar novamente.

pessoal, tem jeito de passar a UF e ele retornar o código do estado? agradeço desde já.

Pessoal, esta dando sempre o erro como no arquivo em anexo. já troquei onde tinha = 29 por in [29,41], como o Italo tinha sugerido no problema anterior mas o erro persiste também no método transmitir e na CCe ocorre o problema. agradeço antecipadamente delphi7 Win 7 Versão da NFe 3.10

obrigado.

Olá EFV, eu consegui pegar o link da betha usando o Pos e o copy. assim: posi : integer; .... posi := Pos('http://', ACBrNFSe1.NotasFiscais.Items[0].NFSe.OutrasInformacoes); if posi > 0 then Begin MemoDados.Lines.Add('Link=' + Copy(ACBrNFSe1.NotasFiscais.Items[0].NFSe.OutrasInformacoes, posi, Length(ACBrNFSe1.NotasFiscais.Items[0].NFSe.OutrasInformacoes)- Pos(' </OutrasInformacoes>',ACBrNFSe1.NotasFiscais.Items[0].NFSe.OutrasInformacoes))); end; espero que ajude.

Olá, gostaria de saber se tem a opção do consultar o status do serviço na NFS-e. obrigado

Boa Noite Italo deu certo, obrigado.

Oi Italo, obrigado pela ajuda. Nesta Unit tem mais linhas como esta que você falou para alterar. Altera Todas ou somente essa?

Bom Dia, estou implantando a NFSe em um cliente,mas no exemplo não tem a Cidade de Nova Andradina que é da Betha, inclusive, o cliente já emite notas a bastante tempo pelo site deles(fly e-nota) da Prefeitura Municipal de Nova Andradina. obrigado

Olá, estou tendo problemas com uma rotina que antes funcionava. a rotina é esta: EnviarNFe.acbrnf1.WebServices.Consulta.NFeChave := vChave; EnviarNFe.acbrnf1.WebServices.Consulta.Executar; //EnviarNFe.acbrnf1.Consultar;// tentei assim //ShowMessage(EnviarNFe.acbrnf1.WebServices.Consulta.Protocolo);// tentei assim MemoResp.Lines.Text := UTF8Encode(EnviarNFe.acbrnf1.WebServices.Consulta.RetWS);// Aqui vem Vazio memoRespWS.Lines.Text := UTF8Encode(EnviarNFe.acbrnf1.WebServices.Consulta.RetornoWS); LoadXML(MemoResp, WBResposta); //LoadConsulta201(EnviarNFe.acbrnf1.WebServices.Consulta.RetWS);// Assim da erro por estar vazio LoadConsulta201(EnviarNFe.acbrnf1.WebServices.Consulta.RetornoWS); if not(DadosZCE2.NF_CabecPROTOCOLO.Value <> '') then Begin DadosZCE2.NF_Cabec.Edit; DadosZCE2.NF_CabecRECIBO.Value := '';//EnviarNFe.acbrnf1.WebServices.Consulta.protNFe.nProt;// Aqui vem Vazio DadosZCE2.NF_CabecCHAVE_ACESSO.Value := EnviarNFe.acbrnf1.WebServices.Consulta.NFeChave;// Aqui vem Vazio DadosZCE2.NF_CabecPROTOCOLO.Value := EnviarNFe.acbrnf1.WebServices.Consulta.Protocolo;// Aqui vem Vazio DadosZCE2.NF_CabecVERSAO_XML.Value := SomenteNumerosComPonto(EnviarNFe.acbrnf1.WebServices.Consulta.verAplic);//EnviarNFe.acbrnf1.WebServices.Retorno.NFeRetorn// Aqui vem Vazioo.verAplic; DadosZCE2.NF_CabecMOTIVO.Value := EnviarNFe.acbrnf1.WebServices.Consulta.XMotivo;// Aqui vem Vazio DadosZCE2.NF_CabecDIGEST_VALUE.Value := EnviarNFe.acbrnf1.WebServices.Consulta.protNFe.digVal;// Aqui vem Vazio DadosZCE2.NF_CabecDATA_AUTORIZ.Value := EnviarNFe.acbrnf1.WebServices.Consulta.DhRecbto;//DataServidor;// Aqui vem Vazio DadosZCE2.NF_CabecHORA_AUTORIZ.Value := EnviarNFe.acbrnf1.WebServices.Consulta.DhRecbto;//DataServidor;// Aqui vem Vazio DadosZCE2.NF_CabecNOME_XML.Value := EnviarNFe.acbrnf1.NotasFiscais.Items[0].NomeArq;// Aqui vem Vazio tentei de outra forma conforme consulta a mensagens postadas assim: LerConfiguracao; EnviarNFe.acbrnf1.NotasFiscais.Clear; EnviarNFe.acbrnf1.NotasFiscais.LoadFromFile(OpenDialog1.FileName); EnviarNFe.acbrnf1.Consultar; ShowMessage(EnviarNFe.acbrnf1.WebServices.Consulta.Protocolo); MemoResp.Lines.Text := UTF8Encode(EnviarNFe.acbrnf1.WebServices.Consulta.RetWS); memoRespWS.Lines.Text := UTF8Encode(EnviarNFe.acbrnf1.WebServices.Consulta.RetornoWS); LoadXML(MemoResp, WBResposta); NomeArq := OpenDialog1.FileName; if pos(UpperCase('-nfe.xml'),UpperCase(NomeArq)) > 0 then NomeArq := StringReplace(NomeArq,'-nfe.xml','-procNfe.xml',[rfIgnoreCase]); EnviarNFe.acbrnf1.NotasFiscais.Items[0].SaveToFile(NomeArq); ShowMessage('Arquivo gravado em: '+NomeArq); memoLog.Lines.Add('Arquivo gravado em: ' + NomeArq); memoLog.Lines.Add('Chave de Acesso: ' + EnviarNFe.acbrnf1.WebServices.Consulta.NFeChave); memoLog.Lines.Add('Protocolo : ' + EnviarNFe.acbrnf1.WebServices.Consulta.Protocolo); memoLog.Lines.Add('Versão : ' + SomenteNumerosComPonto(EnviarNFe.acbrnf1.WebServices.Consulta.verAplic));//EnviarNFe.acbrnf1.WebServices.Retorno.NFeRetorno.verAplic; memoLog.Lines.Add('Motivo : ' + EnviarNFe.acbrnf1.WebServices.Consulta.XMotivo); memoLog.Lines.Add('Digest Value : ' + EnviarNFe.acbrnf1.WebServices.Consulta.protNFe.digVal); memoLog.Lines.Add('Dat Autorização: ' + DateToStr(EnviarNFe.acbrnf1.WebServices.Consulta.DhRecbto));//DataServidor; memoLog.Lines.Add('Hor Autorização: ' + TimeToStr(EnviarNFe.acbrnf1.WebServices.Consulta.DhRecbto));//DataServidor; mas também retorna vazio; o XML que retorna no memo "memoRespWS" esta esquisito: <env:Envelope xmlns:env='http://www.w3.org/2003/05/soap-envelope'><env:Header xmlns:env='http://www.w3.org/2003/05/soap-envelope'><nfeCabecMsg xmlns='http://www.portalfiscal.inf.br/nfe'><cUF>41</cUF><versaoDados>3.10</versaoDados></nfeCabecMsg></env:Header><env:Body xmlns:env='http://www.w3.org/2003/05/soap-envelope'><nfeConsultaNFResult xmlns='http://www.portalfiscal.inf.br/nfe/wsdl/NfeConsulta3'><retConsSitNFe versao='3.10' xmlns='http://www.portalfiscal.inf.br/nfe'><tpAmb>2</tpAmb><verAplic>PR-v3_1_6</verAplic><cStat>100</cStat><xMotivo>Autorizado o uso da NF-e</xMotivo><cUF>41</cUF><dhRecbto>2014-08-21T23:44:27-03:00</dhRecbto><chNFe>41140805681938000138550010000000391000000396</chNFe><protNFe versao='3.10'><infProt Id='ID141140001313232'><tpAmb>2</tpAmb><verAplic>PR-v3_1_5</verAplic><chNFe>41140805681938000138550010000000391000000396</chNFe><dhRecbto>2014-08-20T00:02:43-03:00</dhRecbto><nProt>141140001313232</nProt><digVal>0pWVmnMULLnWKihPqvrVGReU3m8=</digVal><cStat>100</cStat><xMotivo>Autorizado o uso da NF-e</xMotivo></infProt></protNFe></retConsSitNFe></nfeConsultaNFResult></env:Body></env:Envelope> e o que retorna no memo "WBResposta" esta assim A página XML não pode ser exibida Não é possível exibir a entrada XML usando a folha de estilos . Corrija o erro e clique no botão Atualizar ou tente novamente mais tarde. O documento XML deve ter um elemento de nível superior. Erro ao processar o recurso 'file:///H:/Projetos/ZottisCE/ZottisCE/... agradeço desde já pela ajuda.

Olá, estou tendo problemas com uma rotina que antes funcionava. a rotina é esta: EnviarNFe.acbrnf1.WebServices.Consulta.NFeChave := vChave; EnviarNFe.acbrnf1.WebServices.Consulta.Executar; //EnviarNFe.acbrnf1.Consultar;// tentei assim //ShowMessage(EnviarNFe.acbrnf1.WebServices.Consulta.Protocolo);// tentei assim MemoResp.Lines.Text := UTF8Encode(EnviarNFe.acbrnf1.WebServices.Consulta.RetWS);// Aqui vem Vazio memoRespWS.Lines.Text := UTF8Encode(EnviarNFe.acbrnf1.WebServices.Consulta.RetornoWS); LoadXML(MemoResp, WBResposta); //LoadConsulta201(EnviarNFe.acbrnf1.WebServices.Consulta.RetWS);// Assim da erro por estar vazio LoadConsulta201(EnviarNFe.acbrnf1.WebServices.Consulta.RetornoWS); if not(DadosZCE2.NF_CabecPROTOCOLO.Value <> '') then Begin DadosZCE2.NF_Cabec.Edit; DadosZCE2.NF_CabecRECIBO.Value := '';//EnviarNFe.acbrnf1.WebServices.Consulta.protNFe.nProt;// Aqui vem Vazio DadosZCE2.NF_CabecCHAVE_ACESSO.Value := EnviarNFe.acbrnf1.WebServices.Consulta.NFeChave;// Aqui vem Vazio DadosZCE2.NF_CabecPROTOCOLO.Value := EnviarNFe.acbrnf1.WebServices.Consulta.Protocolo;// Aqui vem Vazio DadosZCE2.NF_CabecVERSAO_XML.Value := SomenteNumerosComPonto(EnviarNFe.acbrnf1.WebServices.Consulta.verAplic);//EnviarNFe.acbrnf1.WebServices.Retorno.NFeRetorn// Aqui vem Vazioo.verAplic; DadosZCE2.NF_CabecMOTIVO.Value := EnviarNFe.acbrnf1.WebServices.Consulta.XMotivo;// Aqui vem Vazio DadosZCE2.NF_CabecDIGEST_VALUE.Value := EnviarNFe.acbrnf1.WebServices.Consulta.protNFe.digVal;// Aqui vem Vazio DadosZCE2.NF_CabecDATA_AUTORIZ.Value := EnviarNFe.acbrnf1.WebServices.Consulta.DhRecbto;//DataServidor;// Aqui vem Vazio DadosZCE2.NF_CabecHORA_AUTORIZ.Value := EnviarNFe.acbrnf1.WebServices.Consulta.DhRecbto;//DataServidor;// Aqui vem Vazio DadosZCE2.NF_CabecNOME_XML.Value := EnviarNFe.acbrnf1.NotasFiscais.Items[0].NomeArq;// Aqui vem Vazio tentei de outra forma conforme consulta a mensagens postadas assim: LerConfiguracao; EnviarNFe.acbrnf1.NotasFiscais.Clear; EnviarNFe.acbrnf1.NotasFiscais.LoadFromFile(OpenDialog1.FileName); EnviarNFe.acbrnf1.Consultar; ShowMessage(EnviarNFe.acbrnf1.WebServices.Consulta.Protocolo); MemoResp.Lines.Text := UTF8Encode(EnviarNFe.acbrnf1.WebServices.Consulta.RetWS); memoRespWS.Lines.Text := UTF8Encode(EnviarNFe.acbrnf1.WebServices.Consulta.RetornoWS); LoadXML(MemoResp, WBResposta); NomeArq := OpenDialog1.FileName; if pos(UpperCase('-nfe.xml'),UpperCase(NomeArq)) > 0 then NomeArq := StringReplace(NomeArq,'-nfe.xml','-procNfe.xml',[rfIgnoreCase]); EnviarNFe.acbrnf1.NotasFiscais.Items[0].SaveToFile(NomeArq); ShowMessage('Arquivo gravado em: '+NomeArq); memoLog.Lines.Add('Arquivo gravado em: ' + NomeArq); memoLog.Lines.Add('Chave de Acesso: ' + EnviarNFe.acbrnf1.WebServices.Consulta.NFeChave); memoLog.Lines.Add('Protocolo : ' + EnviarNFe.acbrnf1.WebServices.Consulta.Protocolo); memoLog.Lines.Add('Versão : ' + SomenteNumerosComPonto(EnviarNFe.acbrnf1.WebServices.Consulta.verAplic));//EnviarNFe.acbrnf1.WebServices.Retorno.NFeRetorno.verAplic; memoLog.Lines.Add('Motivo : ' + EnviarNFe.acbrnf1.WebServices.Consulta.XMotivo); memoLog.Lines.Add('Digest Value : ' + EnviarNFe.acbrnf1.WebServices.Consulta.protNFe.digVal); memoLog.Lines.Add('Dat Autorização: ' + DateToStr(EnviarNFe.acbrnf1.WebServices.Consulta.DhRecbto));//DataServidor; memoLog.Lines.Add('Hor Autorização: ' + TimeToStr(EnviarNFe.acbrnf1.WebServices.Consulta.DhRecbto));//DataServidor; mas também retorna vazio; o XML que retorna no memo "memoRespWS" esta esquisito: <env:Envelope xmlns:env='http://www.w3.org/2003/05/soap-envelope'><env:Header xmlns:env='http://www.w3.org/2003/05/soap-envelope'><nfeCabecMsg xmlns='http://www.portalfiscal.inf.br/nfe'><cUF>41</cUF><versaoDados>3.10</versaoDados></nfeCabecMsg></env:Header><env:Body xmlns:env='http://www.w3.org/2003/05/soap-envelope'><nfeConsultaNFResult xmlns='http://www.portalfiscal.inf.br/nfe/wsdl/NfeConsulta3'><retConsSitNFe versao='3.10' xmlns='http://www.portalfiscal.inf.br/nfe'><tpAmb>2</tpAmb><verAplic>PR-v3_1_6</verAplic><cStat>100</cStat><xMotivo>Autorizado o uso da NF-e</xMotivo><cUF>41</cUF><dhRecbto>2014-08-21T23:44:27-03:00</dhRecbto><chNFe>41140805681938000138550010000000391000000396</chNFe><protNFe versao='3.10'><infProt Id='ID141140001313232'><tpAmb>2</tpAmb><verAplic>PR-v3_1_5</verAplic><chNFe>41140805681938000138550010000000391000000396</chNFe><dhRecbto>2014-08-20T00:02:43-03:00</dhRecbto><nProt>141140001313232</nProt><digVal>0pWVmnMULLnWKihPqvrVGReU3m8=</digVal><cStat>100</cStat><xMotivo>Autorizado o uso da NF-e</xMotivo></infProt></protNFe></retConsSitNFe></nfeConsultaNFResult></env:Body></env:Envelope> e o que retorna no memo "WBResposta" esta assim A página XML não pode ser exibida Não é possível exibir a entrada XML usando a folha de estilos . Corrija o erro e clique no botão Atualizar ou tente novamente mais tarde. O documento XML deve ter um elemento de nível superior. Erro ao processar o recurso 'file:///H:/Projetos/ZottisCE/ZottisCE/... agradeço desde já pela ajuda.

Obrigado

Pessoal, estou passando o roteiro e me surgiu uma dúvida. no Ato COTEPE fala para Colocar um caracter"?" se houver alterações no registro do produto, no Campo Unidade mas não fala se é para preencher com o Caracter "?" (Ex:PC????) ou apenas colocar um(Ex:PC?) ou substituir a unidade por "?" Desde já agradeço Zottis

Pessoal, to conseguindo gerar a CCe, mas não to conseguindo pegar o Arquivo para garda-lo no banco de dados alguém sabe como fazer? desde já agardeço Zottis

Olá, gostaria, também eu, de parabeniza-lo pelo iniciativa, mas gostaria de abusar um pouco da Boa vontade não entendi muito bem como passar os parâmetros para a Classe. poderia me auxiliar? desde já agaradeço Zottis