Linha Microsiga Protheus

Árvore de páginas

A650LEMP - Altera Conteúdo do Armazém

Linha de Produto:

Protheus

Segmento:

Manufatura

Módulo:

SIGAPCP - Planejamento e Controle da Produção

Parâmetro(s):

NomeTipoDescriçãoDefaultObrigatórioReferência
PARAMIXBVetorArray contendo a linha do aCols posicionada
X

Ponto de Entrada:

A650LEMP - Altera Conteúdo do Armazém

País(es):

Todos

Banco(s) de Dados:

Todos

Sistemas Operacionais:Todos
Versões:Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 10

Ponto de Entrada

Descrição:

O ponto de entrada 'A650LEMP' permite alterar o conteúdo do armazém gravado na linha do aCols do produto que gerará empenho/sc´s, que faz parte da estrutura do produto pai.

Quando é realizada a aglutinação das SC´s, esse ponto de entrada não será considerado.

Localização:

Function MontEstru() - Responsável por montar array com estrutura do produto.

Programa Fonte:

MATA650.PRX

Sintaxe:A650LEMP - Altera Conteúdo do Armazém ( < PARAMIXB[1]> ) --> cRetLocal

Retorno:

cRetLocal(caracter)

Código do armazém

Exemplo de implementação:
#INCLUDE 'TOTVS.CH'
#INCLUDE 'PROTHEUS.CH'
#INCLUDE 'RWMAKE.CH'

User Function A650LEMP()
Local aLinCol   := aClone(PARAMIXB)  //Conteudo da linha do aCols possicionado
Local cRetLocal := aLinCol[3]        //Verifca se o produto é 'MP' e o Armazém é '87' altera conteúdo para '20'
Local cTipo     := Posicione('SB1',1,xFilial('SB1')+aLinCol[1],'B1_TIPO') //Busca o contúedo do campo B1_TIPO

If cTipo == 'MP' .And. (aLinCol[3] == '87')       
    cRetLocal := '20'
EndIf

Return cRetLocal