Exemplo do Ponto de Entrada OS200PM.
Exemplo do Ponto de Entrada:
//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;