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;