Ir para conteúdo
  • Cadastre-se

Agnaldo Prates

Membros
  • Total de ítens

    948
  • Registro em

  • Última visita

  • Days Won

    4

Posts postados por Agnaldo Prates

  1. Bom dia. Embora o questionamento esteja muito vago,  é possível deduzir que você deseja pegar a descrição do tipo de ocorrência, se for isso basta criar uma função para retornar o dado desejado.

    Exemplo: Quando desejo saber qual é código de retorno no arquivo, criei a seguinte função:

    function TForm1.RetOcorrencia(CodOcorrencia : TACBrTipoOcorrencia) :String;
    begin
      case CodOcorrencia of
      (...)
    toRetornoLiquidado   : Result :='06';
    (...)

      end;
    end;
    Na leitura:
    strCodRetorno := RetOcorrencia(Aboleto1.ListadeBoletos.OcorrenciaOriginal.Tipo);

    Não há nenhuma dificuldade.

     

     

     

     

  2. 15 horas atrás, Eptus disse:

    Como, neste caso, eu entrei no ambiente do site e de lá, solicitei a impressão das NFSe, imaginei que seria alguma configuração na forma de enviar o RPS através do componente ACBr.

    Pela atenção, obrigado

    Bom dia.
    Infelizmente esta questão de "discriminar" os serviços ainda vai render muito pois são mais de 5.570 municípios no Brasil. Pela tela parece com a impressão do provedor Fiorilli, por qui também sai desta forma, ou seja, no ambiente do sistema de arrecadação do município sai os serviços separado, já nos nossos sistemas não.

    Mas isso tem uma explicação. O arquivo nfse.xsd Abrasf, que no caso varias empresas desenvolvedoras de sistemas de arrecadação utiliza, é  totalmente deficiente neste sentido, ou seja, utiliza apenas temListaServico previsto na LC 116/2003, esqueceram que em uma mesma nota fiscal poderia haver vários serviços com códigos diversos, afinal, na lista da lei existem inúmeros.


    Quanto ao ACBrNFSe, está correto em relação aquilo que é disponibilizado pelos provedores. Imagino entretanto que poderá a Abrasf em um futuro próximo rever esta questão.

  3. 14 horas atrás, Solivan disse:

    Boa tarde Agnaldo, estou postando aqui o XML corrigido, fiz os testes e acho que o motivo não era esse pois o erro persiste.

    38-env-lot.xml

    Bom dia. Certamente não era o erro substancial. Estive olhando a estrutura do teu xml e ele fica bem diferente dos xml que tenho aqui.

    Depois de assinado, é mudado algo neste xml? Tente reproduzir esse erro no ACBrNFeDemo. Talvez os endereços não estejam corretos também.

    netnfe.png

  4. 6 horas atrás, Solivan disse:

    [...] não encontro nada de estranho que possa causar o problema, estou anexando o XML, para que você de uma olhada. Estou usando OpenSSL com Certificado A1, para

    <detPag>
    <tPag>01</tPag> // Dinheiro
    <vPag>130.00</vPag>
    </detPag>

    <fat>
    <nFat>PV-000000378</nFat> // Grupo de duplicata / Fatura.
    <vOrig>135.00</vOrig>
    <vDesc>5.00</vDesc>
    <vLiq>130.00</vLiq>

    Sugiro que confira isso.
  5. 16 minutos atrás, rodrigoB9 disse:

    qual deve ser o meu tipo de boleto para que ele não seja enviado aos correios ? 

    - Quando a emissão dos boletos é realizada pelo Banco, a impressão ocorre no processo auto-envelopavel,  com  entrega  efetuada  pelo  correio,  sem  comprovante  de  recebimento  pelo Pagador
    - Quando a emissão dos boletos é realizada pelo próprio cliente, basta apenas enviar o arquivo remessa para o Banco efetuar o registro dos títulos

    Fonte: https://banco.bradesco/portal/PDF/pessoajuridica/solucoes-integradas/outros/layout-de-arquivo/cobranca/4008-524-0121-08-layout-cobranca-versao-portuguesSS28785.pdf

  6. 21 minutos atrás, rodrigoB9 disse:

    alguém?

    Talvez esteja na configuração. Veja o tipo de boleto:
        if CarteiraEnvio = tceCedente then
             TipoBoleto := '2'
          else if CarteiraEnvio = tceBanco then
             TipoBoleto := '1';
          if NossoNumero = EmptyStr then
            DigitoNossoNumero := '0';

    AcbrBancoBradesco,.pas, linha 256.

  7. 2 horas atrás, Renfer disse:

    Estou lendo o arquivo de retorno anexado apresenta erro de conversão. No arquivo, linha 168, tem o motivo C6 e na função CodMotivoRejeicaoToDescricao, não possui o movito C6 no case que faz entrar no else e converter para inteiro.

     

    Desde já obrigado pela atenção.

    05900O17 .CRT

    Altere na Unit AcbrBancoSicred.pas a partir da linha 984.

    de case StrToInt( CodMotivo ) of
    Para
    case StrToInt( OnlyNumber( CodMotivo) ) of

    Onde houver na função CodMotivoRejeicaoToDescricao, c400: begin

    Ai vai ler o arquivo.

     

    boleto.png

  8. 25 minutos atrás, stylesoftware disse:

    Acabei de fazer o teste utilizando o RoundABNT  na inclusão dos itens na venda e ai realmente bateu com o valor de 98.86. Só não sei se o cliente vai gostar por nessa nota 3 itens dele foram arredondados para baixo.

    De qualquer forma muito obrigado pela ajuda André e Agnaldo.

    É importante ter cuidado com arredondamentos. Em 2015, o STJ julgou procedente uma ação da Fazenda Pública de MG contra uma indústria de cosméticos justamente pela questão do arredondamento na base de cálculo do imposto.

    A RFB ao publicar o MOC já prevê que arredondamentos são permitidos, desde que não configure sonegação fiscal.

    • Curtir 2
  9. 55 minutos atrás, Antonio Sombra disse:

    Nesta listagem ai está faltando a unit pcnGerador.pas, está nela a classe TGeradorOpcoes com a variável QuebraLinha.

      TGeradorOpcoes = class(TPersistent)
      private
        FDecimalChar: Char;
        FSomenteValidar: Boolean;
        FIdentarXML: Boolean;
        FRetirarEspacos: Boolean;
        FRetirarAcentos: Boolean;
        FNivelIdentacao: Integer;
        FTamanhoIdentacao: Integer;
        FSuprimirDecimais: Boolean;
        FTagVaziaNoFormatoResumido: Boolean;
        FFormatoAlerta: string;
        FQuebraLinha: String;
      public
        constructor Create;

    Recomendo você fazer u backup desta pasta atual e baixar novamente todo o ACBr.

  10. 52 minutos atrás, Arnaldo Cruz disse:

    Alguem que gera remessa bradesco poderia responder a qual nome de arquivo é o correto ?

    Var fArqRemessa : String;

    begin
       fArqRemessa := FormatDateTime('DDMM',Date)+IntToStr ( nCodSequenciaArquivo ) +'.rem';

    depois

       AcBrBoleto1.NomeArqRemessa := fArqRemessa;

    ...

    Eu faço desta forma em virtude de poder haver várias remessas durante o dia no mesmo mês e nunca tive problemas.
     

  11. 9 minutos atrás, claudiocjr disse:

    Ola pessoal,

    alguém poderia me dizer o que há de errado no XML em anexo?

    Eu tento enviar ele para a Sefaz e não me retorna nenhum erro, apenas dizendo que nota não confirmada e seu numero.

    grato

    Claudio

    NotaNfe.xml

    Teus Schemas estão atualizados? Falta assinatura neste XML.

  12. 9 horas atrás, José Ferreira S Filho disse:

    Já desinstalei e instalei FRCE e ACBr, já compilei o ACBrBoletoFCFortesFr, compila sem problemas, mas quando uso o componente dá o tal erro.

    já estou desesperado.

    Depois de instalado, abra em seu Delphi  o ACBrBoletoFCFortesFt, ignore todas as mensagens, abra uma linha em branco ao final e salve.
    Dê um build no seu projeto.

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