rodrigod6

Boa Tarde Galera, A cidade Maravilha/SC estava no GovBR e agora vai mudar de provedor, vai utilizar o provedor Betha. Alguém já fez os testes com o novo provedor? Posso ajudar em algo? Basicamente o provedor Betha já funciona. Seria somente retirar as referências do GovBr e apontar para o Betha? Abraços Rodrigo

Olá Pessoal, Pretendo utilizar o componente ACBrNFeDANFCeFortes para impressão da NFCe. Pelo que andei pesquisando, posso utilizar ACBrNFeDANFCeFortes, ACBrNFeDANFeQRNFCe ou ABCrNFeDANFeESCPOS ( Impressão via serial/usb para impressoras não matriciais ). Vi no fonte do ACBrNFeDANFCeFortes que estão utilizando a versão FortesReport (Open Source) v3.24(B14) . Como ele é open source, acho que posso pedir ajuda aos colegas. Entrei no site http://sourceforge.net/projects/fortesreport/files/FortesReport VCL/3.24B13/ para baixar a versão para o meu Delphi ( Versão 2005 - ainda não conseguimos migrar alguns componentes. ) . Mas o arquivo é inválido pra D2005. Tentei baixar a versão em D7 ( para gerar instalador do D2005), mas só tem os DCU´s dentro e uma BPL. Tentei instalar mas apresentou o erro da falta da rtl7.bpl .. Claro , pois é a versão do delphi 7. Gostaria de saber se alguém sabe onde tem os fontes do D7 ( para criar um instalador para o D2005 ) ou a versão do D2005 para eu eu consiga instalar o FortesReports. Reiterando que estou pedindo, por ser uma versão open source, e para conseguir compilar o componente que utilizam no ACBrNFeDANFCeFortes. Obrigado pela atenção, e agradeço qualquer dica. Rodrigo

Bom Dia, Conseguimos um orientação com a receita estadual do PR para utilização das seguintes configurações: Utilização da CST 10 – Tributada no ICMS e com cobrança por Substituição Tributária. Colocar a alíquota de 12% de ICMS próprio ( já com diferimento parcial aplicado ). Colocando DInos Dados Adicionais: ICMS COM FERIMENTO PARCIAL EM 33,33% CONFORME O ART. 108 DO RICMS/PR, DECRETO 955/15; Abraços a todos, Rodrigo

Olá Colegas, O governando do PR aumentou a alíquota interna do PR de 12% para 18%. Conforme Lei n. 18.371 produzindo efeitos a partir de 1º de abril de 2015. Mas depois decretou uma alteração no RICMS na parte de diferimento parcial, conforme o decreto 955/15 revogando o art 108 paragrafo 1, que não poderia ser aplicado o diferimento de 33,33% para Sub. Tribt.. produzindo efeitos a partir de 1º de abril de 2015. Com a revogação eu agora posso emitir uma Nota com substituição tributária e com diferimento de ICMS. Agora vem a dúvida no layout do XML, pois tenho a CST 10, a qual consigo destacar os campos de ST, mas não o diferemento parcial de ICMS. Se mando no 10 com o diferimento, retorna o erro de diferença de valores, pois o cálculo de ICMS não bate: Nota(s) não confirmadas: 70402->Valor do ICMS difere do produto BC e Aliquota (nItem:1, vICMS informado: 120.0100, vICMS calculado: 180.0000) E tenho o campo CST 51 que tenho os campos para informar o diferimento de ICMS, mas não tenho como destacar o ICMS-ST. Resumindo, não posso utilizar o 10 e nem o 51. Talvez utilizar o 90? Alguém já passou por isso? Tem alguma idéia de como proceder? Obrigado Rodrigo Curitiba-PR

Boa Tarde, Novidades: 05/11/2014 | 00:00 (Horário de Brasília) Ambiente de Homologação (Testes) do Portal GNRE Senhores usuários da GNRE, o endereço do ambiente de Homologação (Teste) foi alterado de www.gnre-h.pe.gov.br para www.testegnre.pe.gov.br, caso utilizem ou pretendam utilizar webservice para envio de lotes de teste favor atualizar suas aplicações. Fonte: http://www.gnre.pe.gov.br/gnre/index.html

Boa Noite Italo, Isso mesmo, tinha atualizado em Agosto. Resolvido ! Abraços,

