Ir para conteúdo
  • Cadastre-se

Agnaldo Prates

Membros
  • Total de ítens

    972
  • Registro em

  • Última visita

  • Days Won

    4

Posts postados por Agnaldo Prates

  1. O Boleto no Fortes, sendo o Layout Carnê, tem a opção ImgLoja. Talvez seja isso. Unit. ACBrBoletoFCFortesFr.pas veja no form: BoletoCarne
    Quanto aos demais não sei se há.

  2. Qry.CommandText := 'select TITULO, NOME_CLIENTE, SALDO_DEVEDOR from TITULOS_AREC '+#13+#10;

    Qry.CommandText := Qry.CommandText + 'inner join CLIENTES on (CLIENTES.COD_CLI = TITULOS_AREC.CODIGO) '+#13+#10;

    Qry.CommandText := Qry.CommandText + 'where (COD_CLI = :cli) '+#13+#10;

    Qry.CommandText := Qry.CommandText + 'Order by 1'

    ou

    Qry.CommandText := 'select TITULO, NOME_CLIENTE, SALDO_DEVEDOR from TITULOS_AREC ';

    Qry.CommandText := Qry.CommandText + ' inner join CLIENTES on (CLIENTES.COD_CLI = TITULOS_AREC.CODIGO) '

    Qry.CommandText := Qry.CommandText + ' where (COD_CLI = :cli) ';

    Qry.CommandText := Qry.CommandText + ' Order by 1'

  3. Boa tarde.
    Ao gerar o arquivo de remessa SICOOB CNAB240, tive vários problemas, e o pessoal não soube explicar o que poderia ser. Pediram para gerar no CNAB400, gerei, e retornaram dizendo que estafa divergente em algumas informações.

    Fiz as correções devidas e agora homologou beleza.

    AcbrBancoBancoob,pas

    Linhas 347 e 348.

                      IntToStrZero( StrtoInt( OnlyNumber(Cedente.Conta)), 8)  +  // Adicionado para gerar apenas 8 dígitos conforme instruçao LAYOUT.XLS lh 32
                      PadLeft( Cedente.ContaDigito,1,'0')                     +  // Dígito Corrente

    Essa informação do Cedente.Conta, a função PadLeft estava cortando parte da conta do cedente, então alterei para IntToStrZero.

    Acrescentei ainda as variáveis no ACBrBoleto

      TACBrBancoClass = class
        (...)
        fLayoutVersao_HF : String; // Versão do Hearder do arquivo
        fLayoutVersao_HL  : String; // Versão do Hearder do Lote

    constructor TACBrBancoClass.create(AOwner: TACBrBanco);
    (...)

       fLayoutVersao_HF   := '87';
       fLayoutVersao_HL   := '40';

    Devido ao fato de que o Layout para algumas cooperativas muda a versão do Layout, entretanto, acredito que as versões de layouts já poderia fazer parte do AcbrBoleto.

     

    Por aqui normal.

    Parte do email recebido.

    boa tarde
    O arquivo de remessa e boletos estão ok, por favor efetuar um teste de pagamento, solicitar ao jefferson da agencia de jaru para que acompanhe o envio caso seja necessário.


    0 0 1 Não existem registros com erros neste arquivo.
    TOTAL COM ERROS : 0 Documento(s)
    TOTAL SEM ERROS: 7 Documento(s)
    TOTAL GERAL : 7 Documento(s)

    _____________________

    Renato Bastos
    Departamento de Tecnologia
    Analista de Sistemas

     

    • Curtir 1
  4. Aqui está retornando normalmente.

      OpenDialog1.Title := 'Selecione a NFE';
      OpenDialog1.DefaultExt := '*-nfe.XML';
      OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';
      OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Arquivos.PathSalvar;
      if OpenDialog1.Execute then
      begin
        ACBrNFe1.NotasFiscais.Clear;
        ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);
        ShowMessage('dHemi '+ DateTimeToStr( ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi) );
      end;

     

     

     

     

     

    Sem título.png

  5. 30 minutos atrás, medeiros.sunsystem disse:

    Mas sempre terá que  calcular ? pois no link que informei, diz que se for para industrialização ou revenda, não precisa, ou algo assim.

    Na devolução*, na saída da indústria para a distribuidora.

    * Devolução para a indústria, para que ela credite do mesmo imposto que dela foi debitado.

  6. 24 minutos atrás, medeiros.sunsystem disse:

    Olá pessoal.
    Um cliente precisou fazer uma nota de devolução e informou que a contabilidade queria que saísse a nota 100% igual a nota de entrada.
    Porém, percebi que a NFe deles tinha na soma da base de cálculo, incluso o IPI.
    Não tinha visto isto ainda, e fiquei em dúvida, pois vi um artigo que informa quando deve entrar no cálculo para a soma da base de cálculo e quando não deve.
    Mas diante do que li no link: http://www.portaltributario.com.br/guia/icms_bc_ipi.html  , fiquei mais confuso

    Alguém poderia me auxiliar quanto ao que fazer ? Gostaria de conhecer o conceito e sugestões de como deixar isto mais fácil para o usuário final, que muitas vezes não sabe nada de regras da sefaz.
    Segue danfe do fornecedor do meu cliente, que teríamos que fazer uma NFe igual.

    Obrigado

     

    NOTA.jpg

    A BC  do ICMS é com o IPI por dentro, da seguinte maneira.
    Na hora de calcular o ICMS, calcule o IPI sobre o valor total primeiro, conforme consta na sua nota.

    Ex: valor total:  R$ 715,69  aplica aqui a alíquota de 2% do IPI que corresponderá a R$ 14,3138, soma este valor com o valor total de R$ 715,69, totalizado assim R$ 730,0038, assim sendo, a BC do ICMS será R$ 730,00 aplicando-se a alíquota de 12%, gerando assim o ICMS no valor de R$ 87,60.

    E, dessa forma segue, quantos itens existirem na NFe.
    No final, basta que seja informado no total os respectivos valores de IPI e ICMS.

    Essa lei complementar é uma vergonha para o Brasil..

  7. Galera é o seguinte:
    Segundo o Decreto nº. 16.738, em seu art. 1º, inciso I, § 4º, estabelece que: “§ 4º Na hipótese de pagamento com cartão de crédito ou débito,havendo integração do sistema autorizador da venda com o programa emissor de NFC-e, devem ser informados os dados da credenciadora e da autorização concedida.

    Ao analisar o referido parágrafo, é possível extrair o seguinte: Caso já tenha implantado o TEF "havendo integração do sistema autorizador da venda", caso o pagamento seja feito por cartão de crédito ou débito, haverá obrigatoriamente a sua continuidade. 

    Por outro lado, caso o contribuinte não tenha instituído o TEF, no caso da NFCe, não há obrigatoriedade.

    Em resumo, caso o teu cliente já utilize o TEF, e, a o pagamento tenha ocorrido com cartão de crédito ou débito, o TEF é obrigatório.
    Caso não tema o TEF, não é obrigado para NFCe.

  8. Em não sendo erro de aplicação, e, caso o cStat seja 656,  apresente o conteúdo da tag, xMotivo.

    "Olá,
    Galera onde eu trata este erro

    Estou usando a rotina - ACBrNFe1.WebServices.Consulta.Executar
    Esta retornando o
    erro - Consumo indevido.
    Ja tentei - ACBrNFe1.WebServices.Consulta.procEventoNFe.Items[l].RetEventoNFe.xMotivo (Não da)
    queria mostrar uma mensagem para o usuario !"
    O que entendi ma mensagem é que se tratava de um erro.
     
  9. 2 horas atrás, ssouzaacbr disse:

    Pessoal, como poderia emitir um NFCe somente com serviço, quando incluo produto e serviço consigo normalmente se eu incluir somente o serviço a sefaz me retorna dizendo que a soma total dos impostos não batem com o valor da nota, pra funcionar preciso informar o ICMS! mas como só é prestação de serviço acredito que não precise, segue a parte onde estou com dúvidas:

     

          Total.ICMSTot.vBC      := 100;//TClientDataSet(srcItemVenda.DataSet).FieldByName('valorUnitario').Value;
          Total.ICMSTot.vICMS    := 2;
          Total.ICMSTot.vBCST    := 0;
          Total.ICMSTot.vST      := 0;
          Total.ICMSTot.vProd    := 100;
          Total.ICMSTot.vFrete   := 0;
          Total.ICMSTot.vSeg     := 0;
          Total.ICMSTot.vDesc    := 0;
          Total.ICMSTot.vII      := 0;
          Total.ICMSTot.vIPI     := 0;
          Total.ICMSTot.vPIS     := 0;
          Total.ICMSTot.vCOFINS  := 0;
          Total.ICMSTot.vOutro   := 0;
          Total.ICMSTot.vNF      := 100;//TClientDataSet(srcItemVenda.DataSet).FieldByName('valorUnitario').Value;
          Total.ICMSTot.vTotTrib := 2;

          Total.ISSQNtot.vServ   := 100;
          Total.ISSQNTot.vBC     := 100;
          Total.ISSQNTot.vISS    := 2;
          Total.ISSQNTot.vPIS    := 0;
          Total.ISSQNTot.vCOFINS := 0;
          Total.ISSQNTot.dCompet := Now; 

     

    Dessa forma funciona mas se eu remover o ICMS é rejeitado...

     

    Seria interessante postar o xml, assim teríamos uma ideia exata do que esteja ocorrendo.

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