Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (karen.yoshie), última alteração em 19 mai, 2016

F402SEMA - Permite alterar o conteúdo a ser gravado em RC_SEMANA

Descrição:

Disponibilizado ponto de entrada para permitir alterar o conteúdo da semana que será gravada na tabela SRC no campo RC_SEMANA ao gerar os dados do financeiro para a SEFIP.

Obs: Atualmente a rotina gera o primeiro registro na SRC como semana 01 e o restante acumulado na semana 02.

Localização:

Miscelânea > Arquivos

Eventos:

Gera Dados SEFIP

Programa Fonte:

FINA402A

Função:

Financeiro

Retorno:

Nome

Tipo

Descrição

Obrigatório

 cSemana

Caracter 

 Conteúdo a ser gravado em RC_SEMANA

Sim 

 

 

#Include 'Protheus.ch'

User Function F402SEMA()
Local cSemana := Paramixb[1]
Local nRecnoSE2 := Paramixb[2]

SE2->(DbGoto(nRecnoSE2))  // posiciona no titulo

//já está posicionado na SRA
If SRA->RA_TIPOPGT == "M" .and. cSemana <> "0" .and. SE2->E2_TIPO == MVNOTAFIS
     cSemana := "0"
EndIf

Alert("Executou o PE F402SEMA: " + cSemana)
Return cSemana