PLSA825CC - Manipular Centro de Custo

Programa: PLSA825
Função: A825Gera
Ponto de Entrada: PLSA825CC
Objetivo: Permite manipular o centro de custo envolvido na rotina de SEFIP. É chamado antes da criação do arquivo SRCX, arquivo de lançamentos ( movimentações) referentes as bases de INSS.
 O ponto de entrada para altera o centro de custo, quando existir diferentes centros de custo com o mesmo CNPJ, como por exemplo:
Unimed Federativa.
 
Exemplo de Utilização: 

Parâmetros de entrada: cCliente(Codigo Cliente),cLoja(Codigo da Loja).
Parâmetros de Retorno: cChaveSa1( novo código cliente + código Loja ).
 
Exemplo de sua codificação:

User Function PLSA825CC(cCliente,cLoja)
Local cBusca    := cCliente
Local cChaveSA1 := cCliente+cLoja
lOCAL cCGC    := ''
LOCAL aAreaSA1  := SA1->( GetArea() ) 
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³Posiciona no SA1 pelo codigo do cliente e Loja para pegar o CNPJ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
SA1->( DbSetOrder(01) )
If SA1->( MsSeek( xFilial('SA1')+cChaveSA1 ) )
 cCGC:= SA1->A1_CGC
 
 
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
 //³Posiciona no SA1 pelo CNPJ encontrado para retornar sempre o mesmo 
cliente³
 
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
 SA1->( DbSetOrder(03) )
 If SA1->( MsSeek( xFilial('SA1')+cCGC ) )
  cChaveSA1 := SA1->( A1_COD+A1_LOJA )
 EndIf
EndIf
RestArea(aAreaSA1)
Return(cChaveSa1)

.PRW

PLSA825CC - Manipular Centro de Custo ( < cCliente> , < cLoja> ) --> cChaveSa1

cChaveSa1(caracter)
• Novo Código do Cliente + Código da Loja.