Linha de Produto: | Protheus | ||||
Segmento: | Manufatura | ||||
Módulo: | SIGACOM - Compras | ||||
Rotina: |
| ||||
Tickets relacionados | 1097451 | ||||
Requisito/Story/Issue: | DMANMAT02-845 | ||||
País(es): | Todos | ||||
Banco(s) de Dados: | Todos | ||||
Sistema(s) Operacional(is): | Todos |
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: |
| |||||||||
Retorno: |
|
#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
