Retorno da execução de programa

Pessoal, joia?

é o seguinte.
tenho um sistema em access, que por sua vez abre outro sistema(SAP).
tem algum comado, que seu sei que o SAP já executou(Já retornou os dados solicitados)?

EX: O sistema access abre o SAP e faz uma pesquisa.
E o tempo de execução,(Para o SAP retornar as informações, varia muito.).
EU faço o seguinte. Tenho um comando para atrasar o codigo, então eu coloco pra atrasar 5 minutos.
O problema é que tem vez que o SAP retorna os dados com 2 minutos, outras vezes com 3, e então fica esperando os 5 minutos de qualquer forma.

Tem como saber se o SAP já retornou os dados, se retornou eu continuo o codigo, se ainda não executou, espero um pouco mais, independente do tempo.

Obrigado.

Olá, seja bem vindo ao fórum! Fale-nos sobre o SAP. O que o seu sistema manda ele fazer? Que resultados são obtidos?

Bom dia, obrigado.

è o seguinte,

abro o SAP, coloco o usuário, senha, executo a transação, rodo a variante. pelo sendkeys. vou enviando os comandos.

Então o SAP executa uma rotina pra retornar os dados de paradas.
Mais o tempo de resposta do SAP varia muito. Então uso uma rotina pra atrasar meu codigo(pra dar tempo do SAP retornar os dados.)Então eu coloquei 5 minuntos.

O problema é que: tem vez que o SAP retorna os dados com 1 minuto, as vezes com 2.então de toda forma eu tenho que esperar estes 5 minutos. tem vez que retorno com 6 minutos, aí dá erro.

a idéia é a seguinte: tem como eu saber se o SAP já retornou os dados?

Segue um pedaço do codigo pra ter uma idéia

Dim CtrlKey As String
Dim ShiftKey As String
Dim TabKey As String
Dim EnterKey As String
' Dim Qtde_Dias As Integer
'--------------------------
AltKey = "%"
CtrlKey = "^"
ShiftKey = "+"
TabKey = "{TAB}"
EnterKey = "~"

'Abre somente um documento do excel
Abre_planilha

Caminho = "C:\Arquivos de programas\SAP\FrontEnd\SAPgui\saplogon.exe"

If ArquivoExiste(Caminho) Then
X = Shell(Caminho, vbNormalFocus)
Else
MsgBox "O arquivo '" & Caminho & "' não existe.", vbExclamation, "Erro"
End If
aguardarTempo (3)

'Coloca informações nos campos SAP
SendKeys EnterKey, True

aguardarTempo (3)

SendKeys "ui45037", True ' coloca usuário
SendKeys TabKey, True
aguardarTempo (2)
SendKeys "minha_senha", True ' coloca usuário
SendKeys EnterKey, True

aguardarTempo (5)

SendKeys "ziw69", True
aguardarTempo (2)
SendKeys EnterKey, True

aguardarTempo (5)

SendKeys "(+{F5})", True
aguardarTempo (5)
SendKeys "{TAB 4}", True
aguardarTempo (5)
SendKeys "ui45037" 'chama variante nesta chave
SendKeys "{F8}", True
_________________________________

Public Sub aguardarTempo(argTempo As Long)
'disponibilizada por Plínio, no fórum expertaccess
Dim momentoInicial As Date
Dim momentoAtual As Date
Dim tempoDecorrido As Long

momentoInicial = Now

Do
momentoAtual = Now
tempoDecorrido = DateDiff("s", momentoInicial, momentoAtual)
Loop Until tempoDecorrido >= argTempo
End Sub

Fale mais sobre o SAP, sobre o que ele faz e qual é o retorno dele, do SAP.

O SAP retorna as paradas que aconteceu nas datas que eu coloquei para fazer a pesquisa.

E exporto estas paradas para o excel, depois alimento minha base de dados que é uma tabela no access vinculada a uma planilha do excel.

Obrigado

Criquio, estou fazendo isto pelo sendkeys.

Tem alguma outra forma de fazer isto:

Acessar o SAP...

Obrigado

O SAP envia direto para o Excel ou você faz isso depois de tudo processado? O SAP cria algum arquivo externo? Se sim, o que tem nesse arquivo?

Depois que o SAP retorno os dados. o SAP exporta para o excel(este recurso já tem no SAP).
Nesse arquivo contem o que foi retornado da pesquisa do SAP. (As paradas)

