Ir para conteúdo
  • Cadastre-se

leomcl

Membros
  • Total de ítens

    129
  • Registro em

  • Última visita

Tudo que leomcl postou

  1. Bom dia Ítalo, Essa migração é alguma propriedade que eu tenho que setar no componente? Por que eu apenas passo o código da cidade e ele já configura tudo. Obrigado, Leandro
  2. Ítalo/Juliomar, Descobri mais um erro para Montes Claros, dá um erro ao cancelar a NFSe, estava passando o CNPJ e outros dados do prestador em branco. Também corrigi, alterando o arquivo ACBrNFSeWebService, na função CancelarNFSe(), no momento em que, logo após enviar o pedido de cancelamento, é consultado o status da nota. Coloquei uma verificação para verificar se a cidade é Montes Claros. Segue código da parte de consulta em questão: if not (TACBrNFSe( FACBrNFSe ).Configuracoes.WebServices.Provedor in [proISSNet]) then begin if TACBrNFSe( FACBrNFSe ).Configuracoes.WebServices.Provedor in [proSystemPro] then begin Self.ConsNfse.NumeroNFSe := TACBrNFSe( FACBrNFSe ).NotasFiscais.Items[0].NFSe.Numero; Self.ConsNfse.Cnpj := TACBrNFSe( FACBrNFSe ).NotasFiscais.Items[0].NFSe.PrestadorServico.IdentificacaoPrestador.Cnpj; Self.ConsNfse.InscricaoMunicipal := TACBrNFSe( FACBrNFSe ).NotasFiscais.Items[0].NFSe.PrestadorServico.IdentificacaoPrestador.InscricaoMunicipal; Result := Self.ConsNfse.Executar; end else if (TACBrNFSe( FACBrNFSe ).Configuracoes.WebServices.Provedor in [proGovBR]) and (TACBrNFSe( FACBrNFSe ).Configuracoes.WebServices.CodigoMunicipio = 3143302) then //MONTES CLAROS begin Self.ConsNfseRps.Numero := TACBrNFSe( FACBrNFSe ).NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero; Self.ConsNfseRps.Serie := TACBrNFSe( FACBrNFSe ).NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie; Self.ConsNfseRps.Tipo := TipoRPSToStr(TACBrNFSe( FACBrNFSe ).NotasFiscais.Items[0].NFSe.IdentificacaoRps.Tipo); Self.ConsNfseRps.Cnpj := TACBrNFSe( FACBrNFSe ).NotasFiscais.Items[0].NFSe.PrestadorServico.IdentificacaoPrestador.Cnpj; Self.ConsNfseRps.InscricaoMunicipal := TACBrNFSe( FACBrNFSe ).NotasFiscais.Items[0].NFSe.PrestadorServico.IdentificacaoPrestador.InscricaoMunicipal; end else begin Self.ConsNfseRps.Numero := TACBrNFSe( FACBrNFSe ).NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero; Self.ConsNfseRps.Serie := TACBrNFSe( FACBrNFSe ).NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie; Self.ConsNfseRps.Tipo := TipoRPSToStr(TACBrNFSe( FACBrNFSe ).NotasFiscais.Items[0].NFSe.IdentificacaoRps.Tipo); Self.ConsNfseRps.Cnpj := TACBrNFSe( FACBrNFSe ).NotasFiscais.Items[0].NFSe.Prestador.Cnpj; Self.ConsNfseRps.InscricaoMunicipal := TACBrNFSe( FACBrNFSe ).NotasFiscais.Items[0].NFSe.Prestador.InscricaoMunicipal; Self.ConsNfseRps.RazaoSocial := ''; if not (TACBrNFSe( FACBrNFSe ).Configuracoes.WebServices.Provedor in [proDigifred]) then Self.ConsNfseRps.RazaoSocial := TACBrNFSe( FACBrNFSe ).NotasFiscais.Items[0].NFSe.PrestadorServico.RazaoSocial; Result := Self.ConsNfseRps.Executar; end; if not(Result) then begin if Assigned(TACBrNFSe( FACBrNFSe ).OnGerarLog) then TACBrNFSe( FACBrNFSe ).OnGerarLog(Self.ConsNfseRps.Msg); if Self.ConsNfseRps.Msg <> '' then raise Exception.Create(Self.ConsNfseRps.Msg) else raise Exception.Create('Erro Desconhecido ao Consultar a NFS-e por RPS!') end; end; Em resumo: só adicionei o ELSE IF e seu respectivo código.
  3. Ítalo, consegui descobrir o que é, fiz algumas alterações em ACBrProvedorGovBR e voltou a funcionar: Em GetConfigCidade(): ConfigCidade.Prefixo4 := 'tc:'; mudei para ConfigCidade.Prefixo4 := ''; e em GetConfigSchema() descomentei o código para voltar a usar somente nfse.xsd. Como só tenho clientes em Montes Claros que usam NFSe, pra mim resolve. Obrigado, Leandro
  4. Boa tarde Ítalo, estou com o mesmo erro de esquema que reportaram no início desse tópico, só que para a cidade de MONTES CLAROS/MG. Linha: 1 - Coluna: 40 - Nao foi possivel encontrar informacoes sobre o esquema para o elemento 'http://tempuri.org/servico_enviar_lote_rps_envio.xsd:EnviarLoteRpsEnvio'.Linha: 1 - Coluna: 171 - Nao foi possivel encontrar informacoes sobre o esquema para o elemento 'http://tempuri.org/servico_enviar_lote_rps_envio.xsd:LoteRps'. / Linha: 1 - Coluna: 180 - Nao foi possivel encontrar informacoes sobre o esquema para o elemento 'http://tempuri.org/tipos_complexos.xsd:NumeroLote'. / Linha: 1 - Coluna: 214 - Nao foi possivel encontrar informacoes sobre o esquema para o elemento .... Atualizei meus componentes hoje, e começou esse erro. Antes estava funcionando 100%. Detalhe: testei também no demo do AcbrNFSe e dá o mesmo erro. Alguma luz? Desde já agradeço, Leandro
  5. Deus te ouça Régys ... obrigado.
  6. Senhores, Vocês sabem se há exigência de gravar no banco de dados os dados da nota manual em tabela separada da tabela de cupom? Estou querendo gravar na mesma tabela de cupom, só que quando for cupom de NF vai ter os campos a mais preenchidos (número, data, etc). Estou perguntando por quê vi um homologador da Polimig falando "a tela é exatamente a mesma pra cupom e nota manual, só grava em tabela separada...". Então não sei se isso é uma exigência ou apenas falou por falar. Desde já agradeço, Leandro
  7. Pessoal, Telefonei agora há pouco pra Link3, e me informaram que não vão mais atender a prefeitura de Guanambi a partir do mês que vem. Agora a prefeitura vai usar o Webiss (veja link: http://www.webiss.com.br/Guanambiba/) Esse Webiss já é suportado pelo Acbr? Obrigado, Leandro
  8. Senhores, só para posicioná-los, mandei um e-mail ontem de manhã para o técnico da Link3 pedindo essas informações, reenviei o email hoje, mas ainda não responderam. att, Leandro
  9. Obrigado Ítalo, poderia me mandar a descrição completa do erro que dá ou o exe do exemplo para eu testar aqui? É que não posso atualizar diretamente meus componentes só para testar, pois tenho personalizações que eu fiz, demora um bocado pra refazer todas. Desde já agradeço, Leandro
  10. Boa tarde Italo, Consegui a URL desse link3 para a cidade de Guanambi, é a seguinte: http://webservice.guanambi.ba.link3.com.br:3189/nfseWebService/ Só tem URL de produção, não tem de homologação. Pois bem, criei uma nova unit no acbr chamada AcbrProvedorLink3, fiz as alterações necessárias para chamar esse provedor quando for Guanambi/BA. Na função GetSoapAction coloquei todas as ações apontando para "http://webservice.guanambi.ba.link3.com.br:3189/nfseWebService/", e na GeraEnvelopeRecepcionarLoteRPS() copiei o mesmo codigo que esta no provedor ACBrProvedorGovBR. Na hora que tento mandar um RPS dá erro de cannot find dispatch method. Você que tem mais experiência, sabe me dizer por onde começar pra resolvê-lo? Já tentei várias coisas e não consegui. O padrão que eles seguem é ABRASF mesmo. Segue anexo a unit que criei, a documentação que eles me mandaram, que inclui um XML de exemplo. Se puder dar uma olhada... Muito obrigado, Leandro DadosNFSeGuanambi.rar
  11. Montes Claros/MG... mas pelo que entendi do erro, não tem nada a ver, o problema é a destruição do objeto que citei, que está acontecendo incorretamente dentro do componente.
  12. Boa noite, Estou com o mesmo problema, mas é em outra prefeitura. O negócio é que estou chamando a função ConsultarNFSeporRPS() em um laço, para consultar um RPS atrás do outro. Percebi que o erro é na linha: FIdentificacaoRps.Free; dentro de pnfsNFSe. Já coloquei um if Assigned() e uma condição para verificar se é igual a nil antes de dar o free, mas ele dá o free mesmo assim, gerando o access violation. Isso ocorre na segunda interação do laço, ou seja, parece que algo ficou na memória na primeira chamada. No laço faço isso: ACBrNFSe1.NotasFiscais.Clear; ACBrNFSe1.NotasFiscais.LoadFromFile(zArqXML); //aqui é meu arquivo XML ACBrNFSe1.ConsultarNFSeporRps(ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero, ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie, TipoRPSToStr(ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Tipo), ACBrNFSe1.NotasFiscais.Items[0].NFSe.Prestador.Cnpj, ACBrNFSe1.NotasFiscais.Items[0].NFSe.Prestador.InscricaoMunicipal); Desde já agradeço, Leandro
  13. Ok, vou procurar essas informações, obrigado.
  14. leomcl

    Nfse Guanambi/ba (Link3)

    Olá, Alguém já conseguiu utilizar NFSe de Guanambi/BA (utiliza Link3) no Acbr? Pelo que vi no fonte, não está implementado, estou certo? Obrigado, Leandro
  15. Bom dia senhores, Gero o sped no meu PAF sem usar o Acbr, uso ele apenas para gerar o EAD nesse arquivo. Só que percebo que o validador SPED dá erro na linha EAD, não a reconhece como linha válida. Se eu tirar a EAD valida legal. Vocês sabem se pra validar tem que tirar essa linha EAD mesmo? Pergunto isso por que gerei o arquivo em outro PAF, que está rodando em um cliente meu, e o mesmo também não foi validado por conta dessa linha EAD. Então imagino que para validar temos que ir antes no txt e tirar a última linha. Desde já agradeço a ajuda, Leandro
  16. Boa tarde Luís, Só vi sua msg hoje. O Acbr quando você instala tem opção de instalar com Capicom ou OpenSSL (instalando pacotes de um ou de outro). Tem que ver com o pessoal do Acbr se tem outra solução para isso, já faz mais de dois meses que estão sendo emitidos certificados A1 com criptografia SHA-2, imagino que outras pessoas já tenham uma solução melhor. Att, Leandro
  17. Obrigado Regys, Vou fazer uns testes dessa forma... Leandro
  18. Bom dia senhores, Estou implementando o evento VerificarRecomporValorGT do ACBrAAC para verificar no banco de dados se o CRZ, CRO e vr. venda bruta da última redução Z batem, para recompor o GT. Estou tendo um problema pra buscar o vr. da venda bruta da última redução Z. Está retornando o vr. da venda bruta atual, não o da última redução Z, ou seja, AcbrECF1.DadosReducaoZClass.ValorVendaBruta = AcbrECF1.VendaBruta. Assim, não consigo fazer essa verificação e deixar o ACBRAAC recompor o danado do GT. A sequencia é a seguinte: - Chamo o procedimento ACBrECF1.DadosReducaoZ; - Carrego do banco de dados os dados gravados da ultima redução Z, pelo num serie da impressora conectada, pelo AcbrECF1.DadosReducaoZClass.CRZ e pelo AcbrECF1.DadosReducaoZClass.CRO; - Verifico se AcbrECF1.DadosReducaoZClass.ValorVendaBruta = bancodedados.VrVendaBruta Lembrando que uso Bematech MP-4000 TH FI. Desde já agradeço a ajuda. Leandro
  19. Cara, só consegui fazer funcionar mudando pra usar OpenSSL ao invés de Capicom. Pelo que entendi,o msxml5.dll não aceita algoritimos SHA-2 (SHA256, SHA512, etc). Essa dll é usada pelo Capicom, mas não pelo OpenSSL. Essa solução vale para certificado A1. Com A3 não sei a solução, já que OpenSSL não suporta A3. Entretanto, tem outros tópicos com o pessoal discutindo sobre isso com certificados A3, parece que no próprio gerenciador de certificados do A3 tem uma opção para usar CSP, mas não testei. Att, Leandro Crio Sistemas e Tecnologia
  20. Boa tarde André, Testei o demo do AcbrNFe2 usando Openssl, e o danado conseguiu assinar. Agora, eu tenho clientes com certificados A1 e A3, e o só o capicom funciona pros 2, certo? Acho que o problema é incompatibilidade do msxml com o algoritimo SHA-2. Então minha idéia seria só usar o openssl pra assinar o XML, deixar o restante usando Capicom. Será que dá? Obrigado, Leandro
  21. É André, alterei o que podia aqui, mas não deu em nada. Maldito governo que resolve atualizar os certificados, tudo funcionava antes!!! Agradeço qualquer ajuda, Leandro
  22. Bom dia, Não testei com OpenSSL não, uso capicom. Ocorre no momento de assinar o XML. Já vi gente tendo problema parecido aqui no fórum, só que com certificado A3. O meu é A1. Ocorre exatamente na linha: dsigKey := xmldsig.createKeyFromCSP(PrivateKey.ProviderType, PrivateKey.ProviderName, PrivateKey.ContainerName, 0); do ACBrNFeUtil. Detalhe importante: esse certificado usa algoritimo de assinatura sha256RSA. Fuçando aqui, vi que o arquivo JwaWinCrypt.pas não tem o CSP 24 cadastrado, estou atualizando ele aqui com o wincrypt.h mais atual, mas não tá funcionando ainda. Sinceramente não sei mais o que fazer. Desde já agradeço, Leandro
  23. Pessoal, Estou tendo um erro "Não há suporte para o tipo de Provedor de Serviços de Criptografia '24'" com um certificado A1, tanto no cliente que é Windows 2003 quanto na minha máquina que é Windows 7. Por favor, alguém tem um dica de como resolver? Já baixei o nivel do segurança do IE o máximo possível, instalei hotfixes diversos, cadeias de certificados e tudo mais. O certificado é tipo V3, algoritimo de assinatura = sha256RSA, autoridade certificadora = SERPRORFB v3. Desde já agradeço, Leandro
  24. A questão é que o erro não deveria ser um erro, mas sim um warning, já que o processo funciona perfeitamente. Mas se vossa senhoria tiver a solução elegante pro problema ficarei muito grato. rsrs Leandro
  25. Pessoal, Apenas por registro, depois de vários dias tentando, não consegui resolver o problema de uma forma "interessante". O que eu fiz pra funcionar foi ir no arquivo ACBrNFSeWebServices.pas do ACBRNFSe, e mudar o seguinte código: if not InternetSetOption(Data, INTERNET_OPTION_CLIENT_CERT_CONTEXT, PCertContext, Sizeof(CERT_CONTEXT)*5) then begin if Assigned(TACBrNFSe( FACBrNFSe ).OnGerarLog) then TACBrNFSe( FACBrNFSe ).OnGerarLog('ERRO: Erro OnBeforePost: ' + IntToStr(GetLastError)); raise Exception.Create( 'Erro OnBeforePost: ' + GetLastErrorText {IntToStr(GetLastError)} ); end; para if not InternetSetOption(Data, INTERNET_OPTION_CLIENT_CERT_CONTEXT, PCertContext, Sizeof(CERT_CONTEXT)*5) then begin (* if Assigned(TACBrNFSe( FACBrNFSe ).OnGerarLog) then TACBrNFSe( FACBrNFSe ).OnGerarLog('ERRO: Erro OnBeforePost: ' + IntToStr(GetLastError)); raise Exception.Create( 'Erro OnBeforePost: ' + GetLastErrorText {IntToStr(GetLastError)} ); *) end; ou seja, comentei onde mostra o erro. Funcionou, não sei por que, mas resolveu. Leandro
×
×
  • 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.