DATO DE ANTIGUEDAD EN NOMINA V1.2

[jgalvan]

HOla,

Para fines del nuevo complemento de nomina v12, tendran algun dll que calcule este dato o al menos el numero de semanas entre dos fechas ?

Si lo tienen, cuanto cuesta ?

Saludos !

[Dado]

DLL ???

No es tan complejo, estoy seguro que en cualquier lenguaje de programacion tiene funciones para calcular diferencia entre dos fechas

[s3cr3to]

En delphi y basado en este ejemplo:
http://www.delphibasics.co.uk/RTL.asp?Name=DaysBetween

Una rápida adaptación para ver que pasa cuando el año es bisiesto o no:

Screenshot from 2016-12-17 08-58-28.png (6.29 KiB) Visto 6884 veces

El código de la imagen sería (sin un label, usar el showmessage):

Código: Seleccionar todo

uses System.DateUtils;
...
var
  fromdate, toDate : TDateTime;
  fromdate2, toDate2 : TDateTime;
  r1,r2 : string;
begin
    // Set up our date variables
    fromDate := EncodeDateTime(2016, 01, 01, 10, 0, 0, 0);
    toDate   := EncodeDateTime(2016, 12, 31,  9, 0, 0, 0);

    fromDate2 := EncodeDateTime(2015, 01, 01, 10, 0, 0, 0);
    toDate2   := EncodeDateTime(2015, 12, 31,  9, 0, 0, 0);

    // Display these dates and the days between them
    r1:= 'From date = '+DateTimeToStr(fromDate) + #13#10
    +'To   date = '+DateTimeToStr(toDate) + #13#10
    +'Whole days difference = '+ IntToStr(DaysBetween(toDate, fromDate))+' days';

    r2:= 'From date = '+DateTimeToStr(fromDate2) + #13#10
    +'To   date = '+DateTimeToStr(toDate2) + #13#10
    +'Whole days difference = '+ IntToStr(DaysBetween(toDate2, fromDate2))+' days';
    //ShowMessage(r1 + #13#10+'---------------------'+#13#10 + r2);
    Label1.Caption := r1 + #13#10+'---------------------'+#13#10 + r2;
end;


NOTA:
Si no sale la hora, de menos se debe poner un milisegundo, ejemplo:

Código: Seleccionar todo

    fromDate := EncodeDateTime(2016, 01, 01, 0, 0, 0, 1);
    toDate   := EncodeDateTime(2016, 12, 31,  23, 59, 59, 999);


[jgalvan]

Gracias, ya quedó !

[Alfonso A]

Hola Buenos dias!!

Pues yo también soy de los que tienen problemas con la antiguedad de empleados en el timbrado de nómina, ya busque en el foro y no veo solución, hago el cálculo por fuera y veo el ini, y está correcto, y unos si los quiere y otros no. Alguna solución??

Gracias!!

[moyneh]

Hola Dado los dos pacs me estan mandando este error haber si tu me puedes ayudar ya pudimos timbrar varios recibos de esta manera te adjunto el XML

XML Generado, ErrorGeneral - Error General Ecodex: 301 El mensaje no cumple con la estructura XML requerida element {http://www.sat.gob.mx/nomina12}Receptor attribute Antigüedad had invalid value 'P10Y0M1D' of anonymous type
PAC de Respaldo: @@301 XML Invalido ERROR: The 'Antigüedad' attribute is invalid - The value 'P10Y0M1D' is invalid according to its datatype 'String' - The Pattern constraint failed. Ambiente de PRUEBAS

Saludos Moises

[Dado]

Siento comentarles que no he investigado como se debe hacer el calculo de antiguedad

[moyneh]

Cuando está mal el calculó el pac te dice cual debe ser el calculó el problema aquí no es el calculó está bien lo que dice es que hay un error en el formato te puedo mandar algunos XLM con el mismo formato Y se Timbraron la diferencia es solo el mes que es '0'

Saludos

Moisés

[Dado]

En otra parte del foro comentaron que si usas el formato de semanas es mucho mas flexible y casi no marca error (y yo creo que incluso es mas facil el calculo porque solo divides los dias entre 7)

[moyneh]

Voy al probar esa opción te aviso el resultado

Saludos

Moisés