Campo Ide.toma4.cnpjcpf Fica Em Branco

[menegante]

Sr. poderiam me ajudar pois mesmo movendo o valor para o campo "Ide.Toma4.CNPJCPF" no XML ele fica em branco gerando recusa no SEFAZ, abaixo a minha rotina, obrigado.

 

         if DataModule1.TArqcteENTREGATIPODATA.AsInteger = 4 then

            begin

               DataModule1.TArqcli.Close;

               DataModule1.TArqcli.Params[0].AsString := DataModule1.TArqmovCGC_CONSIG.Value;

               DataModule1.TArqcli.Open;

               DataModule1.TArqcli.First;

 

               if pos('00.000.000',DataModule1.TArqmovCGC_CONSIG.Value) <= 0 then

                  begin

                    if pos('J',DataModule1.TArqcliCONTRIB.AsString) > 0 then

                        begin

                          Toma4CNPJ := DefazMaskCGC(DataModule1.TArqcliCGC.Value);

                          IE        := DefazMaskCGC(trim(DataModule1.TArqcliINSC_EST.Value));

                        end

                    else

                        begin

                          Toma4CNPJ := DefazMaskCGC(DataModule1.TArqmovCGC_CONSIG.Value);

                          IE        := 'ISENTO';

                        end;

                  end

               else

                  begin

                     Toma4CNPJ := '00000000000000';

                     IE        := '';

                  end;

 

               Ide.Toma4.Toma              := tmOutros;

               Ide.Toma4.CNPJCPF           := Toma4CNPJ;

               Ide.Toma4.IE                := IE;

               Ide.Toma4.xNome             := DataModule1.TArqcliNOME.Value;

               Ide.Toma4.fone              := DefazMaskCGC(trim(DataModule1.TArqcliTEL1.Value));

               Ide.Toma4.EnderToma.xLgr    := DataModule1.TArqcliENDERECO.Value;

               Ide.Toma4.EnderToma.nro     := DataModule1.TArqcliNUMERO.Value;

               Ide.Toma4.EnderToma.xCpl    := DataModule1.TArqcliCOMPLEMENTO.Value;

               Ide.Toma4.EnderToma.xBairro := DataModule1.TArqcliBAIRRO.Value;

 

               DataModule1.TArqcid.Close;

               DataModule1.TArqcid.Params[0].AsString := AnsiUpperCase(trim(DataModule1.TArqcliCIDADE.Value));

               DataModule1.TArqcid.Params[1].AsString := AnsiUpperCase(trim(DataModule1.TArqcliESTADO.Value));

               DataModule1.TArqcid.Open;

               DataModule1.TArqcid.First;

               if DataModule1.TArqcid.RecordCount > 0 then

                  begin

                     DataModule1.TArquf.Close;

                     DataModule1.TArquf.Params[0].AsString := AnsiUpperCase(trim(DataModule1.TArqcliESTADO.Value));

                     DataModule1.TArquf.Open;

                     DataModule1.TArquf.First;

                     if DataModule1.TArquf.RecordCount > 0 then

                        begin

                           CodigoMunicipio := DataModule1.TArqufCOD_UF.AsInteger * 100000 +

                                              DataModule1.TArqcidCOD_CIDADE.AsInteger;

 

                           Ide.Toma4.EnderToma.cMun    := CodigoMunicipio;

                       end;

 

                     Ide.Toma4.EnderToma.xMun    := AnsiUpperCase(trim(DataModule1.TArqcidCIDADE.Value));

                     Ide.Toma4.EnderToma.UF      := AnsiUpperCase(trim(DataModule1.TArqcidESTADO.Value));

                  end;

 

               Ide.Toma4.EnderToma.CEP     := StrToInt(Copy(DataModule1.TArqcliCEP.AsString,1,5)+Copy(DataModule1.TArqcliCEP.AsString,7,3));

 

               DataModule1.TArqpais.Close;

               DataModule1.TArqpais.Params[0].AsInteger := DataModule1.TArqcliCOD_PAIS.Value;

               DataModule1.TArqpais.Open;

               DataModule1.TArqpais.First;

               if DataModule1.TArqpais.Recordcount > 0 then

                  begin

                     Ide.Toma4.EnderToma.cPais   := DataModule1.TArqpaisCODIGO.Value; //Codigo do pais brasil

                     Ide.Toma4.EnderToma.xPais   := Trim(DataModule1.TArqpaisNOME_PAIS.Value);

                  end;

            end;