Ir para conteúdo
  • Cadastre-se

Élviro Cavalcanti

Membros
  • Total de ítens

    150
  • Registro em

  • Última visita

Posts postados por Élviro Cavalcanti

  1. Boa tarde pessoal, quando fiz a atualização do meu ACBRCTe começou a não compilar aparecendo a seguinte mensagem : "[DCC Fatal Error] Frm_Demo_ACBrCTe.pas(279): F1026 File not found: 'pcnRetConsStatServBPe.dcu'"

    Alguém já passou por esse erro?

  2. Boa noite, estava lendo a nota técnica que foi lançada onde teremos que indicar os dados do responsável técnico pela emissão da nota, esse dados podem ser da empresa que está emitindo a nota?
    Fiquei preocupado pois sou pessoa física e desenvolvo para as empresas e vi os campos abaixo, como devo proceder nesse caso, posso usar o código da empresa?

    "Identificador do CSRT utilizado para montar o hash do CSRT"

    "O hashCSRT é o resultado da função hash (SHA-1 – Base64) do CSRT fornecido pelo fisco mais a Chave de Acesso da NFe."
     

  3. Em 04/10/2018 at 08:41, Italo Jurisato Junior disse:

    Bom dia Paulo,

    A minha sugestão é que você tenha todos os fontes (inclusive os Schemas) atualizados.

    Hoje o grupo <infRespTec> é opcional, mas futuramente poderá ser obrigatório, isso vai depender de cada UF.

    Eu já deixaria tudo preparado, inclusive o banco de dados com as informações do Responsável Técnico.

    Pois se amanhã a UF do seu cliente exigir esse grupo basta você mudar uma configuração na sua aplicação e pronto ela passa as informações e o grupo é gerado no XML.

    Boa noite, no caso eu trabalho na empresa e desenvolvo o sistema dela, nesse caso posso usar o CNPJ da empresa e os dados da própria empresa?

  4. Atualmente uso assim

     

    function TfrmExemplo.obterNroResultado(const aXML: XMLString; aTag,
      aEndTag: string): string;
    var
      _Posini, _Posfim  : integer;
    Begin
      Result := '';
      _Posini:= Pos(aTag,aXML);
      _Posfim:= Pos(aEndTag,aXML);
      if  ( _Posini > 0 ) then                                                
        begin
          inc(_PosIni, Length(aTag));
          Result:=Copy(aXML,_Posini+1,(_PosFim-_PosIni)-1);                   
        end;
    end;

    obterNroResultado(Memo2.text, '<xMotivo','</xMotivo');

     

    mas infelizmente só traz o primeiro resultado e o que preciso é o segundo

  5. Bom dia, estou querendo capturar apenas uma parte do texto abaixo, mas infelizmente existem mais de dois campos como referência

     

    <retConsReciNFe versao="4.00" xmlns="http://www.portalfiscal.inf.br/nfe">
        <tpAmb>2</tpAmb>
        <verAplic>NFEPE_H_20.01.03.167</verAplic>
        <nRec>261180001088199</nRec>
        <cStat>104</cStat>
        <xMotivo>Lote processado</xMotivo>
        <cUF>26</cUF><dhRecbto>2018-08-23T15:23:13-03:00</dhRecbto>
        <protNFe versao="4.00"><infProt Id="NFe1"><tpAmb>2</tpAmb>
                <verAplic>NFEPE_H_20.01.03.167</verAplic>
                <chNFe>26180829187557000165550010000000201000000206</chNFe>
                <dhRecbto>2018-08-23T15:23:13-03:00</dhRecbto><cStat>204</cStat>
                <xMotivo>Rejeição: Duplicidade de NF-e [nRec: 261180001081986]</xMotivo>
            </infProt></protNFe></retConsReciNFe>

     

    Estou pegando entre xMotivo e /xMotivo, mas pega apenas a primeira linha e estou precisando da segunda linha que contém essa informação que seria  "Rejeição: Duplicidade de NF-e [nRec: 261180001081986]" alguém sabe como posso fazer?


     

  6. Pessoal, percebi em alguns clientes que depois de algum tempo, o Windows desmarca a TLS 1.2 e com isso a nota fiscal fica sem comunicar, ao abrir o meu sistema eu criei essa rotina que marca via registro do windows e até agora está resolvendo os meus problemas

     

    WinExec('reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /f /v "SecureProtocols" /t REG_DWORD /d "268832"', SW_SHOW);

     

    Criei no on  create do form principal

     

    Nota que ainda temos que efetuar todo o processo de atualização do windows

  7. 31 minutos atrás, niloblack disse:

    Estou passando pelo mesmo problema, tenho que atualizar o windows, mas as vezes isso demorar bastante.

    Isso, quando as atualizações estão desativadas, demora mesmo e em alguns casos usando o Windows 7 vai ter que migrar pra o 10 caso dê algum erro na atualização

  8. Pessoal, consegui resolver, atualizei o Windows e ativei o TLS 1.2, em alguns casos esse protocolo não fica gravado e é preciso usar o comando gpedit.msc e seguir o passo a passo do site que vou colocar abaixo, depois disso, tudo voltou ao normal!

     

    https://answers.microsoft.com/pt-br/ie/forum/ie_other-windows_7/ativardesativar-segurança-ssl-e-tls-sem/8c3293bd-c092-4dcd-b9cd-107d33a44a70

     

     

    Caso o Windows não tenha o gpedit, basta executar esse bat como administrador!

    Instalar GPedit.bat

  9. Opa, desculpe o meu banco é o Firebird, infelizmente preciso usar todo o cadastro do clientes, infelizmente pois ele usa isso pra usar um parâmetro de bloqueio. Não possuo índice no campo de codcli na tabela de contas a receber e o campo de código na tabela de clientes é o campo de chave primária.

  10. Boa tarde pessoal, atualmente possuo uma tabela de contas a receber com mais de 100.000 registros e uma tabela de clientes com mais de 50.000, ambos estão relacionadas pelo campo de código. Estou usando o sql abaixo pra atualizar o campo de maior atraso que está na tabela de clientes. segue abaixo o código

    update clientes set clientes.maioratraso = (select max(areceber.atraso) from areceber where clientes.codigo = areceber.codcli and areceber.databaixa is null)

    O código funciona, mas demora muito até terminar a rotina, alguém pode me ajudar a otimizar esse sql?

  11. Opa Italo, muito obrigado pela sua resposta, segue abaixo a rotina funcionando perfeitamente!

     

          ACBrCTeDACTeRL1.Logo := edtLogoMarca.Text;
          ACBrCTe1.Conhecimentos.Clear;
          ACBrCTe1.Configuracoes.Arquivos.PathSchemas := ExtractFilePath(Application.ExeName) + 'Schemas\CTe';
          ACBrCTe1.Configuracoes.Arquivos.PathCTe := ExtractFilePath(Application.ExeName) + '\XmlDestinatario';
          ACBrCTe1.Configuracoes.Arquivos.PathInu := ExtractFilePath(Application.ExeName) + '\XmlDestinatario';
          ACBrCTe1.Configuracoes.Arquivos.PathEvento := ExtractFilePath(Application.ExeName) + '\XmlDestinatario';
          ACBrCTe1.Configuracoes.Arquivos.PathSalvar := ExtractFilePath(Application.ExeName) + '\XmlDestinatario';
          ACBrCTe1.Configuracoes.Geral.ModeloDF := moCTe;
          ACBrCTe1.Configuracoes.Geral.VersaoDF := ve300;
          GerarCTe(DM.IBConhecimentoNUMERO.AsString);

          try
           Begin
            ACBrCTe1.Conhecimentos.Assinar;
            ACBrCTe1.Conhecimentos.Validar;
            ACBrCTe1.Conhecimentos.Imprimir;
     

  12. Bom dia, o problema foi resolvido da seguinte forma

    Verifique se o CSC que está sendo usando é o de produção, pois a sefaz de PE estava deixando passar o CSC de homologação e agora não está mais, outra coisa, o CSC antes pedia ser sem dígitos, agora tem que ser informado conforma a sefaz gera, com dígitos.

×
×
  • 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.