Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • PLS982IG - Cálculo do auto-gerado
  • Criado por Usuário desconhecido (ana.lira), última alteração por admin em 24 jun, 2012

Ponto-de-Entrada: PLS982IG - Cálculo do auto-gerado
Versões: Todas
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Descrição: 
Este ponto de entrada da rotina Calc- Auto-gerado (PLSA983), permite ignorar / desconsiderar os eventos selecionados pelo sistema para o cálculo do auto-gerado.
Programa Fonte 
PLSA982.PRW
Sintaxe

PLS982IG - Cálculo do auto-gerado ( [ cChvBD ], [ cCdPla ], [ cCdPro ] ) --> lRet

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
cChvBD Caracter Operadora + Cd. Local Dig + PEG + Numero + Origem Movto + Sequência
cCdPla Array of Record Cd. Produto
cCdPro Array of Record Cd. Tp.Tabela + Cd. Proc.
Retorno
    lRet(logico)
  • Retorno lógico. Se for .F. o registro da tabela BD6 posicionada não será considerado para cálculo do auto-gerado.
Observações

O ponto de entrada disponibiliza a chave do evento e código do plano que será considerado para cálculo do auto-gerado.
Seu valor de retorno do tipo lógico sendo falso, apresenta o registro posicionado e não será considerado pela rotina padrão.

Exemplos 
User Function PLS982IG()Local lRet := .T.Local cChvBD := paramixb[1] // BD6_CODOPE+BD6_CODLDP+BD6_CODPEG+BD6_NUMERO+BD6_ORIMOV+BD6_SEQUENLocal cCdPla := paramixb[2] // BD6_CODPLALocal cCdPro := paramixb[3] // BD6_CODPAD+BD6_CODPROIf cCdPla == "9999" .Or. cCdPro == "99999999"	lRet := .F.EndIfReturn lRet
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não