Linha Microsiga Protheus

Árvore de páginas

Tempo aproximado para leitura: 2 minutos


01. DADOS GERAIS

Produto:

TOTVS Manufatura

Linha de Produto:

Linha Protheus

Segmento:

Manufatura

Módulo:

TOTVS Manufatura (Linha Protheus) - Planejamento e controle da produção (SIGAPCP)

Função:MATA650 - Cadastro de Ordem de Produção
País:Brasil


02. 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çãoFunction MontEstru() - Responsável por montar array com estrutura do produto.
Parâmetros

.

NomeTipoDescriçãoObrigatório
PARAMIXBArrayArray contendo a linha do aCols posicionadaSim

.

Retorno

.

NomeTipoDescrição
cRetLocalCaracterCódigo do armazém

.

Observação



03. DEMAIS INFORMAÇÕES


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

04. ASSUNTOS RELACIONADOS

  • Não se aplica