Problemas com a dBCombo com SQL - Resolvido

[Valdir]

Boas...

Amigos, tenho um Cadastro de Unidades (Peças, Quilos, Unidades, Metros...) no qual os meus clientes podem e devem editar para atender as suas necessidades.

Nunca tive problemas usando os Arquivos Dbfs, porém agora com a SQL, não mostra a Unidade que está cadastrada.

reparem nas duas imagens abaixo.

Para os Arquivos .DBFs, utilizo assim as funções da dBCombo:

      REDEFINE DBCOMBO oLby[1] VAR CUNID ID 34 OF oFld:aDialogs[ 1 ] ;
      COLORS CLR_HBLUE, CLR_CREME WHEN wNIVEL > 6 ;
      ALIAS "UNI" ;
      ITEMFIELD "UNID" ;
      LISTFIELD "UNID"
      oLby[1]:Del(1)
 

Já para a SQL :

      REDEFINE DBCOMBO oLby[1] VAR CUNID ID 34 OF oFld:aDialogs[ 1 ] ;
      COLORS CLR_HBLUE, CLR_CREME WHEN wNIVEL > 6 ;
      ALIAS dbQry1 ;
      ITEMFIELD "UNID" ;
      LISTFIELD "UNID" 
      oLby[1]:Del(1)

Reparem que a única mudança é na chamanda do Alias.

Por favor, alguém sabe como resolver esse problema ?

Obrigado

 

.

 

 

 

[sygecom]

Valdir,

Isso deve ser por que o retorno do SQL está em MULTDIMENTÇÃO e combo espera em uma unica só, tente deixa em uma só, eu uso uma FUNCTION nossa pra fazer isso, conforme abaixo.

dbQry1 :=UMADIMENSAO( dbQry1 )

FUNCTION UMADIMENSAO(aARR)
/*
   Recebe uma array com duas dimensão com apenas uma coluna e retorna uma array de uma dimensão com uma coluna
*/
LOCAL mI:=0
LOCAL aRET:={}

FOR mI:=1 TO LEN(aARR)
   AADD(aRET,aARR[mI,1])
NEXT

RETURN(aRET)

 

[Valdir]

Amigo Leonardo...

Obrigado por responder e compartilhar conhecimentos.

Irei testar aqui e qualquer problema te informo.

Valeu.

[Valdir]

Leonardo e demais amigos...

O erro estava ocorrendo devido aos tamanhos do Campo "Unid" estarem divergentes entre as Tabelas de Produtos e Tabela de Unidade.

Após corrigir isso, funfou legal.

Obrigado a todos e em especial ao amigo Leonardo pela Dica. 

Valeu.