Exemplo do Ponto de Entrada SACI008.
Exemplo do Ponto de Entrada:
//Bibliotecas
#Include 'Protheus.ch'
/*---------------------------------------------------------------------*
| P.E.: SACI008 |
| Desc: Ponto de entrada após baixa do título a receber |
| Link: http://tdn.totvs.com/pages/releaseview.actionçpageId=6071312 |
*---------------------------------------------------------------------*/
User Function SACI008()
Local aArea := GetArea()
Local aAreaE1 := SE1->(GetArea())
//Gravando no título o valor recebido
RecLock("SE1", .F.)
E1_X_TST := "TESTE"
SE1->(MsUnlock())
RestArea(aAreaE1)
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;