Perguntas Preencher campo na SE1 na baixa automática [RESOLVIDO]

Mais
7 anos 10 meses atrás - 7 anos 9 meses atrás #30826 por armando.lima
Bom dia pessoal,

Tenho um campo customizado na tabela SE1 e preciso preenchê-lo no momento da baixa automática (quando importa o arquivo do banco para baixar os títulos).

Alguém pode me dar uma ideia ou até mesmo me informar um ponto de entrada que eu posso usar?

Desde já agradeço! :)

Atenciosamente,

Armando Lima
Analista de Sistemas
Ultima edição: 7 anos 9 meses atrás por armando.lima. Razão: Encerrar tópico

Por favor Acessar ou Registrar para participar da conversa.

Mais
7 anos 10 meses atrás #30834 por will
Tente esse vê se ajuda:

#Include "PROTHEUS.CH"
#INCLUDE "TOPCONN.CH"


User Function F430BXA()

Local aArea := GetArea()
Local lRet := .T.
Local nSaldoZF := 0
Local nSaldo := 0

If Alltrim(SE5->E5_TIPO) == "PA"

RecLock("SE5",.F.)

SE5->E5_BENEF := Posicione("SA2",1,xFilial("SA2")+SE5->E5_CLIFOR+SE5->E5_LOJA,"A2_NREDUZ")
SE5->E5_HISTOR := "PAGAMENTO ANTECIPADO"

SE5->(msUnlock())

Endif

RestArea(aArea)

Return(lRet)

Por favor Acessar ou Registrar para participar da conversa.

Mais
7 anos 9 meses atrás - 7 anos 9 meses atrás #30888 por armando.lima
Bom dia!

Agradeço a ajuda do colega William e informo que encontrei a melhor solução para o meu caso. Segue abaixo para os demais colegas que se encontrarem na mesma situação.

Resolvi o meu problema usando o ponto de entrada F70GRSE1 que é chamado após a baixa do título (seja manual ou automático).

E me facilitou muito pois nesse momento as tabelas SE1 e SE5 já estão posicionadas como eu precisava.

Pra identificar se a baixa foi manual ou automática, eu utilizei o campo SE5->E5_ARQCNAB. Se ele estiver vazio, é baixa manual. Se ele estiver preenchido, é baixa automática.

Segue código:
User Function F70GRSE1
	If RecLock("SE5",.F.)
		If Empty(SE5->E5_ARQCNAB)
			SE5->E5_XFRECEB	:= SE1->E1_XFRECEB
		Else
			SE5->E5_XFRECEB	:= '01'
		EndIf
		MsUnLock()
	EndIf
Return
______________________
Armando Vareiro Lima
Analista de Sistemas
Skype: armandolimma
Ultima edição: 7 anos 9 meses atrás por armando.lima.

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.099 segundos
Joomla templates by a4joomla