Jump to content
Fivewin Brasil

viol

Membros
  • Posts

    455
  • Joined

  • Last visited

viol's Achievements

Newbie

Newbie (1/14)

0

Reputation

  1. 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. 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. 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. 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. 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. 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. É MEU AMIGO KAPIABA, TAMO PERDIDO MESMO. O SITE NÃO FUNCIONA PESQUISA... OS EXEMPLOS. BABAUUUU... NÃO CONSEGUIMOS VER NADA... Viol
  8. É MEU AMIGO KAPIABA, TAMO PERDIDO MESMO. O SITE NÃO FUNCIONA PESQUISA... OS EXEMPLOS. BABAUUUU... NÃO CONSEGUIMOS VER NADA... Viol
  9. TO ENTENDENDNDND NADAAAAA Viol
  10. Muito bom Luiz, mas onde tem essa documentação não existe?? Viol
  11. 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. 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. 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. 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. é 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
×
×
  • Create New...