Jump to content
Fivewin Brasil

neto_23

Membros
  • Posts

    1,363
  • Joined

  • Last visited

Posts posted by neto_23

  1. tenho um campo numerico para produto

    e esse campo faço consulta a partir dele com string

    exemplo

    bombom ao dar enter abre a tela da consulta para produto

    ao retornar da seleção a variavel volta numero ...

    algum exemplo para isso get com consulta

    fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles

    programadorcp80@hotmail.com.br ;

  2. tenho um campo numerico para produto

    e esse campo faço consulta a partir dele com string

    exemplo

    bombom ao dar enter abre a tela da consulta para produto

    ao retornar da seleção a variavel volta numero ...

    algum exemplo para isso get com consulta

    fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles

    programadorcp80@hotmail.com.br ;

  3. 
    

    IF obrw2:nColAct == 1

    uProduto := ar_prnow2[obrw2][1]

    uQuantidade := ar_prnow2[obrw2][10]

    bGet := {|| uProduto:= ar_prnow2[obrw2], ;

    obrw2:lEditCol( 1, @uProduto,"@!",, CLR_RED, CLR_YELLOW), ;

    obrw2:Refresh() }

    Eval( bGet )

    if substr(uproduto,1,1) = '*'

    tbceca2(14,2)

    endif

    id=code>id=code>

    tem como no get acima mencionado colocar a tecla f2 para consulta.. e uma lupa no get...

    agradeço a dica

    mais é listbox nativo

    fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles

    programadorcp80@hotmail.com.br ;

  4. 
    

    IF obrw2:nColAct == 1

    uProduto := ar_prnow2[obrw2][1]

    uQuantidade := ar_prnow2[obrw2][10]

    bGet := {|| uProduto:= ar_prnow2[obrw2], ;

    obrw2:lEditCol( 1, @uProduto,"@!",, CLR_RED, CLR_YELLOW), ;

    obrw2:Refresh() }

    Eval( bGet )

    if substr(uproduto,1,1) = '*'

    tbceca2(14,2)

    endif

    id=code>id=code>

    tem como no get acima mencionado colocar a tecla f2 para consulta.. e uma lupa no get...

    agradeço a dica

    mais é listbox nativo

    fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles

    programadorcp80@hotmail.com.br ;

  5. Alguem tem PDV para vender com fontes e o Mysql;

    e nota fiscal eletronica

    porque estarei comprando a classe do gilmer para nota fiscal eletronica

    email para contato isa.cp23@hotmail.com email da minha esposa.

    fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles

    programadorcp80@hotmail.com.br ;

  6. Alguem tem PDV para vender com fontes e o Mysql;

    e nota fiscal eletronica

    porque estarei comprando a classe do gilmer para nota fiscal eletronica

    email para contato isa.cp23@hotmail.com email da minha esposa.

    fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles

    programadorcp80@hotmail.com.br ;

  7. tenho uma combobox direto da tabela mysql

    apos seleção do item eu gravo em outra tabela

    na alteração recarrego dessa tabela o item selecionado e monto o combobox só que em vez de ele mostra logo o item que carregado ele deixa em branco o combobox para o usuario selecionar o item, caso o usuario não selecionar e gravar grava o item em branco na tabela na alteração

    ou eu tenho que mudar para uma listbox fico no aguardo ok

    fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles

    programadorcp80@hotmail.com.br ;

  8. tenho uma combobox direto da tabela mysql

    apos seleção do item eu gravo em outra tabela

    na alteração recarrego dessa tabela o item selecionado e monto o combobox só que em vez de ele mostra logo o item que carregado ele deixa em branco o combobox para o usuario selecionar o item, caso o usuario não selecionar e gravar grava o item em branco na tabela na alteração

    ou eu tenho que mudar para uma listbox fico no aguardo ok

    fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles

    programadorcp80@hotmail.com.br ;

  9. vejam essa linha de comando

    
    

    vg_trans:= {}

    v_gradetrans = space(01)

    REDEFINE COMBOBOX v_gradetrans1 VAR v_gradetrans ITEMS vg_trans ;

    ID 4029 OF oCeca6 ;

    when substr(v_descricao,1,1) # ' ' ;

    UPDATE;

    color nRgb(0,0,0), nRGB(255,255,255)

    // outra rotina valid de um get produto

    sele 0

    cvar1 = "movim2"+nl

    csql = "select * from "+cvar1+" where link = "+sqlntrim(v_link)+" and produto = "+sqlntrim(v_produto)

    csql = csql + " and sql_deleted = 'F'"

    csql = csql + " order by link,produto"

    use sql(csql) alias movim2sqlx via 'Mysql'

    go top

    if reccount() >= 1

    v_descricao = movim2sqlx->descricao

    vg_trans:= {alltrim(movim2sqlx->complemento)} //itens adicionado conforme a tabela

    v_gradetrans = alltrim(movim2sqlx->complemento) //aqui seleciona o que estava na tabela

    v_quantidade = movim2sqlx->quantidade

    v_valor = movim2sqlx->valor

    v_descontosp = movim2sqlx->descontos

    v_total = v_quantidade * v_valor

    v_ipi = movim2sqlx->ipi

    v_icms = movim2sqlx->icms

    v_produto1 :refresh()

    v_descricao1 :refresh()

    v_gradetrans1:SetItems(vg_trans)

    v_gradetrans1:show()

    v_gradetrans1:update()

    v_gradetrans1:Refresh()

    id=code>id=code>

    na linha citada acima quando dou um duplo click no listbox era para o combobox atualizar com a opção da tabela, mas não esta fazendo, traz o item da tabela mas não selecionado

    grato pela ajuda

    fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles

    programadorcp80@hotmail.com.br ;

  10. vejam essa linha de comando

    
    

    vg_trans:= {}

    v_gradetrans = space(01)

    REDEFINE COMBOBOX v_gradetrans1 VAR v_gradetrans ITEMS vg_trans ;

    ID 4029 OF oCeca6 ;

    when substr(v_descricao,1,1) # ' ' ;

    UPDATE;

    color nRgb(0,0,0), nRGB(255,255,255)

    // outra rotina valid de um get produto

    sele 0

    cvar1 = "movim2"+nl

    csql = "select * from "+cvar1+" where link = "+sqlntrim(v_link)+" and produto = "+sqlntrim(v_produto)

    csql = csql + " and sql_deleted = 'F'"

    csql = csql + " order by link,produto"

    use sql(csql) alias movim2sqlx via 'Mysql'

    go top

    if reccount() >= 1

    v_descricao = movim2sqlx->descricao

    vg_trans:= {alltrim(movim2sqlx->complemento)} //itens adicionado conforme a tabela

    v_gradetrans = alltrim(movim2sqlx->complemento) //aqui seleciona o que estava na tabela

    v_quantidade = movim2sqlx->quantidade

    v_valor = movim2sqlx->valor

    v_descontosp = movim2sqlx->descontos

    v_total = v_quantidade * v_valor

    v_ipi = movim2sqlx->ipi

    v_icms = movim2sqlx->icms

    v_produto1 :refresh()

    v_descricao1 :refresh()

    v_gradetrans1:SetItems(vg_trans)

    v_gradetrans1:show()

    v_gradetrans1:update()

    v_gradetrans1:Refresh()

    id=code>id=code>

    na linha citada acima quando dou um duplo click no listbox era para o combobox atualizar com a opção da tabela, mas não esta fazendo, traz o item da tabela mas não selecionado

    grato pela ajuda

    fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles

    programadorcp80@hotmail.com.br ;

×
×
  • Create New...