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 ??