Pesquisar na Comunidade
Showing results for tags 'dactefr'.
Encontrado 2 registros
-
Bom dia. Com a versão 3.0 do CTe, foi adicionado ao DACTe o indicador de CTe globalizado. Fiz a inclusão do campo no fonte anexado. Caso alguem possa adicionar no SVN fico grata. Obs.: até o momento minha necessidade foi apenas deste campo. ACBrCTeDACTEFR.pas
-
Olá amigos, estou enfrentando um problema ao imprimir conhecimentos cancelados, a tarja CTe Cancelado às vezes não aparece. Estou utilizando FastReport. Percebi que na função TACBrCTeDACTEFR.CarregaParametros existe o código abaixo. Não consegui entender a lógica de verificar se a Propriedade "ProtocoloCTe" está vazia e também "FCTe.procCTe.nProt", o que acontece é que debugando percebi que em alguns conhecimentos em alguns casos a propriedade "FCTe.procCTe.nProt" está com o número do protocolo e a "ProtololoCTe" não. Já perdi um tempo aqui e não entendi a finalidade desta última e nem encontrei onde é que o valor dela é preenchido. O correto não seria remover esta propriedade e considerar apenas a "FCTe.procCTe.nProt" ? Obrigado pelos esclarecimentos. if (FCTe.ide.tpAmb = taHomologacao) then FieldByName('Mensagem0').AsString := 'CTe sem Valor Fiscal - HOMOLOGAÇÃO' else begin if not(FCTe.ide.TpEmis in [teContingencia, teFSDA]) then begin if ((EstaVazio(ProtocoloCTE)) and (EstaVazio(FCTe.procCTe.nProt))) then FieldByName('Mensagem0').AsString := 'CTe sem Autorização de Uso da SEFAZ' else if (not((EstaVazio(ProtocoloCTE)) and (EstaVazio(FCTe.procCTe.nProt)))) and (FCTe.procCTe.cStat = 101) then FieldByName('Mensagem0').AsString := 'CTe Cancelado' else begin if CTeCancelada then FieldByName('Mensagem0').AsString := 'CTe Cancelado' else FieldByName('Mensagem0').AsString := ''; end; end else FieldByName('Mensagem0').AsString := ''; end;
