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)
