Histórico da Página
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): |
| ||||||||||||
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 | ||||||
|---|---|---|---|---|---|---|
| ||||||
#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 |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas