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);

<div class="Code"><p style="font-family: 'Courier New';">xNumEmp = R034FUN.NumEmp;<br></br>xTipCol = R034FUN.TipCol;<br></br>xNumCad = R034FUN.NumCad;</p><p style="font-family: 'Courier New';"></p><p style="font-family: 'Courier New';">definir cursor Cur;<br></br>Cur.SQL "SELECT NUMEMP FROM R038HPO WHERE NUMEMP = :xNumEmp AND TIPCOL = :xTipCol AND NUMCAD = :xNumCad";<br></br>Cur.AbrirCursor();</p><p style="font-family: 'Courier New';">se (Cur.NaoAchou)<br></br> inicio<br></br> definir data xDatAdm;<br></br> xDatAdm = R034FUN.DatAdm;<br></br> definir alfa xPosDef;<br></br> RetornaInformacoesPostoPadrao(xNumEmp, xDatAdm, xEstPos, xPosDef, xTapDef, xMotDef);<br></br> xTerAtu = 0;<br></br> xStaHis = 1;<br></br> definir alfa xObsHpo;<br></br> xObsHpo = "Posto padrão";<br></br> xSeqHis = 1;<br></br> execSQL "INSERT INTO R038HPO (NUMEMP,TIPCOL,NUMCAD,INIATU,SEQHIS,CODTAP,MOTALT,ESTPOS,POSTRA,TERATU,OBSHPO,STAHIS) \<br></br> VALUES (:xNumEmp,:xTipCol,:xNumCad,:xDatAdm,:xSeqHis,:xTapDef, \<br></br> :xMotDef,:xEstPos,:xPosDef,:xTerAtu,:xObsHpo,:xStaHis)";<br></br>fim;</p><p style="font-family: 'Courier New';"></p><p style="font-family: 'Courier New';">Cur.FecharCursor();</p></div>

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

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