Histórico da Página
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 ( aFilContab(array_of_record) ) |
Observações
Existem Clientes que, para contabilizar Todas as filiais em uma, mesmo com o Modo de Acesso do SRZ igual a Exclusivo, alteram o conteúdo do campo RZ_FILIAL para branco (Simulando um arquivo compartilhado). Para prever essas situações, e, se o ponto de Entrada abaixo retornar conteúdo correspondente a filial a ser pesquisada é Contabilizada Array com dois Elementos:
aFilContab => cFilReplace := aFilContab[ 01 ]
cFilContab := aFilContab[ 02 ]
Obs.: Recomendamos o uso da função SRZFilReplace, caso seja necessário estar dando Replace no campo RZ_FILIAL. A função deverá ser chamada da seguinte forma:
SRZFilReplace( cFilReplace , [ bCondReplace ] )
: [ 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 )