English
Español
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 | Descrição |
| xNumEmp | Numérico | Empresa da qual se deseja buscar a Estrutura e Posto padrão |
| xDatRef | Data | 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. |
Exemplo:
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)";
fim;
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.
English
Español
