Não consigo manifestar NF-e

[Infoel]

Pessoal,

Consigo manifestar perfeitamente os Ct-e mas não estou conseguindo manifestar as  NF-e.
O XML só sai deste jeito:

<infDoc>
    <infMunDescarga>
        <cMunDescarga>4204301</cMunDescarga>
        <xMunDescarga>CONCORDIA</xMunDescarga>
    </infMunDescarga>
</infDoc>

 

Preencho da seguinte forma:

              with infNFe.add do begin
                 chNFe:=TBmanidocs_chNFe.AsString;
                 SegCodBarra:='';
                 with infUnidTransp.Add do begin
                    tpUnidTransp:=StrToUnidTransp(ok,TBmanidocs_tpUnidTransp.AsString);
                    idUnidTransp:=AjustaDadosCampos(TBmanidocs_idUnidTransp.AsString,true);
                    with lacUnidTransp.Add do begin
                          nLacre:=TBmanidocs_nLacre.AsString;
                    end;
                    with infUnidCarga.Add do begin
                          tpUnidCarga:=StrToUnidCarga(ok,TBmanidocs_tpUnidCarga.AsString);
                          idUnidCarga:=TBmanidocs_idUnidCarga.AsString;
                          with lacUnidCarga.Add 
                          do nLacre:=TBmanidocs_nLacre.AsString;
                          qtdRat:=TBmanidocs_qtdRat.AsFloat;
                    end;
                    qtdRat:=TBmanidocs_qtdRat.AsFloat;
                 end;
              end;

[Gr@c@]

meu exemplo:

 IDE.tpEmit  := (se CTe = teTransportadora, se NFe = teTranspCargaPropria)

With infNFe.Add do
begin
    chNFe       := DM.qrynotas.FieldByName('ItemChaveDeAcesso').AsString;

   dqNFe       := dqNFe+1;
   dQtdRatNFe  := dQtdRatNFe + DM.qrynotas.FieldByName('PesoBruto').AsFloat;

end;

tot.qNFe   := dqNFe;