Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas

Línea de producto:

Microsiga Protheus.

Segmento:

Servicios

Módulo:

Activo fijo (SIGAATF)

Rutina:

Rutina

Nombre técnico

Baja de activos

ATFA030.PRX

Punto de entrada:

AF030VLBX.

Llamados relacionados

TTOYD2.

País(es):

Todos.

Base(s) de datos:

Todas Homologadas para Protheus.

Tablas utilizadas:

SN1,SN3.

Sistema(s) operativo(s):

Todos Homologados para Protheus.

Descripción

El punto de entrada AF030VLBX valida el ítem que se bajará en la baja manual o en la baja automática. El usuario podrá colocar las validaciones deseadas que no están en el producto estándar. 

Las modificaciones e impactos de estas modificaciones en el sistema son de total responsabilidad del cliente que utiliza este punto de entrada.


 

Punto de entrada

Descripción:

Este punto de entrada se creó para que el usuario realice validaciones que no existen en el producto estándar en la rutina de baja manual y/o en la baja automática.

Ubicación:

Rutina personalizada, por lo tanto, no forma parte del menú estándar.

Eventos:

AF030VLBX.

Programa fuente:

ATFA030.

Función:

AF030Baixa - Baja manual y AF030VLAUTO - Baja automática.

Devolución:

Devolver lógico.

 

Ejemplo:

#Include 'Protheus.ch'

User function AF030VLBX()
Local lRet := .T.
Local cRotina := paramixb[1]
Local cManuAuto := paramixb[2]

If cManuAuto == "MAN"

    msgAlert("Baja manual")
    lRet := .t.
Elseif cManuAuto == "AUTO"
    msgAlert("Baja automática")
   lRet := .t.
Endif

Return(lRet)


Trecho en el cual el PE se activa en el fuente estándar.

/* -----------------------------------------------------------------------
    Valida si el ítem seleccionado puede darse de baja
   ------------------------------------------------------------------------
   Activación en la baja manual
   -----------------------

IF lAF030VLBX
   lRet := ExecBlock("AF030VLBX",.F.,.F.,{"ATFA030","MAN"})
  IF ValType(lRet) == "L" .AND. !lRet
      EXIT
  ENDIF
ENDIF

------------------------------------------------------------------------
Activación en la baja automática (por medio de función estática)
--------------------------------------------------------
STATIC FUNCTION AF030VLAUTO()
LOCAL lRet := .T.
Local lAF030VLBX := ExistBlock("AF030VLBX")

IF lAF030VLBX
    lRet := ExecBlock("AF030VLBX",.F.,.F.,{"ATFA030","AUTO"})
    IF ValType(lRet) != "L"
        lRet := .T.
    ENDIF
ENDIF
RETURN lRet 
------------------------------------------------------------------------ */