Pesquisar na Comunidade

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;