×
Linguagem de Programação ADVPL
Perguntas ADVPL - POSICIONAR
- miquilino
- Autor do Tópico
- Desconectado
- Membro Sénior
Menos
Mais
- Postagens: 61
- Obrigados Recebidos: 0
9 anos 6 meses atrás #28019
por miquilino
ADVPL - POSICIONAR foi criado por miquilino
Boa tarde!
Temos um fonte na qual, ele integra com o Word via macro, até a versão 11.5 funcionava normalmente, ao atualizar para a versão 11.8 um dos campos nao esta mais aparecendo a informação, parece que não esta posicionando, existe uma tabela chamada PA5 no qual grava o produto e acessarios, ou seja se temos 3 acessorios , ele gera 3 linhas, com a mesma OS, mesmo produto, porem com o acessorio diferente, e isso aparece no relatorio do Word, porem agora vem em branco, abaixo segue o trecho, mudou algo em relação do 11.5 para o 11.8? Agradeço a ajuda!
For nA := 1 To 4
OLE_SetDocumentVar(oWord, "DOC_ACE_"+AllTrim(Str(nA,3)), ' ' )
Next nA
PA5->( dbSetOrder( 1 ) ) //PA5_FILIAL+PA5_OS+PA5_PRODUT+PA5_NUMSER
PA5->( dbSeek( xFilial('PA5')+AB6->AB6_NUMOS+AB7->AB7_CODPRO+AB7->AB7_NUMSER ))
While !PA5->(Eof()) .and. PA5->PA5_OS == AB6->AB6_NUMOS .and.;
PA5->PA5_PRODUT == AB7->AB7_CODPRO .and.;
PA5->PA5_NUMSER == AB7->AB7_NUMSER
If !Empty(PA5->PA5_CODACE)
nQtdAce++
OLE_SetDocumentVar(oWord, "DOC_ACE_"+AllTrim(Str(nQtdAce,3)), ALLTRIM(PA5->PA5_CODACE) )
EndIf
PA5->( dbSkip() )
EndDo
Temos um fonte na qual, ele integra com o Word via macro, até a versão 11.5 funcionava normalmente, ao atualizar para a versão 11.8 um dos campos nao esta mais aparecendo a informação, parece que não esta posicionando, existe uma tabela chamada PA5 no qual grava o produto e acessarios, ou seja se temos 3 acessorios , ele gera 3 linhas, com a mesma OS, mesmo produto, porem com o acessorio diferente, e isso aparece no relatorio do Word, porem agora vem em branco, abaixo segue o trecho, mudou algo em relação do 11.5 para o 11.8? Agradeço a ajuda!
For nA := 1 To 4
OLE_SetDocumentVar(oWord, "DOC_ACE_"+AllTrim(Str(nA,3)), ' ' )
Next nA
PA5->( dbSetOrder( 1 ) ) //PA5_FILIAL+PA5_OS+PA5_PRODUT+PA5_NUMSER
PA5->( dbSeek( xFilial('PA5')+AB6->AB6_NUMOS+AB7->AB7_CODPRO+AB7->AB7_NUMSER ))
While !PA5->(Eof()) .and. PA5->PA5_OS == AB6->AB6_NUMOS .and.;
PA5->PA5_PRODUT == AB7->AB7_CODPRO .and.;
PA5->PA5_NUMSER == AB7->AB7_NUMSER
If !Empty(PA5->PA5_CODACE)
nQtdAce++
OLE_SetDocumentVar(oWord, "DOC_ACE_"+AllTrim(Str(nQtdAce,3)), ALLTRIM(PA5->PA5_CODACE) )
EndIf
PA5->( dbSkip() )
EndDo
Por favor Acessar ou Registrar para participar da conversa.
Tempo para a criação da página:0.104 segundos