Exemplo do Ponto de Entrada F080ACRE.

Exemplo do Ponto de Entrada:

#Include "Protheus.ch"

/*------------------------------------------------------------------------------------------------------*
 | P.E.:  F080ACRE                                                                                      |
 | Desc:  P.E. para editar as variáveis no baixas a Pagar (utilizado na baixa por lote)                 |
 *------------------------------------------------------------------------------------------------------*/

User Function F080ACRE()
	Local aArea    := GetArea()
	Local nTamHist := TamSX3('E5_HISTOR')[01] //Len(cHist070)
	
	//Se for a janela do baixa por lote
	If IsInCallStack("fA080TitW")
		//Atualiza o histórico na baixa
		cHist070 := SE2->E2_HIST
	EndIf
	
	RestArea(aArea)
Return

Observações:

– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
– Se tiver sugestões de rotinas, pode entrar em contato;

Links:

– Pesquisa no TDN