Linha Microsiga Protheus

Árvore de páginas

Í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âmetroTipoDescriçãoDefault
PARAMIXB1LógicoIndica 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.
PARAMIXB2LógicoIndica se a rotina deve ser avaliada por data de necessidade (.T.) ou por data de emissão (.F.)..F.
PARAMIXB3Bloco de códigoExpressão de filtro a ser avaliada para cada registro do SCP.
PARAMIXB4LógicoIndica se considera ou não previsão de entrada (SC/OP)..F.
PARAMIXB5LógicoIndica se a rotina devera gerar ou não Solicitação de Compras no SC1..F.
PARAMIXB6LógicoConsidera Armazém da SA..F.
PARAMIXB7CaracterSaldo do Armazém a considerar a necessidade.
PARAMIXB8CaracterSaldo ate o Armazém a considerar a necessidade.
PARAMIXB9LógicoConsiderar o Lote Econômico na geração da SC..T.
PARAMIXB10LógicoConsiderar o saldo já empenhado quando baixa de OP..F.
PARAMIXB11NuméricoIndica se aglutina (1) ou não (2) as SCs.1
PARAMIXB12LógicoIndica se a rotina será executada automaticamente.
Para rotina automática deve ser .T. (verdadeiro).		.T.
PARAMIXB13LógicoIndica se subtrai estoque de segurança..F.

03. EXEMPLO DE UTILIZAÇÃO


A seguir é mostrado um exemplo para chamada da função A106PREREQ no formato de rotina automática

#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.

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

RESET ENVIRONMENT

Return Nil