Ponto de Entrada – M461SER

Exemplo do Ponto de Entrada M461SER.

Exemplo do Ponto de Entrada:

//Bibliotecas
#Include "Protheus.ch"

//Constantes
#Define POS_PEDIDO 0001
#Define POS_ITEM   0002
#Define POS_PROD   0006

/*------------------------------------------------------------------------------------------------------*
 | P.E.:  M461SER                                                                                       |
 | Desc:  Verificação da série                                                                          |
 *------------------------------------------------------------------------------------------------------*/

User Function M461SER()
	Local aArea  := GetArea()
	Local aParam := PARAMIXB
	Local nAtual := 0
	
	//Numero e série
	MsgInfo("Numero: "+cNumero, "Atenção")
	MsgInfo("Serie:  "+cSerie, "Atenção")
	
	//Percorrendo os itens que irão gerar a nota
	For nAtual := 1 To Len(aParam)
		MsgInfo("Pedido: "+aParam[nAtual][POS_PEDIDO]+", Item: "+aParam[nAtual][POS_ITEM]+", Produto: "+aParam[nAtual][POS_PROD], "Atenção")
	Next
	
	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