Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada MT120APV

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

Compras (SIGACOM)

Rotina:

Rotina

Nome Técnico

Funções genéricas compras

COMXFUN

Pedido de ComprasMATA120

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.

  • Pedido de Compras (Neste ponto, nenhum parâmetro é passado para o ponto de entrada)
    • Função: A120Grava


  • Analise de Cotação (Neste ponto, serão passados os parâmetros)
    • Função: MaAvalCot


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:

  1. Manipular o grupo de aprovação que será gravado na tabela SCR conforme as necessidades do usuário (exemplo 1).
  2. E/ou manipular o saldo do pedido, conforme as necessidades do usuário, na alteração do pedido. 

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:

Nome

Tipo

Descrição

Obrigatório

PARAMIXB

Array

Informação do vencedor

01 - Fornecedor Vencedor

02 - Loja Vencedor

03 - Condição de Pagamento

04 - Filial de Entrega


PARAMIXBArrayAcols com os campos e conteudo da SC8


Obs: Lembrando que o parâmetro somente é passado quando executado pelo MaAvalCot

 Retorno:

Nome

Tipo

Descrição

Obrigatório

cGrupoCaracterGrupo de aprovação X

 

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