Assunto

Produto:

Microsiga Protheus

Versões:

P11 e P12

Ocorrência:

Carga do conteúdo de campos MEMO de usuário na tabela de preço.

Ambiente:

Todos

Passo a passo:

Em caso de utilização de campos MEMO na tabela DA1 (Itens da tabela de preço) para que a carga das informações destes sejam carregadas na manutenção da tabela deve ser utilizado o PE OM010QRY.

Este PE ira adicionar na QUERY de retorno dos dados a clausula criada neste.

#INCLUDE "PROTHEUS.CH"
#INCLUDE "RWMAKE.CH"
#INCLUDE "FWMVCDEF.CH"
 
User Function OM010QRY()


Local cQuery := PARAMIXB[1]  // Recebe a query original


	cQuery := Substr(cQuery,1,54)+ ", CONVERT(VARCHAR(8000),CONVERT(BINARY(8000), DA1_MEMO)) AS DA1_MEMO" + Substr(cQuery,56)

Return(cQuery)

Observações:

O comando CONVERT utilizado no exemplo idealiza a utilização de banco SQL, caso utilize outro tipo de banco este comando deve ser adaptado conforme ferramenta.