Page 1 of 1
o que significa esse erro?
Posted: Fri Sep 07, 2018 3:34 am
by Sistem
que erro é esse?
Code: Select all
Descrição detalhada do erro
---------------------------
Error Word.Application:DOCUMENTS/9 'Item' não é uma propriedade.: ADD
Parameter :
Stack-List
----------
chamado por TOLEAUTO:ADD(0)
chamado por CONVERTTOWORDDOC(1904)
chamado por TPREVIEW:SAVEAS(1808)
chamado por (b)TPREVIEW:TPREVIEW(50)
chamado por (b)TPREVIEW:SAVEASMENU(1738)
chamado por TMENU:ACTIVATE(1582)
chamado por TBTNBMP:LBUTTONUP(934)
chamado por TCONTROL:HANDLEEVENT(1721)
chamado por TBTNBMP:HANDLEEVENT(1909)
chamado por _FWH(3368)
chamado por WINRUN(0)
chamado por TMDIFRAME:ACTIVATE(1043)
chamado por MAIN(526)
Re: o que significa esse erro?
Posted: Mon Sep 10, 2018 1:10 pm
by karinha
'Item', existe mesmo? Word 9?
Code: Select all
( "Word.Application.8" ) // Para versão 8
( "Word.Application.10" ) // Para versão 10
( "Word.Application.11" ) // Para versão 11
Abs.
Re: o que significa esse erro?
Posted: Mon Sep 10, 2018 5:24 pm
by Sistem
karinha sempre recebo esse erro de um cliente ou de vários clientes não lembro.
karinha como assim existe mesmo? não entendi
Re: o que significa esse erro?
Posted: Mon Sep 10, 2018 5:36 pm
by karinha
Sistem wrote:karinha sempre recebo esse erro de um cliente ou de vários clientes não lembro.
karinha como assim existe mesmo? não entendi
CONVERTTOWORDDOC(1904) // ??? O que tem nesta área?
De onde vem este "item" e qual é versão do word? talvez uma simples atualização, resolva.
Re: o que significa esse erro?
Posted: Mon Sep 10, 2018 7:05 pm
by Sistem
acredito que o CONVERTTOWORDDOC seja da classe TPREVIEW. esse erro acontece quando clica em exportar para word(acho) no preview do relatório
Re: o que significa esse erro?
Posted: Mon Sep 10, 2018 7:13 pm
by karinha
Verifique, se o RPREVIEW.PRG, é desta versão do FWH que usas. Verifique se o Word.exe está instalado e qual é a versão do word.exe.
Verifique se é windows de 64 bits e se for, verifique o caminho(path) do Word.exe no windows de 64 bits. Pode ser isto.
Abs.
Saludos - saudações.
Re: o que significa esse erro?
Posted: Mon Sep 10, 2018 7:26 pm
by karinha
Code: Select all
function ConvertToWordDoc( oPreview )
local aFiles := oPreview:oDevice:aMeta
local oWord, oDoc, cEMF
if Len( aFiles ) > 0
if ( oWord := WinWordObj() ) == nil
lWord := .f.
MsgAlert( FWString( "MS Word not installed" ), FWString( "Alert" ) )
oDoc = ToWordDocViaWriter( oPreview, aFiles, "W" )
else
lWord := .t.
oDoc = oWord:Documents:Add()
if oDoc == nil
MsgAlert( FWString( "Failed to Create Word Document" ), FWString( "Alert" ) )
else
oDoc:PageSetup:Orientation := If( oPreview:oDevice:GetOrientation() == 1, 0, 1 )
WITH OBJECT oDoc:PageSetup
:LeftMargin := 0
:TopMargin := 0
:RightMargin := 0
:BottomMargin := 0
END
for each cEMF in aFiles
oWord:Selection:InlineShapes:AddPicture( cEMF, .f., .t. )
next
// oDoc:Application:Visible := .t.
endif
endif
else
MsgAlert( FWString( "There is no output for export" ), FWString( "Alert" ) )
endif
return oDoc