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):

Nome	Tipo	Descrição	Default	Obrigatório	Referência
PARAMIXB	Vetor	Array 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

Bloco de código

#INCLUDE 'TOTVS.CH'
#INCLUDE 'PROTHEUS.CH'
#INCLUDE 'RWMAKE.CH'

User

Function A650LEMPLocal aLinCol

 Function A650LEMP()
Local aLinCol   := aClone(PARAMIXB)

//

Conteúdo

Conteudo da linha do aCols

posicionado

 possicionado
Local cRetLocal := aLinCol[3]        //

Verifica

Verifca se o produto é 'MP' e o Armazém é '87' altera conteúdo para '20'

If (


Local cTipo     := Posicione('SB1',1,xFilial('SB1')+aLinCol[1],'B1_TIPO') //Busca o contúedo do campo B1_TIPO

If cTipo == 'MP'

+Space(13))

 .And. (aLinCol[3] == '87')

cRetLocal

       
    cRetLocal := '20'

EndIfReturn


EndIf

Return cRetLocal

Árvore de páginas