Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada GP110ACT - Resumo da Folha


Ponto de Entrada

Descrição:

Ponto de entrada para alterar valores do arquivo SRZ (Resumo da Folha) antes de processar a contabilização

Localização:

GPEM110

Eventos:

GPEM110

Programa Fonte:

GPEM110.PRX

Função:

GPEM110

Retorno:

Array com duas posições:

[ 1 ] = Código da filial onde a contabilização será efetuada

[ 2 ] = Código da filial onde a contabilização será centralizada

 

 


Exemplo:

#Include 'Protheus.ch'
/*
No exemplo, a contabilização das filiais 01, 02, 03, 04 e 05 é centralizada na filial 01
*/
User Function GP110ACT()

Local aRet    := { "01", "01"}

//Retira a chave única da tabela SRZ, devido necessidade de atualização da SRZ
If SX2->( dbSeek("SRZ") )
    SX2->( Reclock("SX2", .F.) )
    SX2->X2_UNICO := ""
    SX2->( MsUnlock() )
EndIf

//Efetua alteração da filial da tabela SRZ, conforme código enviado para a função SRZFilReplace()
SRZFilReplace( "01" , /*bCondReplace*/ )

Return( aRet )