Jump to content
Fivewin Brasil

jose hilton

Membros
 View Profile  See their activity

  • Posts

    322

  • Joined

  • Last visited

jose hilton's Achievements

Newbie

Newbie (1/14)

0

Reputation

  1. jose hilton
    Muito obrigado Joao Busco deu certo
  2. jose hilton
    Boa tarde a todos Pessoal estou com um pequeno Probleminha que esta mim deixando de cabelo branco Estou usando o bkeydown mais a variavel esta chegando ao seu destino vazia veja o codigo function cheCkusu() LOCAL oget3 local m_pass:="",M_AUX oTimermsg:Deactivate() Priv CSENHA := SPACE(6) , Tent := 0,oMsg,uRetorno := .f. ,odlg xCodUsu:= space(3) xNomUsu:=Space(30) select usuario oGet30:hide() oGet32:hide() oGet31:hide() oGet13:Hide() oGet24:Hide() priv uGet1 vGet1 := 'OPERADOR:' priv uGet2,xCodusu := space(3) Priv uGet3,vGet3:= 'DIGITE A SENHA:' Priv uGet4,cSenha := space(6) priv uGet5,cMsge := '' define dialog odlg resource 'PedeSenha' of od FONT AFONT[1] ; Color nRgb(255,255,255),nRgb(102,102,255) Redefine Get uGet1 Var vGet1 id 4001 of odlg update FONT AFONT[1] when .f.; Color nRgb(255,255,255),nRgb(255,80,37) uGet1:lDisColors:=.f. redefine get uGet2 Var xCodUsu id 4002 Picture "999" of odlg update FONT AFONT[1]; Color nRgb(255,255,255),nRgb(255,80,37) uget2:bkeydown := {|nkey| iif(nKey=VK_RETURN,pEGuSU(),NIL)} redefine Get uGet3 var vGet3 id 4003 Update of odlg FONT AFONT[1] when .f.; Color nRgb(255,255,255),nRgb(255,80,37) uGet3:lDisColors:=.f. Redefine Get uGet4 Var cSenha ID 4004 of odlg update FONT AFONT[1]; // valid verusu(odlg) Color nRgb(255,255,255),nRgb(255,80,37) uGet4:bkeydown := {|nkey,bflags| IIF(NKEY = VK_RETURN ,VERUSU(NKEY,oDlg),NIL)} redefine get uget5 Var cMsgE id 4005 of Odlg update FONT AFONT[1] when .f. ; Color nRgb(255,255,255),nRgb(255,80,37) uGet5:lDisColors:=.f. activate dialog Odlg when ! uRetorno on Init(uGet3:Hide(),uGet4:hide(),xSetFocus(uGet2),uGet2:Refresh(),ChecaSituacao()) Function PegUsu() Dbselectarea("USUARIO") GO TOP LOCATE FOR USUARIO->CODUSU = xCodUsu //aqui esta meu problema o xcodusu esta vazio como como faco para resolver isso If !FOUND() cMsgE:="USUÃRIO NÃO CADASTRADO ." IF AGUARDANDOENTER(CMSGE) ENDIF CMSGE:='' Tent ++ cDescr := "Tentativas Restantes " + Str(3 - tent ,2) oGet7:Refresh() xCodUsu := Space(3) if Tent > 2 uRetorno := .f. Dbcloseall() odlg:end() ownd:end() Quit endif odlg:Update() Odlg:Update() sysrefresh() Odlg:Update() Return .f. endif Grato Hilton josehiltonribeiro@hotmail.com fwh32 11.12 xhb 1.2 pelles 6.0
  3. jose hilton
    Boa tarde a todos Pessoal estou com um pequeno Probleminha que esta mim deixando de cabelo branco Estou usando o bkeydown mais a variavel esta chegando ao seu destino vazia veja o codigo function cheCkusu() LOCAL oget3 local m_pass:="",M_AUX oTimermsg:Deactivate() Priv CSENHA := SPACE(6) , Tent := 0,oMsg,uRetorno := .f. ,odlg xCodUsu:= space(3) xNomUsu:=Space(30) select usuario oGet30:hide() oGet32:hide() oGet31:hide() oGet13:Hide() oGet24:Hide() priv uGet1 vGet1 := 'OPERADOR:' priv uGet2,xCodusu := space(3) Priv uGet3,vGet3:= 'DIGITE A SENHA:' Priv uGet4,cSenha := space(6) priv uGet5,cMsge := '' define dialog odlg resource 'PedeSenha' of od FONT AFONT[1] ; Color nRgb(255,255,255),nRgb(102,102,255) Redefine Get uGet1 Var vGet1 id 4001 of odlg update FONT AFONT[1] when .f.; Color nRgb(255,255,255),nRgb(255,80,37) uGet1:lDisColors:=.f. redefine get uGet2 Var xCodUsu id 4002 Picture "999" of odlg update FONT AFONT[1]; Color nRgb(255,255,255),nRgb(255,80,37) uget2:bkeydown := {|nkey| iif(nKey=VK_RETURN,pEGuSU(),NIL)} redefine Get uGet3 var vGet3 id 4003 Update of odlg FONT AFONT[1] when .f.; Color nRgb(255,255,255),nRgb(255,80,37) uGet3:lDisColors:=.f. Redefine Get uGet4 Var cSenha ID 4004 of odlg update FONT AFONT[1]; // valid verusu(odlg) Color nRgb(255,255,255),nRgb(255,80,37) uGet4:bkeydown := {|nkey,bflags| IIF(NKEY = VK_RETURN ,VERUSU(NKEY,oDlg),NIL)} redefine get uget5 Var cMsgE id 4005 of Odlg update FONT AFONT[1] when .f. ; Color nRgb(255,255,255),nRgb(255,80,37) uGet5:lDisColors:=.f. activate dialog Odlg when ! uRetorno on Init(uGet3:Hide(),uGet4:hide(),xSetFocus(uGet2),uGet2:Refresh(),ChecaSituacao()) Function PegUsu() Dbselectarea("USUARIO") GO TOP LOCATE FOR USUARIO->CODUSU = xCodUsu //aqui esta meu problema o xcodusu esta vazio como como faco para resolver isso If !FOUND() cMsgE:="USUÃRIO NÃO CADASTRADO ." IF AGUARDANDOENTER(CMSGE) ENDIF CMSGE:='' Tent ++ cDescr := "Tentativas Restantes " + Str(3 - tent ,2) oGet7:Refresh() xCodUsu := Space(3) if Tent > 2 uRetorno := .f. Dbcloseall() odlg:end() ownd:end() Quit endif odlg:Update() Odlg:Update() sysrefresh() Odlg:Update() Return .f. endif Grato Hilton josehiltonribeiro@hotmail.com fwh32 11.12 xhb 1.2 pelles 6.0
  4. jose hilton
    Sim é nescessario
  5. jose hilton
    Gilmer Controle de Entrada/saida/comissao vendedor/financeiro e principalmente a nota fiscal de saida
  6. jose hilton
    Boa atarde a todos Gostaria de saber se alguem tem sistema para loja de motos ja com NFe . favor entrar em contato josehiltonribeio@hotmail.com Grato Hilton
  7. jose hilton
    Boa atarde a todos Gostaria de saber se alguem tem sistema para loja de motos ja com NFe . favor entrar em contato josehiltonribeio@hotmail.com Grato Hilton
  8. jose hilton
    Bom dia pessoal Pessoal gostaria de saber qual a ferramenta utilizada para abrir arquivo adt e que possa manipula-lo se posivel tambem a onde baixa grato antecipadamento jose hilton xdev 0.70 xhb
  9. jose hilton
    Bom dia pessoal Pessoal gostaria de saber qual a ferramenta utilizada para abrir arquivo adt e que possa manipula-lo se posivel tambem a onde baixa grato antecipadamento jose hilton xdev 0.70 xhb
  10. jose hilton
    Blz Jose Hilton josehiltonribeiro@oi.com.br fwh 2.6 xhb xdev
  11. jose hilton
    Ale Muito obrigado por esse esclarecimento. eu vou da uma olha no ADS Grato Hilton
  12. jose hilton
    Bom dia Ale Ale Essa messagens sao depois q eu acressento essa lib UsrRdd.lib, ha alguma outra forma de resolver isso. Outra coisa ale que gostaria de saber --> qual a diferenca do adorrd e o adoxb? Grato Hilton
  13. jose hilton
    Boa atarde a todos Pessoal como faco para resolver esse erros: Error: Unresolved external '_hb_itemGetSymbol' referenced from C:\DOWNLOADS\ADORDD\LIB\XHARBOUR\USRRDD.LIB|usrrdd Error: Unresolved external '_hb_xvmPopLogical' referenced from C:\DOWNLOADS\ADORDD\LIB\XHARBOUR\USRRDD.LIB|usrrdd Error: Unresolved external '_hb_xvmPushLocalByRef' referenced from C:\DOWNLOADS\ADORDD\LIB\XHARBOUR\USRRDD.LIB|usrrdd Error: Unresolved external '_hb_rddGetNode' referenced from C:\DOWNLOADS\ADORDD\LIB\XHARBOUR\USRRDD.LIB|usrrdd War Grato Hilton xharbour xDev
  14. jose hilton

    adordd

    jose hilton posted a topic in Programação

    Boa atarde a todos Pessoal como faco para resolver esse erros: Error: Unresolved external '_hb_itemGetSymbol' referenced from C:\DOWNLOADS\ADORDD\LIB\XHARBOUR\USRRDD.LIB|usrrdd Error: Unresolved external '_hb_xvmPopLogical' referenced from C:\DOWNLOADS\ADORDD\LIB\XHARBOUR\USRRDD.LIB|usrrdd Error: Unresolved external '_hb_xvmPushLocalByRef' referenced from C:\DOWNLOADS\ADORDD\LIB\XHARBOUR\USRRDD.LIB|usrrdd Error: Unresolved external '_hb_rddGetNode' referenced from C:\DOWNLOADS\ADORDD\LIB\XHARBOUR\USRRDD.LIB|usrrdd War Grato Hilton xharbour xDev
  15. jose hilton
    estado := space(3) ICAbGaveta(Estado) DLL32 Function ICAbGaveta(ICASH_Estado As LPSTR) As LONG; PASCAL FROM "ICASH_AbreGaveta" LIB cdll
×
×
  • Create New...