O mesmo aconteceu com a inutilização no ws do PR, vejam o retorno do SEFAZ: '<env:Envelope xmlns:env='http://www.w3.org/2003/05/soap-envelope'><env:Headerxmlns: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'><nfeInutilizacaoNFResult xmlns='http://www.portalfiscal.inf.br/nfe/wsdl/NfeInutilizacao3'><retInutNFeversao='3.10' xmlns='http://www.portalfiscal.inf.br/nfe'><infInut><tpAmb>2</tpAmb><verAplic>PR-v3_2_3</verAplic><cStat>563</cStat>. Retornando nfeInutilizacaoNFResult no XML e não nfeInutilizacaoNF2Result. Fiz a modificação: if (FConfiguracoes.WebServices.UFCodigo = 41) and (FConfiguracoes.Geral.VersaoDF = ve310) then // 41 = PR FRetWS := SeparaDados( FRetornoWS,'nfeInutilizacaoNFResult'); else FRetWS := SeparaDados( FRetornoWS,'nfeInutilizacaoNF2Result'); {$IFDEF ACBrNFeOpenSSL} HTTP.Document.LoadFromStream(Stream); ConfiguraHTTP(HTTP,'SOAPAction: "http://www.portalfiscal.inf.br/nfe/wsdl/NfeInutilizacao2"'); HTTP.HTTPMethod('POST', FURL); StrStream := TStringStream.Create(''); StrStream.CopyFrom(HTTP.Document, 0); FRetornoWS := TiraAcentos(ParseText(StrStream.DataString, True)); FRetWS := SeparaDados( FRetornoWS,'nfeInutilizacaoNF2Result'); StrStream.Free; {$ELSE} ReqResp.Execute(Acao.Text, Stream); StrStream := TStringStream.Create(''); StrStream.CopyFrom(Stream, 0); FRetornoWS := TiraAcentos(ParseText(StrStream.DataString, True)); if (FConfiguracoes.WebServices.UFCodigo = 41) and (FConfiguracoes.Geral.VersaoDF = ve310) then // 41 = PR FRetWS := SeparaDados( FRetornoWS,'nfeInutilizacaoNFResult') else FRetWS := SeparaDados( FRetornoWS,'nfeInutilizacaoNF2Result'); StrStream.Free; {$ENDIF} Mas atualizei o fonte e vi que já atualizaram isso: FRetWS := SeparaDados( FRetornoWS,'nfeInutilizacaoNF2Result'); if FRetWS = '' then FRetWS := SeparaDados( FRetornoWS,'nfeInutilizacaoNFResult'); Boa valeu !!!

Completando fiz somente para o Capicom, segue código completo: {$IFDEF ACBrNFeOpenSSL} HTTP.Document.LoadFromStream(Stream); ConfiguraHTTP(HTTP,'SOAPAction: "http://www.portalfiscal.inf.br/nfe/wsdl/' + Metodo + '"'); HTTP.HTTPMethod('POST', FURL); StrStream := TStringStream.Create(''); StrStream.CopyFrom(HTTP.Document, 0); FRetornoWS := TiraAcentos(ParseText(StrStream.DataString, True)); FRetWS := SeparaDados(FRetornoWS, TAGResult); StrStream.Free; {$ELSE} ReqResp.Execute(Acao.Text, Stream); StrStream := TStringStream.Create(''); StrStream.CopyFrom(Stream, 0); FRetornoWS := TiraAcentos(ParseText(StrStream.DataString, True)); if (FConfiguracoes.WebServices.UFCodigo = 41) and (FConfiguracoes.Geral.VersaoDF = ve310) then // 41 = PR FRetWS := SeparaDados(FRetornoWS, 'NfeConsultaNFResult') else FRetWS := SeparaDados(FRetornoWS, TAGResult); StrStream.Free; {$ENDIF}

Olá pessoal, Tive que alterar no fonte do ACBr para o PR pois o retorno do ws, vem como "NfeConsultaNFResult" e não "NfeConsultaNF2Result". Foi a forma que achei para resolver a consulta da NFe aqui. Testei em homologação e produção e deu certo. Então alterei o fonte ACBrNFeWebServices.pas Na function TNFeConsulta.Executar: Boolean; ReqResp.Execute(Acao.Text, Stream); StrStream := TStringStream.Create(''); StrStream.CopyFrom(Stream, 0); FRetornoWS := TiraAcentos(ParseText(StrStream.DataString, True)); if (FConfiguracoes.WebServices.UFCodigo = 41) and (FConfiguracoes.Geral.VersaoDF = ve310) then // 41 = PR FRetWS := SeparaDados(FRetornoWS, 'NfeConsultaNFResult') else FRetWS := SeparaDados(FRetornoWS, TAGResult); StrStream.Free; Abraços, Rodrigo

