Exemplo do Ponto de Entrada OM200OK.
Exemplo do Ponto de Entrada:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | //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;