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;