cendon

Ve se ajuda. REDEFINE LISTBOX oValue1 VAR cValue1 FIELDS "","",""; HEADER "" ID 139 ; ON CHANGE ( "" ) ; ON DBLCLICK ( oValue1:End() ); OF oFld1:aDialogs[1]; Color CLR_BLACK, CLR_WHITE oValue1:SetArray( aItems1 ) oValue1:aHeaders := { "Data", "Opera","Observacao" } oValue1:aColSizes := { 70, 70, 140 } oValue1:bLine := { || {aItems1[oValue1][1],aItems1[oValue1][2],aItems1[oValue1][3] } } oValue1:nLineStyle := 0 carregando array aitems1:={} do while !eof() .and. codigo=proposta->codigo mxconta=mxconta+1 aadd(aitems1,{data1,operador,linha1}) skip enddo Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

mimpress:="nome da impressora" // ex: "PDFCreator" PRINT oPrn NAME "Relatori xxxyyyzzz" to mimpress Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

oWnd:=FindWindow(0,"TITULO DA JANELA") if oWnd!=0 Msgalert("O SISTEMAXXX ja se encontra aberto","Atencao!!!") return .f. endif ISSO VERIFICA SE Jà ESTA ABERTO UM PROGRAMA COM TITULO DA JANELA DEFINE WINDOW oWnd FROM 1, 1 TO 22, 75 ; TITLE "ST-Vida 3.0" ; -> ESTE É O TITULO DA JANELA PRINCIAPL MENU BuildMenu() ; COLOR "W+/bg" ; ICON oIco FUNCIONA DA 2.4 Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

Obrigado pela ajuda Yury, vou testar. Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

Bem vindo ao Forum. vc está fazendo a escolha certa. Boa sorte com os testes. Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

Tem como usar impressão colorida com charsay()? Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

Tem como usar impressão colorida com charsay()? Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

Silvio, dê uma olhada neste post talvez seja isso: http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=13570 Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 2.4 - @ l,c Workshop

Oi Luiz devo estar louco, chego em casa, depois de algumas (várias), e resolvo verificar se algum outro doido deu algum picato no meu problema. muito bom gostei da solução, resolve meu problema sem mudar muito, ainda não testei, mas a solução foi muito criativa. Obrigado, Ps.: Bom final de semana a vc e a todos dp forum! Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 2.4 - @ l,c Workshop

Tambem acho. Existem outras fontes que o espacejamento de caracteres é sempre o mesmo e são um pouco mais bonitas. porem não sao nativas do windows. tem que ser instaladas junto com o seu sistema. Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 2.4 - @ l,c Workshop

Use "Lucida Console", as distancias entre caracteres são iguais Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 2.4 - @ l,c Workshop

Qual fonte de letra vc tá usando? Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 2.4 - @ l,c Workshop

use o setfocus e depois o ojump oActivex:ojump:=oGet5 Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 2.4 - @ l,c Workshop

Pode sim, public todas os objetos das Fontes. pode colocar no inicio do prg principal sem susto Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 2.4 - @ l,c Workshop Editado por - cendon on 22/08/2008 14:28:11

Vo largar o problema para segunda feira, Vc acaba de me dar um a OTIMA IDEIA. Vou pro Buteco (KKKKKKKKKKK). Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 2.4 - @ l,c Workshop

Obrigado pela resposta Julio, porem eu quero mudar a cor de uma célula específica (saldo negativo). estou em dúvida se oValue:bTextColor funciona na TWBROWSE nativa. Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 2.4 - @ l,c Workshop

Obrigado pela resposta Julio, porem eu quero mudar a cor de uma célula específica (saldo negativo). estou em dúvida se oValue:bTextColor funciona na TWBROWSE nativa. Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 2.4 - @ l,c Workshop

