Harbour MiniGUI Extended Edition 19.03 (Release)
tenho uma tabela de cliente com seus devidos campos, um em especifico, o CODIGO_VENDEDOR varchar(20), na tabela de vendedor tenho o campo CODIGO varchar(20) Nome varchar(50) e por ai vai.
preciso alimentar uma GRID que contem os seguintes campos:
codigo do cliente
nome do cliente
contato
telefone
vendedor
nome do vendedor
...
ate o campo vendedor sem problema utilizo a sintaxe +/- ssim
MSELE := OSERVER:QUERY( "SELECT codigo,nome,contato,telefone,vendedor FROM CLIENTE USE INDEX (idx_codigo) ORDER BY CODIGO )
mais preciso pegar o NOME DO VENDEDOR que esta na tabela de VENDEDORES, como fazer isso?
minha instrução esta desta forma:
SETMESSAGE("Aguarde pesquisando registros...",1 )
SELE_MSELE_QUERY := OSERVER:QUERY( MSELE )
IF SELE_MSELE_QUERY:NETERR()
MSGSTOP( "Erro ao abrir tabela de " + SGC020101AFUNC[1] + " !!!" + QUEBRA + SELE_MSELE_QUERY:ERROR() + QUEBRA + ALLTRIM( PROCNAME(0) ) + "(" + STRZERO( PROCLINE(0),4) +")", MSIST )
ELSE
CONTA_REG := 1
SETMESSAGE( STRZERO( SELE_MSELE_QUERY:LASTREC(),6 ), 4 )
DELETE ITEM ALL FROM &NOME_DA_GRID. OF SGC020101FORM
DO WHILE CONTA_REG <= SELE_MSELE_QUERY:LASTREC()
DO EVENTS
ROWS_MSELE_QUERY := SELE_MSELE_QUERY:GETROW( CONTA_REG )
ADD ITEM {ROWS_MSELE_QUERY:FIELDGET("codigo"), ;
ROWS_MSELE_QUERY:FIELDGET("nome") ,;
ROWS_MSELE_QUERY:FIELDGET("contato"),;
ROWS_MSELE_QUERY:FIELDGET("telefone"),;
ROWS_MSELE_QUERY:FIELDGET("vendedor") } TO &NOME_DA_GRID. OF SGC020101FORM
SELE_MSELE_QUERY:SKIP(1)
CONTA_REG += 1
ENDDO
DOMETHOD( "SGC020101FORM", NOME_DA_GRID,"SETFOCUS" )
ENDIF
desde ja agradeço a ajuda.
amparo