Exemplo do Ponto de Entrada MT410CPY.

Exemplo do Ponto de Entrada:

//Bibliotecas
#Include 'Protheus.ch'

/*------------------------------------------------------------------------------------------------------*
 | P.E.:  MT410CPY                                                                                      |
 | Desc:  Na cópia do Pedido de Venda, zera os campos especificos                                       |
 | Links: http://tdn.totvs.com/pages/releaseview.actionçpageId=6784349                                  |
 *------------------------------------------------------------------------------------------------------*/

User Function MT410CPY()
	Local aArea		:= GetArea()
	Local lRet			:= .T.
	Local nPosCampo	:= GdFieldPos("C6_X_CAMPO")
	Local nLinAtu		:= 0

	//Zerando dados customizados no cabeçalho
	M->C5_X_CAMPO := ''
 
	//Percorrendo linhas da grid 
	For nLinAtu := 1 To Len(aCols)
		//Se encontrar o campo na grid, sobrepõe o valor
		If nPosCampo > 0
			aCols[nLinAtu][nPosCampo] := ''
		EndIf
	Next nLinAtu

	RestArea(aArea)
Return lRet

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