adilson1361303171

EU , EU NAO , MAS UM TECNICO ESPECIALIZADO EM LINUX TENTOU EMULAR COM WINE MAS DA UM ERRO REFERENTE A 16BITS, ESSE TECNICO ME DISSE Q. O COMPILADOR É 16BIT POR ISSO NAO QUER RODAR , SERA Q. ISSO REALMENTE PROCEDE ???

VC CONHECE A FUNCAO BROWSE DO FIVEWIN , USANDO O WORKSHOP , VOU PASSAR UMA ROTINA NESTE PADRAO SE INTERESSAR OU SERVIR

Redefine Browse oBrw id 22 of oDial;

Color CLR_BLACK,RGB(255,255,235);

Font fonte;

alias 'ARRAY'

oBrw:SetArray( aPagto )

oBrw:nClrForeHead := CLR_HRED

oBrw:nClrBackHead := CLR_HGRAY

// oBrw:lNoHScroll :=.t.

oBrw:nAdjColumn := 6

oBrw:bKeyDown:={ |nKey| altCelula(nKey,oBrw,oBrw:nAt) }

Add Column to Browse oBrw Data strz(oBrw:nAt,2);

Header '' size 20 Color CLR_BLACK,CLR_HGRAY

Add Column to Browse oBrw Data Array elem 4;

Header 'Condicao' size 70

Add Column to Browse oBrw Data Array elem 2;

Header 'Doc' size 30 Picture '@!'

Add Column to Browse oBrw Data Array elem 1;

Header 'Vencimento' size 80

Add Column to Browse oBrw Data Array elem 3;

Header 'Valor' size 80 Picture '@ZE 99999.99' right

Add Column to Browse oBrw Data Array elem 6;

Header 'Observacao' size 200

Function altCelula( nKey,oBrw,itLinha )

//

//

// Alteracao Celula do Browse de Aplicacao de Taxa de Juros.

//

//

Local aTip:=aPagto[itLinha,2],;

aVct:=aPagto[itLinha,1],;

aVlr:=aPagto[itLinha,3],;

aObs:=aPagto[itLinha,6]

Define Font oFx name 'arial' size 0,-12

activate Font oFx

if nKey==K_ENTER

oBrw:lEditCol(oBrw:nColPos+2,@aTip,,,CLR_WHITE,CLR_BLUE)

aPagto[itLinha,2]:=UPPER(aTip)

oBrw:refresh()

oBrw:lEditCol(oBrw:nColPos+3,@aVct,,,CLR_WHITE,CLR_BLUE)

aPagto[itLinha,1]:=aVct

oBrw:refresh()

oBrw:lEditCol(oBrw:nColPos+4,@aVlr,'@ZE 999,999.99',,CLR_WHITE,CLR_BLUE)

aPagto[itLinha,3]:=aVlr

oBrw:refresh()

oBrw:lEditCol(oBrw:nColPos+5,@aObs,'@!',,CLR_WHITE,CLR_BLUE)

aPagto[itLinha,6]:=aObs

oBrw:refresh()

verValorPar(itLinha,aVlr)

oBrw:goDown()

endif

oBrw:refresh()

Return (.t.)

ESTA ROTINA ALTERA UM MATRIZ, PARA BANCO É SO FAZER ALGUMAS MODIFICACOES E NA FUNCAO ALTCELULA VC TRATA OS EVENTOS COMO EXCLUI A LINHA DO BROWSE, OU QUALQUER EVENTO COM O TECLADO Q. QUEIRA, COMO CHARMA OUTRA TELA ETC...

Editado por - adilson on 07/05/2005 11:18:53

CLIPER 5.3 FIVEWIN 1.9.2

COMO FAÇO PARA CONVERTER , URGENTE POR SINAL ???

CLIPPER 5.3 + FW192

Editado por - adilson on 07/05/2005 10:51:10

ALGUEM PODE ME AJUDAR NESTA QUESTAO , TENHO VARIOS PROGRAMAS COM CLIPPER5.3 + FIVEWIN 1.9.2 RODANDO (WINDOWS) ALGUMAS TENTATIVAS DE RODAR NO LINUX CONECTIVA 10 , NAO FUNCIONOU , ALGUM ERRO REF A 16BITS , COMO POSSO RODAR SEM TER Q. MUDAR LINHAS DE PROGRAMACAO ??