| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | MATA650 - Cadastro de Ordem de Produção |
| País: | Brasil |
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. | ||||||||
|---|---|---|---|---|---|---|---|---|---|
| Parâmetros | .
. | ||||||||
| Retorno | .
. | ||||||||
| Observaçã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 |