ÍNDICE:

01. VISÃO GERAL

Este documento tem por objetivo exemplificar como utilizar a função A106PREREQ para gerar Pré-Requisições a partir das Solicitações ao Almoxarifado no formato de rotina automática.
Para isso deve-se passar o parâmetro PARAMIXB1 como Falso (.F.), pois não será executada a MarkBrowse e o PARAMIXB12 como Verdadeiro (.T.) indicando que é uma execução automática.

Esta função é chamada também pela rotina MATA106 (Rotina de avaliação das solicitações ao almoxarifado para geração das requisições ao almoxarifado).

02. PARÂMETROS DA FUNÇÃO

Parâmetro	Tipo	Descrição	Default
PARAMIXB1	Lógico	Indica se a rotina deve avaliar a seleção da MarkBrowse ou deve avaliar todos os registros. Para rotina automática deve ser .F. (Falso).	.F.
PARAMIXB2	Lógico	Indica se a rotina deve ser avaliada por data de necessidade (.T.) ou por data de emissão (.F.).	.F.
PARAMIXB3	Bloco de código	Expressão de filtro a ser avaliada para cada registro do SCP.
PARAMIXB4	Lógico	Indica se considera ou não previsão de entrada (SC/OP).	.F.
PARAMIXB5	Lógico	Indica se a rotina devera gerar ou não Solicitação de Compras no SC1.	.F.
PARAMIXB6	Lógico	Considera Armazém da SA.	.F.
PARAMIXB7	Caracter	Saldo do Armazém a considerar a necessidade.
PARAMIXB8	Caracter	Saldo ate o Armazém a considerar a necessidade.
PARAMIXB9	Lógico	Considerar o Lote Econômico na geração da SC.	.T.
PARAMIXB10	Lógico	Considerar o saldo já empenhado quando baixa de OP.	.F.
PARAMIXB11	Numérico	Indica se aglutina (1) ou não (2) as SCs.	1
PARAMIXB12	Lógico	Indica se a rotina será executada automaticamente. Para rotina automática deve ser .T. (verdadeiro).	.T.
PARAMIXB13	Lógico	Indica se subtrai estoque de segurança.	.F.

03. EXEMPLO DE UTILIZAÇÃO

#include "rwmake.ch"
#include "TbiConn.ch"

User Function PR106AUTO()

Local aemp := {"YY","01"}

PREPARE ENVIRONMENT EMPRESA aemp[1] filial aemp[2] USER 'Administrador' PASSWORD '' TABLES "SB2","SCQ","SC1","SAI" MODULO "EST"

Pergunte("MTA106",.F.)

If AliasInDic("SCW")
cFiltraSCP := "CP_STATSA <> 'B' "
Else
cFiltraSCP := ""
EndIf

PARAMIXB1 := .F.
PARAMIXB2 := MV_PAR01==1
PARAMIXB3 := If(Empty(cFiltraSCP), {|| .T.}, {|| &cFiltraSCP})
PARAMIXB4 := MV_PAR02==1
PARAMIXB5 := MV_PAR03==1
PARAMIXB6 := MV_PAR04==1
PARAMIXB7 := MV_PAR05
PARAMIXB8 := MV_PAR06
PARAMIXB9 := MV_PAR07==1
PARAMIXB10 := MV_PAR08==1
PARAMIXB11 := MV_PAR09
PARAMIXB12 := .T.
PARAMIXB13 := .F.

MaSAPreReq(PARAMIXB1,PARAMIXB2,PARAMIXB3,PARAMIXB4,PARAMIXB5,PARAMIXB6,PARAMIXB7,PARAMIXB8,PARAMIXB9,PARAMIXB10,PARAMIXB11,PARAMIXB12,PARAMIXB13)

RESET ENVIRONMENT

Return Nil

04. DOCUMENTAÇÃO RELACIONADA

<!-- esconder o menu --> 


<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}
</style>