Sugestão e Duvida de como colaborar no projeto

[Alexandre Faustinoni]

Uma sugestão para implementação no fonte d

            GravaLog('Validar: 867-Se informado o grupo de Parcelas de cobrança (tag:dup, Id:Y07) e Data de vencimento (dVenc, id:Y09) não informada ou menor que a Data de vencimento da parcela anterior (dVenc, id:Y09)');
            if (nfe.Cobr.Dup.Items[I].dVenc < UltVencto) then
              AdicionaErro('867-Rejeição: Data de vencimento da parcela não informada ou menor que a Data de vencimento da parcela anterior');

para:

            GravaLog('Validar: 867-Se informado o grupo de Parcelas de cobrança (tag:dup, Id:Y07) e Data de vencimento (dVenc, id:Y09) não informada ou menor que a Data de vencimento da parcela anterior (dVenc, id:Y09)');
            if (nfe.Cobr.Dup.Items[I].dVenc < UltVencto) and (i > 0) then
              AdicionaErro('867-Rejeição: Data de vencimento da parcela não informada ou menor que a Data de vencimento da parcela anterior');

 

Gostaria de saber como colaborar no projeto.

[Felipe E. Resende Mesquita]

1 minuto atrás, Alexandre Faustinoni disse:

Uma sugestão para implementação no fonte d

            GravaLog('Validar: 867-Se informado o grupo de Parcelas de cobrança (tag:dup, Id:Y07) e Data de vencimento (dVenc, id:Y09) não informada ou menor que a Data de vencimento da parcela anterior (dVenc, id:Y09)');
            if (nfe.Cobr.Dup.Items[I].dVenc < UltVencto) then
              AdicionaErro('867-Rejeição: Data de vencimento da parcela não informada ou menor que a Data de vencimento da parcela anterior');

para:

            GravaLog('Validar: 867-Se informado o grupo de Parcelas de cobrança (tag:dup, Id:Y07) e Data de vencimento (dVenc, id:Y09) não informada ou menor que a Data de vencimento da parcela anterior (dVenc, id:Y09)');
            if (nfe.Cobr.Dup.Items[I].dVenc < UltVencto) and (i > 0) then
              AdicionaErro('867-Rejeição: Data de vencimento da parcela não informada ou menor que a Data de vencimento da parcela anterior');

 

Gostaria de saber como colaborar no projeto.

Boa tarde, Alexandre Faustinoni

Basta anexar a unit alterada para que possamos validar.

[Alexandre Faustinoni]

2 minutos atrás, Felipe E. Resende Mesquita disse:

Boa tarde, Alexandre Faustinoni

Basta anexar a unit alterada para que possamos validar.

Em um tópico novo mesmo igual eu fiz ?

[Felipe E. Resende Mesquita]

Agora, Alexandre Faustinoni disse:

Em um tópico novo mesmo igual eu fiz ?

Nesse mesmo.

[Alexandre Faustinoni]

1 minuto atrás, Felipe E. Resende Mesquita disse:

Nesse mesmo.

blz vou acabar de fazer alguns ajustes e vou anexar.

 

Segue sugestão de mudança para 

 

            GravaLog('Validar: 894-Se informado o grupo de Parcelas de cobrança (tag:dup, Id:Y07) e Data de vencimento (dVenc, id:Y09) não informada ou menor que a Data de Emissão (id:B09)');
            if (Trunc(nfe.Cobr.Dup.Items.dVenc) < Trunc(NFe.Ide.dEmi)) then
              AdicionaErro('894-Rejeição: Data de vencimento da parcela não informada ou menor que Data de Emissão');

            GravaLog('Validar: 867-Se informado o grupo de Parcelas de cobrança (tag:dup, Id:Y07) e Data de vencimento (dVenc, id:Y09) não informada ou menor que a Data de vencimento da parcela anterior (dVenc, id:Y09)');
            if (Trunc(nfe.Cobr.Dup.Items.dVenc) < Trunc(UltVencto)) and (i > 0) then
              AdicionaErro('867-Rejeição: Data de vencimento da parcela não informada ou menor que a Data de vencimento da parcela anterior');
 

            GravaLog('Validar: 894-Se informado o grupo de Parcelas de cobrança (tag:dup, Id:Y07) e Data de vencimento (dVenc, id:Y09) não informada ou menor que a Data de Emissão (id:B09)');
            if (Trunc(nfe.Cobr.Dup.Items[I].dVenc) < Trunc(NFe.Ide.dEmi)) then
              AdicionaErro('894-Rejeição: Data de vencimento da parcela não informada ou menor que Data de Emissão');

            GravaLog('Validar: 867-Se informado o grupo de Parcelas de cobrança (tag:dup, Id:Y07) e Data de vencimento (dVenc, id:Y09) não informada ou menor que a Data de vencimento da parcela anterior (dVenc, id:Y09)');
            if (Trunc(nfe.Cobr.Dup.Items[I].dVenc) < Trunc(UltVencto)) and (i > 0) then
              AdicionaErro('867-Rejeição: Data de vencimento da parcela não informada ou menor que a Data de vencimento da parcela anterior');

 

ACBrNFeNotasFiscais.pas

[Alexandre Faustinoni]

Fiz outra mudança no mesmo .pas.

Agora para pegar a soma das parcelas somente se count das parcelas for > 0.

 

ACBrNFeNotasFiscais.pas

[Daniel Simoes]

Alexandre, poderia descrever, porque precisou dessa modificação?

O que ela melhorou ou corrigiu?

[wpereira]

Daniel, Bom dia

No post de Alexandre Faustinoni do dia 03 (acima) ele fala de um ajuste q fez. Senti a mesma necessidade dele. Fiz uma nota, e informei o pagamento/fatura com data de hoje. Houve erro de validação, pois a data do pagamento é 20/09/18, e a comparação com data de emissão 20/09/18 12:32. Vai cair na excessão.
Nas alterações dele, fiz um pouco diferente, em vez de usar o Trunc, usei DateOf (somente na data de emissão):

 if (nfe.Cobr.Dup.Items[I].dVenc < DateOf(NFe.Ide.dEmi)) then

Acho q isso é válido para as duas situações. Citei apenas uma.

Qquer coisa, estou a disposição.

Wanderson

[Daniel Simoes]

@Italo Jurisato Junior, está cuidando do "merge" com as sugestões... Muito obrigado pela contribuição...