Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

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 ] )    

Exemplo:

:

[ 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 )