Histórico da Página

...

02. SITUACIÓN/REQUISITO

Por proceso un usuario desde Guadalajara realiza la emisión de facturas de la sucursal de Tepic, sin embargo al intentar timbrar los XML, el PAC le Al timbrar un documento electrónicos de tipo Factura de Venta (NF), Nota de Débito (NDC) o Nota de Crédito (NCC) desde sucursales con diferente uso horario, no se obtiene rechazo que  indica que la hora de emisión es posterior a la tolerancia permitida. Esto ocurre por que la hora en el XML es la de Guadalajara (Ejemplo 12:00 p.m.) mientras que el PAC valida la hora a partir de la zona horaria del RFC utilizado, en este caso valida conforme a la hora de Tepic (Ejemplo 11:00 a.m.).

...

:

La fecha del comprobante está fuera del rango de timbrado permitido. Folio: 0000000385. Serie: MAN. La fecha y hora de emisión del comprobante es posterior a la tolerancia permitida. Fecha de emisión: 2020-05-14T12:05:38 Fecha de intento de timbrado: 2020-05-14T11:35:10 Fecha de emisión máxima permitida: 2020-05-14T11:40:10 Zona Horaria: Tiempo del Pacífico.

En la funcionalidad estándar, el XML para el elemento Fecha toma la hora a partir del campo Hora (F1_HORA/F2_HORA), el cual guarda la hora actual del sistema establecida en la máquina donde se ejecuta SmartClient (función GetRmtTime), se requiere que el campo Hora (F1_HORA/F2_HORA) almacene la hora conforme al uso horario de cada sucursal sin importar desde donde se ejecute el Smartclient.

03. SOLUCIÓN

En la rutina de Notas Fiscales (LOCXNF), se activa el Punto de Entrada LXHORANFIS, para permitir definir la manera en la que se obtendrá la hora que será almacenada en el campo Hora (F1_HORA/F2_HORA), la cual se informa en el elemento Fecha del XML de documentos electrónicos.

Ejemplo del Punto de Entrada LXHORANFIS:

        #include 'protheus.ch'

        User Function LXHORANFIS()
              Local cHora := ""
              Local aTimeUf := {}
              Local lHVerao := SuperGetMv("MV_HVERAO",.F.,.F.)

              aTimeUf := FwTimeUF(SM0->M0_ESTENT,,lHVerao)
              cHora := aTimeUf[2]
        Return cHora

...