RetornaHistoricoPostoPadrao

O Objetivo desta função é retornar algumas informações necessárias para a criação do histórico de Posto de trabalho padrão do colaborador.

Sintaxe: RetornaInformacoesPostoPadrao(Numero xNumEmp, Data xDatRef, Numero End xEstPos, Alfa End xPosDef, Numero End xTapDef, Numero End xMotDef);

Parámetros:

Nome	Tipo	Descripción
xNumEmp	Numérico	Empresa da qual se deseja buscar a Estrutura e Posto padrão
xDatRef	Fecha	Data de referência.
xEstPos	Numérico	Estrutura de postos padrão da empresa.
xPosDef	Alfa	Posto de trabalho padrão da empresa.
xTapDef	Numérico	Tipo de atuação padrão para os históricos de Posto.
xMotDef	Numérico	Motivo de alteração padrão para os históricos de Posto.

Ejemplo:

xNumEmp = R034FUN.NumEmp;
xTipCol = R034FUN.TipCol;
xNumCad = R034FUN.NumCad;

definir cursor Cur;
Cur.SQL "SELECT NUMEMP FROM R038HPO WHERE NUMEMP = :xNumEmp AND TIPCOL = :xTipCol AND NUMCAD = :xNumCad";
Cur.AbrirCursor();

se (Cur.NaoAchou)
inicio
definir data xDatAdm;
xDatAdm = R034FUN.DatAdm;
definir alfa xPosDef;
RetornaInformacoesPostoPadrao(xNumEmp, xDatAdm, xEstPos, xPosDef, xTapDef, xMotDef);
xTerAtu = 0;
xStaHis = 1;
definir alfa xObsHpo;
xObsHpo = "Posto padrão";
xSeqHis = 1;
execSQL "INSERT INTO R038HPO (NUMEMP,TIPCOL,NUMCAD,INIATU,SEQHIS,CODTAP,MOTALT,ESTPOS,POSTRA,TERATU,OBSHPO,STAHIS) \
VALUES (:xNumEmp,:xTipCol,:xNumCad,:xDatAdm,:xSeqHis,:xTapDef, \
:xMotDef,:xEstPos,:xPosDef,:xTerAtu,:xObsHpo,:xStaHis)";
orden;

Cur.FecharCursor();

Utilização: Regras em geral, Gerador de Relatórios, Gerador Importação/Exportação.

Disponível para os módulos: Todos os módulos.