Perguntas PONTO DE ENTRADA - ROTINA AUTOMÁTICA BAIXA A RECEBER

Mais
8 anos 1 mês atrás #31216 por fernandosouzasa
Bom dia galera, sou novo em ADVPL e estou com um problema.

A situação é a seguinte:

Tenho um campo customizado na E1 e tenho esse mesmo campo também customizado na E5. Eu preciso copiar o valor do campo da E1 para o campo da E5 no momento da baixa.

Na baixa manual, eu consegui fazer isso por ponto de entrada, porém na baixa automática, não estou conseguindo achar esse ponto de entrada.

Alguém sabe qual ponto de entrada eu devo utilizar?

Por favor Acessar ou Registrar para participar da conversa.

Mais
8 anos 1 mês atrás #31217 por lalberto
Fernando boa tarde, veja se este resolve.

/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma  ³SACI008   ºAutor  ³Microsiga           º Data ³  09/17/03   º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc.     ³Grava campos adicionais na baixa do titulo a receber no SE5 º±±
±±º          ³                                                            º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso       ³ Na baixa de um titulo a receber                            º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function SACI008()
Local aArea := GetArea()

dbSelectArea("SE5")
If RecLock("SE5",.F.)
    IF !EMPTY(M->CHIST070)
         SE5->E5_HISTOR := CHIST070
    Else
       IF (SE1->E1_TIPO=="RA ")
            SE5->E5_HISTOR :=  "BX ADTO "+SE1->E1_TIPO+" "+SE1->E1_NUM+" "+SUBSTR(SA1->A1_NOME,1,15)
       Else
           SE5->E5_HISTOR :=  "REC "+SE1->E1_TIPO+" "+SE1->E1_NUM+" "+SUBSTR(SA1->A1_NOME,1,15)
       Endif
    Endif
	MsUnlock()
EndIf

RestArea(aArea)
Return(.T.)

Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br

Por favor Acessar ou Registrar para participar da conversa.

Mais
8 anos 1 mês atrás #31218 por fernandosouzasa
Luiz V Alves, obrigado pela resposta!

Porém, não funcionou, tentei colocar um alerta, apenas para teste, e tentei debugar a linha, mas pelo visto esse ponte de entrada não é chamado na baixa por rotina automática.

Vou tentar fazer um teste usando gatilho, talvez funcione.

Por favor Acessar ou Registrar para participar da conversa.

Mais
8 anos 1 mês atrás #31219 por kanaamlrr
Tente o P.E. FA110SE5

Por favor Acessar ou Registrar para participar da conversa.

Mais
8 anos 1 mês atrás #31223 por fernandosouzasa
Kanaãm Luz Romero Rodrigues, valeu pela resposta, testei, mas pelo visto a rotina não passa por esse ponto de entrada.

Por favor Acessar ou Registrar para participar da conversa.

Mais
8 anos 1 mês atrás #31224 por Sombra
Fernando,

Dê uma pesquisada no Link abaixo ( TDN-TOTVS )

tdn.totvs.com/pages/releaseview.action?pageId=6071602

Abç.

Por favor Acessar ou Registrar para participar da conversa.

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