| ♥ 0 | Bom dia a todos. Estou a tentar obter a lista dos documentos gerados na conversão de documentos de vendas para depois poder “limpar” um campo de utilizador para este não transitar de um documento para o outro. Até ao momento tenho o seguinte código: Private Sub FichaConverteVendas_DepoisDeConverter(colDocumentosGerados As Collection)
Dim docVenda As GcpBEDocumentoVenda
Set docVenda = New GcpBEDocumentoVenda
For Each docVenda In colDocumentosGerados
Debug.Print docVenda.CamposUtil("CDU_CampoVar1").Valor
Next docVenda
End SubObtenho sempre o erro de “Object required” no inicio do For Each. Cumprimentos.
Marcado como spam |
1 respostas
| Resposta privada Olá esse erro é porque estás a declarar o docVenda como um GcpBEDocumentoVenda quando na realidade é um Objeto. A collecção de documentos apenas tem a chave do documento. Como isso é que vais poder fazer o get de um valor. No teu caso se é só para ir buscar os campos de utilizador não faças um edita, usa se possivel o DaValorAtributos(). Private Sub FichaConverteVendas_DepoisDeConverter(colDocumentosGerados As Collection)
Dim docVenda As Variant
Dim doc As TPDocumentos
For Each docVenda In colDocumentosGerados
doc.Filail = docVenda.Filail
doc.NumDoc = docVenda.NumDoc
doc.Serie = docVenda.Serie
doc.TipoDoc = docVenda.TipoDoc
Next docVenda
End Sub
Marcado como spam Comentários Sérgio, muito obrigado!!!
Funcionou perfeitamente!!! Neste caso evitei o Edita mas tive que utilizar o ActualizaValorAtributo pois o objectivo era mesmo alterar o valor de um campo de utilizador na conversão. Cumprimentos. |