F330AE5E
User Function F330AE5E()Altera o histórico da SE5 no estorno de compensação de contas a receber da FINA330.
Visão geral
A documentação específica identifica FINA330 e a alteração de SE5->E5_HISTOR no estorno da compensação a receber. Parâmetros e retorno são indicados como “Não se aplica”. Seu exemplo bloqueia SE5, altera o histórico e libera o registro. (TOTVS, ref. 1) A listagem P12.2210 situa a chamada em FA330DESC. Não é um PE do retorno SISPAG da FINA300, apesar da classificação incorreta encontrada em índices antigos. (Ref. 2)
Sintaxe
User Function F330AE5E()Retorno
Não se aplica, conforme a seção oficial. O exemplo TOTVS termina com Return NIL; não há retorno lógico de autorização de estorno. (Ref. 1)
Preservar histórico e acrescentar marcador de homologação
#Include "Protheus.ch"
User Function F330AE5E()
// Adaptação editorial do exemplo TOTVS (ref. 1); somente homologação.
Local aArea := GetArea()
Local aAreaSE5 := {}
// O chamador deve fornecer o registro correto; esta guarda não o identifica.
If Select("SE5") > 0
aAreaSE5 := SE5->(GetArea())
If !SE5->(Eof())
If RecLock("SE5", .F.)
// Preserva o texto existente e respeita o tamanho do campo.
SE5->E5_HISTOR := Left(AllTrim(SE5->E5_HISTOR) + ;
" | Estorno de compensacao", Len(SE5->E5_HISTOR))
SE5->(MsUnlock())
EndIf
EndIf
RestArea(aAreaSE5)
EndIf
RestArea(aArea)
Return NilPropõe acrescentar um marcador ao histórico existente, limitado ao tamanho do campo; se já estiver cheio, o marcador pode ser truncado. Há gravação real em SE5 quando o bloqueio é obtido. Usar somente com a identificação do registro conferida em homologação. Exemplo não compilado nem executado em Protheus.
- Não confundir estorno de compensação a receber com processamento de retorno bancário a pagar.
- A guarda de alias e EOF não confirma que o registro é o movimento correto. Conferir a posição fornecida pelo chamador e a regra de histórico antes de usar.
- Tratar o resultado de RecLock e manter o controle de transação com a rotina padrão; não adicionar commit próprio ao exemplo.
- O exemplo oficial substitui todo o histórico por um texto fixo. A adaptação preserva o conteúdo até o limite do campo; definir como tratar falta de espaço e repetição do estorno.
- Roteiro editorial de homologação: comparar o fluxo padrão e a customização nas operações descritas, conferir os registros resultantes e registrar release e patch.
- Em revisão: fontes e exemplo conferidos documentalmente; código não compilado nem executado em Protheus. Posição exata na transação e comportamento no release-alvo não confirmados.
Comentários
Ainda não há comentários aprovados.
Entre com Google ou Microsoft para comentar.