Olá pessoal,
Segue um exemplo de ponto de entrada a ser executado após incluir, alterar. excluir um pedido de compras.
O ponto de entrada é chamado após a restauração do filtro da FilBrowse, depois de fechar a operação realizada no pedido de compras, é a ultima instrução da função A120Pedido.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
/*---------------------------------------------------------------------------------* | P.E.: MT120FIM | | Desc: Atualização Pedido Compra | | Link: http://tdn.totvs.com/display/public/mp/MT120FIM | *---------------------------------------------------------------------------------*/ User Function MT120FIM() Local aArea := GetArea() Local aAreaC7 := SC7->(GetArea()) Local nOpcao := PARAMIXB[1] Local nOpcA := PARAMIXB[3] Local nPosItem := aScan(aHeader,{|x| AllTrim(x[2]) == "C7_ITEM"}) Local nPosQtde := aScan(aHeader,{|x| AllTrim(x[2]) == "C7_QUANT"}) Local nPosVlr := aScan(aHeader,{|x| AllTrim(x[2]) == "C7_PRECO"}) Local nPosIPI := aScan(aHeader,{|x| AllTrim(x[2]) == "C7_VALIPI"}) //Coloque aqui o que deseja fazer RestArea(aAreaC7) RestArea(aArea) Return |
Fernando Bueno
Consultor em FBSOLUTIONS
Sou consultor na área de implantação de sistemas ERP, com experiência na análise e implantação de projetos de sistemas, configurando a estrutura do software, capacitando usuários-chaves, ministrando treinamentos e workshops.
Atuando desde 2005 no mercado de tecnologia, desenvolvendo e implantando e sistemas gerenciais, sistemas e sites web e ecommerce.
Siga-me no Linked In
Atuando desde 2005 no mercado de tecnologia, desenvolvendo e implantando e sistemas gerenciais, sistemas e sites web e ecommerce.
Siga-me no Linked In