Exemplo de Ponto de Entrada MT120FIM para Pedido de Compras

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.

/*---------------------------------------------------------------------------------*
 | 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

/*---------------------------------------------------------------------------------*

| 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

Sobre
Últimos Posts

Siga na rede

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

Siga na rede

Últimos posts por Fernando Bueno (exibir todos)

Os métodos mais usados para Prospecção de Clientes - 9 de outubro de 2024
Os 10 dos melhores CRMs de vendas disponíveis no mercado - 7 de outubro de 2024
Como um CRM de vendas pode ajudar sua indústria - 5 de outubro de 2024