Boa tarde pessoal, não estou conseguindo alterar a cor de uma célula específica do ListBox ta dando erro Error description: Error BASE/1005 Message not found: TWBROWSE:_BTEXTCOLOR o fonte é: REDEFINE LISTBOX oValue VAR cValue FIELDS "","","","","","","","","","",""; HEADER "" ID 120 ; ON CHANGE ( "" ) ; ON DBLCLICK ( oValue:End() ); OF oDlg3; Color CLR_BLACK, CLR_WHITE oValue:SetArray( aItems ) /////////// erro nesta linha oValue:bTextColor:={|nRow,nCol,nStyle| if( nStyle==1,if( nCol%2==1, nrgb(255,255,255),nrgb(255,255,255)),if( nCol==4, if(val(aItems[oValue])<0,nrgb(128,0,0),nrgb(255,255,255)),))} /////////// oValue:aHeaders := { "registro","Dt.Lanc.","Dt.Mov.","Historico","Valor","D/C","Tipo","Saldo","Operador"} oValue:aColSizes := { 40,65, 65, 200, 65, 25, 50, 65, 70 } oValue:aJustify := {.F.,.F.,.F.,.F.,.T.,.F.,.F.,.T.,.F.} oValue:bLine := { || {aItems[oValue][1],aItems[oValue][2],aItems[oValue][3],aItems[oValue][4],aItems[oValue][5],aItems[oValue][6],aItems[oValue][7],aItems[oValue], aItems[oValue][9] } } oValue:nclrpane:={||iif(val(aItems[oValue])<0, nrgb(221,115,106), nrgb(182,218,162))} oValue:nLineStyle := 0 Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 2.4 - @ l,c Workshop

Boa tarde pessoal, não estou conseguindo alterar a cor de uma célula específica do ListBox ta dando erro Error description: Error BASE/1005 Message not found: TWBROWSE:_BTEXTCOLOR o fonte é: REDEFINE LISTBOX oValue VAR cValue FIELDS "","","","","","","","","","",""; HEADER "" ID 120 ; ON CHANGE ( "" ) ; ON DBLCLICK ( oValue:End() ); OF oDlg3; Color CLR_BLACK, CLR_WHITE oValue:SetArray( aItems ) /////////// erro nesta linha oValue:bTextColor:={|nRow,nCol,nStyle| if( nStyle==1,if( nCol%2==1, nrgb(255,255,255),nrgb(255,255,255)),if( nCol==4, if(val(aItems[oValue])<0,nrgb(128,0,0),nrgb(255,255,255)),))} /////////// oValue:aHeaders := { "registro","Dt.Lanc.","Dt.Mov.","Historico","Valor","D/C","Tipo","Saldo","Operador"} oValue:aColSizes := { 40,65, 65, 200, 65, 25, 50, 65, 70 } oValue:aJustify := {.F.,.F.,.F.,.F.,.T.,.F.,.F.,.T.,.F.} oValue:bLine := { || {aItems[oValue][1],aItems[oValue][2],aItems[oValue][3],aItems[oValue][4],aItems[oValue][5],aItems[oValue][6],aItems[oValue][7],aItems[oValue], aItems[oValue][9] } } oValue:nclrpane:={||iif(val(aItems[oValue])<0, nrgb(221,115,106), nrgb(182,218,162))} oValue:nLineStyle := 0 Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 2.4 - @ l,c Workshop

dependendo de como vc criou sua aplicação, realmente pode ficar uma parde dela na memoria. Para ter certeza, entre no gerenciador e mate a aplicação. depois troque a "orelha" do gerenciador de APLICATIVOS para PROCESSOS e verifique se não ficou alguma parte dela na memoria. Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 2.4 - @ l,c Workshop

Boa tarde amigos, estou criando uma rotina para gerar um arquivo XLS. baixei as libs da ToleAuto e um exemplo do Evandro que estava em dicas. Coloquei as libs no bat de link, funcionou tudo bem compilou e linkeditou Blz. Porem na hora de executar deu erro: FIVEWIN FOR HARBOUR GPF OCURRED called from HBCLASS:NEW(0) called from TOLEDAUTO(0) called from GERAEXCEL(586) called from TESTAEXCEL(567) called from A0412(472) . . . a ToleAuto funciona com o harbour? Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 2.4 - @ l,c Workshop

