Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada ITMT110

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

Compras (SIGACOM)

Rotina:

Rotina

Nome Técnico

Solicitação de Compras (Integração)

MATI110

Ponto de Entrada:

ITMT110

País(es):

Brasil

Banco(s) de Dados:

Todos

Tabelas utilizadas:

SC1 - Solicitação de Compras

Sistema(s) operacional(is):

Windows/Linux

Ponto de Entrada

Descrição:

O Ponto de Entrada ITMT110 permite adicionar, acrescentar campos customizados na SC1, antes da geração da.SC

Localização:

Rotina de geração de SC via mensagem única.

Eventos:

O Ponto de entrada é executado antes do execauto

Programa Fonte:

MATI110

Função:

MATI110

Parâmetros:

Nome

Tipo

Descrição

Obrigatório

PARAMIXB

Array

Cabeçalho da SC

X

PARAMIXBArrayItens da SCX
PARAMIXBArrayRateio Centro de CustoX
PARAMIXBArrayRateio ProjetoX
 Retorno:
aCabArrayCabeçalho da NF (SF1)X
aItensArrayItens da NF (SD1)X
aRateioArrayRateio Centro de CustoX
aPrjArrayRateio ProjetoX
Nome
Tipo
Descrição
Obrigatório

 

Exemplo
#Include "Protheus.ch"
#Include "RwMake.ch"
#Include "TbiConn.ch"

User Function ITMT110()

Local aCab      := PARAMIXB[1]
Local aItens    := PARAMIXB[2]
Local aRateio   := PARAMIXB[3]
Local aPrj      := PARAMIXB[4]
Local aRet      := {}
Local nI        := 0
Local nPos      := 0

//Customizações do cliente
//Adicionando cabeçalho
aAdd(aCab,{"C1_CODCOMP","002", Nil}) 

//Adicionando dados no itens
For nI := 1 To Len(aItens)
    nPos := aScan(aItens[nI],{|x| x[1] == "C1_ITEM" .And. x[2] == "0001"})

    If nPos > 0
        aAdd(aItens[nPos],{"C1_FORNECE","000003",Nil})
        aAdd(aItens[nPos],{"C1_LOJA","01",Nil})
    Endif
Next nI

aRet := {aCab,aItens,aRateio,aPrj}

Return aRet