Ir para conteúdo
  • Cadastre-se

suporte.corpsystem

Membros
  • Total de ítens

    16
  • Registro em

  • Última visita

Posts postados por suporte.corpsystem

  1. Pessoal como tenho muita urgência eu substitui a tag na XML pra não ter de sair Procurando em todo o ACBR....

    NA UNIT ACBrNFSeXProviderABRASFv1 NA FUNCAO PreencherNotaResposta

      Result := False; 
      
      if Node <> nil then
      begin
        Node := Node.Childrens.FindAnyNs('InfNfse');
        Node := Node.Childrens.FindAnyNs('IdentificacaoRps');
        NumRps := ObterConteudoTag(Node.Childrens.FindAnyNs('Numero'), tcStr);

        ANota := TACBrNFSeX(FAOwner).NotasFiscais.FindByRps(NumRps);

    //AQUI
        strValorAntigo := copy(parentNode.OuterXml, pos('<DataEmissao>', parentNode.OuterXml)+13, 20);
        strNovoXML := parentNode.OuterXml;
        if (Copy(strValorAntigo, 5, 1) = '-') and (Copy(strValorAntigo, 11, 1) = 'T')  and (Copy(strValorAntigo, 20, 1) = 'Z')  then
        begin
          strNovoValor := Copy(strValorAntigo, 1, 10) + ' ' + Copy(strValorAntigo, 12, Length(strValorAntigo) - 12);
          strNovoXML := StringReplace(parentNode.OuterXml, '<DataEmissao>'+strValorAntigo+'</DataEmissao>', '<DataEmissao>'+strNovoValor+'</DataEmissao>',[]);
        end;
        strValorAntigo := copy(strNovoXML, pos('<Competencia>', strNovoXML)+13, 7);
        if (COPY(strValorAntigo,7,1) = 'Z') then
        begin
          strNovoValor := (COPY(strValorAntigo,0,6));
          strNovoXML := StringReplace(strNovoXML, '<Competencia>'+strValorAntigo+'</Competencia>', '<Competencia>'+strNovoValor+'</Competencia>',[]);
        end;
        if Assigned(ANota) then
          ANota.XmlNfse := strNovoXML
        else
        begin
          TACBrNFSeX(FAOwner).NotasFiscais.LoadFromString(strNovoXML, False);
          ANota := TACBrNFSeX(FAOwner).NotasFiscais.Items[TACBrNFSeX(FAOwner).NotasFiscais.Count-1];
        end;

    //ATÉ AQUI

        SalvarXmlNfse(ANota);
        Result := True; // Processado com sucesso pois retornou a nota
      end;

    Aguardando a solução mais definitiva... Obrigado

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