Exemplo do Ponto de Entrada OS200PM.
Exemplo do Ponto de Entrada:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 | //Bibliotecas #Include "Protheus.ch" #Include "TopConn.ch" /*---------------------------------------------------------------------------------------------* | P.E.: OS200PM | | Desc: P.E. executado após manutenção da carga | | Link: http://tdn.totvs.com/pages/releaseview.action?pageId=6091366 | *---------------------------------------------------------------------------------------------*/ User Function OS200PM() Local aArea := GetArea() Local aAreaC5 := SC5->(GetArea()) Local nAtual := 1 Local nPosPed := GDFieldPos( 'DAI_PEDIDO' ) DbSelectArea( 'SC5' ) SC5->(DbSetOrder(1)) //Filial + Pedido SC5->(DbGoTop()) //Percorre os pedidos For nAtual := 1 To Len(aCols) //Se a linha estiver excluída If GDDeleted(nAtual) //Se posicionar no pedido If SC5->(DbSeek(FWxFilial( 'SC5' ) + aCols[nAtual][nPosPed])) //Grava a flag RecLock( 'SC5' , .F.) C5_X_CAMPO := 'TST' SC5->(MsUnlock()) EndIf EndIf Next RestArea(aAreaC5) 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;