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 )
