Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada - MT131VAL

Características do Requisito

Linha de Produto:

Protheus

Segmento:

Manufatura

Módulo:

SIGACOM - Compras

Rotina:

Rotina

Nome Técnico

MATA131

Gera Cotação

Tickets relacionados

1097451

Requisito/Story/Issue:

DMANMAT02-845

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

 

Ponto de Entrada

Descrição:

O ponto de entrada MT131VAL tem como funcionalidade verificar se as cotações que foram marcadas podem ser geradas.

Localização:

A chamada do ponto de entrada MT131VAL ocorre ao acionar o botão "Gera Cotação" na rotina Gera Cotações (MATA131).

Programa Fonte:

MATA131.prw

Função:

MATA131 - Gerar Cotações

 

Parâmetros:

NomeTipoDescrição
PARAMIXB[1]ArrayMarca da cotação
PARAMIXB[2]ArrayFiltro SC1


Retorno:

Nome

Tipo

Descrição

Obrigatório

 lRet

Logico

Verifica se o processo pode continuar.

Sim

 

#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 o uso do produto 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', ,"O produto 1376101 não pode ser selecionado!", 1, 0 )
             lRet := .F.
          EndIf
      EndIf
     (cMy1Alias)->(DbSkip())
   EndDo

Return lRet