Jump to content
Fivewin Brasil

syspel

Membros
 View Profile  See their activity

  • Posts

    511

  • Joined

  • Last visited

  • Days Won

    3

Reputation Activity

  1. Haha
    syspel
    syspel reacted to bluesman in Carregar um IP e Despachar pela Porta ??   
    CHIC PESSOAL !
    DEI UMA OLHADA E VAI DAR TUDO CERTO !
    GRATO
    BM
    FW1.92+Clipper 5.3+Lib+Blinker+BC++
  2. Like
    syspel
    syspel reacted to kapiaba in listbbox   
    MEMVAR tobp Function serv53    PRIVATE tobp    Sele Codstmdo    set order to 2    go top    vsdescri=space(40)    Define Dialog fd1 from 1.5,15 to 20.5,77 title "Codigo de Serviço " style 0    fd1:lHelpIcon := .F.    @ 0.4,0.8 LISTBOX tobp FIELDS Codstmdo->s_codigo,Codstmdo->s_descric ;              ALIAS"Codstmdo"HEADERS'Código','Descrição' size 230,90 ;              OF fd1 On DblClick (Beep(),pufaf53(saget),fd1:end()) font ofont3    tobp:lMChange       := .F.         // Desabilita Mousemove    tobp:SetFocus()                  // Refocus on The Browse    tobp:Refresh()                     // Estabiliza o browse/listbox    tobp:Default()                     // Para SetFilter() // Acho... Sei lá...    tobp:nRowPos := 1                 // ?? Ver com Vagner Wirts... Sei lá... Uso WorkShop.Exe    tobp:bkeydown={| nkey | pufeca53(nkey) }    tobp:bMMoved = { | nRow, nCol, nFlags | aadesc53() }    //  sysrefresh() PARA REFRESCAR LOOPINS WHILE... ENDDO por exemplo    @ 6.9,3   say "Nome:"  of fd1 size 18,10 font ofont3    @ 7.9,5   get oas var vsdescri pict "@!"  of fd1 size 150,10 font ofont3 valid busacca53()    Activate dialog fd1 centered    set order to 1    saget[1]:refresh()    saget[1]:setfocus() Return .T. Static Function pufaf53(iget)    saget[1]:VarPut(Codstmdo->s_codigo)  ; saget[1]:Refresh() Return(Nil) Static Function pufeca53(nkey)    if nkey=13       saget[1]:VarPut(Codstmdo->s_codigo)       saget[1]:Refresh()       saget[1]:setfocus()       fd1:end()    endif Return(Nil) Function busacca53    LOCAL lReturn := .F.    if  !empty(vsdescri)       if  !DbSeek( AllTrim(vsDescri) )          msgstop("Codigo nao existe","Aviso")          lReturn := .F.       endif    endif    tobp:Refresh() return .t.
     
  3. Like
    Theotokos
    syspel got a reaction from Theotokos in ref array   
    deu certinho
    muito obrigado
    carlos
  4. Like
    kapiaba
    syspel got a reaction from kapiaba in ref variavel   
    ok obrigado
    a todos
    carlos
  5. Like
    Ronaldbuch
    syspel got a reaction from Ronaldbuch in ref fator matematico com if   
    ola pessoal bom dia
    o pepino e o seguinte
    fator de calculo a,b
    a= 3000.00
    b=igual a soma
    soma de b
    b=1000.00 primeira vez
    b=1000.00 segunda
    b=1000.00 terceira
    vc fiz um if na programacao para verificar se o valor de b e > que o valor a
    ele diz que sim e na verdade sao iguais
    isto na programacao foi com um get, clipper ele responde corretamento com blinker,exospace
    mais xbarbour ele mente;. e bug do xharbour
    obrigado carlos
    fwh 13.02 xharbour 1.2.3 dbf ,xdev
  6. Like
    Ronaldbuch
    syspel got a reaction from Ronaldbuch in ref pagina fa internet   
    alguem sabe como resolver este erro
    deste ja obrigado
    fhw 13.12 xhar 123 dbf
    carlos

  7. Like
    kapiaba
    syspel got a reaction from kapiaba in ref pagina fa internet   
    deu certo obrigado
    amigao
    carlos
  8. Like
    Ronaldbuch
    syspel got a reaction from Ronaldbuch in como colocar cor cgetdir32   
    ola possoal
    boa tarde
    alguem dos inlustre sabe como colocar cor dentro da dialog do
    cgetdir32
    deste ja agradecido
    carlos
    fhw 1404 xharbour 1.2.1 dbf cdx
  9. Like
    WelchDats
    syspel got a reaction from WelchDats in receita federal   
    boa tarde
    gostaria de saber se alguem sabe como eu possa pegar la na receita federal na memoria
    cnpj,nome,endereco etc de um empresa e tranferir automaticamente para o cadastro do meu
    programa de escrita fiscal ?
    Alguem tem um exemplo para me dar ? Desde já agradeço
    Carlos
    xharbort121,dbf,fwh
  10. Like
    Mashafire
    syspel got a reaction from Mashafire in receita federal   
    boa tarde
    gostaria de saber se alguem sabe como eu possa pegar la na receita federal na memoria
    cnpj,nome,endereco etc de um empresa e tranferir automaticamente para o cadastro do meu
    programa de escrita fiscal ?
    Alguem tem um exemplo para me dar ? Desde já agradeço
    Carlos
    xharbort121,dbf,fwh
  11. Like
    Ronaldbuch
    syspel got a reaction from Ronaldbuch in ref xml no dbf   
    boa tarde
    ola pessoal
    deu um branco nao consigo
    gravei um xml dentro de dbf esta perfeito a gravacao
    agora gostaria de saber se alguem pode me ajudar numa funcao.
    quero fazer uma funcao que dentro do banco de dados ele localiza o tag do xml assim como
    exemplo abaixo
    </ide>
    <emit>
    <CNPJ>05944157000199</CNPJ>
    <xRazao>MANOEL BANDEIRA </XRAZAO>

    e assim por diante dentro do banco de dados
    deste ja agradeco
    feliz feliz
    carlos
    fwh xbarbour 1.2.3 bcc582 dbf xnotped++
  12. Like
    WilliamSa
    syspel got a reaction from WilliamSa in ref xml no dbf   
    boa tarde
    ola pessoal
    deu um branco nao consigo
    gravei um xml dentro de dbf esta perfeito a gravacao
    agora gostaria de saber se alguem pode me ajudar numa funcao.
    quero fazer uma funcao que dentro do banco de dados ele localiza o tag do xml assim como
    exemplo abaixo
    </ide>
    <emit>
    <CNPJ>05944157000199</CNPJ>
    <xRazao>MANOEL BANDEIRA </XRAZAO>

    e assim por diante dentro do banco de dados
    deste ja agradeco
    feliz feliz
    carlos
    fwh xbarbour 1.2.3 bcc582 dbf xnotped++
×
×
  • Create New...