Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS OMS

Linha de Produto:

Linha Protheus

Segmento:

Logística

Módulo:TOTVS OMS - Gestão de Distribuição (SIGAOMS)
Função:OMSXCPL6- Envio de Pedidos (TOL)
País:Todos Países
Ticket:15016745
Requisito/Story/Issue (informe o requisito relacionado) :DLOGWMSMSP-14476


02. DESCRIÇÃO

Este Ponto de Entrada recebe as informações de data inicial, horário inicial, data final, horário final, Pedidos processados, Pedidos com falhas ao término do processamento de envio de Pedidos ao TOL.

03. LOCALIZAÇÃO

Localizado no término da integração de envio de Pedidos ao TOL.

04. PARÂMETROS

Nome 

Tipo

Descrição

dDataIni

date

Data inicial do processamento do envio da integração

cHrInicharacterHorário inicial do processamento do envio da integração
dDataFimdateData final do processamento do retorno da integração
cHrFimcharacterHorário final do processamento do retorno da integração
aEnvarrayArray com os pedidos com sucesso na integração
aFalhaarrayArray com os pedidos que ocorreram falha de integração

05. RETORNO

Não se aplica.

06. VERSÕES

Protheus 12.1.2210 ou Superiores.

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