Árvore de páginas

Ponto de Entrada utilizado após a geração do título SEST.

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

Financeiro

Função:

F050SES

Situação/Requisito:

Solicitação de documentação do ponto de entrada F050SES para complemento de FAQ.

Solução/Implementação:

Documentação PE F050SES

Chamados relacionados:

TVDXOZ

F050SES

Descrição:

Permite à alteração de títulos após a confirmação gravação do título SEST.

Localização:

Atualizações > Contas à Pagar> Contas a Pagar

Eventos:

Após a confirmação da Inclusão do Título

Programa Fonte:

FINA050

Função:

FA050AxAlt

Retorno:

Nil

 

 

Exemplo:

#Include 'Protheus.ch'

User Function F050SES()

Local _nRecsest:= PARAMIXB //Recno do Título Original
Local _cPrefix := SE2->E2_PREFIXO
Local _cNum := SE2->E2_NUM
Local _cParc := SE2->E2_PARCELA
Local _cTipo := SE2->E2_TIPO

AVISO("PE.F050SES","EXECUCAO DO PE. F050SES, GRAVACOES DE INFORMACOES NO TITULO SEST",{"OK"})

//POSICIONO NO TITULO SEST
DbSelectArea("SE2")
SE2->(DbGoTop())
If(SE2->(DbSeek(xFilial("SE2")+_cPrefix+_cNum+_cParc+"SES")))

RecLock("SE2",.F.)
SE2->E2_HIST := "TEXTO PE. F050SES"
MsUnlock()

Endif
//VOLTO A SE2 PARA O TITULO ORIGINAL
SE2->(DbgoTo(_nRecsest))

Return