Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas

Punto de entrada MT120APV

Línea de producto:

Microsiga Protheus

Segmento:

Servicios

Módulo:

Compras (SIGACOM)

Rutina:

Rutina

Nombre técnico

Funciones genéricas compras

COMXFUN

Pedido de compras

MATA120

Punto de entrada:

MT120APV

País(es):

Brasil

Base(s) de datos:

Todos

Tablas utilizadas:

SC8

Sistema(s) operativo(s):

Windows/Linux

Punto de entrada

Descripción:

El punto de entrada MT120APV es responsable por la grabación del grupo de aprobación del pedido de compras y/o autorización de entrega.

Ubicación:

Su ejecución se efectúa en 2 puntos distintos.

  • Pedido de compras (En este punto, no se pasa ningún parámetro a otro punto de entrada)

o  Función: A120Grava


  • Análisis de cotización (En este punto, se pasarán los parámetros)

o  Función: MaAvalCot


Después de grabar los ítems del pedido de compra, dentro de la condición que genera el bloqueo del PC en la tabla SCR y se puede utilizar para:

1.    Manejar el grupo de aprobación que se grabará en la tabla SCR de acuerdo con las necesidades del usuario (ejemplo 1).

2.    Y/o manejar el saldo del pedido, según las necesidades del usuario, al modificar el pedido. 

Atención: En este caso, se debe restringir la ejecución de la rutina a través de la variable 'MODIFICA' (ejemplo 2).

Eventos:

Al ejecutar el punto de entrada, este enviará o no los parámetros de acuerdo con el lugar donde la llamada se originó.

Programa fuente:

COMXFUN o MATA120

Función:

A120Grava (MATA120) y MaAvalCot (COMXFUN)

Parámetros:

Nombre

Tipo

Descripción

Obligatorio

PARAMIXB

Array

Información del vencedor

01 - Proveedor vencedor

02 - Tienda vencedora

03 - Condición de pago

04 - Sucursal de entrega


PARAMIXB

Array

Acols con los campos y contenido de la SC8



Obs.: Recordando que el parámetro solamente se pasa cuando lo ejecuta el MaAvalCot

 Respuesta:

Nombre

Tipo

Descripción

Obligatorio

cGrupo

Carácter

Grupo de aprobación

 X

 

Ejemplo:

#Include "Protheus.ch"
#Include "RwMake.ch"
#Include "TbiConn.ch"
#Include "totvs.ch"

User Function MT120APV()

Local ExpC1 := Nil
Local ExpC2 := Nil
Local cGrp := "" //Grupo de aprobación

If Type("ALTERA") == "U"
       ALTERA := .F.
Endif

If Type("PARAMIXB") == "U"
         //EXEMPLO 1 (Manejando el grupo de aprobación):


Else
         ExpC1 := PARAMIXB[1]
         ExpC2 := PARAMIXB[2]

         //EJEMPLO 2 (Manejando el saldo del pedido, en la modificación del pedido):
         //Manejando el saldo del pedido por parte del usuario, conf. necesidad, actualizando la variable n120TotLib
         If ALTERA

         Endif
Endif

MSGALERT( "Pasando en el punto MT120APV")

Return cGrp