| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | MATA110 - Solicitação de Compras |
| País: | Brasil |
| Ticket: | |
| Requisito/Story/Issue (informe o requisito relacionado) : |
O Ponto de Entrada tem como função validar todos os itens da uma Solicitação de Compra durante quaisquer ações, sejam elas, inclusão, alteração ou exclusão.
O Ponto se encontra no final da função e deve ser utilizado para validações específicas do usuário, onde será controlada pelo retorno do ponto de entrada o qual se for .F. o processo será interrompido e se .T. será validado.
Nome | Tipo | Descrição |
|---|---|---|
| PARAMIXB[1] | Array | lRetorno no momento da chamada do ponto de entrada; |
| PARAMIXB[2] | Array | Data da solicitação de compras |
Tipo | Descrição |
|---|---|
| Lógico |
|
#INCLUDE "PROTHEUS.CH"
/*/{Protheus.doc} User Function MT110LOK
Função para adicionar novos botões na SC.
@type Function
@since 01/10/2024
@version P12
@param param_name, param_type, param_descr
@return return_var, return_type, return_description
/*/
User Function MT110LOK()
Local nPosPrd := aScan(aHeader,{|x| AllTrim(x[2]) == 'C1_PRODUTO'})
Local nPosItem := aScan(aHeader,{|x| AllTrim(x[2]) == 'C1_ITEM'})
Local lValido := .T.
dbSelectArea('SC1')
dbSetOrder(2)
If MsSeek(xFilial('SC1')+aCols[n][nPosPrd]+cA110Num+aCols[n][nPosItem])
If (C1_QUJE > 0) .Or. (C1_RESIDUO == 'S')
lValido := .F.
EndIf
EndIf
MsgInfo("PE executado!","ATENÇÃO")
Return(lValido) |