Boa Tarde colegas, Estou fazendo um teste com a versão 3.10 do layout. Mesmo trocando as opções do IE, no meu acontece a mesma coisa que o colega, retorna em branco, para PR(41); ACBrWebServices.pas - TNFeConsulta.Executar {$IFDEF ACBrNFeOpenSSL} HTTP.Document.LoadFromStream(Stream); ConfiguraHTTP(HTTP,'SOAPAction: "http://www.portalfiscal.inf.br/nfe/wsdl/' + Metodo + '"'); HTTP.HTTPMethod('POST', FURL); StrStream := TStringStream.Create(''); StrStream.CopyFrom(HTTP.Document, 0); FRetornoWS := TiraAcentos(ParseText(StrStream.DataString, True)); FRetWS := SeparaDados(FRetornoWS, TAGResult); StrStream.Free; {$ELSE} ReqResp.Execute(Acao.Text, Stream); StrStream := TStringStream.Create(''); StrStream.CopyFrom(Stream, 0); FRetornoWS := TiraAcentos(ParseText(StrStream.DataString, True)); FRetWS := SeparaDados(FRetornoWS, TAGResult); StrStream.Free; {$ENDIF} O problema esta aqui: FRetWS := SeparaDados(FRetornoWS, TAGResult); A TAGResult esta indo como NfeConsultaNF2Result, e no arquivo de retorno do WS esta nfeConsultaNFResult <cUF>41</cUF><versaoDados>3.10</versaoDados></nfeCabecMsg></env:Header><env:Body xmlns:env='http://www.w3.org/2003/05/soap-envelope'><nfeConsultaNFResult Fiz o seguinte teste : Mudei de: FRetWS := SeparaDados(FRetornoWS, TAGResult); para: FRetWS := SeparaDados(FRetornoWS, 'NfeConsultaNFResult'); Dai retornou certo para a consulta da NFe na versão 3.10 para o PR(41). Abraços,

Bom Dia Davi, Sabe aquela solução que fica para sempre, heheh, ainda não consegui parar para resolver, estou com este problema ainda. Mas com este código acima funcionando. Abraços, Rodrigo

Boa Tarde Pessoal, Vi que na pnfsNFSe temos o TItemServicoCollectionItem. Onde temos os campos: FDescricao FQuantidade FValorUnitario FValorTotal Etc... Isso seria para impressão do itens carregados do XML (todos na descrição) de alguma forma? Pois só temos a descrição que podemos utilizar!!! Estou tentando imprimir os itens em formato de grid. Vi que no FR não tem nada e que o colega Cesar postou alguma coisa em Fortes Reports. Alguém esta imprimindo os itens? Abraços,

Bom Dia, Eu vou atualizar novamente os componentes, até tentei ontem, mas deu muito erros, tive que voltar. E tenho que entregar isso até amanhã para um cliente. Então fiz o seguinte: var cStr, cNumeroNF, cCodigoVerificao, sMensagem : String; posInicial, posFinal : Integer; begin //Em branco : //ACBrNFSe1.NotasFiscais.Items[0].NFSe.CodigoVerificacao //ACBrNFSe1.WebServices.ConsLote.NotasFiscais.Items[0].NFSe.CodigoVerificacao cStr := ACBrNFSe1.WebServices.ConsLote.RetWS; posInicial := pos('<Numero>',cStr)+8; posFinal := pos('</Numero>',cStr); posFinal := posFinal - posInicial; cNumeroNF:= copy(cStr, posInicial, posFinal); posInicial := pos('<CodigoVerificacao>',cStr)+19; posFinal := pos('</CodigoVerificacao>',cStr); posFinal := posFinal - posInicial; cCodigoVerificao:= copy(cStr, posInicial, posFinal); Depois vou dar uma olhada com mais calma, para descobrir porque não esta trazendo no componente. Outra coisa que terei que ver como fazer, é que quando consulta e a NFSe está cancelada retorna nesta mesma String: <InfPedidoCancelamento id="pedidoCancelamento05343673000168_201400000000004"> Também uma forma de recuperar o CodigoCancelamento pelo componente. Obrigado,

Atualizei na semana passada.

Boa Tarde Italo, Retornou em branco também os dois: ACBrNFSe1.WebServices.ConsLote.NotasFiscais.Items[0].NFSe.CodigoVerificacao ACBrNFSe1.WebServices.ConsLote.NotasFiscais.Items[0].NFSe.Numero Dentro do ACBrNFSe1.WebServices.ConsLote.RetWS ainda retorna com as informações que preciso: '<?xml version="1.0" encoding="utf-8"?><ConsultarLoteRpsResposta xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="http://www.abrasf.org.br/ABRASF/arquivos/nfse.xsd"><ListaNfse><CompNfse><Nfse><InfNfse id="05343673000168_201400000000002"><Numero>201400000000002</Numero><CodigoVerificacao>6136681</CodigoVerificacao><DataEmissao>2014-08-26T17:38:26</DataEmissao>.... Obrigado, Rodrigo

