Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas

Punto de entrada - MT131VAL

Características del requisito

Línea de producto:

Protheus

Segmento:

Manufactura

Módulo:

SIGACOM - Compras

Rutina:

Rutina

Nombre técnico

MATA131

Genera cotización

Tickets relacionados

1097451

Requisito/Story/Issue:

DMANMAT02-845

País(es):

Todos

Base(s) de datos:

Todos

Sistema(s) operativo(s):

Todos


Punto de entrada

Descripción:

El punto de entrada MT131VAL tiene como funcionalidad verificar si se pueden generar las cotizaciones que se marcaron.

Ubicación:

La llamada del punto de entrada MT131VAL ocurre al activar la opción "Genera cotización", en la rutina Genera Cotizaciones (MATA131).

Programa fuente:

MATA131.prw

Función:

MATA131 - Generar cotizaciones


Parámetros:

Nombre

Tipo

Descripción

PARAMIXB[1]

Array

Marca de la cotización

PARAMIXB[2]

Array

Filtro SC1


Devolución:

Nombre

Tipo

Descripción

Obligatorio

 lRet

Lógico

Verifica si el proceso puede continuar.

Sí


#Include 'Protheus.ch'

User Function MT131VAL()
   Local cMarca := PARAMIXB[1]
   Local cQuerySC1 := PARAMIXB[2]
   Local cQuery := ''
   Local cMy1Alias := GetNextAlias()
   Local lRet := .T.

  dbSelectArea("SC1")
   dbSetOrder(1)
   // Restringe el uso del producto 1163101
   cQuery := "SELECT * "
   cQuery += "FROM " + RetSqlName("SC1") + " SC1 "
   cQuery += "WHERE SC1.D_E_L_E_T_ = ' ' "
   cQuery += "AND " + cQuerySC1

   cQuery := ChangeQuery(cQuery)
   Iif( Select(cMy1Alias) > 0,(cMy1Alias)->(dbCloseArea()),Nil )
   dbUseArea( .T., "TOPCONN", TCGenQry( ,,cQuery ), cMy1Alias, .F., .T. )

   While (cMy1Alias)->(!Eof())
      If IsMark("C1_OK",cMarca)
         If Alltrim((cMy1Alias)->C1_PRODUTO) == "1163101"
             Help( , , 'Help', ,"¡El producto 1376101 no se debe seleccionar!", 1, 0 )
             lRet := .F.
          EndIf
      EndIf
     (cMy1Alias)->(DbSkip())
   EndDo

Return lRet