Inserção de Campo DACT-E (Urgente)

[diegosiena]

Olá galera, bom dia... Primeiro Post.

Por favor, me ajudem.. Tenho um sistema em Delphi que utiliza o ACBR CTe, um cliente me pediu que fosse inserido um campo (Label) no DACT-e... Como eu insiro este campo no DACT-e já que nao tenho a parte visual do DACT e tudo é feito nas Fontes do ACBR ????

Por favor gaalera, to com um pouco de pressa.

Obriigado.

[Doni Delphi]

Mas qual finalidade seria este campo, que tipo de informação ?

[diegosiena]

Queria colocar a seguinte especificação: "Serviço de frete intermunicipal"... Pois um comprador exigiu tal informação impressa no CT-e

Obrigado..

[gransoft]

UBERLÂNDIA-MG, 09 de maio de 2012.

Prezado Diego,

Analise o fragmento:

          compl.xObs := Msg_CTe;

          // --> Obs do Contribuinte

          if ( Trim( cdsCTeObs.AsString ) <> '') then

          begin

            with compl.ObsCont.Add do

            begin

              xCampo := 'Obs1';

              xTexto := Copy(Trim( cdsCTeObs.AsString ),1,160);  // Máximo 160 ( Schema )

            end;

          end;

Atenciosamente,

Janis Peters Grants.

[diegosiena]

Janis, Obrigado pela atenção...

Pelo que vi este codigo seria para incluir na observação, certo ??

Porém o pedido foi que a frase fosse inserida sem ser no campo "OBS"... De preferencia embaixo de onde coloca-se as chaves das NF-E's referente ao CT-e... Como inserir um Label de QReport, porém nao se tem a parte visual do Dact-e para poder fazer isso..

Muito Obrigado.

[gransoft]

E que tal um "jeitinho" ?!

    CTeDACTe.Sistema := ' '             + StrZero( cdsCTecd_conhecimento.Value, 6)     + '   ' +

                              'Usuário Inc: ' + IntToStr( cdsCTecd_usuario_inclusao.Value )  + '   ' +

                              'REIMP: '        + IntToStr( cdsCTecd_usuario_impressao.Value ) + '   ' +

                              'Nat.Frete: '   + NatFrete + '   ' +

                              'TMSCTe: '     + Versao   + ' ';

Atenciosamente,

Janis Peters Grants.

[diegosiena]

Janis, Mto Obrigado pela atenção...

Acabei conseguindo fazer de um outro jeito... É basicamente deste mesmo modo...

Agradeço a todos...