Ponto de Entrada – OS200PM

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;

Links:

Pesquisa no TDN

Etiquetas

Receba novidades

Seja VIP e receba novidades exclusivas por e-Mail gratuitamente.