tabla. datto , indice    
  X# = o_TRAEDST_DTX('EMP',EMP:CCOSTO,'Ccosto') ! 15/02/2014 SM  CAMBIO
  case X#
       OF 1                                       ! LEYO DTS
          EMR:NOMBRE    = DTS:DESCRiPCION
       else
          EMR:NOMBRE    = DTX:DESCRIPCION
  end

funcion o_TRAEDST_DTX
 IF CLIP(GLO:TRCINDICECIA) > ''
    loc:campo = |
                clip(IN:TABLA) & ':' & CLIP(GLO:TRCINDICECIA)
    LOC:COMPANIA = evaluate(clip(loc:campo))
 ELSE
    LOC:COMPANIA = GLO:CIAUSR
 END
 loc:clasifica  = clip(VerDTR(IN:indice,0))
 if cliP(loc:clasifica) <= '' then CLEAR(DTR:Ind_cia);ERROR#     = 1.
 if DTR:Ind_cia
    LOC:LEYO     = 2
    clear(dtx:record)
    dtx:compania = LOC:COMPANIA
    dtx:indice   = IN:indice
    dtx:Codigo   = CLIP(IN:CODIGO)
    GET(dtx,dtx:dtxllave)
    IF ERRORCODE() THEN clear(dtx:record);LOC:LEYO = 0.
 else
    LOC:LEYO     = 1
    clear(dts:record)
    dts:indice   = IN:indice
    dts:Codigo   = CLIP(IN:CODIGO)
    GET(dts,dts:dtsllave)
    IF ERRORCODE()  THEN clear(dts:record);LOC:LEYO = 0.
 end

 RETURN(LOC:LEYO)

DROP INDEX  EMP.EMPLLAVE7;
QUITAR INTEGREDA REFERENCIAL EDCT,EMP