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(), LoteSD4LotesSD4() e ExplodeSD4(). Utilizado para filtrar as requisições empenhadas na atualização do mesmo. Um retorno logico .T. confirma a requisição do empenho e um retorno .F. não faz a requisição do empenho. Se o retorno não 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 lRet (LogicoLógico)
Parâmetros passados para no o PARAMIXB: PARAMIXB[01] = Quantidade requisitada dividido pela quantidade Índice utilizado para o cálculo da quantidade a ser requisitada na SD4. PARAMIXB[02] = Efetivação da atualização da Indicador de atualização de saldo ( .T. = Efetivou Efetua a atualização de saldo / .F. = Não efetivou atualização de saldo)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 := .F.T. Local nIndice := PARAMIXB[1] Local lAtuSaldo validaSaldo := PARAMIXB[2] If validaSaldoSD4->D4_COD == .T.'MP-001' .And. nIndice < 1 //--SD4 Validacoesestá adicionais posicionada no empenho que está sendo validado. lRet := .T. F. EndIf Endif Return lRet |