<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"> </P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">Através deste ponto de entrada é possível alterar a regra que indica se o usuario é ou não recém admitido, para fins, da regra de carência para novos dependentes:</P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">A Regra padrão é a informada abaixo:</P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p> </o:p></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 35.4pt">lLimite := ((M->BA1_DATINC - M->BA1_DATADM) <= BEY->BEY_LIMITE)</P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><o:p> </o:p></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">Caso seja necessário mudá-la usa-se o ponto de entrada em questão</P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><o:p> </o:p></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">A sintaxe do comando é a exibida abaixo:</P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><o:p> </o:p></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN lang=EN-US style="mso-ansi-language: EN-US">If ExistBlock('P260CADM')<o:p></o:p></SPAN></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 35.4pt"><SPAN lang=EN-US style="mso-ansi-language: EN-US">aLimite := Execblock('P260CADM',.F.,.F.,{lTipo})<o:p></o:p></SPAN></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN lang=EN-US style="mso-ansi-language: EN-US"><SPAN style="mso-tab-count: 1"> </SPAN>If Len(aLimite) > 0<o:p></o:p></SPAN></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN lang=EN-US style="mso-ansi-language: EN-US"><SPAN style="mso-tab-count: 2"> </SPAN>lLimite := aLimite[1]<o:p></o:p></SPAN></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN lang=EN-US style="mso-ansi-language: EN-US"><SPAN style="mso-tab-count: 1"> </SPAN></SPAN>Endif</P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">Endif</P>