Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: M410INIC - Validação de usuário


Descrição:

Este ponto de entrada é chamado antes da abertura da tela de inclusão do pedido de vendas com o objetivo de permitir validações de usuários e preenchimento de campos do pedido.


Programa Fonte:
MATA410.PRW

Sintaxe:

M410INIC ( ) ---> Nil


Retorno:
    Nil ->Nenhum

Exemplo:

#INCLUDE "rwmake.ch"

User Function M410INIC()

//Se for o mesmo usuário, preenche alguns campos da tela do pedido
If __cUserId == "000000"
  
    //Preenche a condição de pagamento e o código do vendedor 1
    M->C5_CONDPAG := "000"
    M->C5_VEND1   := "000001" 
    //Preenche o código da TES da primeira linha
    aCols[n][aScan(aHeader,{|x| AllTrim(x[2]) == "C6_TES"})] := "501"

EndIf

Return Nil