Ir para conteúdo
  • Cadastre-se

Painel de líderes

Conteúdo popular

Showing content with the highest reputation on 29-12-2017 em todas as áreas

  1. Boa tarde. Devido ao fato de diversos bancos trabalharem de forma separada a cobrança da multa e da mora diária, foi criada no titulo a propriedade DataMulta e alterada a rotina AdicionarMensagensPadroes() para utilizar a mesma ao invés da DataJurosMora na decisão da impressão da mensagem referente a cobrança da Multa a partir de uma determinada ou após o vencimento. *** Implementação Anterior *** if PercentualMulta <> 0 then begin if DataMoraJuros <> 0 then AStringList.Add(ACBrStr('Cobrar Multa de ' + FormatCurr('R$ #,##0.00', IfThen(MultaValorFixo, PercentualMulta, ValorDocumento*( 1+ PercentualMulta/100)-ValorDocumento)) + ' a partir '+FormatDateTime('dd/mm/yyyy',ifthen(Vencimento = DataMoraJuros, IncDay(DataMoraJuros,1),DataMoraJuros)))) else AStringList.Add(ACBrStr('Cobrar Multa de ' + FormatCurr('R$ #,##0.00', IfThen(MultaValorFixo, PercentualMulta, ValorDocumento*( 1+ PercentualMulta/100)-ValorDocumento)) + ' após o vencimento.')); end; *** Nova Implementação *** if PercentualMulta <> 0 then begin if DataMulta <> 0 then AStringList.Add(ACBrStr('Cobrar Multa de ' + FormatCurr('R$ #,##0.00', IfThen(MultaValorFixo, PercentualMulta, ValorDocumento*( 1+ PercentualMulta/100)-ValorDocumento)) + ' a partir '+FormatDateTime('dd/mm/yyyy',ifthen(Vencimento = DataMulta, IncDay(DataMulta,1),DataMulta)))) else AStringList.Add(ACBrStr('Cobrar Multa de ' + FormatCurr('R$ #,##0.00', IfThen(MultaValorFixo, PercentualMulta, ValorDocumento*( 1+ PercentualMulta/100)-ValorDocumento)) + ' após o vencimento.')); end; Com esta mudança se faz necessário passar ao componente além da propriedade DataMoraJuros (responsável pela mensagem da Mora), também a propriedade DataMulta, afim de que a mesma seja considerada na impressão das mensagens do boleto. Att.
    1 ponto
  2. Boa noite, Alterei o método TACBrBoleto.ChecarDadosObrigatorios para informar qual campo não foi preenchido, unit em anexo caso queiram subir para o SVN. At.te ACBrBoleto.pas
    1 ponto
  3. No Lazarus, faça um rebuild, pois como alguns arquivos foram mudados de pacote o Lazarus fica "perdido".
    1 ponto
  4. Opa Italo, boa tarde. Funcionou aqui o envio do lote do RPS. Alterei o arquivo abaco.ini deixando a propriedade NameSpace para vazio. Exemplo: VersaoDados=2.01 VersaoXML=1.00 NameSpace= Cabecalho=1 Dados=1 E alterei a unit ACBrNFSeWebServices.pas adicionado na procedure TNFSeWebService.InicializarTagITagF a linha abaixo: if (FProvedor = proAbaco) then FTagI := '<'+FTagGrupo+'>'; Pois, com tag sendo montada da sequinte forma: FTagI := '<' + FTagGrupo + FNameSpaceDad + '>', estava gerando problema de validação no servidor daqui de Manaus. Acredito que devo melhorar e alterar a linha que adicionei, para verificar também o código do município, para que não influencie em outros servidores de outros municípios que usem o abaco. Agora estou testando a consulta do retorno. Mais uma vez obrigado pelas orientações. Ajudou muito. Abraço.
    1 ponto
  5. Boa tarde David, Chegou a testar com o libWinCrypt? Se tratando de TimeOut chegou a aumentar o valor da propriedade Timeout?
    1 ponto
  6. Costa, Ao configurar o componente no que diz respeito ao PathSchemas esta apontando para a pasta: ...\Exemplos\ACBrDFe\ACBrNFSe\Schemas\Pronim ?
    1 ponto
  7. Boa tarde Costa, Qual é a cidade? As URLs de homologação e de produção não são informadas nas propriedades de configuração do componente e sim em um arquivo INI referente ao provedor que atende a cidade em questão.
    1 ponto
  8. Bom dia esse erro so esta acontecendo na revisao 14.363 voltei pra 14362 e instalou com sucesso. agora se eu atualizo pra 14363 que e a ultima da o erro.
    1 ponto
  9. David, Sim, estava errado. A URL correta para o ambiente de homologação é: https://nfsev-prd.manaus.am.gov.br/nfsev/servlet/arecepcionarloterps?wsdl Sendo assim no arquivo Cidades.ini para a cidade de Manaus deve ficar da seguinte forma: [1302603] Nome=Manaus UF=AM Provedor=Abaco NomeURL_H=https://nfsev-prd.manaus.am.gov.br/nfsev NomeURL_P=https://nfse-prd.manaus.am.gov.br/nfse Pois no arquivo Abaco.ini temos: [URL_H] RecepcaoLoteRPS=%NomeURL_H%/servlet/arecepcionarloterps?wsdl O componente ao acessar o Web Service do provedor Abaco se encarrega de substituir o %NomeURL_H% pelo seu conteúdo definido em Cidades.ini resultando assim na URL correta. De forma semelhante ocorre com a URL de produção.
    1 ponto
  10. Boa noite David, Primeiramente quero lhe informar que o arquivo Cidades.ini que você anexou com a alteração esta desatualizado. Procure sempre manter todos os fontes de todas as pastas atualizados. Segundo, a alteração que você fez no arquivo Abaco.ini faz com que as demais cidades que usam esse provedor parem de funcionar. Terceiro, os parâmetros NomeURL_H e NomeURL_P que você informou no Cidades.ini para a cidade de Manaus esta errado. Favor atualizar os fontes e realizar um novo teste com os arquivos: Cidades.ini e Abaco.ini que se encontram no repositório.
    1 ponto
  11. Pessoal, consegui resolver! Mudei para executar o método de envio sincrono e a nota foi recebida sem problemas. Muito obrigada!
    1 ponto
  12. Por favor atualizem os fontes e o instalador pelo SVN, e verifique se o problema foi corrigido...
    1 ponto
  13. Veja os métodos ACBrBoleto1.Banco.MontarCodigoBarras e ACBrBoleto1.Banco.MontarLinhaDigitavel.
    1 ponto
  14. Boa tarde, Minha dúvida é em relação a alimentação do campo codigoCedente. Pelo que entendi, alguns bancos devo informar o DV desse dado. Já em outros, não posso informar. Vejamos dois casos/exemplos: 1 - Banco Bancoob function TACBrBancoob.MontarCampoCodigoCedente ( const ACBrTitulo: TACBrTitulo ) : String; var CodigoCedente: String; begin CodigoCedente := ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente; Result := ACBrTitulo.ACBrBoleto.Cedente.Agencia + '/'+ copy(CodigoCedente,1,length(CodigoCedente)-1)+ '-'+ copy(CodigoCedente,length(CodigoCedente),1); end; 2 - Caixa Econômica function TACBrCaixaEconomica.MontarCampoCodigoCedente ( const ACBrTitulo: TACBrTitulo ) : String; begin Result := RightStr(ACBrTitulo.ACBrBoleto.Cedente.Agencia,4)+ '/' + ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente+ '-' + CalcularDVCedente(ACBrTitulo); end; Para o Bancoob (exemplo 1) o Acbr considera o DV como sendo o último caractere do codigoCedente informado, ou seja, na alimentação desse campo devo obrigatoriamente concatenar código cedente + DV. Já no exemplo 2 (CEF), o acbr calcula acrescenta o DV ao código do cedente, ou seja, devo informar apenas o código cedente, sem DV. A dúvida é: como posso saber qual banco devo e qual banco NÃO devo alimentar o DV do código do cedente? Obrigado.
    1 ponto
  15. Bom dia Régys, Você já pensou que maravilha se todas as cidades fizessem um convenio com a SEFAZ para aceitar a NF-e ou NFC-e somente com serviços? Iria acabar com essa zorra que é a NFS-e.
    1 ponto
×
×
  • 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.