RM_SEQ RM_DESCRIC                               RM_IF                                                                                                                                                                                                                                                      RM_FORMULA                                                                                                                                                                                                                                                 
------ ---------------------------------------- ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- 
00500  Sal.Base Insalubridade                                                                                                                                                                                                                                                                              S_SALINSALUB                                                                                                                                                                                                                                              
00510  Codigo Insalubridade                                                                                                                                                                                                                                                                                cCodIns := Space(3)                                                                                                                                                                                                                                       
00520  Valor Insalubridade                                                                                                                                                                                                                                                                                 nInsal  := 0.00                                                                                                                                                                                                                                           
00530  Calcula Insalubridade                                                                                                                                                                                                                                                                               Insalub(aCodfol,Val_Binsal,@nInsal,"S",SalHora,lAdicInteg)                                                                                                                                                                                                
00760  Sal.Base Insalubridade                   SRA->RA_INSMIN = 999.99 .Or. SRA->RA_INSMED = 999.99 .Or. SRA->RA_INSMAX = 999.99                                                                                                                                                                          S_SALINSALUB                                                                                                                                                                                                                                              
00780  Calculo Insalubridade                    SRA->( (RA_INSMIN = 999.99 .Or. RA_INSMED = 999.99 .Or. RA_INSMAX = 999.99) .and. cSitFolh # "D" ) .And. DiasTrab > 0                                                                                                                                      Insalub(aCodfol,Val_BInsal,@nInsalub,"N",SalHora)                                                                                                                                                                                                         
00790  Gera a  Insalubridade                    SRA->( ( RA_INSMIN = 999.99 .Or. RA_INSMED = 999.99 .Or. RA_INSMAX = 999.99 ) .and. cSitFolh # "D" )                                                                                                                                                       fGeraVerba(cCodIns,nInsalub,nInsalub / If( lUsaSMin,(Val_BInsal/SRA->RA_HRSMES),SALHORA),,,,,,,,.T.)                                                                                                                                                      

(7 row(s) affected)