Punto de entrada
Descripción: | Punto de entrada para modificar valores del archivo SRZ (Resumen de la planilla) antes de procesar la contabilidad |
Localización: | GPEM110 |
Eventos: | GPEM110 |
Programa fuente: | GPEM110.PRX |
Función: | GPEM110 |
Retorno: | Array con dos posiciones: [ 1 ] = Código de la sucursal donde se efectuará la contabilidad [ 2 ] = Código de la sucursal donde se centralizará la contabilidad
|
Ejemplo:
#Include 'Protheus.ch'
/*
En el ejemplo, la contabilidad de las sucursales 01, 02, 03, 04 y 05 se centraliza en la sucursal 01
*/
User Function GP110ACT()
Local aRet := { "01", "01"}
//Retira la clave única de la tabla SRZ, debido a la necesidad de actualización de la SRZ
If SX2->( dbSeek("SRZ") )
SX2->( Reclock("SX2", .F.) )
SX2->X2_UNICO := ""
SX2->( MsUnlock() )
EndIf
//Efectúa la modificación de la sucursal de la tabla SRZ, de acuerdo con el código enviado para la función SRZFilReplace()
SRZFilReplace( "01" , /*bCondReplace*/ )
Return( aRet )