Clarion - Descontar desde inventario

IF DETVTA:procodigo = POD:procodigo

SET(DETVTA:keyprocodigo,POD:keyprocodigo)

LOOP Until Access:poductos.Next()

POD:cantidad -= DETVTA:cantidad

put(poductos)

IF ERRORCODE() THEN MESSAGE(' TU MENSAJE ') !IF

END!IF

end

END

LOC:ID_Articulo = DET:ID_Artículo

LOC:Cantidad   =  DET:Cantidad

! EN ACEPTAR

!Si no es accion "Insert"

IF Self:Request NOT = InsertRecord

    ART:ID_Articulo  =   LOC:ID_Articulo        ! id del maestro de artículos

    IF Access:ASTOCK01.Fetch(AST:KeyID_Articulo           !Lee

        MESSAGE('No Encuentra Registro en ASTOCK','Mensaje del Sistema',ICON:Exclamation)

        Select(?DET:ID_Articulo)

        CYCLE                           !           Regresa el foco al campo DET:ID_Articulo

    END

    AST:Existencia += LOC:Cantidad    !  Devuelvo  la cantidad original al articulo original

!  Actualizo el articulo

    IF   Access:ASTOCK01.Update()

           MESSAGE('No Actualiza Existencias del artículo original,'Mensaje del Sistema',ICON:Exclamation)

    END

END

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

! Si no es acción de borrar, o sea insert o Change (agregar o modificar)

IF Self:Request NOT = DeleteRecord

! Ahora voy a restar la cantidad del artículo que se ingreso o se cambió

    ART:ID_Articulo  =   FAC:ID_Articulo        ! id del maestro de artículos

    IF Access:ASTOCK01.Fetch(AST:KeyID_Articulo           !Lee

        MESSAGE('No Encuentra Registro en ASTOCK','Mensaje del Sistema',ICON:Exclamation)

        RETURN Level:Fatal ! Salir del programa

        !  Acá para armar el ejemplo lo habo abortar y no es lo correcto.

    END

    AST:Existencia -= FAC:Cantidad    !  Resto   la cantidad

!  Actualizo el articulo

    IF   Access:AASTOCK01.Update()

           MESSAGE('No Actualiza Existencias del artículo original,'Mensaje del Sistema',ICON:Exclamation)

    END

END

! En el caso del padre

! Hago un loop del hijo y resto las existencias y actualizo el maestro de Stock

CLEAR(DET:Record)

! Cargo una clave del hijo y la leo secuencialmente

DET:Letra  = FAC:Letra

DET:Puesto= FAC:Puesto

DET:NUmero = FAC:Numero

SET(DET:Clave,DET:Clave)   ! Ordeno por clave y Me posiciono en  el primer hijo que tenga esa clave

LOOP UNTIL Access:Detalle.Next() or  DET:Letra  <> FAC:Letra or DET:Puesto<> FAC:Puesto or DET:NUmero <> FAC:Numero

 ! Leo mientras sea la misma letra, el mismo puesto y el mismo numero

    ART:ID_Articulo  =   DET:ID_Articulo        ! id del maestro de artículos

    IF Access:ASTOCK01.Fetch(AST:KeyID_Articulo           !Lee

        MESSAGE('No Encuentra Registro en ASTOCK','Mensaje del Sistema',ICON:Exclamation)

    END

    AST:Existencia -= DETCantidad    !  Resto  la cantidad  al articulo

!  Actualizo el articulo

    IF   Access:ASTOCK01.Update()

           MESSAGE('No Actualiza Existencias del artículo original,'Mensaje del Sistema',ICON:Exclamation)

    END

END

LOC:Handle = 0{PROP:Handle}

LOC:Op     = 'Open'

LOC:File   = 'http://www.evolutionconsulting.com.ar'

LOC:Path   = ' '

LOC:Param  = ' '

LOC:Show   = 1

LOC:RetHandle = ShellExecute(LOC:Handle,LOC:Op,LOC:File,LOC:Param,LOC:Path,LOC:Show)

! Otro ejemplo.  Consulta del cuit

! *  Conectarme a la web  consulta cuit on line

IF  AC1:Id_Documento    =    80 or AC1:Id_Documento = 86

    RUN('C:\Users\Marcelo\AppData\Local\Google\Chrome\Application\chrome.exe https://www.cuitonline.com/search.php?q=' & AC1:Cuit)

END