Fale mais sobre o conteúdo do arquivo Excel. Que dados tem nele? Tem alguma parada tipo "Fim" ou algo assim no final? Qual é o nome do arquivo gerado? É sempre o mesmo nome? Tem nome de acordo a data e hora? Fale-nos todos os detalhes sobre esse arquivo. Talvez possa deixar um intervalo no evento "No timer" do formulário para ficar verificando esse arquivo e disparar a ação quando localizar algo no arquivo.

Tipo eu mando pesquisar, então o SAP vai executar para retornar os dados.
Os dados são retornados eu um grid.

Nota Loc.inst.afetad Equipam.afetado Denominação Descrição Conseqüência Texto grp.causa InícioAvar Duraç.parada Codificação
15564095 US01-AC-CONV1 CONV.1: ATRASO PARA CARREGANTO DE SUCATA 3 EXTERNO 28/03/2012 0,47 03
15563177 US01-AC-CONV1 CONVERTEDOR AGUARDANDO PR.C12 3 EXTERNO 29/03/2012 0,75 03
15592710 US01-AC-CONV1 CONV.1 ATRASO P/ CARREGAR GUSA 3 ELÉTRICA 10/04/2012 0,25 03


São retornados assim os dados no SAP.
Cricio, estou conversando com um rapaz de São Paulo, ele tem um código que faz isto.

ele não usa o sendkeys, e o tempo de execução do código dele é em função do código de execução do SAP(Não tenho a mínima noção de como ele faz isso.)

Obrigado

Provavelmente ele conheça os módulos e as funções utilizadas no programa, facilitando, dessa forma, a interação entre as duas aplicações. Se conseguir resolver por esse lado, poste aqui para ficar como registro para futuras necessidades.

o problema é que ele cobra 2 mil. e eu não tenho, nem minha empresa vai pagar...

E pelo sendkeys, que eu conheço. como eu faria a execução do meu codigo pelo tempo de execução do SAP?

Criquio, pensei no seguinte.

Colocar uma rotina no on timer. e a cada 10 segundos envia um ctrl+c(copiar), se o que retornar for numero,eu continuo, se não espera.

Se retornar um numero, quer dizer que já retornou as informações.

Mas como faço isto. copiar através do sendkeys, e pegar o que foi copiar pra fazer este teste.

Obrigado

Se o quê retornar um número? Com que nome os documentos do Excel são gerados?

Não. antes de exportar pra planilha do excel.

Quero saber se os dados já foram retornados...(Se o SAP já efetuou a pesquisa)

Como posso ficar sabendo isso

Faltou falar com que nome o documento é gerado?

Quanto a saber se os dados já foram retornados, tem que conhecer como o programa funciona para ver se existe a possibilidade. Mas talvez dê para fazer se saber a forma como o documento é gerado, esse que estou perguntando desde três ou quatro posts atrás

O nome do arquivo é: ZSUPMR_I(1)

Mais meu problema é antes de exportar para o excel.

Porque o SAP roda, e retorna os dados, depois exporto pro excel.

o problema esta no tempo para o SAP retornar os dados.

Retorna os dados para onde? De que maneira? Como disse anteriormente, dê todas as informações possíveis envolvendo o processo.

é o seguinte.

Faço o logon no SAP.
entro na transação.
chamo minha variante
executo a rotina.
Retorna os dados para o SAP mesmo ''''''''''''' Aqui que eu preciso integrar o tempo. Quano o SAP retornar os dados, eu continuo a rotina, e exporto pro excel. E não ficar amarrado eu um tempo definido
exporto para o excel '''Depois dos dados retornados no SAP, exporta para o excel

Isso é meio complicado sem conhecer o funcionamento do programa. Eu havia entendido, pelas mensagens anteriores, que o próprio SAP gerava o relatório no Excel, mas agora você disse que o SAP processa, depois o Access que cria o xls. Se fosse conforme eu tinha entendido antes, seria o caso de tentar um timer no Access para ficar monitorando quando o arquivo xls estivesse pronto. Talvez seja melhor esperar alguem que conheça o programa.

Na verdade o SAP mesmo exporta para o excel. Depois que trato as informações de envio pra minha base.

Mas de qualquer forma obrigado pela ajuda.