× Linguagem de Programação ADVPL

Perguntas F3 no comando lEditCell

Mais
9 anos 10 meses atrás #26661 por de019
Boa tarde galera,

Estou preso novamente, porem desta vez não em PE, rs, desisti daquele e parti para uma solução mais facil e ja resolvido, enfim, agora estou precisando de ajuda no comando lEditCell, preciso saber se tem como colocar uma ferramenta de busca nele. O fonte segue abaixo para entenderem melhor, se alguem puder me ajudar eu agradeço.

Att,

André Luis de Oliveira

Segue a parte do Fonte

DEFINE MSDIALOG oDlg FROM 0,0 TO 520,800 PIXEL TITLE 'Titulos a serem faturados'
// Cria objeto de fonte que sera usado na Browse
Define Font oFont Name 'Courier New' Size 0, -12

// Cria Browse
oList := TCBrowse():New( 01 , 01, 400, 200,,;
{'','Titulo e Parcela','Serviço','Cliente','Nosso Numero','Valor',''},{20,80,80,80,80,50,0},;
oDlg,,,,,{||},,oFont,,,,,.F.,,.T.,,.F.,,, )

// Seta o vetor a ser utilizado
oList:SetArray(aList)

// Monta a linha a ser exibida no Browse
oList:bLine := {||{ If(aList[oList:nAt,01],oOK,oNO),;
substr(aList[oList:nAt,07],1,9) + ' ' + substr(aList[oList:nAt,07],10,1),;
aList[oList:nAt,03],;
aList[oList:nAt,08],;
aList[oList:nAt,09],;
Alltrim(Transform(aList[oList:nAT,04],'@E 99,999,999,999.99')) } }

// Evento de DuploClick (troca o valor do primeiro elemento do Vetor)
oList:bLDblClick := {|| aList[oList:nAt][1] :=;
!aList[oList:nAt][1],oList:DrawSelect() }

oBtn := TButton():New( 210, 060, 'Adicionar Serviço', oDlg,;
{|| lEditCell(@aList,oList,,3) }, 90, 010,,,.F.,.T.,.F.,,.F.,,,.F. )

oBtn := TButton():New( 230, 060,'Faturar', oDlg,{ || aVetProd(),Iif(lRet=.T.,oDlg:End(),nil)}, 90,20,,,.F.,.T.,.F.,,.F.,,,.F. )


ACTIVATE MSDIALOG oDlg CENTERED

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.068 segundos
Joomla templates by a4joomla