Eu tenho a mesma dúvida de como recuperar o Número da Nota, Código de verificação depois do retorno. Não sei se seria certo continuar neste tópico ou abrir um novo. Mas vamos lá qualquer coisa crio um tópico novo. Seguindo o exemplo do colega acima: showmessage(UTF8Encode(frmprincipal.ACBrNFSe1.WebServices.ConsLote.RetWS)); Eu faço isso: ACBrNFSe1.ConsultarLoteRps(cNroLote, cNroProtocolo); Eu já tentei recuperar o número da nf ou código do serviço assim: ACBrNFSe1.NotasFiscais.Items[0].NFSe.CodigoVerificacao ACBrNFSe1.NotasFiscais.Items[0].NFSe.Numero Vem em branco Agora usando: ACBrNFSe1.WebServices.ConsLote.RetWS vem com as informações que preciso: <Numero>201400000000002</Numero><CodigoVerificacao>6136681</CodigoVerificacao> Tem alguma forma de conseguir pegar o Numero e Código, através dos componentes sem precisar ler o XML?

Obrigado Oneide Luiz, Fiz um teste aqui no padrão, agora deu esta mensagem: CNPJ nao encontrado na base de dados. Mas já enviei uma mensagem para a prefeitura para habilitar. Agradeço pela atenção.

Mas seus arquivos de lotes são assinados? Vou tentar enviar em homologação sem a assinatura para ver o que da então. De repente na hora de enviar ele assina. Estou com os fontes atualizados também. Obrigado,

Olá Pessoal, Fiz algumas pesquisas no fórum sobre a assinatura para a prefeitura de Maravilha, mas não achei muita coisa. Estou fazendo assim para gerar, assinar e enviar: ACBrNFSe1.NotasFiscais.Clear; // Gerando a NFSe ACBrNFSe1.Configuracoes.Geral.PathSalvar := cDir; ACBrNFSe1.GerarLote(nLote); //ACBrNFSe1.Enviar(nLote); Fiz um comparativo com o XML de exemplo da prefeitura, onde esta assinado. O que gero não assina. Certificado OK. Verifiquei o seguinte dentro da function TProvedorPronim.GetConfigCidade temos o AssinaLote para False: function TProvedorPronim.GetConfigCidade(ACodCidade, AAmbiente: Integer): TConfigCidade; var ConfigCidade: TConfigCidade; begin ConfigCidade.VersaoSoap := '1.1'; ConfigCidade.Prefixo2 := ''; ConfigCidade.Prefixo3 := ''; ConfigCidade.Prefixo4 := ''; ConfigCidade.Identificador := 'id'; if AAmbiente = 1 then ConfigCidade.NameSpaceEnvelope := 'http://tempuri.org' else ConfigCidade.NameSpaceEnvelope := 'http://tempuri.org'; ConfigCidade.AssinaRPS := False; case ACodCidade of 3118601: ConfigCidade.AssinaLote := True; {Denio Incluido para Contagem} 4309407: ConfigCidade.AssinaLote := True; {Dalvan} 4320800: ConfigCidade.AssinaLote := True; {Dalvan} else ConfigCidade.AssinaLote := False; end; Result := ConfigCidade; end; E não achei alguma configuração que colocar ele para True. A menos que coloque no código da TProvedorPronim: 4210506: ConfigCidade.AssinaLote := True; Existe alguma outra maneira de fazer via configuração para assinar o Lote? Quem esta usando, como esta fazendo com a assinatura? Qualquer ajuda é bem vinda, Obrigado,

Fiz as alterações que passaram e deu certo. Valeu

Fiz as alterações que passaram em E deu certo.

Mudei a impressão para Fast Report, não consegui resolver.

fs7, é um pacote do Fast Report, deve estar na pasta FastReport 4\FastScript fs7.dpk Tem que instalar ele junto com o FR !!!

tricon.paulo, Recompile o PCN2.dpk novamente que deve resolver.

Fiz a atualização hoje também, e estou exatamente com o mesmo problema: Attempt to write different data type than defined (Column 12/14). Consegui identificar que o erro ocorre no final da Rotina: TdmACBrNFeRave.CustomParametrosCXNGetRow Mas ainda não consegui saber porque. Eu uso o DANFE_Rave513.rav ! Só aconteceu quando utilizo o SVC-RS. Não testei com o outro. Alguém tem alguma ideia... abçs