PONCALHE - Geração de Horas Extras -- 10449

Ponto de Entrada antes da geração das H.E. (Horas Extras). 
Poderá ser utilizado, no Cálculo Mensal, para Juntar todos os Tipos de Horas Extras em Apenas um Evento para que possa ser feito o Rateiro de Horas Extras somente quando o Período de Apuração das Horas Extras for diferente de "D"iario.

Chamada à Partir do PONM070 (Cálculo Mensal) antes da Geração das Horas Extras e Apenas Quando o Período de Apuração das Horas Extras forem diferente de "D"iario.

PONM070.PRX

PONCALHE - Geração de Horas Extras ( < aCodTipos> , < aTabCalend> , < aExtAllTipos> ) --> aCodTipos

aCodTipos(array_of_record)
• Nenhum

Recebera como parametro o ParamIxb que eh um Array com tres Elementos, sendo o Primeiro o Clone do Array aCodTipos,  o  Segundo o Clone do Array aTabCalend o Terceiro o Clone o Array aExtAllTipos.  
 

• Elementos do aCodTipos      

    Tipo               // Tipo de Hora Extra  -  Caracter 1

    De                //  Faixa de Horas Extras - Numerico 6

    Ate              //   Faixa de Horas Extras - Numerico 6

    CodNaut     // Codigo Não Autorizado - Caracter 3

    CodAut      // Código Autorizado  - Caracter 3

• Elementos do  aTabCalend       -         37        //Numero de Elementos do Calendario de Marcacoes

     01 CALEND_POS_DATA                            // Data

     02 CALEND_POS_ORDEM                        // Ordem

     03 CALEND_POS_HORA                           // Hora

     04 CALEND_POS_TIPO_MARC                // Tipo Marc

     05 CALEND_POS_NUM_MARC                // No Marc.

     06 CALEND_POS_TIPO_DIA                   // Tipo Dia

     07 CALEND_POS_HRS_TRABA                // Horas Trabalhada no Periodo

     08 CALEND_POS_SEQ_TURNO               // Sequˆncia de Turno

     09 CALEND_POS_HRS_INTER                  // Horas de Intervalo

     10 CALEND_POS_EXCECAO                    // Excecao ( E-Excecao, # E - nao e excecao )

     11 CALEND_POS_MOT_EXECAO            // Motivo da Excecao

     12 CALEND_POS_TIPO_HE_NOR            // Tipo de hora extra normal

     13 CALEND_POS_TIPO_HE_NOT            // Tipo de hora extra noturna

     14 CALEND_POS_TURNO                         // Turno de Trabalho

     15 CALEND_POS_CC                                 // Centro de Custo do Periodo

     16 CALEND_POS_PG_NONA_HORA       // Pagamento de Nona Hora

     17 CALEND_POS_LIM_MARCACAO       // Limite de Marcacao Inicial/Final

     18 CALEND_POS_COD_REFEICAO         // Codigo da Refeicao

     19 CALEND_POS_FERIADO                      // Dia e Feriado

     20 CALEND_POS_TP_HE_FER_NR          // Tipo de Hora Extra Feriado Normal

     21 CALEND_POS_TP_HE_FER_NT           // Tipo de Hora Extra Feriado Noturna

     22 CALEND_POS_DESC_FERIADO          // Descricao do Feriado

     23 CALEND_POS_REGRA                          // Regra de Apontamento

     24 CALEND_POS_AFAST                          // Funcionario Afastado

     25 CALEND_POS_TIP_AFAST                  // Tipo do Afastamento

     26 CALEND_POS_INI_AFAST                   // Data Inicial do Afastamento

     27 CALEND_POS_FIM_AFAST                 // Data Final   do Afastamento

     28 CALEND_POS_INI_H_NOT                  // Inicio do Horario Noturno

     29 CALEND_POS_FIM_H_NOT                // Final do Horario Noturno

     30 CALEND_POS_MIN_H_NOT                // Minutos da Hora Noturna

     31 CALEND_POS_TRAB_FERIADO         // Se funcionario Trabalha em Dias Feriados

     32 CALEND_POS_APON_FERIAS            // Se Aponta Quando Afastamento em Ferias

     33 CALEND_POS_TP_HE_NR_FER          // Tipo de hora extra normal (Ferias)

     34 CALEND_POS_TP_HE_NT_FER           // Tipo de hora extra noturna (Ferias)

     35 CALEND_POS_PAGINT                        // Tipos de Intervalos Que sao Pagos conforme Regra

     36 CALEND_POS_TIPO_ORIG_DIA         // Tipo Original do Dia conforme excecao mas sem considerar a regra   e/ou afastamentos

    37 CALEND_POS_HE_AUTO_FER            // Se H.Extras são autorizadas para funcionario em ferias

• Elementos do aExtAllTipos

    Tipo               // Tipo de Hora Extra  -  Caracter 1

    De                //  Faixa de Horas Extras - Numerico 6

    Ate              //   Faixa de Horas Extras - Numerico 6

    CodNaut     // Codigo Não Autorizado - Caracter 3

    CodAut      // Código Autorizado  - Caracter 3

User Function PonCalHe()								Local __aCodTipos		:= aClone( ParamIxb[1] )				  	Local __aTabCalend 	:= aClone( ParamIxb[2] )				  	Local __aExtAllTipos	:= aClone( ParamIxb[3] )				  	Local cMemVarTpHe                             					Local nLoop                                  					  	Local nLoops                                  					Local nTipo                                  				Local nTipos                                  					  //Verificando se as Variaveis Privates estao disponiveis					nTipos := Len( __aExtAllTipos )							        For nTipo := 1 To nTipos									 nLoops := Len( __aExtAllTipos )								 For nLoop := 1 To nLoops							   	        cMemVarTpHe := ( "nHETp" + __aExtAllTipos[ nTipo , nLoop , 1 ] )	    	        SetMemVar( cMemVarTpHe , 0 )          Next nLoop									      Next nTipo       ...										Return( aClone( __aCodTipos ) )