Histórico da Página

...

07. OBSERVAÇÃO

Não se aplica

08. EXEMPLO

#include 'protheus.ch'

User Function OMSTOL02()

Local dDataIni := PARAMIXB[1]
Local cHrIni := PARAMIXB[2]
Local dDataFim := PARAMIXB[3]
Local cHrFim := PARAMIXB[4]
Local aEnv := PARAMIXB[5]
Local aFalha := PARAMIXB[6]
Local nX := 1

conout("Data início da integração " + cValToChar(dDataIni) +;
             " Horário início da integração " + cValToChar(cHrIni) +;
             " Data final da integração " + cValToChar(dDataFim) +;
             " Horário final da integração " + cValToChar(cHrFim))

conout("Pedidos enviados para a integração:")

For nX := 1 To Len(aEnv)   
      conout("Filial: " + aEnv[nX][1] + " Pedido: " + aEnv[nX][2] + " Seq Int: " + aEnv[nX][3])

Next

If !Empty(aFalha)

    conout("Pedidos enviados com falha de integração:")   
    For nX := 1 To Len(aFalha)
          conout("Filial: " + aFalha[nX][1] + " Pedido: " + aFalha[nX][2] )
    Next

EndIf

Return

#include 'protheus.ch'

User Function OMSTOL02()

	Local dDataIni := PARAMIXB[1]
	Local cHrIni   := PARAMIXB[2]
	Local dDataFim := PARAMIXB[3]
	Local cHrFim   := PARAMIXB[4]
	Local aEnv     := PARAMIXB[5]
	Local aFalha   := PARAMIXB[6]
	Local nX       := 1

	conout("Data início da integração " + cValToChar(dDataIni) +;
		   " Horário início da integração " + cValToChar(cHrIni) +;
		   " Data final da integração " + cValToChar(dDataFim) +;
		   " Horário final da integração " + cValToChar(cHrFim))

	conout("Pedidos enviados para a integração:")

	For nX := 1 To Len(aEnv)
		conout("Filial: " + aEnv[nX][1] + " Pedido: " + aEnv[nX][2] + " Seq Int: " + aEnv[nX][3])
	Next

	If !Empty(aFalha)
		conout("Pedidos enviados com falha de integração:")
		For nX := 1 To Len(aFalha)
			conout("Filial: " + aFalha[nX][1] + " Pedido: " + aFalha[nX][2] )
		Next
	EndIf

Return

...