Mensagem no DACTe como "Previsão DACTE"

[Mario Inacio]

Boa tarde.

Procurei no componente de CT-e e não encontrei nenhuma forma de sair na previsão de CT-e, a mensagem "Previsão DACTE" como usado no componente da Tecnospeed.

Há a alguma forma de fazer isso disso?

[Juliomar Marchetti]

Qual tipo está usando? Fast Report ou Fortes Report?

ambos não tem a implementação. mas se quiser contribuir fazendo para ambos.

[Mario Inacio]

Boa tarde.

Uso o Fortes, vou implementar e enviar pra aprovação então.

[Mario Inacio]

Bom dia.

Alterei a função procedure TfrmDACTeRLRetrato.rlb_09_ObsBeforePrint incluindo a verificação se o CT-e possui protocolo, caso não possua, imprime a mensagem de previsão.

 

  if fpCTe.Ide.tpAmb = taHomologacao then
  begin
    if rlmObs.Lines.Count < 5  then
    begin
       rlmObs.Lines.BeginUpdate;
       for i:=rlmObs.Lines.Count to 5 do
          rlmObs.Lines.Add('');
       rlmObs.Lines.EndUpdate;
    end;
    if fpCTe.procCTe.nprot = '' then
       rllMsgTeste.Caption := ACBrStr('Previsao do DACTE - AMBIENTE DE HOMOLOGAÇÃO')
    else
       rllMsgTeste.Caption := ACBrStr('AMBIENTE DE HOMOLOGAÇÃO - SEM VALOR FISCAL');
    rllMsgTeste.Visible := True;
    rllMsgTeste.Enabled := True;
  end
  else

ACBrCTeDACTeRLRetrato.dfm ACBrCTeDACTeRLRetrato.pas

[Italo Giurizzato Junior]

Boa tarde Mario,

Não acho prudente utilizar o mesmo termo usado pela TecnoSpeed.

Além do mais o termo "Previsão" não soa bem (minha opinião).

Temos a principio 2 situações (CT-e protocolado e não protocolado) para cada ambiente (homologação / produção)

No meu entendimento a mensagem deveria ser:

Ambiente de Homologação, CT-e não protocolado, Mensagem: CT-e não autorizado no Ambiente de Homologação

Ambiente de Homologação, CT-e protocolado, Mensagem: CT-e sem Valor Fiscal - Ambiente de Homologação

Ambiente de Produção, CT-e não protocolado, Mensagem: CT-e não autorizado no Ambiente de Produção

Ambiente de Produção, CT-e protocolado, não se deve imprimir nenhuma mensagem.

Espero que compreenda os meus argumentos.

 

 

[Mario Inacio]

Boa tarde.

Acho um tanto confuso para o usuário final.

Como ele lê a palavra "Previsão" já presume do que se trata, mas ele não consegue interpretar Protocolado e Não Protocolado, que seriam os termos na camada de baixo da aplicação.

Mas é só uma opinião.

[Italo Giurizzato Junior]

Mario,

A mensagem a ser apresentada não teria o termo protocolado e sim não autorizado, veja a mensagem em negrito na minha postagem anterior.

Se mesmo assim você acha que fica confuso para o usuário poderíamos imprimir: CT-e não enviado, sem Valor Fiscal.

 

[Mario Inacio]

Ficaria melhor assim

[Italo Giurizzato Junior]

Bom dia Mario,

Se desejar fazer a alteração colocando as mensagens propostas por mim ou outras que você achar melhor, anexa os fontes aqui para que possamos analisar novamente.

[Mario Inacio]

Bom dia.

Segue alteração:

Unit: ACBrCTeDACTeRLRetrato 

Função: rlb_09_ObsBeforePrint

Código alterado:

  if fpCTe.Ide.tpAmb = taHomologacao then
  begin
    if rlmObs.Lines.Count < 5  then
    begin
       rlmObs.Lines.BeginUpdate;
       for i:=rlmObs.Lines.Count to 5 do
          rlmObs.Lines.Add('');
       rlmObs.Lines.EndUpdate;
    end;
    if fpCTe.procCTe.nprot = '' then
       rllMsgTeste.Caption := ACBrStr('CT-e não enviado, sem Valor Fiscal - Homologação')
    else
       rllMsgTeste.Caption := ACBrStr('AMBIENTE DE HOMOLOGAÇÃO - SEM VALOR FISCAL');
    rllMsgTeste.Visible := True;
    rllMsgTeste.Enabled := True;
  end

 

ACBrCTeDACTeRLRetrato.pas ACBrCTeDACTeRLRetrato.dfm

[Italo Giurizzato Junior]

Boa noite Mario,

Muito obrigado pela colaboração, vou incluir na minha lista de tarefas para ainda esta semana analisar e estando tudo OK, vou enviar para o repositório.

[Italo Giurizzato Junior]

Bom dia Mario,

Desculpe pela demora, mas já enviei para o repositório a sua contribuição.

Favor atualizar e fazer novos testes.