Ponto de Entrada – OM200OK

Exemplo do Ponto de Entrada OM200OK.

Exemplo do Ponto de Entrada:

//Bibliotecas
#Include "Protheus.ch"
#Include "TopConn.ch"

//Constantes
#Define POS_PEDIDO    0005
#Define STR_PULA      Chr(13)+Chr(10)

/*------------------------------------------------------------------------------------------------------*
 | P.E.:  OM200OK                                                                                       |
 | Desc:  Ponto de entrada antes de finalizar a carga validando se os pedidos estão ok                  |
 | Link:  http://tdn.totvs.com/pages/releaseview.action?pageId=6091308                                  |
 *------------------------------------------------------------------------------------------------------*/

User Function OM200OK()
	Local aArea     := GetArea()
	Local aPedidos  := ParamIXB[01]
	Local lContinua := .T.
	Local cLogPed   := ""
	Local nAtual    := 0
	
	//Percorrendo os pedidos
	For nAtual := 1 To Len(aPedidos)
		cLogPed += "Pedido "+aPedidos[nAtual][POS_PEDIDO]+";"+STR_PULA
	Next
		
	//Se tiver conteúdo na variável de log, mostra para o usuário
	If !Empty(cLogPed)
		Aviso("Atenção", "Pedidos: "+STR_PULA+cLogPed, {"Ok"}, 3)
	EndIf
	
	RestArea(aArea)
Return lContinua

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.