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 |
Exemplo:
User Function A650LEMPLocal aLinCol:= aClone(PARAMIXB) //Conteúdo da linha do aCols posicionado
Local cRetLocal := aLinCol[3]// Verifica se o produto é 'MP' e o Armazém é '87' altera conteúdo para '20'If (aLinCol[1]=='MP'+Space(13)) .And. (aLinCol[3]=='87')
cRetLocal := '20'EndIfReturn cRetLocal
