Histórico da Página
A250PRMI - Ordenação de componentes
Linha de Produto: | Protheus |
Segmento: | Manufatura |
Módulo: | SIGAPCP - Planejamento e Controle da Produção |
Idiomas: | Português(Brasil) |
País(es): | Todos |
Banco(s) de Dados: | Todos |
Sistema(s) Operacional(is): | Todos |
Ponto de Entrada
| Descrição: | O ponto de entrada MT680FINAL foi criado para que seja possível a alteração dos lotes dos empenhos a partir da tela do programa de Empenho Múltiplo (MATA381) |
| Localização: | Function RetPerMIt - A função em questão foi criada em todos os pontos do programa onde é possível manipular a variável "nPercPrM", de forma a deixar centralizado. |
| Programa Fonte: | MATA680.PRX |
| Retorno: | lAbre381 Retorna uma variável lógica, que indicará se será aberta ( .T. ) a tela de Empenho Múltiplo ou não ( .F. ). |
Exemplo:
#include 'protheus.ch'
#include 'parmtype.ch'
User Function MT680FINAL()
Local lAbre381 := .f.
If !Inclui
Return lAbre381
EndIf
cH6_OP := M->H6_OP
dbSelectArea("SD4")
dbSetOrder(2)
If dbSeek(xFilial("SD4")+cH6_OP)
While SD4->(!Eof()) .AND. SD4->D4_FILIAL == xFilial("SD4") .AND. SD4->D4_OP == cH6_OP
If Empty(SD4->D4_LOTECTL)
lAbre381 := .t. //Alimenta a variavel para chamar a tela de empenhos
Exit
EndIf
SD4->(dbSkip())
End
EndIf
Return lAbre381
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas