Perguntas f3 listbox

Boa Tarde Pessoal


Preciso de uma ajuda, gostaria de saber se alguém já conseguiu colocar um consulta (F3)em um campo de um listbox, ja consegui deixa-lo editável


Grata


Andreia

Qual componente você está utilizando?
Essa campo tem a consulta F3 no dicionário?

estou usando comando listbox e sim esse campo tem f3

Pode postar o seu fonte?

#include "Protheus.ch"
#include "Topconn.ch"
#include "totvs.ch"
#include "rwmake.ch"



User Function Romatel2()

LOCAL cNumRom:=Space(06)
LOCAL cAgen060:= CriaVar("EF_AGENCIA",.F.)
LOCAL cPadrao
LOCAL cConta060:=Criavar("EF_CONTA",.F.)
LOCAL cFormula:=" "
LOCAL cSituacao := " " ,cContrato := Space(15)
LOCAL cCapital,nLimite:=0,nC:=0
LOCAL nValCred := nValSaldo := 0,lLanc:=.F.,cPictTd:=" "
LOCAL cHistorico,dDataMov := dDataBase
LOCAL nTotal:=0,nHdlPrv:=0,cArquivo,lPadrao:=.F.,lDigita:=.T.
LOCAL lSaida:=.F.
Local lAglut, aStru,aCampos:={},cFileWork
LOCAL lFa060Se5 := ExistBlock("FA060SE5")
Local cSequencia, ni
LOCAL nRegSE1 :=0 , nRegSEA := 0
Local cPortAnt := cAgAnt := cContAnt := ""
Local nRetencao:=0

Local aTempos := {} //{"24"+OemToAnsi(STR0057),"48"+OemToAnsi(STR0057),"72"+OemToAnsi(STR0057),"96"+OemToAnsi(STR0057),"1 "+OemToAnsi(STR0059),OemToAnsi(STR0058)+"1"+OemToAnsi(STR0059)} // " Horas" # .....# " Semana" # "Mais de " # " Semana"
Local cClearing := ""
Local oDlgDesc, cComboSit
Local E1_SITUACA
Local oValor, oPrazoMed
Local oCbx
Local lF060BOR := ExistBlock("F060BOR")
Local cSituant
Local nPos,dBase,nDias,aFeriados := {}
Local lSpbInUse := SpbInuse()
Local lF060Proc := Existblock("F060PROC")
//#IFDEF TOP
Local lFa060Qry := Existblock("FA060QRY")
Local cQueryADD
Local nj
//#ENDIF

Local nAbat := 0
Local nTotAbat := 0
Local cKeySE1 := " "
Local nSaldo := 0
Local lF060ABT := ExistBlock("F060ABT")
Local nACTpBor := 2
Local aHelpPor := {}
Local aHelpEng := {}
Local aHelpSpa := {}
Local aPergs := {}
Local lSelCpo := .F.
Local cCampoCli := " "
Local lF060Hist := Existblock("F060HIST")
Local lF060SEA2 := ExistBlock("F060SEA2")
Local aAux := {}
Local nEspLarg := 0
Local nEspLin := 0

Local aFlagCTB := {}
Local lUsaFlag := SuperGetMV( "MV_CTBFLAG" , .T. /*lHelp*/, .F. /*cPadrao*/)
Local lOracle := "ORACLE"$Upper(TCGetDB())
PRIVATE aTransp:= {}
PRIVATE cPort060:=Criavar("EF_BANCO",.F.),aSituacoes:={}
PRIVATE dVencIni:=dDataBase,dVencFim:=dDataBase
PRIVATE dEmisDe :=dDataBase
PRIVATE dEmisAte:=dDataBase
PRIVATE cSA4De := Space(Len(SA4->A4_COD))
PRIVATE cSA4Ate := Replicate("Z",Len(SA4->A4_COD))
PRIVATE cNfeDe := Space(Len(SA4->A4_COD))
PRIVATE cNfeAte := Replicate("Z",Len(SF2->F2_DOC))
PRIVATE cPrefDe := Space(Len(SE1->E1_PREFIXO))
PRIVATE cPrefAte := Replicate("Z",Len(SE1->E1_PREFIXO))
PRIVATE cNumDe := Space(Len(SE1->E1_NUM))
PRIVATE cNumAte := Replicate("Z",Len(SE1->E1_NUM))
PRIVATE nValBaixa := 0
PRIVATE nJuros := 0
private nDescont := 0
PRIVATE nValor := 0
PRIVATE nQtdTit := 0
PRIVATE nSomaData := 0
Private nIndice := SE1->(Indexord())
PRIVATE nMoeda:=1
PRIVATE cTipos := "" //Utilizada pela FINATIPOS()
PRIVATE cPict06014:= PesqPict("SE1","E1_VALOR")
PRIVATE cPict06018:= PesqPict("SE1","E1_VALOR")
PRIVATE cAlias :="SF2"
PRIVATE oDlg
PRIVATE E1_SALDO
PRIVATE lMark := .F.
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³Numero Automatico Romaneio ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ



cNumRom := Soma1(GetMV("MV_NUMROM"),6)
cNumRom := Replicate("0",6-Len(Alltrim(cNumRom)))+Alltrim(cNumRom)
While !MayIUseCode("SF2"+xFilial("SF2")+cNumRom) //verifica se esta na memoria, sendo usado
// busca o proximo numero disponivel
cNumRom := Soma1(cNumRom)
EndDo




DEFINE MSDIALOG oDlg TITLE "Romaneio" FROM 5,0 To 15,59 OF oMainWnd


oDlg:lMaximized := .F.
oPanel := TPanel():New(0,0,'',oDlg,, .T., .T.,, ,20,20)
oPanel:Align := CONTROL_ALIGN_ALLCLIENT

@ 002+nEspLin, 002+nEspLarg Say "Romaneio" SIZE 39, 7 OF oPanel PIXEL
@ 002+nEspLin, 045+nEspLarg MSGET cNumRom Picture "@!" SIZE 37,8 ;
Valid !Empty(cNumRom) .And. FA060Num(cNumRom) OF oPanel PIXEL


@ 018+nEspLin, 002+nEspLarg Say "Transportadora" SIZE 40, 7 OF oPanel PIXEL
@ 018+nEspLin, 045+nEspLarg MSGET cSA4De F3 "SA4" SIZE 54,8 OF oPanel PIXEL HASBUTTON
@ 018+nEspLin, 110+nEspLarg Say "a" SIZE 40,7 OF oPanel PIXEL
@ 018+nEspLin, 127+nEspLarg MSGet cSA4Ate F3 "SA4" Valid cSA4Ate >= cSA4De SIZE 54,8 OF oPanel PIXEL HASBUTTON


@ 034+nEspLin, 002+nEspLarg Say "Notas" SIZE 40,7 OF oPanel PIXEL
@ 034+nEspLin, 045+nEspLarg MSGET cNfeDe F3 "SF2" SIZE 54,8 OF oPanel PIXEL HASBUTTON
@ 034+nEspLin, 110+nEspLarg Say "a" SIZE 40,7 OF oPanel PIXEL
@ 034+nEspLin, 127+nEspLarg MSGet cNfeAte F3 "SF2" Valid cNfeAte >= cNfeDe SIZE 54,8 OF oPanel PIXEL HASBUTTON

@ 53,150 BMPBUTTON TYPE 1 ACTION RoMarkB(cSA4De,cSA4Ate ,cNfeDe,cNfeAte,cAlias,nLimite,dVencIni,dVencFim,cSituacao,oPrazoMed,oValor,aCampos,cNumRom,nIndice)
//@ 53,177 BMPBUTTON TYPE 2 ACTION oMainWnd:End()
// DEFINE SBUTTON FROM 53,150 TYPE 1 ACTION (nOpca := 1,oDlg:End()) ENABLE OF oDlg
DEFINE SBUTTON FROM 53,177 TYPE 2 ACTION (nOpca := 0,oDlg:End()) ENABLE OF oDlg

ACTIVATE MSDIALOG oDlg CENTERED


Return

Static Function RoMarkB(cSA4De,cSA4Ate ,cNfeDe,cNfeAte,cAlias,nLimite,dVencIni,dVencFim,cSituacao,oPrazoMed,oValor,aCampos,cNumRom,nIndice)
Local oPanel
Local nRec
Local bWhile
Local oDlg1, nOpca, oFnt
Local lF060Mark := ExistBlock("F060MARK")
Local aBut060 := {}
Local bSet16 := SetKey(16,{||Fa060Pesq(oMark,"TRB",nIndice)})
Local nHeight := 0
Local nWidth := 0
Local aCoors := {}
Local aChaveLbn := {}
Local aVetor := {}
//Local _lmark := .F.
Local _lRetorno := .F. //Validacao da dialog criada oDlg
Local _nOpca := 0 //Opcao da confirmacao
Local bOk := {|| _nOpca:=1,_lRetorno:=.T.,oDlg:End() } //botao de ok
Local bCancel := {|| _nOpca:=0,oDlg:End() } //botao de cancelamento
Local _cArqEmp := "" //Arquivo temporario com as empresas a serem escolhidas
Local _aStruTrb := {} //estrutura do temporario
Local _aBrowse := {} //array do browse para demonstracao das empresas
Local _aEmpMigr := {} //array de retorno com as empresas escolhidas
Local oChk
Local _aSalvAmb := GetArea()
Local cVar := Nil
Local cTitulo := "Recepcao de Amostras"

Local oOk := LoadBitmap(GetResources(),"LBOK")
Local oNo := LoadBitmap(GetResources(),"LBNO")
Local nLoop := 0
Local nItens
Local cLog := ""
Local oOk := LoadBitmap( GetResources(), "LBOK")
Local oNo := LoadBitmap( GetResources(), "LBNO")

Private lCheck := .f.
Private oDlg := Nil
Private oLbx := Nil
Private _oDlg
Private aListBox1 := {}
Private oListBox1
Private lInverte := .F. //Variaveis para o MsSelect
Private cMarca := GetMark() //Variaveis para o MsSelect
Private oBrwTrb //objeto do msselect
Private oDlg
Private lInverte := .F. //Variaveis para o MsSelect
Private cMarca := GetMark() //Variaveis para o MsSelect
Private oBrwTrb //objeto do msselect
Private oDlg
PRIVATE lMark := .F.


cQuery:= " SELECT F2_NUMROMA 'Romaneio' , " +CRLF
cQuery += " F2_DOC 'Nota' , " +CRLF
cQuery += " F2_SERIE 'Serie' , " +CRLF
cQuery += " F2_NFELETR 'Nfe' , " +CRLF
cQuery += " F2_CLIENTE 'CLIENTE' , " +CRLF
cQuery += " A1_NOME 'NOME' , " +CRLF
cQuery += " F2_LOJA 'Loja' , " +CRLF
cQuery += " F2_EMISSAO 'Emissao' , " +CRLF
cQuery += " F2_EST 'Estado' , " +CRLF
cQuery += " F2_VALBRUT 'VlBruto' , " +CRLF
cQuery += " F2_VALICM 'VlICMS' , " +CRLF
cQuery += " F2_ESPECI1 'Especi1' , " +CRLF
cQuery += " F2_VOLUME1 'Volume1' , " +CRLF
cQuery += " F2_ICMSRET 'ICMSRet' , " +CRLF
cQuery += " F2_PBRUTO 'PesoBruto' , " +CRLF
cQuery += " C5_TRANSP 'Transp' , " +CRLF
cQuery += " A4_NOME 'NomeTransp' , " +CRLF
cQuery += " F2_VEND1 'Vendedor' , " +CRLF
cQuery += " A3_NOME 'NomeVend' , " +CRLF
cQuery += " F2_ESPECIE 'EspecieDoc' , " +CRLF
cQuery += " F2_HORNFE 'Hora' , " +CRLF
cQuery += " C5_MENNOTA 'Obs' " +CRLF
cQuery += " FROM "+ RetSqlName("SF2") + " SF2 "
cQuery += " INNER JOIN "+ RETSQLNAME("SC5") + " SC5 ON F2_TRANSP =C5_TRANSP AND C5_CLIENTE =F2_CLIENTE AND SF2.D_E_L_E_T_=' ' "+CRLF
cQuery += " AND C5_LOJACLI = F2_LOJA AND C5_SERIE= F2_SERIE AND C5_CONDPAG= F2_COND AND C5_TPFRETE= F2_TPFRETE AND SC5.D_E_L_E_T_=' ' "+CRLF
cQuery += " INNER JOIN "+ RETSQLNAME("SA1") + " SA1 ON F2_CLIENTE =A1_COD AND SA1.D_E_L_E_T_=' ' "+CRLF
cQuery += " INNER JOIN "+ RETSQLNAME("SA4") + " SA4 ON F2_TRANSP =A4_COD AND SA4.D_E_L_E_T_=' ' "+CRLF
cQuery += " INNER JOIN SA3010 SA3 ON F2_VEND1 =A3_COD AND SA3.D_E_L_E_T_=' ' "+CRLF
cQuery += " AND F2_NUMROMA = ' ' "+CRLF
cQuery += " AND F2_DOC between '" + cNfeDe + "' AND '" + cNfeAte + "' "+CRLF
cQuery += " AND F2_TRANSP between '" + cSA4De + "' AND '" + cSA4Ate + "' "+CRLF
cQuery += " ORDER BY F2_DOC"
cQuery := ChangeQuery(cQuery)

If Select("TRB") > 0
DbSelectArea("TRB")
DbCloseArea()
EndIf

dbUseArea(.T.,"TOPCONN",TCGENQRY(,,cQuery),"TRB",.F.,.F.)


While !EOF()

aAdd(aListBox1,{ lMark,;
TRB->Romaneio,;
TRB->Nota,;
TRB->Serie,;
TRB->Nfe,;
TRB->CLIENTE,;
TRB->NOME,;
TRB->Loja,;
TRB->Emissao,;
TRB->Estado,;
TRB->VlBruto,;
TRB->VlICMS,;
TRB->Especi1,;
TRB->Volume1,;
TRB->ICMSRet,;
TRB->PesoBruto,;
TRB->Transp,;
TRB->NomeTransp,;
TRB->Vendedor,;
TRB->NomeVend,;
TRB->EspecieDoc,;
TRB->Hora,;
TRB->Obs})




dbSkip()
EndDo


DEFAULT nIndice := cAlias->(Indexord())

aBut060 := {{"PESQUISA",{||Fa060Pesq(oMark,"TRB",nIndice)}, "Pesquisar..(CTRL-P)","Pesquisar"}} //"Pesquisar..(CTRL-P)"###"Pesquisar"

DEFINE FONT oFnt NAME "Arial" SIZE 12,14 BOLD

nPrazo := 0
nValor := 0

/*dbSelectArea(cAlias)
bWhile := { || ! Eof() }
dbSeek(xFilial("SF2"))
nRec:=RecNo()
//DBEVAL( { |a| FA060DBEVA(nLimite,dVencIni,dVencFim,"TRB",aChaveLbn,lMarkAbt) } , bWhile )
dbGoto(nRec)*/
nOpca :=0

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Faz o calculo automatico de dimensoes de objetos ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
aSize := MSADVSIZE()

//Ponto de entrada para possibilitar alteracao do valor total do bordero
If ExistBlock ("F060VLTOT")
nValor:= ExecBlock("F060VLTOT",.F.,.F.,{nValor})
EndIf





DEFINE MSDIALOG oDlg1 TITLE "Romaneio" From aSize[7],0 To aSize[6],aSize[5] OF oMainWnd PIXEL // "Bordero de Cobran‡a"
oDlg1:lMaximized := .T.

////////
// Panel
oPanel := TPanel():New(0,0,'',oDlg1,, .T., .T.,, ,315,20,.T.,.T. )
oPanel:Align := CONTROL_ALIGN_TOP // Somente Interface MDI

@ 0.1 , 00.8 SAY "Romaneio Nº" FONT oDlg1:oFont OF oPanel
@ 0.1 , 08 Say cNumRom Picture "@!" FONT oFnt COLOR CLR_HBLUE OF oPanel
@ @ 030,02 ListBox oListBox1 Fields HEADER "",;
"Romaneio",;
"Nota",;
"Serie",;
"Nfe",;
"Cliente",;
"Nome",;
"Loja",;
"Emissao",;
"Estado",;
"VlBruto",;
"VlICMS",;
"Especi1",;
"Volume1",;
"ICMSRet",;
"PesoBruto",;
"Transp",;
"NomeTransp",;
"Vendedor",;
"NomeVend",;
"EspecieDoc",;
"Hora",;
"Obs" Size 650,225 Of _oDlg Pixel;
On DBLCLICK (;
Iif(oListBox1:ColPos==1,aListBox1[oListBox1:nAt,1] := !(aListBox1[oListBox1:nAt,1]),nil),;
Iif(oListBox1:ColPos==17,lEditCell( aListBox1, oListBox1, "@!", oListBox1:ColPos ),nil),;
Iif(oListBox1:ColPos==23,lEditCell( aListBox1, oListBox1, "@!", oListBox1:ColPos ),nil),;
oListBox1:Refresh() )
oListBox1:SetArray(aListBox1)
oListBox1:bLine := {|| {;
IIf(aListBox1[oListBox1:nAT,1],oOk,oNo),;
aListBox1[oListBox1:nAT,2],;
aListBox1[oListBox1:nAT,3],;
aListBox1[oListBox1:nAT,4],;
aListBox1[oListBox1:nAT,5],;
aListBox1[oListBox1:nAT,6],;
aListBox1[oListBox1:nAT,7],;
aListBox1[oListBox1:nAT,8],;
aListBox1[oListBox1:nAT,9],;
aListBox1[oListBox1:nAT,10],;
aListBox1[oListBox1:nAT,11],;
aListBox1[oListBox1:nAT,12],;
aListBox1[oListBox1:nAT,13],;
aListBox1[oListBox1:nAT,14],;
aListBox1[oListBox1:nAT,15],;
aListBox1[oListBox1:nAT,16],;
aListBox1[oListBox1:nAT,17],;
aListBox1[oListBox1:nAT,18],;
aListBox1[oListBox1:nAT,19],;
aListBox1[oListBox1:nAT,20],;
aListBox1[oListBox1:nAT,21],;
aListBox1[oListBox1:nAT,22],;
aListBox1[oListBox1:nAT,23]}}
@ 125, 010 BUTTON "Gerar Romaneio" SIZE 35 ,10 ACTION (Alert("Gerar Romaneio")) Of oDlg PIXEL
@ 125, 054 BUTTON "Cancela" SIZE 35 ,10 ACTION (oDlg:End()) Of oDlg PIXEL






ACTIVATE MSDIALOG oDlg1 CENTERED

Return

o campo que eu quer que traga a consulta padrao "Transp" (codigo da transportadora) da forma que esta ele esta editavel nao descobri com tras o f3