Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas

Punto de entrada M120FGCT

Línea de producto:

Microsiga Protheus

Segmento:

Backoffice

Módulo:

Compras (SIGACOM)

Rutina:

Rutina

Nombre técnico

Pedido de Compra / Autorizaciones de entrega

MATA120

Punto de entrada:

M120FGCT

País(es):

Brasil

Base(s) de datos:

Todos

Tablas utilizadas:

SC7

Sistema(s) operativo(s):

Windows/Linux

Punto de entrada

Descripción:

El punto de entrada M120FGCT tiene como objetivo personalizar la validación del vínculo entre la solicitud de compras con el pedido de compras propio de la medición de contratos.

Ubicación:

Línea por línea de los ítems del pedido.

Eventos:

No permitir la inclusión de línea no validada.

Programa fuente:

MATA120

Función:

A120LINOK

Observaciones:

Este punto de entrada solamente se activará:

1.    Para los ítems del pedido que tengan solicitud de compras vinculadas.

2.    Cuando el pedido de compra se genere a través de la rutina automática (ExecAuto) de la MATA120 llamada por la medición de contratos (CNTA120/CNTA121/CNTA260).

Parámetros:

Nombre

Tipo

Descripción

Obligatorio

PARAMIXB[1]

Carácter

Código de la sucursal que el sistema definió para buscar la solicitud 

X

PARAMIXB[2]

Carácter

Número de la solicitud de compra vinculada al ítem del pedido

X

PARAMIXB[3]

Carácter

Ítem de la solicitud de compra vinculada al ítem del pedido

X

 Respuesta:

Nombre

Tipo

Descripción

Obligatorio

lRet

Lógico

.T. = Línea válida

.F. = Línea no válida

 X

Ejemplo:

Ejemplo de utilización

#INCLUDE "PROTHEUS.CH"


User Function M120FGCT()

    

     Local lRet          := .T.

     Local aArea        := GetArea()

     Local aAreaSC1   := SC1->(GetArea())

     Local cFilSeekC1 := PARAMIXB[1]

     Local cNumSC  := PARAMIXB[2]

     Local cItemSC  := PARAMIXB[3]


     //-- Inicio de las validaciones de usuario


         If !Empty(cFilSeekC1) .And. !Empty(cNumSC) .And. !Empty(cItemSC)

              SC1->(DbSetOrder(2)) //-- C1_FILIAL, C1_NUM, C1_ITEM, C1_ITEMGRD

              lRet := SC1->(MsSeek(cFilSeekC1 + cNumSC + cItemSC))

         EndIf

    

         If !lRet

              Help("", 1, "M120FGCT", , "Solicitud de compra no encontrada!")

         EndIf


     //-- Fin de las validaciones de usuario


     SC1->(RestArea(aAreaSC1))

     RestArea(aArea)


Return lRet