- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Alias do not exist _ADADOS
×
Linguagem de Programação ADVPL
Perguntas Alias do not exist _ADADOS
- VictorBDias
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 10
- Obrigados Recebidos: 0
10 anos 9 meses atrás #21125
por VictorBDias
Alias do not exist _ADADOS foi criado por VictorBDias
Olá pessoal
Estou com um problema com meu relatório em excel. Eu coloco para imprimir e da o seguinte erro: Alias do not exist _ADADOS.
O que é isso ? podem me ajudar?
segue o codigo
//Gera Excel :
MV_PAR05 == 2
SET DEVICE TO SCREEN
If !ApOleClient("MSExcel") // testa a interação com o excel.
MsgAlert("Microsoft Excel não instalado!")
Return Nil
EndIf
aCab := {"OP/Projeto","ITEM","SEQ/TAREFA","PRODUTO","DESCRIÇÃO","QUANTIDADE","VALOR" } //Criação de um cabeçalho sugestivo
dbSelectArea(_aDados)
dbGoTop()
While _aDados->(! Eof())
AADD(_aDados2, { _aDados[i,1], _aDados[i,2], _aDados[i,3], _aDados[i,4], _aDados[i,5], _aDados[i,6], _aDados[i,7] }) //adiciona aos dados Nome e Saldo
_aDados->(dbSkip())
Enddo
DlgToExcel({ {"ARRAY", "Produtos em Elaboração", aCab, aDados2} }) // utiiliza a função
Return Nil
endif
Estou com um problema com meu relatório em excel. Eu coloco para imprimir e da o seguinte erro: Alias do not exist _ADADOS.
O que é isso ? podem me ajudar?
segue o codigo
//Gera Excel :
MV_PAR05 == 2
SET DEVICE TO SCREEN
If !ApOleClient("MSExcel") // testa a interação com o excel.
MsgAlert("Microsoft Excel não instalado!")
Return Nil
EndIf
aCab := {"OP/Projeto","ITEM","SEQ/TAREFA","PRODUTO","DESCRIÇÃO","QUANTIDADE","VALOR" } //Criação de um cabeçalho sugestivo
dbSelectArea(_aDados)
dbGoTop()
While _aDados->(! Eof())
AADD(_aDados2, { _aDados[i,1], _aDados[i,2], _aDados[i,3], _aDados[i,4], _aDados[i,5], _aDados[i,6], _aDados[i,7] }) //adiciona aos dados Nome e Saldo
_aDados->(dbSkip())
Enddo
DlgToExcel({ {"ARRAY", "Produtos em Elaboração", aCab, aDados2} }) // utiiliza a função
Return Nil
endif
Por favor Acessar ou Registrar para participar da conversa.
- kanaamlrr
- Desconectado
- Membro Platina
Menos
Mais
- Postagens: 1576
- Obrigados Recebidos: 4
10 anos 9 meses atrás #21128
por kanaamlrr
Respondido por kanaamlrr no tópico Alias do not exist _ADADOS
Victor,
Seu _aDados é um array e não uma tabela.
Dessa forma você deve utilizar o seguinte bloco de código:
Abraço!
Seu _aDados é um array e não uma tabela.
Dessa forma você deve utilizar o seguinte bloco de código:
//Gera Excel :
MV_PAR05 == 2
SET DEVICE TO SCREEN
If !ApOleClient("MSExcel") // testa a interação com o excel.
MsgAlert("Microsoft Excel não instalado!")
Return Nil
EndIf
aCab := {"OP/Projeto","ITEM","SEQ/TAREFA","PRODUTO","DESCRIÇÃO","QUANTIDADE","VALOR" } //Criação de um cabeçalho sugestivo
dbSelectArea(_aDados)
dbGoTop()
For i:= 1 To Len(_aDados)
AADD(_aDados2, { _aDados[i,1], _aDados[i,2], _aDados[i,3], _aDados[i,4], _aDados[i,5], _aDados[i,6], _aDados[i,7] }) //adiciona aos dados Nome e Saldo
Next i
DlgToExcel({ {"ARRAY", "Produtos em Elaboração", aCab, aDados2} }) // utiiliza a função
Return Nil
endif
Abraço!
Por favor Acessar ou Registrar para participar da conversa.
- VictorBDias
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 10
- Obrigados Recebidos: 0
10 anos 9 meses atrás #21129
por VictorBDias
Respondido por VictorBDias no tópico Alias do not exist _ADADOS
Agora esta falando que minha variavel ADADOS2 nao existe, mas ela esta declarada.
Por favor Acessar ou Registrar para participar da conversa.
- VictorBDias
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 10
- Obrigados Recebidos: 0
10 anos 9 meses atrás #21130
por VictorBDias
Respondido por VictorBDias no tópico Alias do not exist _ADADOS
Ah valeu cara, problema resolvido!!11
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Alias do not exist _ADADOS
Tempo para a criação da página:0.134 segundos