Jump to content

barrys

Membros
  • Content Count

    264
  • Joined

  • Last visited

Community Reputation

12 Good

1 Follower

About barrys

  • Rank
    Membro Ativo

Profile Information

  • Sexo
    Masculino
  • Localização
    Catanduva - SP

Recent Profile Visitors

1,318 profile views
  1. * Windows 7 em todos * Delphi Berlin * Só uso Fortes
  2. esta propriedade CodigoMoraJuros nao está valendo de nada, pelo que notei. Porque tanto faz eu informar nela cjValorDia, cjTaxaMensal ou cjTaxaDiaria que vai sair a mesma coisa no boleto... o que faz mudar é a propriedade CodigoMora, "1" para calculo em $ "2" para calculo em %
  3. Neste caso entao eu nao consigo informar no boleto juros em % ao dia? Somente ao mês! é o que o codigo diz.
  4. comigo tb acontece isso! na primeira impressao, vai normal. mas as seguintes fica tudo torto.
  5. 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.
  6. Acabei de verificar um boleto que fiz pelo Banco do Brasil... mesmo problema! nao foi calculado o juros.... nao sei como resolver isso.
  7. 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...
  8. 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 Esta mensagem de Multa e juros foi gerada automaticamente....
  9. Sim, aparece no boleto pela mensagem padrao.. Mas na hora de pagar o boleto vencido, nao é calculado o juros (a multa sim)
  10. 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?
  11. 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....
  12. Boa noite! Poderia postar o metodo que esta fazendo para obter o download do Xml?
  13. A pergunta é: Por que somente o arquivei lite consegue fazer o download? (Fora o site do governo..)
  14. 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..
  15. Nao carrega as notas emitidas de MG para SP.. tenho que abrir um topico pra isso? Abre em no topico NFe mesmo? ou por aqui já podemos verificar?
×
×
  • Create New...