Gerar CFe sem identificar consumidor

[Claudio Stein Junior]

Olá, como faço um XML sem identificar o CPF do consumidor. Não estou conseguindo.

Segue me código mas não dá certo.

 

   

     Dest.CNPJCPF:= '';
      Dest.xNome := '';

 

[Claudio Stein Junior]

Consegui com o código abaixo:

 

 

/====Dados SAT==========================================================

    if Length(DmTabelas.CdsVendasCPFVAREJO.AsString) = 11 then
    begin
      Dest.CNPJCPF           := DmTabelas.CdsVendasCPFVAREJO.AsString;

    end
    else if (DmTabelas.CdsVendasTIPO_1.AsString =  'F') and (Length(DmTabelas.CdsVendasCPF.AsString) = 11)  then
    begin
      Dest.CNPJCPF           := DmTabelas.CdsVendasCPF.AsString;

    end
    else if (DmTabelas.CdsVendasTIPO_1.AsString =  'J') and (Length(DmTabelas.CdsVendasCNPJ.AsString) = 14) then
    begin
      Dest.CNPJCPF           := DmTabelas.CdsVendasCNPJ.AsString;

    end
    else
    begin
      Dest.CNPJCPF           := '';
    end;

    if (Length(DmTabelas.CdsVendasENDERECO.AsString) > 1) then
    begin
      Dest.xNome := Copy(DmTabelas.CdsVendasNOME.AsString,1,60);
      Entrega.xLgr := DmTabelas.CdsVendasENDERECO.AsString;
      Entrega.nro :=  DmTabelas.CdsVendasNUMERO.AsString;
      Entrega.xCpl :=     DmTabelas.CdsVendasCOMPLEMENTO.AsString;
      Entrega.xBairro := DmTabelas.CdsVendasBAIRRO.AsString;
      Entrega.xMun := DmTabelas.CdsVendasCIDADE.AsString;
      Entrega.UF := DmTabelas.CdsVendasUF.AsString;
    end;

Obrigado.

[Sérgio Assunção]

Em 06/11/2015 14:52:00, Claudio Stein Junior disse:

Olá, como faço um XML sem identificar o CPF do consumidor. Não estou conseguindo.

Segue me código mas não dá certo.

 

   

     Dest.CNPJCPF:= '';
      Dest.xNome := '';

Basta não enviar ao componente o valor Dest.CNPJCPF.

 

[Claudio Stein Junior]

Em 07/11/2015 16:12:14, Sérgio Assunção disse:

 

Valeu postei o codigo que deu certo acima.