Como es el procedimiento para cambiar los dias habiles del Cesta Ticket

Ir abajo

Como es el procedimiento para cambiar los dias habiles del Cesta Ticket

Mensaje por Betsy Roman el Jue Nov 12, 2015 3:31 pm

Como es el procedimiento para cambiar los días hábiles del cesta tickes es decir de 22 días hábiles a 30 días comercial que fue lo decretado a partir del 1 ero de noviembre por el presidente de la republica.

Betsy Roman

Mensajes : 1
Fecha de inscripción : 12/11/2015

Ver perfil de usuario

Volver arriba Ir abajo

Re: Como es el procedimiento para cambiar los dias habiles del Cesta Ticket

Mensaje por Admin el Jue Nov 12, 2015 4:07 pm

Los días habiles del cesta ticket. Trabajan directamente con la jornada del trabajador (días en el turno), bastaría con ingresar a el fichero o catalogo de turnos y modificar los dias en que funciona cada turno.

Pero cambiar los dias habiles en el turno afectaria los salarios, dias sabados entre otros conceptos.

Adicionalmente, tenemos un decreto promulgado el 23/10/2015. Ver información explicativa:

http://www.notilogia.com/2015/10/formula-para-calcular-el-cesta-ticket-2015-en-venezuela.html

Por lo que se realizó una modificación al procedimiento (pxCestaTicket), del concepto A150 CESTA TICKET.

Si usted usa el concepto del CESTA TICKET, tal como lo trae el sistema. Por favor ingrese al procedimiento:
pxCestaTicket, desde [NOMINA] [PROGRAMACION DE CONCEPTOS] [CONCEPTOS DE PAGO]. Busque el concepto: pxCestaTicket. Luego, editelo (F3) y REEMPLACE todo el contenido del mismo por lo siguiente:

Código:

BEGIN
 declare doubleValorCtk double(10,2) default 0.00;
 declare strTipoNominaTrabajador char(1) default '';
 declare intDiasAusente double(10,2) default 0.00;
 declare sumarCtk double(10,2) default 0.00;
 declare restarCtk double(10,2) default 0.00;
 declare dateFechaLiquidacion date default curdate();
 
 if fxSalarioBasico(strTrabajador) < fxConstante("TOPE_SALARIO_CESTA_TICKET") then
 
 set strTipoNominaTrabajador = fxDatoTrabajador(strTrabajador,"tiponomina");
 set sumarCtk = fxObtenerValor( fxVariacion(strTrabajador,"N148",dateFechaDesde,strTipoNomina,strOtraNomina) );
 set restarCtk = fxObtenerValor( fxVariacion(strTrabajador,"N149",dateFechaDesde,strTipoNomina,strOtraNomina) );
 set intDiasAusente = fxObtenerValor( fxObtenerAcumuladoVariacion("D001,D010,D011",strTrabajador, strTipoNominaTrabajador ,dateFechaDesde,dateFechaHasta) );

 if fxCompararFecha( '2015-09-30',dateFechaHasta ) >= 0  then
 /*Antes del decreto*/
 set doubleVariacion = fxDiasHabilesEnElTurno(strTrabajador, strTipoNominaTrabajador ,dateFechaDesde,dateFechaHasta,0);
 set doubleValorCtk = fxConstante("UNIDAD_TRIBUTARIA") * (0.25);
 end if;


 if fxCompararFecha( '2015-10-01',dateFechaDesde ) = 0 and  fxCompararFecha( '2015-10-31',dateFechaHasta ) = 0 then
 /*Decreto 2.066 publicado el 23 de Octubre del 2015 en la Gaceta Oficial N? 40.773*/
 set doubleVariacion = fxDiasHabilesEnElTurno(strTrabajador, strTipoNominaTrabajador ,dateFechaDesde,'2015-10-22',0);
 set doubleValorCtk = fxConstante("UNIDAD_TRIBUTARIA") * (0.25);

 set doubleMonto = 8 * fxConstante("UNIDAD_TRIBUTARIA") * (1.5);

 set doubleVariacion = doubleVariacion + sumarCtk - restarCtk - intDiasAusente;
 
 set doubleValorCtk = fxConstante("UNIDAD_TRIBUTARIA") * (0.25);

 set doubleMonto = doubleMonto + (doubleVariacion * doubleValorCtk);

 set strComentario = concat(doubleVariacion," CTK a ",doubleValorCtk," + 8 CTK a: ",fxConstante("UNIDAD_TRIBUTARIA") * (1.5));
 
 if intDiasAusente > 0 then
 set strComentario = concat(strComentario,' INASISTENCIA:', intDiasAusente);
 end if;
 
 if sumarCtk > 0 then
 set strComentario = concat(strComentario,' ADIC:',sumarCtk);
 end if;
 
 if restarCtk > 0 then
 set strComentario = concat(strComentario,' DEDUC:', restarCtk);
 end if;

 set doubleVariacion = doubleVariacion + 8;
 
 end if;

 if fxCompararFecha( '2015-11-01',dateFechaDesde ) <= 0 then
 /*Decreto 2.066 publicado el 23 de Octubre del 2015 en la Gaceta Oficial N? 40.773*/
 set doubleVariacion = 30;
 set doubleValorCtk = fxConstante("UNIDAD_TRIBUTARIA") * (1.5);
 end if;

 
 if(doubleMonto = 0) then

 set doubleVariacion = doubleVariacion + sumarCtk - restarCtk - intDiasAusente;
 
 if (doubleVariacion > 0 ) then

 set doubleMonto = doubleVariacion * doubleValorCtk;

 set strComentario = concat("Valor CTK: ",doubleValorCtk);
 
 if intDiasAusente > 0 then
 set strComentario = concat(strComentario,' INASISTENCIA:', intDiasAusente);
 end if;
 
 if sumarCtk > 0 then
 set strComentario = concat(strComentario,' ADIC:',sumarCtk);
 end if;
 
 if restarCtk > 0 then
 set strComentario = concat(strComentario,' DEDUC:', restarCtk);
 end if;
 
 end if;

 end if;

 end if;
END


Si ejecuta la prenomina del cesta ticket, en los meses de Septiembre, Octubre y Noviembre, como una prueba obtendra los siguientes resultados. Ver. Fig.


Admin
Admin

Mensajes : 101
Fecha de inscripción : 19/05/2015
Edad : 49
Localización : Venezuela

Ver perfil de usuario http://msasoftware.forovenezuela.net

Volver arriba Ir abajo

Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.