Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

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.

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
languagecpp
titleExemplo de implementação:
linenumberstrue
#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