Linha de Produto: | Protheus | ||||
Segmento: | Manufatura | ||||
Módulo: | SIGACOM - Compras | ||||
Rotina: |
| ||||
País(es): | Todos | ||||
Banco de Dados: | Todos | ||||
Sistemas Operacionais: | Todos | ||||
Release: | 12.1.6 |
Ponto de Entrada
Descrição: | O Ponto de Entrada está localizado na função responsável em integrar o Pedido de Compras com o produto SISCOSERV. Este Ponto de Entrada tem por finalidade manipular o conteúdo do Pedido de Compras que será atualizado ao Pedido de Serviços através das variáveis aCab e aItens. |
Eventos: | O ponto de entrada A120SSER é executado quando são confirmados os eventos de Incluir, Alterar ou Exclui. |
Programa Fonte: | MATA120.PRX |
Função: | Function IntPCSserv |
Parâmetros: | Nenhum |
Retorno: | Nenhum |
Exemplo:
#INCLUDE "Protheus.ch"
User Function A120SSER()
Local nPos1 := 0
Local nPos2 := 0
Local cMensagem := ""
nPos1 := Ascan(aCab,{|x| x[1] == "EJW_EXPORT"})
nPos2 := Ascan(aItens[1],{|x| x[1] == "EJX_ITEM"})
cMensagem := ""
cMensagem += "Conteudos de EJW_EXPORT na variavel aCab "+ aCab[nPos1,2]+CHR(13)+CHR(10)
cMensagem += "e EJX_ITEM na variavel aItens[1] "+ aItens[1,nPos2,2]
Alert(cMensagem)
Return