Ponto de entrada MT120APV
Linha de Produto: | Microsiga Protheus | ||||||
Segmento: | Serviços | ||||||
Módulo: | Compras (SIGACOM) | ||||||
Rotina: |
| ||||||
Ponto de Entrada: | MT120APV | ||||||
País(es): | Brasil | ||||||
Banco(s) de Dados: | Todos | ||||||
Tabelas utilizadas: | SC8 | ||||||
Sistema(s) operacional(is): | Windows/Linux |
Ponto de Entrada
Descrição: | O Ponto de Entrada MT120APV é responsavel pela gravação do grupo de aprovação do Pedido de Compras e/ou Autorização de Entrega. | ||||||||||||
Localização: | Sua execução é efetuado em 2 pontos distintos.
Após a gravação dos itens do pedido de compras, dentro da condição que gera o bloqueio do PC na tabela SCR e pode ser utilizado para:
Atenção: Neste caso, deve-se restringir a execução da rotina através da variável 'ALTERA' (exemplo 2). | ||||||||||||
Eventos: | Ao executar o Ponto de Entrada, o mesmo enviará ou não parâmetros de acordo com o local onde a chamada foi originada. | ||||||||||||
Programa Fonte: | COMXFUN ou MATA120 | ||||||||||||
Função: | A120Grava (MATA120) e MaAvalCot (COMXFUN) | ||||||||||||
Parâmetros: |
Obs: Lembrando que o parâmetro somente é passado quando executado pelo MaAvalCot | ||||||||||||
Retorno: |
|
Exemplo:
#Include "Protheus.ch"
#Include "RwMake.ch"
#Include "TbiConn.ch"
#Include "totvs.ch"
User Function MT120APV()
Local ExpC1 := Nil
Local ExpC2 := Nil
Local cGrp := "" //Grupo de aprovação
If Type("ALTERA") == "U"
ALTERA := .F.
Endif
If Type("PARAMIXB") == "U"
//EXEMPLO 1 (Manipulando o grupo de aprovação):
Else
ExpC1 := PARAMIXB[1]
ExpC2 := PARAMIXB[2]
//EXEMPLO 2 (Manipulando o saldo do pedido, na alteração do pedido):
//Manipulando o saldo do pedido pelo usuário, conf. necessidade, atualizando a variável n120TotLib
If ALTERA
Endif
Endif
MSGALERT( "Passando no ponto MT120APV")
Return cGrp