Exemplo do Ponto de Entrada F080ACRE.
Exemplo do Ponto de Entrada:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | #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;