Boa tarde amigos, estou criando uma rotina para gerar um arquivo XLS. baixei as libs da ToleAuto e um exemplo do Evandro que estava em dicas. Coloquei as libs no bat de link, funcionou tudo bem compilou e linkeditou Blz. Porem na hora de executar deu erro: FIVEWIN FOR HARBOUR GPF OCURRED called from HBCLASS:NEW(0) called from TOLEDAUTO(0) called from GERAEXCEL(586) called from TESTAEXCEL(567) called from A0412(472) . . . a ToleAuto funciona com o harbour? Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 2.4 - @ l,c Workshop

Boa tarde pessoal estou com um problema num grupo de checkbox, é o seguinte dentro de uma dialog tenho radio e checkbox o radio funciona legal, são 3 botoes só um fica marcado porem no checkbox o FW só deixa marcar 1, na realidade fica marcado mas não mostra. deixa eu explicar melhor Se eu marcar a primeira ele marca. Depois a segunda ele desmarca a primeira e marca a segunda e assim por diante. verifiquei que é só visual, pq as variaveis estão carregadas com 1 alguem sabe porque? o fonte é este DEFINE DIALOG oDlg2 RESOURCE mtela FONT oFont OF oWnd REDEFINE GET onomerel VAR mnomerel ID 101 OF oDlg2 picture "!"; MESSAGE "Entre com o Nome do relatorio (Cabeçalho)" RedeFine Radio ord_ordem Var rd_ordem Id 102,103,104 Of oDlg2 ; MESSAGE "Entre com a ordenação do relatorio" . . . RedeFine checkbox ordc_cod Var rdc_cod Id 126 OF oDlg2; MESSAGE "Impressão do campo Codigo com 8 posições" RedeFine checkbox ordc_cpf Var rdc_cpf Id 127 OF oDlg2; MESSAGE "Impressão do campo Cpf com 15 posições" RedeFine checkbox ordc_nome Var rdc_nome Id 128 OF oDlg2; MESSAGE "Impressão do campo Nome com 46 posições" . . . ACTIVATE DIALOG oDlg2 Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 2.4 - @ l,c Workshop

Boa tarde pessoal estou com um problema num grupo de checkbox, é o seguinte dentro de uma dialog tenho radio e checkbox o radio funciona legal, são 3 botoes só um fica marcado porem no checkbox o FW só deixa marcar 1, na realidade fica marcado mas não mostra. deixa eu explicar melhor Se eu marcar a primeira ele marca. Depois a segunda ele desmarca a primeira e marca a segunda e assim por diante. verifiquei que é só visual, pq as variaveis estão carregadas com 1 alguem sabe porque? o fonte é este DEFINE DIALOG oDlg2 RESOURCE mtela FONT oFont OF oWnd REDEFINE GET onomerel VAR mnomerel ID 101 OF oDlg2 picture "!"; MESSAGE "Entre com o Nome do relatorio (Cabeçalho)" RedeFine Radio ord_ordem Var rd_ordem Id 102,103,104 Of oDlg2 ; MESSAGE "Entre com a ordenação do relatorio" . . . RedeFine checkbox ordc_cod Var rdc_cod Id 126 OF oDlg2; MESSAGE "Impressão do campo Codigo com 8 posições" RedeFine checkbox ordc_cpf Var rdc_cpf Id 127 OF oDlg2; MESSAGE "Impressão do campo Cpf com 15 posições" RedeFine checkbox ordc_nome Var rdc_nome Id 128 OF oDlg2; MESSAGE "Impressão do campo Nome com 46 posições" . . . ACTIVATE DIALOG oDlg2 Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 2.4 - @ l,c Workshop

Vamos lá como o João disse o problema não está muito claro mas imagino que o q aconteceu com vc foi o mesmo q aconteceu comigo. Este problema se dá principalmente com equipamentos em rede altere o arquivo SYSTEM.INI (C:\WINDOWS) Apos os parametros da clausula [386enh] coloque as linhas: [NetWork] PrintBuftime=1 [ifsMgr] printbuftime=1 entre no REGEDIT (INICIAR-EXECUTAR-REGEDIT) procure a chave LPT_Timeout e troque o valor para 1 lpt_timeout=1 deve resolver. Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 2.4 - @ l,c Workshop