jfaguiar

Kapiaba vc é CARA!!! Os clientes queriam voltar para o sistema em Clipper! Valeu meu.

Olá pessoal. Alguém por gentileza poderia me explicar como deixo o cursor mais visível durante a ediçao dos gets? No clipper eu conficurava as cores com SETCOLOR() de modo que o get em foco ficava com uma cor diferente e FWH como posso fazer isto? Desde já agradeço Editado por - jfaguiar on 09/11/2007 14:54:34

Olá pessoal. Alguém por gentileza poderia me explicar como deixo o cursor mais visível durante a ediçao dos gets? No clipper eu conficurava as cores com SETCOLOR() de modo que o get em foco ficava com uma cor diferente e FWH como posso fazer isto? Desde já agradeço Editado por - jfaguiar on 09/11/2007 14:54:34

Olá meus caros. Pleno domingão tô eu aqui ralando. Graça a Deus. Estou tentando executar uma rotina conforme um ítem da combobox mas não estou conseguindo. A idéia é a seguinte: Tenho um array com com o nome das rotinas a serem executadas, exemplo aROTINA := {"ROTINA1()","ROTINA2()","ROTINA3()"} e uma combo na minha WS form contendo o título das rotinas, tipo um MESSAGE. Quando seleciono um ítem da combo, carrego a variável cROTINA com o nome da rotina a ser executada. A dúvida é como executá-la quando selecionar na combo e der um ENTER? Vejam um exemplo abaixo. REDEFINE COMBOBOX oCbxr VAR cItemRot ITEMS aItemRot; ID 107 OF oDlg; STYLE CBS_DROPDOWN ; ON CHANGE (cROTINA := aROTINA[oCbxr],oCbxr:Refresh() ) Desde já agradço a todos que poderem me ajudar. Bom domingo. Editado por - jfaguiar on 05/11/2007 00:27:51

Olá meus caros. Pleno domingão tô eu aqui ralando. Graça a Deus. Estou tentando executar uma rotina conforme um ítem da combobox mas não estou conseguindo. A idéia é a seguinte: Tenho um array com com o nome das rotinas a serem executadas, exemplo aROTINA := {"ROTINA1()","ROTINA2()","ROTINA3()"} e uma combo na minha WS form contendo o título das rotinas, tipo um MESSAGE. Quando seleciono um ítem da combo, carrego a variável cROTINA com o nome da rotina a ser executada. A dúvida é como executá-la quando selecionar na combo e der um ENTER? Vejam um exemplo abaixo. REDEFINE COMBOBOX oCbxr VAR cItemRot ITEMS aItemRot; ID 107 OF oDlg; STYLE CBS_DROPDOWN ; ON CHANGE (cROTINA := aROTINA[oCbxr],oCbxr:Refresh() ) Desde já agradço a todos que poderem me ajudar. Bom domingo. Editado por - jfaguiar on 05/11/2007 00:27:51

Valeu pessoal. Muito obrigado. Valeu Kapiaba, vou checar os folders.

Olá meus caríssimos. Tô desenvolvendo um cadastro genérico onde os campos e os títulos dos campos, etc ficam em uma tabela de parâmetros e trazidos para a dialog em um array onde são editados até três gets por linha. O problema é que quando o número de gets é muito grande, sou obrigado a fechar a dialog para edição e reabrí-la a partir do próximo get. Ficou horrível!!! Gostaria de saber como faço para colocar uma barra de rolagem na form "em código". Me falaram também de um tal de folder. É folder meu, não sei nem por onde começa. Alguém poderia me dar uma luz? Eternamente grato João F. Aguiar.

Olá meus caríssimos. Tô desenvolvendo um cadastro genérico onde os campos e os títulos dos campos, etc ficam em uma tabela de parâmetros e trazidos para a dialog em um array onde são editados até três gets por linha. O problema é que quando o número de gets é muito grande, sou obrigado a fechar a dialog para edição e reabrí-la a partir do próximo get. Ficou horrível!!! Gostaria de saber como faço para colocar uma barra de rolagem na form "em código". Me falaram também de um tal de folder. É folder meu, não sei nem por onde começa. Alguém poderia me dar uma luz? Eternamente grato João F. Aguiar.

Valeu a força Kapiaba. O problema é no meu caso, como se trata de uma rotina genérica que serve para abrir qualquer arquivo, não posso usar o WorkShop, tendo em vista que os botões deverão ser enviados por parametro. Grato Karo amigo.

Olá pessoal. Como faço para alumentar a área visível da minha ListBox? Está aparecendo somente as 2 primeiras colunas. Como se trata de uma rotina gerérica tenho que criá-la em tempo de execução, caso contrário eu usaria o WS. Pra poder dar um exemplo enxuguei no maximo o código Grato João DEFINE DIALOG oDlgh FROM 2, 1 TO 34,75 TITLE 'Pesquisa' @ 01,01 LISTBOX oLbxh; FIELDS &cFIELDS; SIZES 56,320; HEADERS &cHEADERS; OF oDlgh ACTIVATE DIALOG oDlgh CENTERED

Olá pessoal. Como faço para alumentar a área visível da minha ListBox? Está aparecendo somente as 2 primeiras colunas. Como se trata de uma rotina gerérica tenho que criá-la em tempo de execução, caso contrário eu usaria o WS. Pra poder dar um exemplo enxuguei no maximo o código Grato João DEFINE DIALOG oDlgh FROM 2, 1 TO 34,75 TITLE 'Pesquisa' @ 01,01 LISTBOX oLbxh; FIELDS &cFIELDS; SIZES 56,320; HEADERS &cHEADERS; OF oDlgh ACTIVATE DIALOG oDlgh CENTERED

Olá pessoal. Essa é braba. Estou criando um cadastro genérico que monta a dialog de acordo com um dicionário de dados previamente cadastrado com as caracteristicas de cada tela e me deparei com o seguinte problema: Por exemplo, ao chamar uma sub rotina de pesquisa com f3, eu tenho como saber o nome do objeto através da proriedade oCtl:hWnd, conforme exemplo abaixo: @ 01,01 GET oCDCLI VAR nCDCLI PICT "999999" oCtl:hWnd é igual a oCDCLI e como saber o nome da variável? Desde já agradeço, João

Olá pessoal. Essa é braba. Estou criando um cadastro genérico que monta a dialog de acordo com um dicionário de dados previamente cadastrado com as caracteristicas de cada tela e me deparei com o seguinte problema: Por exemplo, ao chamar uma sub rotina de pesquisa com f3, eu tenho como saber o nome do objeto através da proriedade oCtl:hWnd, conforme exemplo abaixo: @ 01,01 GET oCDCLI VAR nCDCLI PICT "999999" oCtl:hWnd é igual a oCDCLI e como saber o nome da variável? Desde já agradeço, João

Sim Marllon, ainda trabalho com o ADVPL. Por enquanto somente para uma empresa que antes usava o meus sistema e acabou adquindo o Protheus 8.

Olá pessoal. Na verdade estava sem um definição de fontes. Coloquei o parâmetro FONT ARIAL. Obrigado

Olá pessoal. Minhas listbox feitas no WS ora aparecem com fontes maiores e em negritos, ora aparecem normal. O que faço para acabar com essa intermitência? Grato João Editado por - jfaguiar on 25/09/2007 19:59:36

Olá pessoal. Minhas listbox feitas no WS ora aparecem com fontes maiores e em negritos, ora aparecem normal. O que faço para acabar com essa intermitência? Grato João Editado por - jfaguiar on 25/09/2007 19:59:36

Olá Kapiaba. Eu uso um Ws velhinho, a vr 4.5. Existe alguma versão mais atualizada?

Olá Marllon. Fiz 4 cursos na Microsiga este ano e apendi fazer algumas coisinhas. É uma linguagem muito interessante, eu tiro o chapeu pros caras.

Um dia eu vou ser quase tão bom quanto vcs! he he he Mas que minha tela ficou fácil, ficou. Editado por - jfaguiar on 25/09/2007 16:35:31

Valeu Kapiaba. Uma crítica construtiva é sempre bem vinda! Abraço.

Olá meus caros. Após conseguir posicionar meus SAYS e GETS, com a ajuda da galera é claro, sofri um pouco para conseguir posicionar a borda e os botões na dialog até me lembrar das minhas dialogs em ADVPL. Com algumas modigicações consegui alterar o código para FW. Segue um exemplo abaixo: #INCLUDE "FiveWin.ch" Function Main() LOCAL oDlg VTICKTINT:=VTICKTCLI:=nCDCLI:=nCDSCLI:=VQTDE:=0 nCDCONT:=nCDTRAN:=0 VCDPROD := 0 dDATEMIS := DATE() VSUBCLI := "N" VCOBRAR := "S " VFATURA := "BH " VCOMPRES:= SPACE(35) cUNIDAD := SPACE(5) // DEFINE DIALOG oDlg FROM 2, 1 TO 34,75 TITLE 'Manutenção de Manifestos' oDlg:Cargo := .F. // Monta uma borda no tamanho da dialog @ 0.1, 0.2 TO oDlg:nHeight()*.03554,oDlg:nWidth()*.07101 OF oDlg @ LINS(01),COLS(02) SAY "Ticket Interno:" @ LING(02),COLG(02) GET VTICKTINT PICT "99999999" // @ LINS(3.2),COLG(02) SAY "Ticket Cliente:" @ LING(04), COLG(02) GET VTICKTCLI PICT "99999999" // @ LINS(05.2),COLS(02) SAY "Cód.Cliente:" @ LING(06), COLG(02) GET oCDCLI VAR nCDCLI PICT "999999" // @ LINS(07.2),COLS(02) SAY "Contrato:" @ LING(08), COLG(02) GET oCDCONT VAR nCDCONT // @ LINS(09.2),COLS(02) SAY "Compl. Resíduo:" @ LING(10), COLG(02) GET VCOMPRES PICT "@!" // @ LINS(11.2),COLS(02) SAY "Sub-Cliente:" @ LING(12), COLG(02) GET oCDSCLI VAR nCDSCLI PICT "999" @ LINS(11.2),COLS(45) SAY "Cobrar (S/N) ?" @ LING(12), COLG(45) GET VCOBRAR PICT "@!" // @ LINS(13.2),COLS(02) SAY "Quantidade:" @ LING(14), COLG(02) GET VQTDE PICT "@E 9999999999.999" @ LINS(13.2),COLS(31) SAY "NF:" @ LING(14), COLG(31) GET VFATURA PICTURE "!!!!!!" // @ LINS(15.2),COLS(02) SAY "Data Emissao:" @ LING(16), COLG(02) GET dDATEMIS @ LINS(15.2),COLS(31) SAY "Unidade:" @ LING(16), COLG(31) GET nUNIDAD // @ LINS(17.2),COLS(02) SAY "Trasnsportador:" @ LING(18), COLG(02) GET oCDTRAN VAR nCDTRAN PICT '999' @ LINS(17.2),COLS(31) SAY "Placa Veículo:" @ LING(18), COLG(31) GET VPLACA PICT "@R AAA-9999" // Posiciona o botão OK na parte inferior esquerda @oDlg:nHeight()/2-19,oDlg:nWidth()/2-70 Button oBtnOk Prompt "&Ok" Size 30,15 Pixel ACTION ( oDlg:Cargo:=.T., oDlg:End() ) Of oDlg // Posiciona o botão Cancelar no canto inferior esquerdo @oDlg:nHeight()/2-19,oDlg:nWidth()/2-35 Button oBtnCancel Prompt "&Cancelar" Size 30,15 Pixel Action oDlg:End() Of oDlg ACTIVATE DIALOG oDlg CENTERED RETURN nil ******************************************************* FUNCTION LINS( __NR_ROW ) && linha say RETURN( __NR_ROW*0.795 ) //----------------------------------------------------------FUNCTION COLS( __NR_COL ) && coluna say RETURN( __NR_COL/1.5 ) ************************************************************FUNCTION LING( __NR_ROW ) && linha get RETURN( ((__NR_ROW*0.92)-0.02)+ IF(__NR_ROW>18,0.05,0) ) //----------------------------------------------------------FUNCTION COLG( __NR_COL ) && coluna do get RETURN( __NR_COL/2.00 ) ************************************************************ Editado por - jfaguiar on 25/09/2007 08:39:06

Olá meus caros. Após conseguir posicionar meus SAYS e GETS, com a ajuda da galera é claro, sofri um pouco para conseguir posicionar a borda e os botões na dialog até me lembrar das minhas dialogs em ADVPL. Com algumas modigicações consegui alterar o código para FW. Segue um exemplo abaixo: #INCLUDE "FiveWin.ch" Function Main() LOCAL oDlg VTICKTINT:=VTICKTCLI:=nCDCLI:=nCDSCLI:=VQTDE:=0 nCDCONT:=nCDTRAN:=0 VCDPROD := 0 dDATEMIS := DATE() VSUBCLI := "N" VCOBRAR := "S " VFATURA := "BH " VCOMPRES:= SPACE(35) cUNIDAD := SPACE(5) // DEFINE DIALOG oDlg FROM 2, 1 TO 34,75 TITLE 'Manutenção de Manifestos' oDlg:Cargo := .F. // Monta uma borda no tamanho da dialog @ 0.1, 0.2 TO oDlg:nHeight()*.03554,oDlg:nWidth()*.07101 OF oDlg @ LINS(01),COLS(02) SAY "Ticket Interno:" @ LING(02),COLG(02) GET VTICKTINT PICT "99999999" // @ LINS(3.2),COLG(02) SAY "Ticket Cliente:" @ LING(04), COLG(02) GET VTICKTCLI PICT "99999999" // @ LINS(05.2),COLS(02) SAY "Cód.Cliente:" @ LING(06), COLG(02) GET oCDCLI VAR nCDCLI PICT "999999" // @ LINS(07.2),COLS(02) SAY "Contrato:" @ LING(08), COLG(02) GET oCDCONT VAR nCDCONT // @ LINS(09.2),COLS(02) SAY "Compl. Resíduo:" @ LING(10), COLG(02) GET VCOMPRES PICT "@!" // @ LINS(11.2),COLS(02) SAY "Sub-Cliente:" @ LING(12), COLG(02) GET oCDSCLI VAR nCDSCLI PICT "999" @ LINS(11.2),COLS(45) SAY "Cobrar (S/N) ?" @ LING(12), COLG(45) GET VCOBRAR PICT "@!" // @ LINS(13.2),COLS(02) SAY "Quantidade:" @ LING(14), COLG(02) GET VQTDE PICT "@E 9999999999.999" @ LINS(13.2),COLS(31) SAY "NF:" @ LING(14), COLG(31) GET VFATURA PICTURE "!!!!!!" // @ LINS(15.2),COLS(02) SAY "Data Emissao:" @ LING(16), COLG(02) GET dDATEMIS @ LINS(15.2),COLS(31) SAY "Unidade:" @ LING(16), COLG(31) GET nUNIDAD // @ LINS(17.2),COLS(02) SAY "Trasnsportador:" @ LING(18), COLG(02) GET oCDTRAN VAR nCDTRAN PICT '999' @ LINS(17.2),COLS(31) SAY "Placa Veículo:" @ LING(18), COLG(31) GET VPLACA PICT "@R AAA-9999" // Posiciona o botão OK na parte inferior esquerda @oDlg:nHeight()/2-19,oDlg:nWidth()/2-70 Button oBtnOk Prompt "&Ok" Size 30,15 Pixel ACTION ( oDlg:Cargo:=.T., oDlg:End() ) Of oDlg // Posiciona o botão Cancelar no canto inferior esquerdo @oDlg:nHeight()/2-19,oDlg:nWidth()/2-35 Button oBtnCancel Prompt "&Cancelar" Size 30,15 Pixel Action oDlg:End() Of oDlg ACTIVATE DIALOG oDlg CENTERED RETURN nil ******************************************************* FUNCTION LINS( __NR_ROW ) && linha say RETURN( __NR_ROW*0.795 ) //----------------------------------------------------------FUNCTION COLS( __NR_COL ) && coluna say RETURN( __NR_COL/1.5 ) ************************************************************FUNCTION LING( __NR_ROW ) && linha get RETURN( ((__NR_ROW*0.92)-0.02)+ IF(__NR_ROW>18,0.05,0) ) //----------------------------------------------------------FUNCTION COLG( __NR_COL ) && coluna do get RETURN( __NR_COL/2.00 ) ************************************************************ Editado por - jfaguiar on 25/09/2007 08:39:06

Olá pessoal. Não consigo imprimir com FWH 7.01 PELA REDE na HPCOLOR 2600. No micro onde ela está local tudo bem. Utilizando preview, chega a mostrar na tela mas qdo clico na impressora ocorre o erro. Se alguém já se deparou com esse problema e poder me ajudar, ficarei muito grato! NOTA: Estou usando a classe abaixo para imprimir. PRINT oPrn NAME "teste" PREVIEW PAGE oPrn:CharSay( l,01, "TESTE" ) ENDPAGE ENDPRINT

Olá pessoal. Não consigo imprimir com FWH 7.01 PELA REDE na HPCOLOR 2600. No micro onde ela está local tudo bem. Utilizando preview, chega a mostrar na tela mas qdo clico na impressora ocorre o erro. Se alguém já se deparou com esse problema e poder me ajudar, ficarei muito grato! NOTA: Estou usando a classe abaixo para imprimir. PRINT oPrn NAME "teste" PREVIEW PAGE oPrn:CharSay( l,01, "TESTE" ) ENDPAGE ENDPRINT