Histórico da Página
...
Portuguese | ||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: A250FSD4 - Filtra as requisições empenhadas na atualização do MATA250
Descrição: LOCALIZAÇÃO : Executado nas funções A250Atu( ), A250Estoq( ), LoteSD4LotesSD4( ) e ExplodeSD4( ).
QUE PONTO : O Ponto de entrada eé executado na tela de atualizacaoatualização do MATA250.
Utilizado para filtrar as requisições empenhadas na atualização do mesmo . Um retorno logico (.T. ) confirma a requisicao do empenho e um retorno falso não empenha o produto. Se o retorno nao for logico o sistema ira assumir .T.(verdadeiro).
Programa Fonte : MATA250.PRX Sintaxe: A250FSD4 - Filtra as requisições empenhadas na atualização do MATA250 ( ) --> lRet Retorno lRetlRet (logicoLógico)
Parâmetros passados para o PARAMIXB: PARAMIXB[01] = Índice utilizado para o cálculo da quantidade a ser requisitada na SD4. PARAMIXB[02] = Indicador de atualização de saldo ( .T. = Efetua a atualização de saldo / .F. = Não efetua atualização de saldo/Somente validações de estoque) Funções:
Exemplo de como é calculado e utilizado o índice (PARAMIXB[01]) Estrutura Empenho - SD4 D4_COD: MP-001 D4_QTDEORI: 50 D4_QUANT: 50 Apontando quantidade 6 O primeiro valor do PE corresponde ao índice da quantidade que está sendo apontada com base na quantidade planejada da OP. Índice= Quantidade apontada / Quantidade da OP Será apontada 0,12 da quantidade total da OP. A requisição dos componentes é feita com base nos empenhos da ordem de produção (SD4 - Requisições Empenhadas) e o cálculo da quantidade a ser requisitada é com base no índice que está sendo apontado. Para o componente MP-001 que possui quantidade empenhada de 50 e o índice da OP é de 0,12, será requisitado 6 (50 * 0,12 = 6). |
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
User Function A250FSD4() Local lRet := .T. Local nIndice := PARAMIXB[1] Local lAtuSaldo := PARAMIXB[2] If SD4->D4_COD == 'MP-001' .And.//-- Validações AdicionaisReturn lRet nIndice < 1 //SD4 está posicionada no empenho que está sendo validado.
lRet := .F.
EndIf
Return lRet |