neto_23

uma dica de xbrowse em tela de pedido de produto sendo nas celulas o campo editavel para pesquisa. resumindo lança o produto direto no browse fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

uma dica de xbrowse em tela de pedido de produto sendo nas celulas o campo editavel para pesquisa. resumindo lança o produto direto no browse fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

resolvido assim: v_gradetrans1:SetItems(vg_trans) v_gradetrans1:show() v_gradetrans1:update() v_gradetrans1:Refresh() tinha esquecido do setitems fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

nao adiciona no vetor REDEFINE COMBOBOX v_gradetrans1 VAR v_gradetrans ITEMS vg_trans ; ID 4029 OF oCeca6 ; when bloq = 'S'; UPDATE; color nRgb(0,0,0), nRGB(255,255,255) // essas linha de comando abaixo esta na outra funct sele 0 cvar1 = 'SUBESTOQUE'+nl cSql := "select * from "+cvar1+" where produto = "+sqlntrim(v_produto)+" and filial = "+sqlntrim(v_filial) csql = csql + " and sql_deleted = 'F'" csql := csql + " order by referencia,cor" use sql (cSql) alias subestoquesqlx via 'MySql' go top if reccount() >= 1 go top do while !eof() AAdd(vg_trans,subestoquesqlx->cor+"-"+ALLTRIM(subestoquesqlx->tamanho)) skip enddo else vg_trans:= {} endif v_gradetrans1:refresh() id=code>id=code> qual o erro meu fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

nao adiciona no vetor REDEFINE COMBOBOX v_gradetrans1 VAR v_gradetrans ITEMS vg_trans ; ID 4029 OF oCeca6 ; when bloq = 'S'; UPDATE; color nRgb(0,0,0), nRGB(255,255,255) // essas linha de comando abaixo esta na outra funct sele 0 cvar1 = 'SUBESTOQUE'+nl cSql := "select * from "+cvar1+" where produto = "+sqlntrim(v_produto)+" and filial = "+sqlntrim(v_filial) csql = csql + " and sql_deleted = 'F'" csql := csql + " order by referencia,cor" use sql (cSql) alias subestoquesqlx via 'MySql' go top if reccount() >= 1 go top do while !eof() AAdd(vg_trans,subestoquesqlx->cor+"-"+ALLTRIM(subestoquesqlx->tamanho)) skip enddo else vg_trans:= {} endif v_gradetrans1:refresh() id=code>id=code> qual o erro meu fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

quando tiver com foco o combobox a cor ser mudada: fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

gostaria de ao selecionar o combobox a cor mude e e apresente a cor que destaque em relação aos outros campos fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

gostaria de ao selecionar o combobox a cor mude e e apresente a cor que destaque em relação aos outros campos fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

como colocar a direita do menu a tecla de acesso : exemplo: menuitem "Cadastro de Produto F5" na apresentação se o menuitem não fica na direita; fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

como colocar a direita do menu a tecla de acesso : exemplo: menuitem "Cadastro de Produto F5" na apresentação se o menuitem não fica na direita; fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

obrigado vagner e kapiaba resolvido conforme vagner falou! fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

fiz um listbox, sem array direto do select com campos do arquivo. nesse arquivo tem o campo preço no listbox, gostaria de acrescentar valor porcetangem para o campo sem adiciona na tabela somente no listbox ... um função para que adicione a porcetangem ao valor da tabela e mostra no listbox sem gravar na tabela fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

fiz um listbox, sem array direto do select com campos do arquivo. nesse arquivo tem o campo preço no listbox, gostaria de acrescentar valor porcetangem para o campo sem adiciona na tabela somente no listbox ... um função para que adicione a porcetangem ao valor da tabela e mostra no listbox sem gravar na tabela fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

Deveriamos contratar para palestra algum representante da brahma ou da skol algo parecido.... Tambem contratar para palestra o kapiaba falando como programar depois de umas brejas... kkkkkkkkkkkkkkk falow fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

obrigado aferra mas não tem o exemplo que eu quero... fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

gostaria de receber uma dica para testar o fastreport ... estou usando a tabela de cadastro de produto e a tabela de grade em um unico relatorio... o produto que tive a grade lista abaixo do produto as grades.... sendo assim o relatorio trabalhando com duas tabelas detail e subdetail ... obrigado por qq ajuda fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

gostaria de receber uma dica para testar o fastreport ... estou usando a tabela de cadastro de produto e a tabela de grade em um unico relatorio... o produto que tive a grade lista abaixo do produto as grades.... sendo assim o relatorio trabalhando com duas tabelas detail e subdetail ... obrigado por qq ajuda fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

lembrando que o suporte não esta enviando email;;;; gilmer gostaria de saber quanto esta o valor da nota fiscal eletronica ? e se vc tem algumda dica para criação de arquivo word pelo fivewin fico grato pela resposta ok e sabe qual a ultima versão do fivewin lembrando que o meu email programadorcp80@hotmail.com foi cancelado estou usando da minha esposa isa.cp23@hotmail.com fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

lembrando que o suporte não esta enviando email;;;; gilmer gostaria de saber quanto esta o valor da nota fiscal eletronica ? e se vc tem algumda dica para criação de arquivo word pelo fivewin fico grato pela resposta ok e sabe qual a ultima versão do fivewin lembrando que o meu email programadorcp80@hotmail.com foi cancelado estou usando da minha esposa isa.cp23@hotmail.com fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

alguma dica para exportar campos de tabela selecionado para word; tentei com a tword mas não consegui compilar erro na propriedade open() alguma dica agradeço;.... lembrando com xharbour fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

alguma dica para exportar campos de tabela selecionado para word; tentei com a tword mas não consegui compilar erro na propriedade open() alguma dica agradeço;.... lembrando com xharbour fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

obrigado pela dica funcionou...grato fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

estou criando arquivo pdf via impressão: gostaria de saber como definir a impressora padrão para pdfcreator caso ela não esta padrão e retornar a impressora padrão para anterior se ela não estiver padrão.... veja o meu codigo vIMP1 := PrnGetName() cPort := PrnGetPort() vIMP2 := "PDFCreator" PrnSetDefault( vIMP2, 'pdfcmon' ) Function PrnSetDefault( cName, cPort ) LOCAL cStr := "" /* cStr -> "Name, Driver, Port" */ cStr := cName + "," + PrnGetDrive( cName ) + "," + cPort WriteProfString( "Windows", "Device", cStr ) SendMessage( HWND_BROADCAST, WM_WININICHANGE, 0, "Windows") SysRefresh() return nil id=code>id=code>fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

estou criando arquivo pdf via impressão: gostaria de saber como definir a impressora padrão para pdfcreator caso ela não esta padrão e retornar a impressora padrão para anterior se ela não estiver padrão.... veja o meu codigo vIMP1 := PrnGetName() cPort := PrnGetPort() vIMP2 := "PDFCreator" PrnSetDefault( vIMP2, 'pdfcmon' ) Function PrnSetDefault( cName, cPort ) LOCAL cStr := "" /* cStr -> "Name, Driver, Port" */ cStr := cName + "," + PrnGetDrive( cName ) + "," + cPort WriteProfString( "Windows", "Device", cStr ) SendMessage( HWND_BROADCAST, WM_WININICHANGE, 0, "Windows") SysRefresh() return nil id=code>id=code>fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

ja fiz a exportação para excel, mas tou apanhando para word e pdf alguem tem algum exemplo para exportar para word e pdf.. fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;