Ir para conteúdo
  • Cadastre-se

jbaneto

Membros Pro
  • Total de ítens

    256
  • Registro em

  • Última visita

Posts postados por jbaneto

  1. Olá pessoal estou gerando o arquivo de remessa para o bradesco

    cnab400 e o tentando validar o mesmo; tenho as seguintes mensagens de erro:

    Linha 02 - Posição 37 à 37 - Registro tipo 1, dígito da conta-corrente inválido.
    Linha 03 - Posição 322 à 327 - Registro tipo 2, Data limite para concessão de desconto 2 inválida, zerada ou vazia. Verifique os campos.
    Linha 03 - Posição 328 à 340 - Registro tipo 2, Valor do desconto 2 não numérico, zerado ou vazio.
     
    Só que o digito da conta está correto = 0
    o boleto não tem valor de abatimento nem data para abatimento, como preencher com zeros? e a data tambem com zeros?
     
    grato por sua atenção.
     
  2. Olá amigos,

    estou tendo essa mensagem quando emito a nf-e, aí quando retiro o calculo do fcp transmite normalmente

    essa nf-e em homologação para p PR. percentual 2% NCM correto como segue abaixo:

    - <det nItem="1">
    - <prod>
      <cProd>5000</cProd>
      <cEAN>7899003322720</cEAN>
      <xProd>ABRAC APERTO RAD. ACO INOX 12,8 - MIX - MIX</xProd>
      <NCM>24022000</NCM>
      <CFOP>6102</CFOP>
      <uCom>UN</uCom>
      <qCom>1.0000</qCom>
      <vUnCom>10.0000000000</vUnCom>
      <vProd>10.00</vProd>
      <cEANTrib>7899003322720</cEANTrib>
      <uTrib>UN</uTrib>
      <qTrib>1.0000</qTrib>
      <vUnTrib>10.0000000000</vUnTrib>
      <indTot>1</indTot>
      </prod>
    - <imposto>
    - <ICMS>
    - <ICMS00>
      <orig>0</orig>
      <CST>00</CST>
      <modBC>3</modBC>
      <vBC>10.00</vBC>
      <pICMS>12.0000</pICMS>
      <vICMS>1.20</vICMS>
      <pFCP>2.0000</pFCP>
      <vFCP>0.20</vFCP>
      </ICMS00>
      </ICMS>
    - <PIS>
    - <PISAliq>
      <CST>01</CST>
      <vBC>10.00</vBC>
      <pPIS>0.6500</pPIS>
      <vPIS>0.06</vPIS>
      </PISAliq>
      </PIS>
    - <COFINS>
    - <COFINSAliq>
      <CST>01</CST>
      <vBC>10.00</vBC>
      <pCOFINS>3.0000</pCOFINS>
      <vCOFINS>0.30</vCOFINS>
      </COFINSAliq>
      </COFINS>
      </imposto>
      <infAdProd>TRIBUTADO ;Base FCP: 0 (%)FCP: 2 V.FCP: 0,2</infAdProd>
     
     
    se alguém puder me ajudar agradeço.
  3. Olá amigos,

    Gostaria de saber o seguinte:

    se eu alterar o vencimento e o valor to titulo

    devo enviar o mesmo duas vezes no arquivo de remessa?

    uma com instrução para alteração do vencimento

    e outra com instrução para alteração do valor?

    grato por sua atenção.

     

  4. Grato por sua atenção.

    não esta perdendo dados.

    à noite passada trocamos o servidor

    tiramos da rede todas as maquinas e

    hoje foram reconectadas apenas as que

    foram formatadas.

    e não deu mais problemas o resto do dia.

    amanha conectaremos cada máquina somente

    depois de formatadas.

  5. Olá,

    não olhei logs.

    restauração do sistema não foi feito.

    backup feito diariamente.

    firebird 2.5 utilizo ha bastante tempo.

    em mais de 1000 clientes somente nesse esta acorrendo isso.

    nunca ocorreu antes.

     

    grato por sua atenção.

  6. Olá amigos,

    peço desculpas antecipadamente, pois sei que o assunto foge ao propósito do forum

    entretanto, é uma emergência, tenho um cliente que utiliza windows server 2012 como servidor

    , e somente nesse cliente, esta acorrendo o seguinte:

    - ele para a conexão com o bd, então preciso parar e reiniciar o serviço firebird, depois  colocar o

    database online, pra voltar a responder a conexão com o servidor.

    - Desativa todos os triggers,então preciso ativar todos.

    - Desaparecem procedures, triggers, indices e preciso recriar novamente.

    já formataram o servidor, mas continua o problema.

    peço desculpas pelo tema, e desde já

    agradeço por sua atenção.

  7. Olá pessoal,

    Infelizmente por causa de um fiscal do procon aqui de minha cidade,

    tive que imprimir no danfe da nfce uma linha, Valor Recebido, segundo o mesmo

    para representar o valor entregue pelo cliente, aí já sabem a grande maioria de servidores

    se acham "autoridade". Enfim, alterei as Units:

    ACBrNFeDANFCeFortesFr, 

    criei uma RLBand antes de troco e no evento beforeprint muito igaul a troco:

    procedure TACBrNFeDANFCeFortesFr.rlbVRecebidoBeforePrint(Sender: TObject;
      var PrintIt: Boolean);
    var
      Troco : Currency ;
    begin
        lRecebido.Caption := FormatFloatBr(fACBrNFeDANFCeFortes.vTroco++ACBrNFeDANFCeFortes.FpNFe.Total.ICMSTot.vNF);
    end;


    para a unit: ACBrNFeDANFeESCPOS alterei o seguinte procedimento:

    procedure TACBrNFeDANFeESCPOS.GerarPagamentos(Resumido: Boolean = False);
    var
      i: Integer;
      {Total,} Troco, vRecebido: Real;
    begin
      //Total := 0;
      FPosPrinter.Buffer.Add('<c>' + PadSpace('FORMA DE PAGAMENTO | Valor Pago',
         FPosPrinter.ColunasFonteCondensada, '|'));
      vRecebido := 0.00;
      for i := 0 to FpNFe.pag.Count - 1 do
      begin
           FPosPrinter.Buffer.Add('<c>' + ACBrStr(PadSpace(FormaPagamentoToDescricao(FpNFe.pag.Items.tPag) +
              '|' + FormatFloatBr(FpNFe.pag.Items.vPag),
              FPosPrinter.ColunasFonteCondensada, '|')));
        vRecebido := vRecebido + FpNFe.pag.Items.vPag;
      end;

      //Troco := Total - FpNFe.Total.ICMSTot.vNF;
      Troco := vTroco;
      vRecebido := vRecebido + vTroco;
        FPosPrinter.Buffer.Add('<c>' + PadSpace('Valor Recebido R$|' +
           FormatFloatBr(vRecebido), FPosPrinter.ColunasFonteCondensada, '|'));
      if Troco > 0 then
        FPosPrinter.Buffer.Add('<c>' + PadSpace('Troco R$|' +
           FormatFloatBr(Troco), FPosPrinter.ColunasFonteCondensada, '|'));

    end;

    para a unit: ACBrNFeDANFEFRDM alterei o seguinte procedimento

    procedure TACBrNFeFRClass.CarregaPagamento;
    var
      i: Integer;
      vRecebido: Currency;
    begin
      with cdsPagamento do
      begin
        Close;
        CreateDataSet;
        vRecebido := 0.00;
        for i := 0 to NFe.Pag.Count - 1 do
        begin
          Append;
          with FNFe.Pag do
          begin
            FieldByName('tPag').AsString  := FormaPagamentoToDescricao( tPag );
            FieldByName('vPag').AsFloat   := vPag;
            vRecebido := vRecebido + FieldByName('vPag').AsFloat;
            // ver tpIntegra
            FieldByName('CNPJ').AsString  := FormatarCNPJ(CNPJ);
            FieldByName('tBand').AsString := BandeiraCartaoToDescStr( tBand );
            FieldByName('cAut').AsString  := cAut;
          end;
          Post;
        end;

        // acrescenta o troco
          Append;
          FieldByName('tPag').AsString  := 'Valor Recebido R$';
          FieldByName('vPag').AsFloat   := vTroco+vRecebido;
          Post;
          vRecebido := 0.00;

        if vTroco > 0 then
        begin
          Append;
          FieldByName('tPag').AsString  := 'Troco R$';
          FieldByName('vPag').AsFloat   := vTroco;
          Post;
        end;
      end;
    end;


    Se os amigos acharem por bem efetuar tal alteração de agora em diante

    fico grato porque não terei que alterar sempre que atualizar o ACBr

    em minha máquina:

    ps: apenas imprime antes da linha Troco, a linha Valor Recebido.

    grato por sua ateção.

     

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