Ir para conteúdo
  • Cadastre-se

everson.turossi

Membros
  • Total de ítens

    183
  • Registro em

  • Última visita

Community Answers

  1. everson.turossi's post in Access Violation dsnap260.bpl was marked as the answer   
    Deve estar com uma versão antiga da Midas.dll em algum lugar
     
  2. everson.turossi's post in Reimpressão do DACTe was marked as the answer   
    ACBrCTe.Conhecimentos.Clear; ACBrCTe.Conhecimentos.LoadFromString(VariavelStringComXML); ACBrCTe.Conhecimentos.Imprimir;  
  3. everson.turossi's post in Certificado A1: DadosPFX não são válidos was marked as the answer   
    Eu cheguei a ler em algum tópico onde era aconselhado converter o conteúdo do certificado pra Base64 e guardar no banco de dados. Tenta da seguinte forma:
    // Armazenar cdsCertifDADOS_PFX.AsAnsiString := EncodeBase64(LerCertificado('...')); // uses synacode // Ler vACBrNFe.Configuracoes.Certificados.DadosPFX := DecodeBase64(cdsCertifDADOS_PFX.AsAnsiString);  
  4. everson.turossi's post in Assinar NFe com ACBr usando string do certificado. was marked as the answer   
    Tenta dessa forma, passando o caminho do .pfx como parâmetro
    function GetCertificado(APFXFile: String): AnsiString; var FS: TFileStream; begin FS := TFileStream.Create(APFXFile, fmOpenRead); try Result := ReadStrFromStream(FS, FS.Size); // de USES no pacote synautil finally FS.Free; end; end; ACBrNFe1.Configuracoes.Certificados.DadosPFX := GetCertificado('c:\certificado.pfx'); ACBrNFe1.Configuracoes.Certificados.Senha := 'senha';  
  5. everson.turossi's post in Falha na validação dos dados da nota utilizando CST 60 was marked as the answer   
    Momento, vou anexar uma Unit para teste.
    Testa com essa.
    pcnNFeW.pas
  6. everson.turossi's post in Erro ao Gerar Nfe - Element '{http://www.portalfiscal.inf.br/nfe}pST': This element is not expected. Expected is ( {http://www.portalfiscal.inf.br/nfe}vICMSSTRet ). was marked as the answer   
    Se está com os fontes atualizados e utilizando em produção talvez tenha ajustar a unit pcnNFeW.pas. Tenta o seguinte, localiza na unit o seguinte código do case que gera para  cstRep41 e cstRep60
    if (NFe.infNFe.Versao >= 4) then begin Gerador.wCampo(IIf(FUsar_tcDe4,tcDe4,tcDe2), 'N26a', 'pST', 01, IIf(FUsar_tcDe4,07,05), 1, nfe.Det[i].Imposto.ICMS.pST, DSC_PST); if (NFe.Ide.tpAmb = taHomologacao) or (NFe.Ide.dEmi > EncodeDate(2019, 04, 29)) then Gerador.wCampo(tcDe2, 'N26b', 'vICMSSubstituto', 01, 15, 1, nfe.Det[i].Imposto.ICMS.vICMSSubstituto, DSC_VICMSSUBSTITUTO); end; E Altera por:
    if (NFe.infNFe.Versao >= 4) then begin if (NFe.Ide.tpAmb = taHomologacao) or (NFe.Ide.dEmi > EncodeDate(2019, 04, 29)) then begin Gerador.wCampo(IIf(FUsar_tcDe4,tcDe4,tcDe2), 'N26a', 'pST', 01, IIf(FUsar_tcDe4,07,05), 1, nfe.Det[i].Imposto.ICMS.pST, DSC_PST); Gerador.wCampo(tcDe2, 'N26b', 'vICMSSubstituto', 01, 15, 1, nfe.Det[i].Imposto.ICMS.vICMSSubstituto, DSC_VICMSSUBSTITUTO); end; end; Lembrando que se alterar o ambiente continua se fazendo necessário a substituição do arquivo  leiauteNFe_v4.00 para o ambiente em questão.
  7. everson.turossi's post in Consulta Cadastro não funciona em MG versão 4.0 was marked as the answer   
    Webservice de consulta de cadastro versão 4.00 para MG funcionando.
    Em caso de exceção por Timeout, aumentar o tempo consideravelmente.
    ACBrNFeServicos.ini
    ACBrNFeWebServices.pas
  8. everson.turossi's post in Descomprimir XML retornado pela Sefaz. was marked as the answer   
    var LDocZip: TdocZipCollectionItem; begin {...} for I := 0 to Pred(ACBrCTe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count) do begin LDocZip := ACBrCTe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip[I]; XML := LDocZip.XML; if (LDocZip.schema = schprocCTe) then begin ChaveAcesso := LDocZip.resCTe.chCTe; CnpjEmitente := LDocZip.resCTe.CNPJCPF; NomeEmitente := LDocZip.resCTe.xNome; ValorDocumento := LDocZip.resCTe.vNF; {...} end; if (LDocZip.schema = schprocEventoCTe) then begin { evento como cancelamento } ChaveAcesso := LDocZip.procEvento.chCTe; CnpjEmitente := LDocZip.procEvento.CNPJ; DataEvento := LDocZip.procEvento.dhEvento; Descricao := TpEventoToStr(LDocZip.procEvento.tpEvento) + ' - ' + LDocZip.procEvento.detEvento.descEvento; {...} end; end;  
    Componente já faz tudo, segue um exemplo de como acessar os dados após a consulta.
  9. everson.turossi's post in Loop entre os certificados was marked as the answer   
    Tenta assim:
    var I: integer; begin ACBrNFe1.SSL.ListaCertificados.Clear; ACBrNFe1.SSL.LerCertificadosStore; For I := 0 to ACBrNFe1.SSL.ListaCertificados.Count-1 do begin LOG.Lines.Add('Encontrado!'); LOG.Lines.Add(ACBrMDFe1.SSL.ListaCertificados[I].CNPJ); end; end;  
  10. everson.turossi's post in Provedor recebe RPS mais não tenho retorno was marked as the answer   
    Infelizmente é isso mesmo, vai ter que utilizar o método ACBrNFSe.WebServices.ConsultaNFSeporRps(...) alguns segundos após o envio para o webservice.
  11. everson.turossi's post in Grupo Duplicatas was marked as the answer   
    O grupo Dup teve sua descrição alterada de Duplicata para Parcela assim como as demais tags desse grupo. Estou fazendo testes tem Homologação nos servidores do RS e está aceitando sempre que houver pagamento.
×
×
  • 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.