Jump to content
Fivewin Brasil

viol

Membros
 View Profile  See their activity

  • Posts

    455

  • Joined

  • Last visited

 Content Type 

Everything posted by viol

  1. viol

    REDE SEM FIOS

    viol replied to VASCON's topic in Programação

    Tenho rede sem fio em duas lojas, não presta, realmente so funciona pra internet mais nada. tente copiar um arquivo grande na rede sem fio pra ve o que acontece , cai tudo para tudo da pau. todos roteadores iguais novos mesma marca todas placas de rede iguais, mesmo padrão velocidade tudo certo ... NÃO FUNCIONA .... NÃO FUNCIONA esquece, JA FALEI NA DLINK E ELES ENROLA BEM... NÃO FALA NADA... NÃO DIZ NADA...DIZ QUE FUNCIONA... MAS NÃO PROVA NADA. Viol
  2. viol
    meu amigo kapiaba como nao deixar a peteca cair, ta dificil é igual procurar agulha no palheiro como falamos aqui no interiorrr, é versões pra tudo que é lado é RDD CDD PDD parece partido politico, funciona... não funciona... fica lento nao fica lento.. tem que fazer treinamento na NASA pra entender comandos SQL, nativo nao nativo.... que coisa... nao tem um negocio mais facil pra burro...hahahah Viol
  3. viol
    citação: citação:o bonitão estou usando .DLL não é nem .RC nem RES. ESTOU USANDO O PELLES, EU COMPREI FONTES DE OUTROS PRA VE SE APRENDO UAI. Viol id=quote>id=quote>COMO VOCE FEZ A CHAMADA DA DLL NO MENU PRINCIPAL? MOSTRE AS CHAMADAS DAS .DLL, SEMPRE PREFIRA USAR .RES, COM UMA COPIA EM .RC. .DLL NÃO É LEGAL, E COM .RES, EVITA-SE FICAR TROCANDO A .DLL NO CLIENTE. FAÇA COMO E EVALDO VALOU, VEJA SE O RECURSO ESTA NA .DLL. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote>aqui a chamada da DLL hBorland:= LoadLibrary('.\dll32\BWCC32.DLL') BWCCRegister( GetResources( ) ) SET RESOURCES TO ".\DLL32\SISCOM32.DLL", ".\DLL32\PREV32.DLL" OLHA AI O .RC CLIENTE DIALOG FIXED IMPURE 79, 70, 486, 307 STYLE WS_POPUP|DS_MODALFRAME|DS_3DLOOK|WS_CAPTION CAPTION "Cadastro de cliente" FONT 8, "Helv" { CONTROL "", 110, "TFolder", WS_TABSTOP, 3, 0, 479, 131 CONTROL "", 67, "Button", BS_GROUPBOX, 3, 129, 480, 68 CONTROL "Cônjuge / Contato ou referência pessoal", -1, "Static", WS_GROUP, 8, 137, 149, 8 CONTROL "", 43, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 8, 148, 150, 12 CONTROL "CPF:", -1, "Static", WS_GROUP, 162, 138, 27, 8 CONTROL "", 53, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 162, 148, 60, 12 CONTROL "RG:", -1, "Static", WS_GROUP, 231, 138, 20, 8 CONTROL "", 55, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 228, 148, 60, 12 CONTROL "Endereço (da referência pessoal)", -1, "Static", WS_GROUP, 294, 138, 139, 8 CONTROL "", 56, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 294, 148, 182, 12 CONTROL "Bairro (referência)", -1, "Static", WS_GROUP, 7, 166, 64, 8 CONTROL "", 57, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 7, 176, 150, 12 CONTROL "Telefone (referência)", -1, "Static", WS_GROUP, 162, 165, 91, 9 CONTROL "", 44, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 161, 176, 127, 12 CONTROL "Salário", 70, "Static", SS_CENTER|WS_GROUP, 293, 165, 50, 9 CONTROL "", 60, "Edit", ES_CENTER|ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 292, 176, 50, 12 CONTROL "Base crédito", 71, "Static", SS_CENTER|WS_GROUP, 344, 165, 45, 9 CONTROL "", 61, "Edit", ES_CENTER|ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 344, 176, 45, 12 CONTROL "Limite crédito", -1, "Static", SS_CENTER|WS_GROUP, 391, 165, 50, 9 CONTROL "", 62, "Edit", ES_RIGHT|ES_AUTOHSCROLL|WS_BORDER, 391, 176, 50, 12 CONTROL "", 64, "Button", BS_GROUPBOX, 3, 195, 403, 109 CONTROL "Vendedor", -1, "Static", WS_GROUP, 10, 207, 57, 9 CONTROL "", 65, "Edit", ES_RIGHT|ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 8, 217, 30, 12 CONTROL "", 66, "Edit", ES_AUTOHSCROLL|WS_BORDER, 41, 217, 100, 12 CONTROL "Suspender -> Motivo:", 49, "Button", BS_AUTOCHECKBOX|WS_TABSTOP, 145, 204, 79, 12 CONTROL "", 68, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 145, 217, 94, 12 CONTROL "Cadastro em:", -1, "Static", SS_CENTER|WS_GROUP, 256, 205, 45, 7 CONTROL "", 46, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 256, 216, 45, 12 CONTROL "Nascimento", -1, "Static", SS_CENTER|WS_GROUP, 306, 205, 42, 7 CONTROL "", 59, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 305, 216, 45, 12 CONTROL "Ult. compra:", -1, "Static", SS_CENTER|WS_GROUP, 354, 205, 42, 7 CONTROL "", 73, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 354, 216, 45, 12 CONTROL "Observações sobre o cliente", -1, "Static", WS_GROUP, 8, 237, 395, 8 CONTROL "", 76, "Edit", ES_MULTILINE|ES_AUTOVSCROLL|WS_VSCROLL|WS_BORDER|WS_TABSTOP, 7, 247, 393, 24 CONTROL "E-mail", -1, "Static", WS_GROUP, 8, 276, 195, 8 CONTROL "", 78, "Edit", ES_MULTILINE|ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 7, 286, 195, 12 CONTROL "Site", -1, "Static", WS_GROUP, 207, 276, 195, 8 CONTROL "", 79, "Edit", ES_MULTILINE|ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 206, 286, 195, 12 CONTROL "TBitMap", 50, "TBitMap", 0x00800000, 412, 200, 70, 60 CONTROL "Obter &foto", 72, "Button", 0x00000000, 412, 261, 70, 12 CONTROL "&Ok", 30, "Button", WS_TABSTOP, 412, 275, 70, 14 CONTROL "Ca&ncelar", 31, "Button", WS_TABSTOP, 412, 290, 70, 14 CONTROL "Consultar", 74, "Button", 0x00000000, 442, 175, 35, 14 } CLIENTE1 DIALOG FIXED IMPURE 79, 70, 475, 107 STYLE WS_CHILD|DS_3DLOOK FONT 8, "Helv" { CONTROL "&Codigo", 54, "Button", 0x00000000, 4, 2, 40, 12 CONTROL "", 33, "Edit", ES_RIGHT|ES_MULTILINE|WS_BORDER|WS_TABSTOP, 4, 15, 40, 12 CONTROL "Nome / Razão social:", -1, "Static", WS_GROUP, 48, 5, 180, 9 CONTROL "", 34, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 47, 15, 182, 12 CONTROL "Local de Trabalho / Nome de Fantasia", -1, "Static", WS_GROUP, 233, 5, 167, 8 CONTROL "", 35, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 233, 15, 168, 12 CONTROL "Pessoa:", -1, "Static", WS_GROUP, 405, 6, 28, 8 CONTROL "", 58, "ComboBox", WS_BORDER|CBS_DROPDOWNLIST|CBS_DISABLENOSCROLL|WS_VSCROLL|WS_TABSTOP, 405, 15, 50, 129 CONTROL "&p", 69, "Button", BS_OWNERDRAW, 457, 14, 15, 15 CONTROL "End. Residencial: (Rua, Avenida)", -1, "Static", WS_GROUP, 4, 30, 121, 9 CONTROL "Nro.", -1, "Static", WS_GROUP, 129, 30, 25, 9 CONTROL "", 36, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 4, 41, 122, 12 CONTROL "", 43, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 128, 41, 25, 12 CONTROL "Cidade:", -1, "Static", WS_GROUP, 158, 30, 28, 10 CONTROL "", 37, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 158, 41, 118, 12 CONTROL "UF", -1, "Static", WS_GROUP, 283, 30, 14, 10 CONTROL "", 38, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 280, 41, 21, 12 CONTROL "CEP:", -1, "Static", WS_GROUP, 306, 30, 18, 11 CONTROL "", 41, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 304, 41, 57, 12 CONTROL "Bairro:", -1, "Static", WS_GROUP, 364, 31, 57, 8 CONTROL "", 40, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 364, 41, 108, 12 CONTROL "Perímetro:", -1, "Static", WS_GROUP, 4, 56, 41, 8 CONTROL "", 39, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 4, 66, 150, 12 CONTROL "Telefones:", -1, "Static", WS_GROUP, 158, 56, 38, 8 CONTROL "", 42, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 158, 66, 94, 12 CONTROL "Endereço comercial (Rua, nº)", -1, "Static", WS_GROUP, 256, 55, 110, 8 CONTROL "", 77, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 256, 66, 160, 12 CONTROL "Est. Civil", -1, "Static", WS_GROUP, 422, 56, 41, 8 CONTROL "", 63, "ComboBox", WS_BORDER|CBS_DROPDOWNLIST|CBS_DISABLENOSCROLL|WS_VSCROLL|WS_TABSTOP, 420, 65, 52, 73 CONTROL "Filiação - Pai:", -1, "Static", WS_GROUP, 3, 82, 60, 8 CONTROL "", 51, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 3, 92, 145, 12 CONTROL "Mãe:", -1, "Static", WS_GROUP, 152, 82, 60, 8 CONTROL "", 52, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 152, 92, 145, 12 CONTROL "RG ou I.Est:", -1, "Static", WS_GROUP, 301, 81, 52, 8 CONTROL "", 47, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 300, 92, 60, 12 CONTROL "CPF / CNPJ:", -1, "Static", WS_GROUP, 365, 81, 44, 8 CONTROL "", 48, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 364, 92, 80, 12 CONTROL "Prazo:", -1, "Static", SS_CENTER|WS_GROUP, 447, 81, 23, 8 CONTROL "", 45, "Edit", ES_CENTER|ES_MULTILINE|ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 447, 92, 25, 12 } CLIENTE2 DIALOG FIXED IMPURE 79, 70, 475, 107 STYLE WS_CHILD|DS_3DLOOK FONT 8, "Helv" { CONTROL "Nome:", -1, "Static", WS_GROUP, 4, 5, 21, 9 CONTROL "", 34, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 4, 15, 225, 12 CONTROL "Profissão", -1, "Static", WS_GROUP, 233, 5, 120, 8 CONTROL "", 35, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 233, 15, 238, 12 CONTROL "Endereço Residencial: (Rua e nº)", -1, "Static", WS_GROUP, 5, 30, 112, 9 CONTROL "", 36, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 4, 41, 150, 12 CONTROL "Cidade:", -1, "Static", WS_GROUP, 158, 30, 28, 10 CONTROL "", 37, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 158, 41, 118, 12 CONTROL "UF", -1, "Static", WS_GROUP, 283, 30, 14, 10 CONTROL "", 38, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 280, 41, 21, 12 CONTROL "CEP:", -1, "Static", WS_GROUP, 306, 30, 18, 11 CONTROL "", 41, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 304, 41, 57, 12 CONTROL "Bairro:", -1, "Static", WS_GROUP, 364, 31, 57, 8 CONTROL "", 40, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 364, 41, 108, 12 CONTROL "Perímetro:", -1, "Static", WS_GROUP, 6, 56, 41, 8 CONTROL "", 39, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 4, 66, 150, 12 CONTROL "Telefones:", -1, "Static", WS_GROUP, 158, 56, 38, 8 CONTROL "", 42, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 158, 66, 94, 12 CONTROL "Local de trabalho", -1, "Static", WS_GROUP, 256, 55, 110, 8 CONTROL "", 77, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 256, 66, 160, 12 CONTROL "Est. Civil", -1, "Static", WS_GROUP, 422, 56, 41, 8 CONTROL "", 63, "ComboBox", WS_BORDER|CBS_DROPDOWNLIST|CBS_DISABLENOSCROLL|WS_VSCROLL|WS_TABSTOP, 420, 65, 52, 73 CONTROL "Filiação - Pai:", -1, "Static", WS_GROUP, 3, 82, 60, 8 CONTROL "", 51, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 3, 92, 161, 12 CONTROL "Mãe:", -1, "Static", WS_GROUP, 168, 82, 60, 8 CONTROL "", 52, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 168, 92, 157, 12 CONTROL "RG", -1, "Static", WS_GROUP, 330, 81, 52, 8 CONTROL "", 47, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 329, 92, 60, 12 CONTROL "CPF", -1, "Static", WS_GROUP, 394, 81, 44, 8 CONTROL "", 48, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 393, 92, 80, 12 } Viol
  4. viol
    o bonitão estou usando .DLL não é nem .RC nem RES. ESTOU USANDO O PELLES, EU COMPREI FONTES DE OUTROS PRA VE SE APRENDO UAI. Viol
  5. viol
    Application =========== Path and name: D:\VMSFT\SFT.EXE (32 bits) Size: 2,092,032 bytes Time from start: 0 hours 0 mins 6 secs Error occurred at: 08/04/2010, 14:46:57 Error description: Error FiveWin/3 Cannot create Dialog Box: Resource: CLIENTE Args: Stack Calls =========== Called from: D:\VMSFT\dialog.prg => CREATEDLGERROR(528) Called from: D:\VMSFT\dialog.prg => TDIALOG:ACTIVATE(291) Called from: D:\VMSFT\clientes.prg => EDITCLI(307) Called from: D:\VMSFT\clientes.prg => (b)CLIENT(109) Called from: .\source\classes\BUTTON.PRG => TBUTTON:CLICK(176) Called from: .\source\classes\CONTROL.PRG => TBUTTON:HANDLEEVENT(1411) Called from: .\source\classes\WINDOW.PRG => _FWH(3333) Called from: => SENDMESSAGE(0) Called from: D:\VMSFT\dialog.prg => TDIALOG:COMMAND(399) Called from: => TWINDOW:HANDLEEVENT(0) Called from: D:\VMSFT\dialog.prg => TDIALOG:HANDLEEVENT(882) Called from: => DIALOGBOXINDIRECT(0) Called from: D:\VMSFT\dialog.prg => TDIALOG:ACTIVATE(274) Called from: D:\VMSFT\clientes.prg => CLIENT(119) Called from: D:\VMSFT\SFT.PRG => CHGCTRL(260) Called from: D:\VMSFT\SFT.PRG => (b)PRINCIPAL(105) Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK(441) Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP(626) Called from: => TWINDOW:HANDLEEVENT(0) Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1453) Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT(1286) Called from: .\source\classes\WINDOW.PRG => _FWH(3333) Called from: => WINRUN(0) Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE(952) Called from: D:\VMSFT\SFT.PRG => PRINCIPAL(144) System ====== CPU type: Intel® Core2 Duo CPU T6570 @ 2.10GHz 2100 Mhz Hardware memory: 2048 megs Viol
  6. viol
    ENTÃO VAMOS LA MEU CARO COLEGA KAPIABA,(se ta feio na foto em)hahah. eu comprei os fontes do Ariston Santos.. e to tentando entender .. compilei so os fontes do clientes.prg da o seguinte erro. Called from: D:\VMSFT\dialog.prg => CREATEDLGERROR(528) Called from: D:\VMSFT\dialog.prg => TDIALOG:ACTIVATE(291) Called from: D:\VMSFT\clientes.prg => EDITCLI(307) como decifrar esse tipo de erro? ja conferi todos os IDs ... fontes abaixo. DEFINE DIALOG oCliDl RESOURCE "CLIENTE" TITLE If( lAppend, "Cadastro de clientes", "Alteração de clientes" ) REDEFINE FOLDER oFld ID 110 OF oCliDl ; PROMPTS "&Dados cadastrais", "&Dados do Avalista" ; DIALOGS "CLIENTE1", "CLIENTE2" msgstop("passou") REDEFINE BUTTON oBtn0 ID 54 OF oFld:aDialogs[1] ACTION MsgRun("Pesquisando. Aguarde...","Pesquisando. Aguarde...",{||CliGetFree(@oCod,oCliDl)}) WHEN lAppend REDEFINE GET oG01 VAR oCod PICTURE "99999999" ID 33 OF oFld:aDialogs[1] UPDATE VALID ChkCliCod(oCod,oCliDl) WHEN lAppend REDEFINE GET oG02 VAR oNome ID 34 OF oFld:aDialogs[1] VALID CadCliNome(lAppend, oNome) REDEFINE GET oG03 VAR oFant ID 35 OF oFld:aDialogs[1] REDEFINE GET oG04 VAR cERes ID 36 OF oFld:aDialogs[1] REDEFINE GET oI43 VAR c_Nro PICTURE "99999" ID 43 OF oFld:aDialogs[1] REDEFINE GET oG05 VAR oCida ID 37 OF oFld:aDialogs[1] REDEFINE GET oG06 VAR oUf ID 38 OF oFld:aDialogs[1] REDEFINE GET oG07 VAR oCep ID 41 OF oFld:aDialogs[1] REDEFINE GET oG08 VAR oPeri ID 39 OF oFld:aDialogs[1] REDEFINE GET oG09 VAR oBair ID 40 OF oFld:aDialogs[1] REDEFINE GET oFon VAR oFonr ID 42 OF oFld:aDialogs[1] REDEFINE GET oCt77 VAR cECom ID 77 OF oFld:aDialogs[1] REDEFINE COMBOBOX oPess VAR cPess ITEMS aSect ID 58 OF oFld:aDialogs[1] // VALID VerificaAltera(cPess,oG14,@oCpf) UPDATE REDEFINE BTNBMP oBt1 ID 69 OF oFld:aDialogs[1] FILE ".\BITMAPS\ABRIR.BMP" ; ACTION ( mAux:=CadSecoes("PESSOAS","Tipos de pessoas"), aSect := GetSecoes("PESSOAS", {"FÃSICA","JURÃDICA"}),; oPess:SetItems(aSect),; cPess:=mAux, oCliDl:Update() ) REDEFINE COMBOBOX oEciv VAR cEciv ITEMS {"solteiro","casado","diverciado","viuvo","outros"} ID 63 OF oFld:aDialogs[1] REDEFINE GET oPai VAR cPai ID 51 OF oFld:aDialogs[1] REDEFINE GET oMae VAR cMae ID 52 OF oFld:aDialogs[1] REDEFINE GET oG13 VAR oRg ID 47 OF oFld:aDialogs[1] VALID EVAL({|lOk|lOk := TestaIe( oRg, oUf, cPess ), IIF(!lOk,MsgYesNo("IE inválida. Deseja prosseguir assim mesmo?","IE inválida"),lOk)}) REDEFINE GET oG14 VAR oCpf PICTURE CpfCgcPic(cPess, NIL) ID 48 OF oFld:aDialogs[1] VALID CheckCpf(oCpf, lAppend) REDEFINE GET oG16 VAR oPrz PICTURE "99" ID 45 OF oFld:aDialogs[1] REDEFINE GET oAv01 VAR cAv01 ID 34 OF oFld:aDialogs[2] REDEFINE GET oAv02 VAR cAv02 ID 35 OF oFld:aDialogs[2] REDEFINE GET oAv03 VAR cAv03 ID 36 OF oFld:aDialogs[2] REDEFINE GET oAv04 VAR cAv04 ID 37 OF oFld:aDialogs[2] REDEFINE GET oAv05 VAR cAv05 ID 38 OF oFld:aDialogs[2] REDEFINE GET oAv06 VAR cAv06 ID 41 OF oFld:aDialogs[2] REDEFINE GET oAv07 VAR cAv07 ID 40 OF oFld:aDialogs[2] REDEFINE GET oAv08 VAR cAv08 ID 39 OF oFld:aDialogs[2] REDEFINE GET oAv09 VAR cAv09 ID 42 OF oFld:aDialogs[2] REDEFINE GET oAv10 VAR cAv10 ID 77 OF oFld:aDialogs[2] REDEFINE COMBOBOX oAv11 VAR cAv11 ITEMS {"solteiro","casado","diverciado","viuvo","outros"} ID 63 OF oFld:aDialogs[2] REDEFINE GET oAv12 VAR cAv12 ID 51 OF oFld:aDialogs[2] REDEFINE GET oAv13 VAR cAv13 ID 52 OF oFld:aDialogs[2] REDEFINE GET oAv14 VAR cAv14 ID 47 OF oFld:aDialogs[2] REDEFINE GET oAv15 VAR cAv15 ID 48 OF oFld:aDialogs[2] REDEFINE GET oG17 VAR oData ID 46 OF oCliDl REDEFINE GET oG59 VAR oDtn ID 59 OF oCliDl REDEFINE GET oG73 VAR dUltC ID 73 OF oCliDl WHEN .F. REDEFINE GET oRef VAR cEspo ID 43 OF oCliDl REDEFINE GET oRcid VAR cRCPF ID 53 OF oCliDl REDEFINE GET oRcep VAR cRcep ID 55 OF oCliDl REDEFINE GET oRper VAR cRper ID 56 OF oCliDl REDEFINE GET oRbai VAR cRbai ID 57 OF oCliDl REDEFINE GET oRtel VAR cRtel ID 44 OF oCliDl IF cEmpres = "BARBOSA" REDEFINE SAY oSay1 PROMPT "Rota:" ID 70 OF oCliDl REDEFINE SAY oSay2 PROMPT "Qtd. que compra:" ID 71 OF oCliDl REDEFINE GET oId60 VAR nSala PICTURE "99999999" ID 60 OF oCliDl VALID EVAL({||(nSaldo:=((nSala/100)*nBcrd),oCliDl:UpDate()),.T.}) REDEFINE GET oId61 VAR nBcrd PICTURE "99999999" ID 61 OF oCliDl VALID EVAL({||(nSaldo:=((nSala/100)*nBcrd),oCliDl:UpDate()),.T.}) ELSE REDEFINE GET oId60 VAR nSala PICTURE "@E 999,999.99" ID 60 OF oCliDl VALID EVAL({||(nSaldo:=((nSala/100)*nBcrd),oCliDl:UpDate()),.T.}) REDEFINE GET oId61 VAR nBcrd PICTURE "@E 999,999.99" ID 61 OF oCliDl VALID EVAL({||(nSaldo:=((nSala/100)*nBcrd),oCliDl:UpDate()),.T.}) ENDIF REDEFINE GET oId62 VAR nSaldo PICTURE "@E 999,999.99" ID 62 OF oCliDl UPDATE WHEN .F. REDEFINE BUTTON oCt74 ID 74 OF oCliDl ACTION MsgRun("Aguarde...","Aguarde...",{||CliChkSit(oCod, oNome)}) WHEN !lAppend REDEFINE GET oId65 VAR nVndr PICTURE "999" ID 65 OF oCliDl UPDATE // VALID SeekVndr(@nVndr, @cVndr, oCliDl) REDEFINE GET oId66 VAR cVndr ID 66 OF oCliDl UPDATE REDEFINE CHECKBOX oChk VAR lLock ID 49 OF oCliDl REDEFINE GET oI68 VAR cPque ID 68 OF oCliDl REDEFINE GET oI76 VAR cObse ID 76 OF oCliDl REDEFINE GET oI78 VAR cMail ID 78 OF oCliDl REDEFINE GET oI79 VAR cSite ID 79 OF oCliDl REDEFINE IMAGE oBmp ID 50 OF oCliDl FILENAME cFoto UPDATE ADJUST REDEFINE BUTTON oBtn1 ID 72 OF oCliDl ACTION CliGetPhoto(oCod, @cFoto, oBmp) oBtn1:SetText("Obter/Excluir foto") REDEFINE BUTTON oBtn2 ID 30 OF oCliDl ACTION ( IIF( !empty( oCod ) ,( lSave := .t. , oCliDl:End()), MsgAlert( "Código não informado","Atenção" ) ) ) REDEFINE BUTTON oBtn3 ID 31 OF oCliDl ACTION oCliDl:End() esta é a linha 307-->> ACTIVATE DIALOG oCliDl //CENTERED Viol
  7. viol
    É MEU AMIGO KAPIABA, TAMO PERDIDO MESMO. O SITE NÃO FUNCIONA PESQUISA... OS EXEMPLOS. BABAUUUU... NÃO CONSEGUIMOS VER NADA... Viol
  8. viol
    É MEU AMIGO KAPIABA, TAMO PERDIDO MESMO. O SITE NÃO FUNCIONA PESQUISA... OS EXEMPLOS. BABAUUUU... NÃO CONSEGUIMOS VER NADA... Viol
  9. viol
    TO ENTENDENDNDND NADAAAAA Viol
  10. viol

    DEFINE BUTTONBAR

    viol replied to viol's topic in Programação

    Muito bom Luiz, mas onde tem essa documentação não existe?? Viol
  11. viol

    DEFINE BUTTONBAR

    viol replied to viol's topic in Programação

    Onde tem falando sobre DEFINE BUTTONBAR, gostaria de montar o menu com os botões do lado direito da tela, qual objeto tenho que mandar oBOTOES:Right() Viol
  12. viol
    Onde tem falando sobre DEFINE BUTTONBAR, gostaria de montar o menu com os botões do lado direito da tela, qual objeto tenho que mandar oBOTOES:Right() Viol
  13. viol
    citação:beleza esse final de semana fou ver esse negocio...hahaha citação:João, Larga mão, a opinião deste dai pra mim, não faz diferença. Quanto ao link: http://sourceforge.net/projects/xharbour/files/Source%20distribution/1.20.01/xharbour-1.2.1.src.contrib.zip/download Neste zip contem todos os contribs para o xharbour. Um abraço, Alexandre Pereira fwh 9.01, xharbour 1.10, PellesC, xDev, SqlLib, Ubuntu 9.10 (mais bão também) msn: alexpdasilva6@hotmail.com Belo Horizonte/MG id=quote>id=quote>Beleza, vou baixar depois do feriado. VIOL, vai testando ai, segunda eu te cobro. Alê, serve para você também meu rei, deixe de violencia. Violencia não leva a lugar nenhum, somente ao cemitério. Beijos no coração. I LIKE YOU MAN!! Obrigado, Forte abraço. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote>Viol
  14. viol
    Meus amigos vamos parar com isto, eu fiquei afastado do site uns 6 meses, por causa desse bate boca, eu acredito que tudo isso é brincadeira, certo. certo kapiaba. vamos trocar experiencias nada mais, sei que a raça de programadores é cheio disso, eu sei vc não sabe o meu funciona ... o seu nao... vamos para com isto amigos. vamos trocar experiencias ideias fontes... cada um na sua cidade no seu estado... todos muito longe um do outro.. não precisamos esconder nada.. Viol
  15. viol
    é realmente aqui também não funciona. Microsoft OLE DB Provider for ODBC Drivers error '80040e37' [MySQL][ODBC 3.51 Driver][mysqld-5.1.35-log]Table 'db2603.Artigos' doesn't exist /busca.asp, line 88 Viol
  16. viol
    A r t i g o s na minha tambem não funciona. veja o erro ========================================================= Microsoft OLE DB Provider for ODBC Drivers error '80040e37' [MySQL][ODBC 3.51 Driver][mysqld-5.1.35-log]Table 'db2603.Artigos' doesn't exist /busca.asp, line 88 ========================================================== Viol
  17. viol
    citação: citação:João, Antes de me decidir por qual ferramenta usar para evoluir minhas aplicações para MySql, eu andei testando SQLRDD e SQLLIB e sinceramente não fiquei muito satisfeito com o resultado. Nada contra os dois produtos, que acredito cumprem bem o que prometem. O problema é que nos dois casos, o resultado apresenta um desempenho sofrível. Sei, você vai dizer que posso melhorar o desempenho usando expressões SQL certo ? Ora, mas se for pra programar usando expressões SQL, não preciso de um RDD ! Então resolvi "arregaçar as mangas", e implementar tudo usando expressões SQL. A escolha pela TMySql foi principalmente por ela ser distribuida com os fontes, o que me permite fazer as modificações que venha a precisar sem depender de terceiros. Mas contaram também o fato dela ser gratuíta, e evoluido rapidamente. Além do próprio site o xHarbour.org visito sempre o blog do Willian Morales (http://wmormar.blogspot.com/) que tem feito modificações interessantes na classe. Vilian F. Arraes vilian@vfatec.com.br Belém - Pa FWH 8.03/xHabour/ADS Server id=quote>id=quote>Vilian, interessantissima resposta, inclusive o blog do Willian Morales. Para desanuviar mais ainda as idéias, vc. teria um exemplo em codigo fonte de fivewin, para ver-mos como é a escrita? Quando que se usa TMYSQL.LIB? faça um passo a passo, creio seja melhor para aprendizado. Obrigado. Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote>Gostaria de aprender jundo com nosso amigo kapiaba. Viol
  18. viol
    acesse www.superempresa.com.br , baixe superempresa versão 2009 , me passe um email te passo os preços. não é pagamento mensal. vmprint@vmprint.com.br Viol
  19. viol
    afinal de contas qual o melhor,de preferencia free, sempre free como diz nosso colega kapiaba, estou tentando conectar um banco de dados aqui mas é tanta informação que ta saindo fumaça da careca. alguem pode ajudar mandando um exemplo de conecção de uma base de dados mysql,firebird, estou procurando exemplos que tem em dicas mas não funciona mais. Viol
  20. viol
    afinal de contas qual o melhor,de preferencia free, sempre free como diz nosso colega kapiaba, estou tentando conectar um banco de dados aqui mas é tanta informação que ta saindo fumaça da careca. alguem pode ajudar mandando um exemplo de conecção de uma base de dados mysql,firebird, estou procurando exemplos que tem em dicas mas não funciona mais. Viol
  21. viol
    ZECA, acho que vc esta enganado. com certeza não sei do que vc esta falando. eu estou desde 2006 tentando fazer um sistema completo em clipper/fivewin/sql mas até hoje nao consegui nada , eu estou a uns 8 meses sem postar nada neste site, agora que voltei a ter um tempo comprei uns fontes do Ariston mas até agora não vi esses fontes. vou tentar mais uma vez com fivewin, mas acredito que essa linguagem é pra poucos, não é igual ao SR clipper que tinha manuais tutoriais, funcionava, varios exemplos não tinha monte de atualizações não recisava de apoio de ninguem pra fazer telas... Viol
  22. viol
    ola amigo, responde os emails por favor viol Viol
  23. viol
    ola amigo, responde os emails por favor viol Viol
  24. viol
    A sexta edição do Firebird Developers Day aconteceu no dia 04 de Julho de 2009, na cidade de Piracicaba-SP, no Campus Taquaral da UNIMEP, e contou com a presença de 480 pessoas. Apesar de todas as incertezas devido a crise internacional, o FDD se mantém como o evento de Firebird com maior número de participantes em todo o mundo. A FireBase é o maior portal brasileiro de informações sobre Firebird, oferecendo serviços de consultoria, suporte, cursos, desenvolvimento, além de gerenciar uma das mais movimentadas listas de discussão sobre Firebird de todo o mundo. Cadastre-se gratuitamente para ficar atualizado com as últimas notícias do mundo Firebird! Carlos H. Cantu http://www.firebase.com.br Melhor ainda que é free e melhor ainda que não tem pegadinha , quanto vc aprende usar a ferramenta não tem uma tela que diz (precisa comprar a versão comercial pra funcionar todos os comandos) Viol
  25. viol
    Aqui você tem tudo que precisas para programar impressoras fiscais EPSON. http://www2.epson.com.br/fiscais/?mdl=support Viol
×
×
  • Create New...