Jump to content
Fivewin Brasil

joao

Membros
 View Profile  See their activity

  • Posts

    366

  • Joined

  • Last visited

  • Days Won

    3

Reputation Activity

  1. Like
    joao
    joao reacted to sygecom in SQLRDD   
    Bom dia pessoal.
    Pra quem não viu ainda, mas todos os fontes do xharbour.com está liberado Open source.
    Inclusive o SQLRDD
    https://github.com/ronpinkas/xharbour/tree/main/xHarbourBuilder/xHarbour-SQLRDD
     
  2. Like
    Theotokos
    joao got a reaction from Theotokos in ENVIO WHATSAPP   
    o Leonardo postou a uns tempos atrás a classe que fiz, eles tem uma nova versão que tem algumas alteraçoes.
     
  3. Like
    Theotokos
    joao got a reaction from Theotokos in ENVIO WHATSAPP   
    Boa tarde , nós usamos https://mega-api.app.br/  
    Preços:
    BÁSICO
    99,90/mês
    A partir de 1 número
    Todas as formas de pagamento
    MEGA TOKEN 10
    69,90
    Acima de 10 números
    Valor mensal por número
    GRANDE VOLUMES
    MEGA TOKEN 50
    55,00
    Acima de 50 números
    Valor mensal por número
    GRANDE VOLUMES
    MEGA TOKEN 100
    45,00
    Acima de 100 números
    Valor mensal por número
    GRANDE VOLUMES
    MEGA TOKEN 500
    30,00
    Acima de 500 números
    Valor mensal por número
  4. Like
    rochinha
    joao got a reaction from rochinha in Exibir Notificação ao usuario em App rodando no TRAY do windows   
    Boa tarde amigo, aqui funciona bem sem essa alteração, mas obrigado, abraço.
  5. Like
    jfaguiar
    joao got a reaction from jfaguiar in Rotinas Mysql Fivewin 1903   
    Boa tarde, 
    Como o Gilmer explicou tem vários exemplos na pasta samples, exemplo:
    static function ConnectToServer()
       local cHost:='localhost', cUser:='root', cPassword:='01112012', cDb:='SchemaTest01'
          EDITVARS cHost , cUser , cPassword  , cDB   PROMPTS  "Host de Conexão" ,"Usuário", "Senha",  "Base de Dados"
          FWCONNECT oCn HOST cHost USER cUser PASSWORD cPassword DATABASE cDB
          if oCn == nil
             ? "Erro Conexão ao servidor"
             QUIT
          else
             oCn:lShowErrors := .t.
             if MsgNoYes( "Deseja criar todas as tabelas?" )
                DropAllTables()
             endif
          endif
    return oCn
  6. Like
    kapiaba
    joao got a reaction from kapiaba in Resolução de Video no Windows 7   
    Obrigado amigo
  7. Like
    kapiaba
    joao got a reaction from kapiaba in Classe Metro   
    Bom dia , com a ajuda do amigo Kapiaba e do Antonio Linares resolvi o problema .
    Antonio alterou metropnl.ch :
    <{uAction}> para [{| Self |<uAction>}]
    No meu prg fiz assim para pegar o recno() do arquivo dbf:
    while !eof() IF !EMPTY(FieldGet( 1 )) DEFINE METROBUTTON oBtn OF oMetro ; PROMPT oemtoansi(FieldGet( 1 )); COLOR CLR_WHITE,CLR_RED ; ALIGN "MIDDLECENTER" ; FONT oFontSmall2 ; GROUP 2 ; large; ACTION ShowRecords( ::Cargo,oWnd ,oMetro ) oBtn:Cargo := RecNo() ENDIF DbSkip() end Obrigado
    João Alpande
×
×
  • Create New...