Envio do grupo <cobr> no CT-e OS

[bsoft]

Na revisão 13826 foi adicionado um código para gerar o grupo <cobr> no CT-e OS, de acordo com a Nota Técnica 2017.002. Porém esse grupo preenchido no XML gerou  o erro de retorno "raised exception class EACBrDFeException with message 'Rejeição: Falha no Schema XML do CT-e'".

Os schemas estão atualizados com a NT, então acredito que esse erro se deve à data em que a NT começará a validar essa mudança, pois basta remover o grupo <cobr> que o  XML é validado. Dia  02/10/2017 Homologação e 01/11/2017 em Produção.

Sugerimos uma alteração para que o grupo seja enviado somente após essas datas.

Na unit pcteCTeW, função TCTeW.GerarInfCTeNorm:

if CTe.ide.modelo = 67 then
begin
  // ...   
  if ((CTe.Ide.tpAmb = taHomologacao) and (Date >= EncodeDate(2017, 10, 02)))
    or ((CTe.Ide.tpAmb = taProducao) and (Date >= EncodeDate(2017, 11, 01))) then
    GerarCobr;
end

Obrigado.

 

pcteCTeW.pas

[BigWings]

Minha sugestão é que faça o controle de gerar ou não os dados de cobrança pela sua aplicação.

Já sabemos que na prática essas datas são flexíveis, deixá-las "hard coded" no ACBr não seria o indicado.

E, para não gerar o grupo de cobrança, basta não informar nada para eles:

procedure TCTeW.GerarCobr;
begin
  if (Trim(CTe.infCTeNorm.cobr.fat.nFat) <> '') or (CTe.infCTeNorm.cobr.fat.vOrig > 0) or
     (CTe.infCTeNorm.cobr.fat.vDesc > 0) or (CTe.infCTeNorm.cobr.fat.vLiq > 0) or
     (CTe.infCTeNorm.cobr.dup.Count > 0) then
  begin
    Gerador.wGrupo('cobr', '#384');
    GerarCobrFat;
    GerarCobrDup;
    Gerador.wGrupo('/cobr');
  end;
end;

 

[bsoft]

Agradecemos a rápida resposta, BigWings.

Vamos seguir a sua sugestão e colocar a verificação com a data hard coded no nosso código mesmo. Como usamos a mesma unit para preenchimento do CT-e e do CT-e OS no nosso sistema, as informações do Financeiro integrado ao Conhecimento acabaram sendo preenchidas também para o CT-e OS.