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
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas