Marcos Mentz_5837
-
Total de ítens
42 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por Marcos Mentz_5837
-
-
Bom dia!
Eu também guardo somente o "nosso número", mas o código para a geração da remessa está utilizando somente esta propriedade para a geração da "modalidade", dessa forma a remessa não gera corretamente.
Marcos
-
Boa tarde!
Eu encontrei um problema ao gerar cnab 240, no seguinte processo, emitir o boleto e em outro momento gerar a remessa.
Na geração da transação do 240, linhas 578 e 579
PadRight(Copy(ANossoNumero,1,2), 2, '0') + //41 a 42 - Modalidade da Carteira
PadLeft(Copy(ANossoNumero,3,17), 15, '0') + //43 a 57 - Nosso número - identificação do título no banco
Acontece que o NossoNumero não tem a modalidade da carteira quando é salvo no registro do banco de dados, fiz uma alteração interna no sistema para guardar a geração do nosso numero que é usado na impressão do boleto, mas no momento de gerar a remessa se eu passo o número integral de 17 dígitos é gerado mensagem de erro que aceita no máximo 15.
E se tenho salvo somente o "NossoNumero" se a modalidade na hora de gerar onde vai ler da propriedade não tem os 17 dígitos para ler a modalidade...
Ao meu ver não deveria fazer a leitura da modalidade pelo "nossoNumero" e sim passar a modalidade como parâmetro ao gerar a linha da remessa no segmento P.
Marcos
-
Bom dia!
O valor de abatimento não tem data de limite como acontece com o valor do desconto que tem, a até na impressão do boleto sai essa mensagem com data.
Nos manuais dos bancos não tem esse campo de data de abatimento para nem ser informado na remessa.
Até onde conheço cobrança bancária nunca vi data de limite para o abatimento, somente para o desconto.
Os campos impressos de boleto acredito que o acbr está correto em não imprimir nos campos, pois é preenchido no momento do pagamento no caixa ou tem a instrução na remessa.
No caso do boleto impresso eu fiz um ajuste para contornar a data de abatimento, pois este o cliente teria direito independente do dia pago, para não afetar os que usam dessa forma no meu ajuste retirei a data de vencimento usada no lugar da data de abatimento.
Exemplo do código alterado na linha 1710:
if ValorAbatimento <> 0 then
begin
if DataAbatimento <> 0 then
AStringList.Add(ACBrStr('Conceder abatimento de ' +
FormatCurr('R$ #,##0.00',ValorAbatimento) +
' para pagamento ate ' + FormatDateTime('dd/mm/yyyy',DataAbatimento)))
else
AStringList.Add(ACBrStr('Conceder abatimento de ' +
FormatCurr('R$ #,##0.00',ValorAbatimento)));//' para pagamento ate ' + FormatDateTime('dd/mm/yyyy',Vencimento)));
end;Marcos
Softbox
-
1
-
-
Bom dia!
Testado e funcionando.
Obrigado.
Marcos
-
2
-
-
Boa noite!
Fiz as alterações nos fontes e arquivo "boletonovo.fr3" para imprimir o nome do sacador avalista e seu CNPJ que não estavam no layout e o campo do CNPJ não tinha suporte.
Unit alterada = ACBrBoletoFCFR
Arquivo fr3 alterado = BoletoNovo.fr3
Em anexo os arquivos para analise e atualização.
Marcos
Softbox Informática Ltda
-
1
-
-
Obrigado.
-
Boa tarde!
Eu tenho a mesma situação e visualizando a versão anterior de sexta está ok, e atual está com esta duplicidade e não valida o XML, segue os fontes de antes funcionando e os atuais para comparação.
Eu copiei as 2 functions anteriores e substitui na versão atual e validou.
----------- anterior valida o XML ------------------------
// CST ICMS ********************************************************************
function CSTICMSToStr(const t: TpcnCSTIcms): string;
begin
// ID -> N02 - Tributada integralmente
// ID -> N03 - Tributada e com cobrança do ICMS por substituição tributária
// ID -> N04 - Com redução de base de cálculo
// ID -> N05 - Isenta ou não tributada e com cobrança do ICMS por substituição tributária
// ID -> N06 - Isenta
// ID -> N06 - Não tributada
// ID -> N06 - Suspensão
// ID -> N07 - Diferimento A exigência do preenchimento das informações do ICMS diferido fica à critério de cada UF.
// ID -> N08 - ICMS cobrado anteriormente por substituição
// ID -> N09 - Com redução de base de cálculo e cobrança do ICMS por substituição tributária
// ID -> N10 - ICMS pagto atribuído ao tomador ou ao terceiro previsto na legislação p/ ST
// ID -> N10a - Operação interestadual para consumidor final com partilhado ICMS devido na operaçãoentre a UF de origem e a UF do destinatário ou a UF definida na legislação. (Ex. UF daconcessionária de entrega do veículos) (v2.0)
// ID -> N10b - Grupo de informação do ICMS ST devido para a UF de destino,nas operações interestaduais de produtos que tiveram retenção antecipada de ICMS por ST na UF do remetente. Repasse via Substituto Tributário. (v2.0)
// ID -> N11 - ICMS devido para outras UF
// ID -> N12 - Outros
result := EnumeradoToStr(t, ['00' , '10' , '20' , '30' , '40' , '41' , '50' , '51' ,
'60' , '70' , '80' , '81', '90', '10', '90', '41', '90', 'SN', '60'],
[cst00, cst10, cst20, cst30, cst40, cst41, cst50, cst51,
cst60, cst70, cst80, cst81, cst90, cstPart10 , cstPart90 ,
cstRep41, cstICMSOutraUF, cstICMSSN, cstRep60]);
end;function StrToCSTICMS(out ok: boolean; const s: string): TpcnCSTIcms;
begin
result := StrToEnumerado(ok, s, ['00', '10', '20', '30', '40', '41', '50', '51', '60', '70', '80', '81', '90', '91', '92'],
[cst00, cst10, cst20, cst30, cst40, cst41, cst50, cst51, cst60, cst70, cst80, cst81, cst90, cstICMSOutraUF, cstICMSSN]);
end;------------------- nova que não valida o XML -----------------------
// CST ICMS ********************************************************************
function CSTICMSToStr(const t: TpcnCSTIcms): string;
begin
// ID -> N02 - Tributada integralmente
// ID -> N03 - Tributada e com cobrança do ICMS por substituição tributária
// ID -> N04 - Com redução de base de cálculo
// ID -> N05 - Isenta ou não tributada e com cobrança do ICMS por substituição tributária
// ID -> N06 - Isenta
// ID -> N06 - Não tributada
// ID -> N06 - Suspensão
// ID -> N07 - Diferimento A exigência do preenchimento das informações do ICMS diferido fica à critério de cada UF.
// ID -> N08 - ICMS cobrado anteriormente por substituição
// ID -> N09 - Com redução de base de cálculo e cobrança do ICMS por substituição tributária
// ID -> N10 - ICMS pagto atribuído ao tomador ou ao terceiro previsto na legislação p/ ST
// ID -> N10a - Operação interestadual para consumidor final com partilhado ICMS devido na operaçãoentre a UF de origem e a UF do destinatário ou a UF definida na legislação. (Ex. UF daconcessionária de entrega do veículos) (v2.0)
// ID -> N10b - Grupo de informação do ICMS ST devido para a UF de destino,nas operações interestaduais de produtos que tiveram retenção antecipada de ICMS por ST na UF do remetente. Repasse via Substituto Tributário. (v2.0)
// ID -> N11 - ICMS devido para outras UF
// ID -> N12 - Outros
result := EnumeradoToStr(t, ['00' , '10' , '20' , '30' , '40' , '41' , '50' , '51' ,
'60' , '70' , '80' , '81', '90', '10', '90', '41', '90', 'SN', '60'],
[cst00, cst10, cst20, cst30, cst40, cst41, cst50, cst51,
cst60, cst70, cst80, cst81, cst90, cstPart10 , cstPart90 ,
cstRep41, cstICMSOutraUF, cstICMSSN, cstRep60]);
end;function StrToCSTICMS(out ok: boolean; const s: string): TpcnCSTIcms;
begin
result := StrToEnumerado(ok, s, ['00', '10', '20', '30', '40', '41', '50', '51', '60', '70', '80', '81', '90', '90', 'SN'],
[cst00, cst10, cst20, cst30, cst40, cst41, cst50, cst51, cst60, cst70, cst80, cst81, cst90, cstICMSOutraUF, cstICMSSN]);
end; -
Boa tarde!
Mais um ajuste necessário após a última atualização.
Unit pnfsNFSeR linha 2679, está invertido a avaliação do "if" , se gue o ajuste feito a unit anexada.
function TNFSeR.LerNFSe_Infisc: Boolean;
begin
Result := False;
Leitor.Grupo := Leitor.Arquivo;if (Pos('<NFS-e>', Leitor.Arquivo) > 0) then
begin
if VersaoNFSe = ve110 then
Result := LerNFSe_Infisc_V11 <<--
else
Result := LerNFSe_Infisc_V10; <<--
end;
end; -
Boa tarde!
Na unit "pnfsNFSeW_Infisc" tive que comentar 3 linhas que acredito estarem incorretas, pois o valor líquido da NFSe não ficou correto com retenção, estava o valor cheio.
Desta maneira validou, antes acusava o valor liquido da NFSe incorreto.
else begin
Gerador.wGrupoNFSe('total');
Gerador.wCampoNFSe(tcDe2, '', 'vServ', 01, 15, 1, NFSe.Servico.Valores.ValorServicos, '');
Gerador.wCampoNFSe(tcDe2, '', 'vDesc', 01, 15, 1, NFSe.Servico.Valores.DescontoIncondicionado, '');
Gerador.wCampoNFSe(tcDe2, '', 'vtNF' , 01, 15, 1, NFSe.Servico.Valores.ValorServicos, '');//--- 573 aqui if NFSe.CondicaoPagamento.Parcelas.Count > 0 then
Gerador.wCampoNFSe(tcDe2, '', 'vtLiq', 01, 15, 1, NFSe.Servico.Valores.ValorLiquidoNfse, '');
//--- 575 aqui else
//---576 aqui Gerador.wCampoNFSe(tcDe2, '', 'vtLiq', 01, 15, 1, NFSe.Servico.Valores.ValorServicos, '');Gerador.wCampoNFSe(tcDe2, '', 'totalAproxTrib', 01, 15, 1, 0, '');Em anexo a unit alterada.MarcosSoftbox -
Boa tarde!
Eu estava com o mesmo problema se espaço a mais no segmento "P", verifiquei que eu estava passando CodigoMora='1' e mesmo assim havia um caracter a mais.
Baseado nos relatos fui olhar a unit ACBrBancoBancoob e na linha 860 estava ' '; (um espaço em branco), retirei o espaço conforme o código abaixo e gerou a linha com 240.
Result := Result+Carteira + // 58 a 58 carteira
'0' + // 59 Forma de cadastramento no banco
' ' + // 60 Brancos
ATipoBoleto + // 61 Identificação da emissão do boleto
'2' + // 62 Identificação da distribuição
PadRight(NumeroDocumento, 15, ' ') + // 63 a 77 - Número que identifica o título na empresa [ Alterado conforme instruções da CSO Brasília ] {27-07-09}
FormatDateTime('ddmmyyyy', Vencimento) + // 78 a 85 - Data de vencimento do título
IntToStrZero( round( ValorDocumento * 100), 15) + // 86 a 100 - Valor nominal do título
'00000' + // 101 a 105 - Agência cobradora. // Ficando com Zeros o Itaú definirá a agência cobradora pelo CEP do sacado
' ' + // 106 - Dígito da agência cobradora
PadRight(AEspecieTitulo, 2) + // 107 a 108 - Espécie do documento
ATipoAceite + // 109 - Identificação de título Aceito / Não aceito
FormatDateTime('ddmmyyyy', DataDocumento) + // 110 a 117 - Data da emissão do documento
CodigoMora + // 118 - Codigo Mora (juros) - 1) Por dia, 2) Taxa mensal e 3) Isento
ADataMoraJuros + //119 a 126 - Data a partir da qual serão cobrados juros
IfThen(ValorMoraJuros > 0,
IntToStrZero( round(ValorMoraJuros * 100), 15),
PadLeft('', 15, '0')) + // 127 a 141 - Valor de juros de mora por dia
'0' + // 142 - Zeros
ADataDesconto + // 143 a 150 - Data limite para desconto
IfThen(ValorDesconto > 0,
IntToStrZero( round(ValorDesconto * 100), 15),
PadLeft('', 15, '0')) + // 151 a 165 - Valor do desconto por dia
IntToStrZero( round(ValorIOF * 100), 15) + // 166 a 180 - Valor do IOF a ser recolhido
IntToStrZero( round(ValorAbatimento * 100), 15) + // 181 a 195 - Valor do abatimento
PadRight(SeuNumero, 25, ' ') + // 196 a 220 - Identificação do título na empresa
'1' + // 221 - Código de protesto: Protestar em XX dias corridos
DiasProtesto + // 222 a 223 - Prazo para protesto (em dias corridos)
'0' + // 224 - Código de Baixa
space(3) + // 225 A 227 - Dias para baixa
'09' + //
'0000000000' + // Numero contrato da operação
'';
Marcos
Softbox
-
Atualizado 2 vezes e inclusive apagando a pasta do acbr, desistalando e reinstalando os componentes e usado o arquivo .ini alterado e o problema continua.
Vou fazer o procedimento todo novamente e retorno o resultado.
Obrigado.
-
Bom dia!
Estou usando ISSNet e ontem após a atualização do componente também começou a dar a mensagem, usando o arquivo ISSNet.ini também atualizado.
Usando libCapicom
Erro ao enviar Impossível assinar. Componente configurado para não usar Certificado
-
Bom dia!
Atualizei os fontes e ocorreu erro ao compilar o pacote MDF-e, erro na linha 395 para identificador não declarado:
is_qtdRat_UnidCarga := False;
Marcos Mentz
Softbox
-
Testado e funcionando com o ajuste.
Obrigado
Marcos Mentz
-
1
-
-
Unit ACBrCTeDACTEFRDM linha 658
Erro reportado nesta linha de código: NroNota := StrToInt(Copy(chave, 26, 9)); // Adicionado por Rodrigo Cardilo em 11/08/2014
Quando há mais de um documento vinculado com o CT-e o loop passa além da quantidade de documentos e gera erro na linha acima por tentar transformar a chave em branco para inteiro.
Resolvido temporariamente colocando o código abaixo na linha 659:
if Chave = '' then
Continue;
-
Na geração da Danfe/PDF há erro na geração do valor líquido quando o valor do desconto é acima de 999,99.
Ex: '1.000,00' is not a valid floating poit value
Linha 464 da unit ACBrNFeDANFEFRDM:
FieldByName('Valorliquido').AsString := FormatFloatBr( Prod.vProd - StrToFloat( FieldByName('vDesc').AsString ) ,'###,###,##0.00');
Resolvido temporariamente:
aux := FieldByName('vDesc').AsString;
aux := StringReplace(aux, '.', '', [rfReplaceAll]);FieldByName('Valorliquido').AsString := FormatFloatBr( Prod.vProd - StrToFloat( aux{FieldByName('vDesc').AsString} ) ,'###,###,##0.00');
Melhoria no ACBrBancoCaixa
em ACBrBoleto
Postado
Bom dia!
Fazendo o seguinte procedimento:
- emitir o boleto: o nosso número sai certo no boleto, salvo o campo "nossonumero" no registro da duplicata, ao salvar não é salvo a modalidade, a modalidade é gerada na montagem durante a emissão do boleto.
- em outro momento vou gerar a remessa das duplicatas, no final do dia por exemplo, como tenho o "nossonumero" salvo na duplicata (não está salvo a modalidade junto) e vou gerar o arquivo o "nossonumero" na remessa fica incompleto para gerar a informação na linha PadRight(Copy(ANossoNumero,1,2), 2, '0') .
Fiz a depuração e rastreamento do código e não fica a remessa de acordo com o layout do banco.
Marcos