Idea de clase para detectar y corregir tablas del modulo de inventario

fix-tables-inv.prg

return

*
* Permite detectar y corregir inconsistencias en las tablas del modulo de inventario
*


define class inconsistencias-inv as custom


function getDupArts()

    select numart,count(1) as dup from arts group by numart order by dup desc having dup>1
    into temp


function fixAllDupArts()
    close database
    * Obtener articulos duplicados en temp
    this.getDupArts()
    use arts order numart
    select temp
    scan
        fixDupArts(temp.NUMART)
        select temp
    endscan



*
* Elimina los registros duplicados de UN articulo
* solo deja el primero que encuentra
function fixDupArts(cNumart)
    select arts
    seek cNumart
    if not Found()
        return
    endif
    * saltarme el primero, mantenerlo vivo
    skip
    scan while NUMART==cNumart
        delete
    endscan


EndDefine