Histórico da Página
...
Portuguese (Brasil) | ||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: A250FSD4 - Filtra as requisições empenhadas na atualização do MATA250
Descrição: LOCALIZAÇÃO : Executado nas funções A250Atu(), A250Estoq(), LoteSD4 LotesSD4() e ExplodeSD4(). 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 lRet(logicolRet (Lógico)
Exemplos User Function A250FSD4()Local lRet := .T.//-- Validações AdicionaisReturn lRet 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 | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
Bloco de código | ||||||||
| ||||||||
User Function A250FSD4() Local lRet := .T. Local nIndice := PARAMIXB[1] Local lAtuSaldo := PARAMIXB[2] //-- Validações Adicionais Return lRet If SD4->D4_COD == 'MP-001' .And. nIndice < 1 //SD4 está posicionada no empenho que está sendo validado. lRet := .F. EndIf Return lRet |