Jump to content
Fivewin Brasil

Kbelo

Membros
  • Posts

    3,095
  • Joined

  • Last visited

Everything posted by Kbelo

  1. Eu utilizo a wvwtools que é semelhante a Minigui e Gtwvw. Afirmo que sera Impossivel não alterar seu fonte. Voce reaproveitar muito porem alguma coisa sempre muda. Alguns comandos voce tem outras soluções. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.
  2. Uso o Tortoise SVN a 5 anos. Controla Versão, Branch, Usuarios, Permite comentarios a cada Commit(Atualização), Gerencia conflitos, etc... Ou Seja o necessario para controle de versão. Uso inclusive via VPN que me permite ter o fonte em casa e no trabalho. O Source Safe ja usei tambem a unica vantagem que vejo nele é se voce usar o Visual Studio, fora isso faz exatamente a mesma coisa que o Tortoise. Os dois são muito bons qualquer um lhe atendera muito bem. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.
  3. citação:Pessoal uso essa rotina para checar uma informacao no portal da nota eletronica Meu cliente nao usa o internet explorer e sim google chrome alguem sabe me dizer como tratar isso FUNCTION NFe_ChecaPortal(f_cChave,f_nPortal) local oOle, oOleDoc := Array(2) Default f_nPortal := 1, f_cChave := "" oOle:= CreateObject("InternetExplorer.Application") oOle:Visible := .t. // Apresenta o Browser oOle:ToolBar := .f. // Desativa a barra de ferramentas oOle:StatusBar := .f. // Desativa a barra de status oOle:MenuBar := .f. // desativa a barra de menu If f_nPortal == 1 oOle:Navigate2("http://www.nfe.fazenda.gov.br/portal/consulta.aspx?tipoConsulta=completa&tipoConteudo=XbSeqxE8pl8=") Else oOle:Navigate("http://nfe.fazenda.sp.gov.br/ConsultaNFe/consulta/publica/ConsultarNFe.aspx") // Abre o site EndIf WHILE oOle:Busy syswait(.5) END If f_nPortal == 1 oOle := oOle:Document() oOle:All:Item("ctl00$ContentPlaceHolder1$txtChaveAcessoCompleta",0):Value := f_cChave Else oOle := oOle:Document() oOle:All:Item("ctl00$ContentMain$tbxIdNFe"):Value := f_cChave EndIf SysRefresh() return .t. FW24 + xharbour email :edutraini@uol.com.br id=quote>id=quote>Eu continuaria a usar o Internet Explorer. Ele pode usar o chrome para tudo mas na hora de voce verificar usar o IE. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.
  4. KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK que isso hein. Ta se mostrando Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.
  5. citação:Acredito que deva estar havendo algum engano, conheço muito bem o Kapiaba o cabloco é macho , uma prova disto que ele é corintiano...acredito que foi um perfil falso criado com o nome dele... Obs: Se o pessoal da Gaviões da Fiel ver um negocio deste ele é linchado...kkkkk Luiz Fernando msn: empresoft@globo.com skype:empresoft empresoft@globo.com FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1 FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH1104 id=quote>id=quote>Rapaz não é falso não. Luiz Arruda "Ico" tambem tem o facebook dele é só entrar la e conferir. Ah podem conferir o meu comentario tambem onde disse que só iria no conteudo por debaixo do biquini. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.
  6. A Imagem é autentica. KKKKKK Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.
  7. A Imagem é autentica. KKKKKK Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.
  8. Kbelo

    Estoque

    voce deve ter um cadastro de unidades do produto. Hoje ele compra com Caixa amanhã pode ser por unidade, depois por outra caixa porem com quantidade maior. Em outra situações em pacotes com varias caixas e por ai vai. A forma de deixar mais completo é voce ter a unidade no seu produto e as unidades de conversão. Ou seja, o produto é controlado o estoque por UN (Unidade) 1 CX (Caixa) == 12 UN (Unidade) 1 PC (Pacote) == 10 CX (Caixa) Porem independente de como entrar ou sair voce converte para UN no final e sempre controla pela unidade. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.
  9. voce esta no caminho certo. Algum firewall ou antivirus esta bloqueando seu executavel. Agora resta saber se isso esta ocorrendo no firewall da maquina ou o servidor esta bloqueando. Muito provavel que seja na maquina. Verifique novamente o firewall e antivirus. Desabilite tudo e faça o teste. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.
  10. citação: citação:Recomendo voces discutirem isso por uma lista de emails. ou qualquer outra coisa do tipo. Se for aqui no forum tem a parte do Off topic. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate. id=quote>id=quote>Marcelo.. tambem nao concordo com voce .. foi nesse topico que foi solicitado os depositos das inscricoes.. entao é nesse tópico que devemos discutir.. até mesmo cada um que pagou a inscricao.. tem o direito de solicitar a devolucao do dinheiro.. já que nao foi utilizado no evento. O Christiano é que tem que se manifestar... vitor s.b.c. id=quote>id=quote>Bom ele ja se manifestou. Ja informou que esta com a conta bloqueada. Sei que todos querem ver isso resolvido mas pra isso existe o Off Topic. Aqui foi feito a organização, etc... mas a area é de programação e isso como assunto extra deveria esta no off topic. Não digo que estão errados e nem defendendo ninguem. Tambem quero ver isso resolvido da melhor forma e acredito que o Cristiano fara isso assim que possivel. Agora fica dica. "Se voce tem ex-esposa nunca deixei dinheiro demais na sua conta." rsrsrs Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.
  11. Recomendo voces discutirem isso por uma lista de emails. ou qualquer outra coisa do tipo. Se for aqui no forum tem a parte do Off topic. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.
  12. citação:Valeu mas não funcionou... id=quote>id=quote>Amigo o 3 deixa as linhas com bordas. Se não for isso excplique-se melhor. Seria o listbox com bordas nas linhas e colunas mesmo sem dados? Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.
  13. Kbelo

    ACbr Ecf

    citação:Marcelo (kBelo), poderia dar mais detalhes ? Dimob / SPED(pis/cofins) ..:: Feliz Natal para Todos ::.. id=quote>id=quote>O Acbr facilita para vc usar Abertura de cupom, vender item. Mas para as funções do PAF cada impressora tem a sua particularidade. Cada uma tem uma função e o ACBR não acompanha o desenvolvimento das DLLs de usuarios. Eu mesmo retirei ele do sistema pois não atendia ao Requisito VII do PAF. Quando desenvolvi em 2009 pela primeira vez nenhuma das novas funções ele tinha. Então se for pra usar ACBR mas ter que tratar comando para cada Impressora vale mais apena usar a DLL das impressoras. Pra mim ele é extremamente limitado, mas tem quem goste. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.
  14. Kbelo

    ACbr Ecf

    citação:Boa Tarde Garimpeiros... Gostaria de saber se alguém usa o ACBrEcf para comunicação com Ecf e onde encontrou o material para fivewin, porque dei uma olhada na internet e não encontrei a lista de métodos disponíveis. id=quote>id=quote>Não recomendo. Muito Limitado principalmente no para funções PAF-ECF. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.
  15. citação: citação:Dúvida: Qual classe eu devo chamar a minha ou original e se for a minha eu consigo chamar os métodos da original através da minha. id=quote>id=quote>1 - Você deve chamar a Sua Classe 2 - Sim, chamando a sua classe, você póderá chamar todos os métodos da "original". Porém deve tomar alguns cuidados: O Method New da classe DATABASE cria dados muito importantes para que esta funcione. Eu, se fosse vc, faria um clone do Method New() da Classe TDATABASE, ou seja, o metoddo New da Classe TMyData, seria praticamente um clone da original e aí até poderia implementar mais algumas coisas nesse método sem problemas. Então vc poderá criar vários métodos dentro de TMyData e utilizá-los tanto quanto quaisquer outros métodos de TDataBase. Ricado Marques Araguari-MG id=quote>id=quote>Clone ate funcionaria mas duplicaria o Fonte sem necessidade. Exceto se ele quizer alterar dados no New. Se for somente criar ou adicionar dados seria melhor chamar o New da TDATABASE no seu New. Seria mais ou menos assim ************************ Method New Class TMyData ************************ super:new() //Aqui coloco o que adicionaria no meu new return self Ainda assim se duplicar tambem funcionaria. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.
  16. Essa função acima não resolveu ? Substitua por Set Index Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.
  17. Amigos alguem ja criou DLL? O que preciso é criar uma DLL para acessar arquivos dbf e indices e utiliza-la em qualquer linguagem. Gilmer me informou que as versões mais novas no FW tem isso no samples mas a minha versão não tem . Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.
  18. Amigos alguem ja criou DLL? O que preciso é criar uma DLL para acessar arquivos dbf e indices e utiliza-la em qualquer linguagem. Gilmer me informou que as versões mais novas no FW tem isso no samples mas a minha versão não tem . Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.
  19. amigo se tiver log ou algo que nos ajude. no Rddord na linha 64 temos isso. FUNCTION dbSetIndex( cIndexName ) RETURN ordListAdd( cIndexName ) Existe algumas possibilidades para esse erro. 1 - Seu arquivo esta em Uso e o sistema não conseguiu abrir. 2 - Rede mau estruturada. 3 - Queda de rede ou sem fui instavel. 4 - Indexando arquivo com sistema aberto. 5 - Atribuindo indice que não existe 6 - Arquivo Corrompido. Bom essas são algumas possibilidades. Se voce não encontrar o problema via programação. Faça um tratamento antes do Set Index *************************** function SetIndice(arquivo) *************************** local contador := 0 do while .t. if file(arquivo) dbsetindex(arquivo) return .t. endif contador++ if contador >= 10 //recomendo aqui gravar um log para voce indendificar onde e quantas veses ocorre. if msgnoyes(arquivo + " não pode ser encontrado. Deseja Retentar?") contador := 0 loop else exit endif endif enddo return .f. id=code>id=code>Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.
  20. Cara as classes são de minha autoria mas pertencem a Total Informatica. Eu era Gerente de projetos ate ano passado e hoje terceirizo programação pra eles mas o fonte pertence a eles. Posso lhe ajudar no que precisar mas os fontes não tenho autorização para passar. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.
  21. Entendo o que vc esta fazendo. Eu fiz isso para varias classes do Fw. Tais como Get, browse, dialogs, etc... Vc não muda nada na Original só na sua classe. A Classe que voce instancia é a sua. Se ela herdar de uma outra classe todas a propriedades e metodos da classe superior serão herdados. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.
  22. citação:Strutura do DBF: campo,c,35,0 cVar:=Space(60) Após um seek. cVar=Alias->campo ? Len(cVar) = 35 E não mais 60 Qual o mistério. Dimob / SPED(pis/cofins) ..:: Feliz Natal para Todos ::.. id=quote>id=quote>Não tem misterio. cVar=Alias->campo aquando faz isso ele pega a variavel do arquivo. Sendo que ela tem 35 de tamanho. Se voce quer 60 tem que fazer cVar=left(Alias->campo+space(60),60) Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.
  23. citação:olá Geraldo , creio que o seu metodo deve retornar SELF e nao .T. METHOD Teste() CLASS TMyData "Novo método na classe database sem alterar original" return self Teste e diga se funcionou William "Eu creio, que de algum modo, que seje relativo em demasia a subjetiva constitucional perante tecnicamente aos que assim ditam o descritivo em si, no parágrafo subconsequente do subconciente doutrinários." id=quote>id=quote>Desculpa vc esta errado. Somente o Metodo Construtor retorna o Self. Nesse caso poderia ser o metodo NEW. Geraldo. Veja abaixo como funciona o que voce quer. #include "FiveWin.ch" *=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* function main *=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* classe := TMyData():new() classe:teste() //Metodo da sua classe classe:Super:teste() //Metodo da sua classe que foi herdado return .t. *=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* CLASS TDataBase METHOD new() CONSTRUCTOR METHOD teste() ENDCLASS *=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* METHOD new() Class TDataBase *=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* RETURN self *=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* METHOD teste() Class TDataBase *=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* MsgInfo("teste DataBase") RETURN .t. *=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* CLASS TMyData FROM TDataBase //-> Herança da classe database METHOD Teste() ENDCLASS *=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* METHOD Teste() CLASS TMyData *=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* MsgInfo("Novo método na classe database sem alterar original") return(.t.) id=code>id=code>Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.
  24. Quanto a metodo de comunicação vc escolhe como vai fazer. O Equipamento tendo wi-fi ou internet 3G voce é que faz a comunicação. Pode ser via TXT que é o mais simples. As vantagens do txt é que ele atende a bluetooth, wi-fi, ftp, 3g etc... Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.
  25. Existe sim. Vc tem que criar uma maquina Virtual. Dentro dela voce pode instalar Android, IOS ou ate mesmo outro windows. Eu estou começando com Java para Android. Tem muitos exemplos prontos e muito material disponivel. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.
×
×
  • Create New...