Ir para conteúdo
  • Cadastre-se

barrys

Membros
  • Total de ítens

    337
  • Registro em

  • Última visita

Posts postados por barrys

  1. Em 05/12/2019 at 08:51, Juliana Tamizou disse:

    Bom dia.

    Por favor verifique se seus fontes estão atualizados...note no trecho a seguir que a montagem da mensagem de juros não condiz com a impressa em seu boleto.

    if ValorMoraJuros <> 0 then
          begin
             if DataMoraJuros <> 0 then
                AStringList.Add(ACBrStr('Cobrar juros de '                        +
                                ifthen(((CodigoMora = '2') or (CodigoMora = 'B')), FloatToStr(ValorMoraJuros) + '% ao mês',
                                       FormatCurr('R$ #,##0.00 por dia',ValorMoraJuros))         +
                                 ' de atraso para pagamento '+
                                 ifthen(Vencimento = DataMoraJuros, 'após o vencimento.',
                                        'a partir de '+FormatDateTime('dd/mm/yyyy',DataMoraJuros))))
             else
                AStringList.Add(ACBrStr('Cobrar juros de '                +
                                        ifthen(((CodigoMora = '2') or (CodigoMora = 'B')), FloatToStr(ValorMoraJuros) + '% ao mês',
                                               FormatCurr('R$ #,##0.00 por dia',ValorMoraJuros))         +
                                 ' de atraso'));
          end;  

    Att.

    Neste caso entao eu nao consigo informar no boleto juros em % ao dia?  Somente ao mês!  é o que o codigo diz.

  2. 16 minutos atrás, Juliana Tamizou disse:

    Bom dia.

    Me corrija se eu estiver errada, mas me parece que oque vc gostaria é que ao realizar o pagamento o valor de juros e multa total fosse calculado, correto?

    Se sim, volto a repetir, se sua remessa esta com os dados corretos, vc deve consultar o banco para entender se o site deles faz esse calculo  no momento do pagamento. Para o pagamento fisico, o atende faz o calculo conforme as instruções impressas no boleto.

    Att.

    Sim, eu gostaria que fosse calculado a Multa e Juros no boleto para pagamento fisico ou nao.
    Minha preocupaçao é o procedimento usado para gerar juros (Conforme acima no primeiro post) está correto.

    Alguem está usando o calculo de juros em %?  poderiam comparar a rotina pra ver se estou fazendo algo errado.

  3. o calculo correto seria...


    Valor Original do Boleto R$ 100,00
    Valor Multa (2%) R$ 2,00

    Valor Juros (0,033%) >> (ou 1%mes) R$ 0,03

    TOTAL DO BOLETO cobrado = R$ 102,03

     

     

    qual a importancia da propriedade "CodigoMora"

    No exemplo citado acima, eu informei CodigoMora := '2';

    é necessário informar esta propriedade? tendo em vista que a propriedade " CodigoMoraJuros := cjTaxaDiaria; //em porcentagem "  já foi informada...

  4. Estou pagando pelo proprio banco, fisicamente e pelo aplicativo
    Estou gerando alguns boletos para testes...  mas nenhum calculou o juros na hora de pagar vencido.
    Segue imagem do Boleto

    image.thumb.png.452f7f1c9b7741e26ec982af3e18f86c.png
     

    Esta mensagem de Multa e juros foi gerada automaticamente....
     

  5. Estou com problemas ao gerar boletos e calcular o juros.

    Segue procedimento para análise. Tenho boletos para Banco Brasil e Sicoob

    // 1 = valor por dia
    // 2 = taxa mensal
    // 3 = isento

          //JUROS
          if ( mConsultar.FieldByName('boleto_valor_juros').AsCurrency > 0 ) then
          begin
            CodigoMoraJuros := cjValorDia;  //em valor
            ValorMoraJuros  := mConsultar.FieldByName('boleto_valor_juros').AsCurrency;
            DataMoraJuros   := Vencimento +1; // StrToDateDef('', 0);
            CodigoMora      := '1';
          end;

          if ( mConsultar.FieldByName('boleto_porc_juros').AsCurrency > 0 ) then
          begin
            CodigoMoraJuros := cjTaxaDiaria; //em porcentagem
            ValorMoraJuros  := mConsultar.FieldByName('boleto_porc_juros').AsCurrency;
            DataMoraJuros   := Vencimento +1; // StrToDateDef('', 0);
            CodigoMora      := '2';
          end;
          //fim JUROS

    Alguem pode me ajudar?

    Onde estou fazendo errado?

  6. boa tarde!

    Estive analisando aqui.. 

    * 01 - o site Fsist transfere a consulta para o site do governo..

    * 02 - digito chave no site do governo e botao consultar

    * 03 - sou retornado ao site Fsist para baixar o XML sem o certificado..
    No caminho destas 3 etapas...  o site do governo "dá uma brecha" para liberar o arquivo? será que conseguiram "burlar" alguma coisa?

    porque nao é possivel.. somente 2 sites conseguirem baixar o arquivo sem o certificado....

  7. Tenho este metodo aqui mas nunca funcionou..

    with DataModule1.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt do
          begin
            if (cStat = 138) then
            begin
              for i := 0 to docZip.Count - 1 do
              begin
                // Valores retornados: schresNFe        (Resumo de Nota),
                //                     schresEvento     (Resumo de Evento)
                //                     schprocEventoNFe (Evento Completo)
                //                     schprocNFe       (Nota Completa),

                if (docZip.Items.schema = schresNFe)
                then resultadoTipoEvento := 'schresNFe'
                else
                if (docZip.Items.schema = schresEvento)
                then resultadoTipoEvento := 'schresEvento'
                else
                if (docZip.Items.schema = schprocEventoNFe)
                then resultadoTipoEvento := 'schprocEventoNFe'
                else
                if (docZip.Items.schema = schprocNFe) then //verifica se o arquivo é o XML da NFe (-nfe.xml)
                begin
                    XML := docZip.Items.XML;
                    ArqXML := TStringStream.Create(XML);
                    XMLDocument1.LoadFromStream(ArqXML);
                    XMLDocument1.Active;

                    XMLDocument1.SaveToFile('C:\sistema\'+DBGridManifestos.Fields[13].AsString+'.xml');
                    acheiNFe := true;
                    break;
                end
                else resultadoTipoEvento := 'inesperado';
              end;
            end;
          end;

     

    a pergunta é:  Consegue baixar o XML da nota? Senao eu paro de tentar aqui..

  8. Comunico que foi resolvido o problema em relaçao ao procedimento de transmissao.

    Falei com os responsaveis da cidade referida e o problema de "Setor Cadastrado" foi ajustado perante ao provedor.

    Agradeço e muito a colaboração, principal do Italo para ajuda neste problema. (passei uns 15 dias tentando resolver...)

    Grato!

     

     

     

    • Curtir 2
  9. Bom dia Italo!

    Abaixo o erro ao (Enviar) e (Enviar Sincrono)

    OBS>> com as seguintes configurações:

           Configuracoes.Geral.SSLCryptLib   := cryWinCrypt;
           Configuracoes.Geral.SSLHttpLib    := httpWinHttp;
           Configuracoes.Geral.SSLLib        := libWinCrypt;
           Configuracoes.Geral.SSLXmlSignLib := xsMsXml;   <<<<<<<  mudei aqui

     

    image.png.42c300f3dc14fa6a2a63de1fd27358d0.png

  10. Italo, boa noite!

    Acabei de atualizar os fontes...  apaguei tudo e instalei novamente!

    Inclusive vi que agora os arquivos Cidades.ini e Fiorilli.ini já contem a cidade de Pirangi-SP no registro.

    image.png.4bd83647e33efb8c435088d7fd7cb2b5.png

    Porém...  continuo com o erro interno:0  Http 500

    image.thumb.png.f89e94e3769a737471180fab5d8aca75.png

    Entrei em contato com o provedor e me disseram que está tudo certo...

    Estou sem recursos para resolver este problema.

    Fiz até um video, é permitido enviar aqui?

    4518-ger-nfse.xml

    4518-ger-nfse-soap.xml

  11. Rodrigo Barbosa, poderia informar um trecho do codigo seu validado, por favor

    Ex: RegimeEspecialTributacao :=

    OptanteSimplesNacional :=

    Servico.Valores.Aliquota :=

    Servico.ResponsavelRetencao :=

    e em relacao as SSL?

      //DataModule1.ACBrNFe.SSL.SSLCryptClass := 'cryWinCrypt';
      //DataModule1.ACBrNFe.SSL.SSLHttpClass  := 'httpWinHttp';
      //DataModule1.ACBrNFe.SSL.SSLlib        := 'libWinCrypt';
      //DataModule1.ACBrNFe.SSL.SSLXmlSignLib := 'xsLibXml2';

    Preciso de ajuda..

     

  12. Em 19/11/2018 at 07:38, jean almeida disse:

    O cancelamento não funciona via sistema porque a prefeitura bloqueia a função. Dai o cliente tem que fazer um requerimento pedindo o cancelamento. 

    Substituir pode mais ocorre o erro:

    Arquivo enviado com erro na assinatura.

    Acerte a assinatura do arquivo.

    Quando tento substituir uma nfse.

     

    Conseguiu resolver este erro para enviar uma nota?

    Pode me passar seu procedimento? nao estou conseguindo aqui.

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