Theotokos

Bom Dia!!!!!!!!!!!!!!!1 É o seguinte: criei um link no desktop para executar o programa na rede (isso no terminal) só que quando executa o programa aparece uma mensagem e pergunta se quer EXECUTAR ou CANCELAR, antes de entrar no programa (msg do Windows). PERGUNTA: Como tirar essa mensagem? T+ Rone xHarbour + BCC55 + FiveWin + xDevStudio - Tentando Aprender com os Irmãos

Bom Dia!!!!!!!!!!!!!!!1 É o seguinte: criei um link no desktop para executar o programa na rede (isso no terminal) só que quando executa o programa aparece uma mensagem e pergunta se quer EXECUTAR ou CANCELAR, antes de entrar no programa (msg do Windows). PERGUNTA: Como tirar essa mensagem? T+ Rone xHarbour + BCC55 + FiveWin + xDevStudio - Tentando Aprender com os Irmãos

citação:Olá. STATIC FUNCTION declares a user-defined function that can be invoked only by procedures and user-defined functions declared in the same program (.prg) file. Ou seja, você pode ter várias funções com o mesmo nome só que cada uma vai ser evocada apenas pelo prg que a criou. []s, Evandro G. de Paula Curvelo - MG evandro@skillnet.com.br (Escr. - na Cidade) imortal@skillnet.com.br (Res. - na Roça) FWH 2.6+PellesC+MyMake+xHarbour.org 0.99.5+SqlLib I PREPARATÓRIO PARA O VI ENCONTRO FIVEWIN - 05/JULHO/2008 - CURVELO - MG id=quote>id=quote>Valew!!!!! Evandro e Crisvan mas me assustou com essa de inglês, mas no final tudo ficou bem. xHarbour + BCC55 + FiveWin + xDevStudio - Tentando Aprender com os Irmãos Editado por - theotokos on 05/10/2008 21:25:16

Olá pessoal,,,,, Sou meio burro mesmo, então lá vai a pergunta.... Qual é a vantagem e/ou a necessidade de se usar assim a declaração da função como STATIC Function BuscaDados(nPa1, nPa2) por exemplo.... Valew......... xHarbour + BCC55 + FiveWin + xDevStudio - Tentando Aprender com os Irmãos

Olá pessoal,,,,, Sou meio burro mesmo, então lá vai a pergunta.... Qual é a vantagem e/ou a necessidade de se usar assim a declaração da função como STATIC Function BuscaDados(nPa1, nPa2) por exemplo.... Valew......... xHarbour + BCC55 + FiveWin + xDevStudio - Tentando Aprender com os Irmãos

Boa Noite Pessoar Como usar a opção de HELPID nos Comandos "REDEFINE GET ... HELPID" nas dialog para cada campo? Usando o RESOURCE (uso o Pelles) Obgdo! Rone xHarbour + BCC55 + FiveWin + xDevStudio - Tentando Aprender com os Irmãos Editado por - theotokos on 02/10/2008 11:09:37

Boa Noite Pessoar Como usar a opção de HELPID nos Comandos "REDEFINE GET ... HELPID" nas dialog para cada campo? Usando o RESOURCE (uso o Pelles) Obgdo! Rone xHarbour + BCC55 + FiveWin + xDevStudio - Tentando Aprender com os Irmãos Editado por - theotokos on 02/10/2008 11:09:37

citação:Pessoal Preciso buscar informações de email que estão no outlook Através do "Outlook.Application" consegui acessar e trazer algumas informações como Body(mensagem),SubJect(titulo) e ReceveidTime(data). Está me faltando o email de quem enviou e os anexos Alguem sabe o nome no outlook desses campos para que eu possa busca-los. Já virei a internet de ponta cabeça e ainda não achei quais são os danados. id=quote>id=quote>Olá amigo, gostei dessa ideia será que tem como vc me enviar de como faz para obter estas informações ? Sem SIM! envie para ronerli@uol.com.br Obgdo!!!!!!!!!!!!! Rone xHarbour + BCC55 + FiveWin + xDevStudio - Tentando Aprender com os Irmãos

citação: citação:Olá Amigos... Há alguma maneira de trocar a côr ou mesmo a fonte/tamanho das mensagem exibidas num, por exemplo, MSGSTOP() ? If !Found() MsgStop("atenção em verde","arquivo não encontrado em vermelho..") Endif ...e por ai vai e tenho dito!! ________________________ Gilberto Herminio Programador Pleno III Mogi das Cruzes-SP FWh8.05 + xHB 1.1.0-CVS + BBC 5.5.1 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...." id=quote>id=quote>A um tempo atraz também estava atraz dessa solução, ae para não perder tempo, criei uma dialog e fiz os tratamentos devidos ! ____________________________ Eder Xavier Msn:eder_xavier_2@hotmail.com C:\Xharbour Free\fivewin 8.05\workshop\VSX id=quote>id=quote>O Irmão, partilha conosco.... xHarbour + BCC55 + FiveWin + xDevStudio - Tentando Aprender com os Irmãos

citação:Theotokos ! O layout da NP tem que sequir algum padrão legal incluindo aquele brazão da republica ao lado por exemplo ou posso fazer a 'la vonte' ?! Como é o teu Layout ? Vc o fez na unha ?! Abraços. FWH 8.04+WS id=quote>id=quote>Não tem a necessidade de ser no modelo vendido na papelaria... voce pode criar seu modelo, conforme vc quiser (necessitar) O que é necessaria que se tenha, são : Nome, Dt.Vencimento, Valor, Nº da Nota, CPF ou RG, Assinatura. xHarbour + BCC55 + FiveWin + xDevStudio - Tentando Aprender com os Irmãos

Olá Pessoal,,, Alguem sabe usar aquele Messaga Table do Pelles, como inserir no programa, dá para usar em Gets, Botoes. Em resumo, para que server, e como usar? Valew!!!! Com Cristo!!! Rone O. Coura xHarbour + BCC55 + FiveWin + xDevStudio - Tentando Aprender com os Irmãos Editado por - theotokos on 01/10/2008 22:22:22

Olá Pessoal,,, Alguem sabe usar aquele Messaga Table do Pelles, como inserir no programa, dá para usar em Gets, Botoes. Em resumo, para que server, e como usar? Valew!!!! Com Cristo!!! Rone O. Coura xHarbour + BCC55 + FiveWin + xDevStudio - Tentando Aprender com os Irmãos Editado por - theotokos on 01/10/2008 22:22:22

citação:Olá Amigo, olhei rapidamente o seu programa. Percebi que vc está definindo vários objetos com apenas um NOME (oget). Na minha opinião isso é um erro (na minha opinião). Experimente criar um objeto para cada GET (pelo menos pros campos que vc irá manipular depois) e veja se resolve o seu problema. Ah, e outra coisa, vc está dando dois xsetfocus no final. Para qual objeto vc quer que o foco vai ? Um abraço, Alexandre Pereira fwh 7.04, xharbour, .9971, MyMake, xDev, SqlLib msn: alexpdasilva6@hotmail.com atualmente em Rondônia id=quote>id=quote>VAlew amigo! Deu Certo, tireo o segundo xSetFocus(). engraçado é que em outra situação isto não deu problema... mas sei lá né.... OBGDAO!!!! xHarbour + BCC55 + FiveWin + xDevStudio - Tentando Aprender com os Irmãos

citação:Existe nota promissoria em formulario continuo ? Se eu tiver que gerar o impresso, acredito que eu deva gerar em padrão legalizado e ai, neste caso por onde eu começo ?! Abraços. FWH 8.04+WS id=quote>id=quote>********************************************************* Meu Amigo! Eu mesmo faço o layout da minhas NP. Imprimindo o Texto da Nota Promissoria Sem precisar de formulario nenhum, imprimo em Folha A5 xHarbour + BCC55 + FiveWin + xDevStudio - Tentando Aprender com os Irmãos

olá! REDEFINE SAY oSay PROMPT "A T E N D I M E N T O" ID 300 ; OF oDlg FONT oFont REDEFINE BITMAP ID 4008 OF oDlg RESOURCE "ATENDE" REDEFINE GET oGet VAR cNCliente PICTURE "@!X" UPDATE ID 109 Of oDlg When .F. REDEFINE GET oGet VAR cCliente PICTURE "@!X" UPDATE ID 104 Of oDlg Valid (BcCliente(oGet)) REDEFINE GET oGetCod VAR cOS PICTURE "@!XK" UPDATE ID 110 Of oDlg * REDEFINE SAY oSay PROMPT cEndereco UPDATE ID 201 Of oDlg REDEFINE SAY oSay PROMPT cBairro UPDATE ID 202 Of oDlg REDEFINE SAY oSay PROMPT cCidade UPDATE ID 203 Of oDlg REDEFINE SAY oSay PROMPT cEstado UPDATE ID 204 Of oDlg REDEFINE SAY oSay PROMPT cTelefone UPDATE ID 205 Of oDlg * REDEFINE RADIO oRdLente VAR nLente UPDATE ID 4011, 4012, 4013, 4014, 4010 OF oDlg * REDEFINE GET oGet VAR cCodigo PICTURE "@!X" UPDATE ID 4017 When ( nLente = 1 ) Valid (BcMercadoria(oGet)) REDEFINE GET oGet VAR cDescricao PICTURE "@!X" UPDATE ID 4018 When ( .F. ) * REDEFINE GET oGet VAR nEsferico PICTURE "@E 9,999.99" UPDATE ID 4020 When ( nLente = 2 ) REDEFINE GET oGet VAR nCilindrico PICTURE "@E 9,999.99" UPDATE ID 4022 When ( nLente = 2 ) * REDEFINE GET oGet VAR nEsferico PICTURE "@E 9,999.99" UPDATE ID 4024 When ( nLente = 3 .Or. nLente = 4 ) REDEFINE GET oGet VAR nCilindrico PICTURE "@E 9,999.99" UPDATE ID 4026 When ( nLente = 3 .Or. nLente = 4 ) * REDEFINE GET oGet VAR nQuantidade UPDATE PICTURE "@E 999.99" ID 4031 Of oDlg Valid (CalcVrVenda(oGet),.t.) REDEFINE GET oGet VAR nPrVenda UPDATE PICTURE "@E 9,999.99" ID 4033 Of oDlg When .f. REDEFINE GET oGet VAR nVrTotal UPDATE PICTURE "@E 9,999.99" ID 4035 Of oDlg Valid (AdVtAtende(oGet)) * REDEFINE SAY oSay PROMPT nTotal ID 4036 Of oDlg PICTURE "@E 999,999.99" FONT oFont * REDEFINE BUTTON ID 4005 OF oDlg ACTION ( oDlg:End() ) REDEFINE BUTTON ID 4006 OF oDlg ACTION ( oDlg:End() ) * REDEFINE LISTBOX oLbx ; Fields aDados[oLbx] ,; aDados[oLbx] ,; aDados[oLbx] ,; aDados[oLbx] ,; aDados[oLbx] ; ON DBLCLICK ( ExcluirItem(oLbx) ) UPDATE ; Headers "Cód./Ref.","Descrição","Pr.Venda","Valor Total","Quant." ; ID 4004 OF oDlg oLbx:acolsizes := {150,400,100,100,100} oLbx:SetArray(aDados) oLbx:aJustify := {.f.,.f.,.f.,.f.,.f., .f. } oLbx:refresh() oLbx:bKeyDown:={|nKey| IIF(nKey=VK_RETURN,(lSai:=.t.,oDlg:End()), ) } ... ... ... *********************************************************** Function AdVtAtende(oGet) Local nVrDesconto If Len(aDados) = 1 .And. Empty(aDados[1,1] ) aDados[1,1] := cReferencia aDados[1,2] := cDescricao aDados[1,3] := Transform(nQuantidade,"@E 99,999.99") aDados[1,4] := Transform(nPrVenda ,"@E 99,999.99") aDados[1,5] := Transform(nVrTotal ,"@E 99,999.99") aDados[1,6] := nQuantidade aDados[1,7] := nPrVenda aDados[1,8] := nVrTotal aDados[1,9] := cCodigo aDados[1,10]:= nLente Else AADD(aDados, { cReferencia, cDescricao, Transform(nQuantidade,"@E 99,999.99"), ; Transform(nPrVenda,"@E 99,999.99"), ; Transform(nVrTotal,"@E 99,999.99"), nQuantidade, nPrVEnda, nVrTotal, cCodigo, nLente}) End nVrDesconto := nVrTotal * (nDesconto / 100) nTotalGeral += nVrtotal nTotal += (nVrTotal - nVrDesconto) dData := Date() cNCliente := Space(05) cCliente := Space(50) cEndereco := Space(50) cBairro := Space(40) cCidade := Space(40) cEstado := Space(15) cTelefone := Space(13) cReferencia := Space(20) cCodigo := Space(15) cDescricao := Space(50) nEsferico := 0.00 nCilindrico := 0.00 nQuantidade := 0.00 nPrVenda := 0.00 nVrTotal := 0.00 nTotal := 0.00 nTotalGeral := 0.00 nEstAtual := 0.00 cFormaPg := "Quinzenal" nNumero := 0 nDesconto := 0.00 cTipo := 1 nLente := 1 cOS := Space(30) cSaldo := "SIM" oSay:Refresh() oLbx:Refresh() oLbx:GoBottom() xSetFocus(oGetCod) xSetFocus(oGet) Return .t. *********************************************************** Quando executo esta rotina (acima) no ponto e que chama a xSetFocus() para voltar, a rotina parece que entra em um loop, e começa adcionar item ao vetor e não para... O QUE PODE SER O PROBLEMA? UTILIZO EM OUTRAS ROTINA E FUNCIONA NORMAL.... OBRIGADO!!!!!!! xHarbour + BCC55 + FiveWin + xDevStudio - Tentando Aprender com os Irmãos Editado por - theotokos on 27/09/2008 17:40:36 Editado por - theotokos on 27/09/2008 19:45:28

olá! REDEFINE SAY oSay PROMPT "A T E N D I M E N T O" ID 300 ; OF oDlg FONT oFont REDEFINE BITMAP ID 4008 OF oDlg RESOURCE "ATENDE" REDEFINE GET oGet VAR cNCliente PICTURE "@!X" UPDATE ID 109 Of oDlg When .F. REDEFINE GET oGet VAR cCliente PICTURE "@!X" UPDATE ID 104 Of oDlg Valid (BcCliente(oGet)) REDEFINE GET oGetCod VAR cOS PICTURE "@!XK" UPDATE ID 110 Of oDlg * REDEFINE SAY oSay PROMPT cEndereco UPDATE ID 201 Of oDlg REDEFINE SAY oSay PROMPT cBairro UPDATE ID 202 Of oDlg REDEFINE SAY oSay PROMPT cCidade UPDATE ID 203 Of oDlg REDEFINE SAY oSay PROMPT cEstado UPDATE ID 204 Of oDlg REDEFINE SAY oSay PROMPT cTelefone UPDATE ID 205 Of oDlg * REDEFINE RADIO oRdLente VAR nLente UPDATE ID 4011, 4012, 4013, 4014, 4010 OF oDlg * REDEFINE GET oGet VAR cCodigo PICTURE "@!X" UPDATE ID 4017 When ( nLente = 1 ) Valid (BcMercadoria(oGet)) REDEFINE GET oGet VAR cDescricao PICTURE "@!X" UPDATE ID 4018 When ( .F. ) * REDEFINE GET oGet VAR nEsferico PICTURE "@E 9,999.99" UPDATE ID 4020 When ( nLente = 2 ) REDEFINE GET oGet VAR nCilindrico PICTURE "@E 9,999.99" UPDATE ID 4022 When ( nLente = 2 ) * REDEFINE GET oGet VAR nEsferico PICTURE "@E 9,999.99" UPDATE ID 4024 When ( nLente = 3 .Or. nLente = 4 ) REDEFINE GET oGet VAR nCilindrico PICTURE "@E 9,999.99" UPDATE ID 4026 When ( nLente = 3 .Or. nLente = 4 ) * REDEFINE GET oGet VAR nQuantidade UPDATE PICTURE "@E 999.99" ID 4031 Of oDlg Valid (CalcVrVenda(oGet),.t.) REDEFINE GET oGet VAR nPrVenda UPDATE PICTURE "@E 9,999.99" ID 4033 Of oDlg When .f. REDEFINE GET oGet VAR nVrTotal UPDATE PICTURE "@E 9,999.99" ID 4035 Of oDlg Valid (AdVtAtende(oGet)) * REDEFINE SAY oSay PROMPT nTotal ID 4036 Of oDlg PICTURE "@E 999,999.99" FONT oFont * REDEFINE BUTTON ID 4005 OF oDlg ACTION ( oDlg:End() ) REDEFINE BUTTON ID 4006 OF oDlg ACTION ( oDlg:End() ) * REDEFINE LISTBOX oLbx ; Fields aDados[oLbx] ,; aDados[oLbx] ,; aDados[oLbx] ,; aDados[oLbx] ,; aDados[oLbx] ; ON DBLCLICK ( ExcluirItem(oLbx) ) UPDATE ; Headers "Cód./Ref.","Descrição","Pr.Venda","Valor Total","Quant." ; ID 4004 OF oDlg oLbx:acolsizes := {150,400,100,100,100} oLbx:SetArray(aDados) oLbx:aJustify := {.f.,.f.,.f.,.f.,.f., .f. } oLbx:refresh() oLbx:bKeyDown:={|nKey| IIF(nKey=VK_RETURN,(lSai:=.t.,oDlg:End()), ) } ... ... ... *********************************************************** Function AdVtAtende(oGet) Local nVrDesconto If Len(aDados) = 1 .And. Empty(aDados[1,1] ) aDados[1,1] := cReferencia aDados[1,2] := cDescricao aDados[1,3] := Transform(nQuantidade,"@E 99,999.99") aDados[1,4] := Transform(nPrVenda ,"@E 99,999.99") aDados[1,5] := Transform(nVrTotal ,"@E 99,999.99") aDados[1,6] := nQuantidade aDados[1,7] := nPrVenda aDados[1,8] := nVrTotal aDados[1,9] := cCodigo aDados[1,10]:= nLente Else AADD(aDados, { cReferencia, cDescricao, Transform(nQuantidade,"@E 99,999.99"), ; Transform(nPrVenda,"@E 99,999.99"), ; Transform(nVrTotal,"@E 99,999.99"), nQuantidade, nPrVEnda, nVrTotal, cCodigo, nLente}) End nVrDesconto := nVrTotal * (nDesconto / 100) nTotalGeral += nVrtotal nTotal += (nVrTotal - nVrDesconto) dData := Date() cNCliente := Space(05) cCliente := Space(50) cEndereco := Space(50) cBairro := Space(40) cCidade := Space(40) cEstado := Space(15) cTelefone := Space(13) cReferencia := Space(20) cCodigo := Space(15) cDescricao := Space(50) nEsferico := 0.00 nCilindrico := 0.00 nQuantidade := 0.00 nPrVenda := 0.00 nVrTotal := 0.00 nTotal := 0.00 nTotalGeral := 0.00 nEstAtual := 0.00 cFormaPg := "Quinzenal" nNumero := 0 nDesconto := 0.00 cTipo := 1 nLente := 1 cOS := Space(30) cSaldo := "SIM" oSay:Refresh() oLbx:Refresh() oLbx:GoBottom() xSetFocus(oGetCod) xSetFocus(oGet) Return .t. *********************************************************** Quando executo esta rotina (acima) no ponto e que chama a xSetFocus() para voltar, a rotina parece que entra em um loop, e começa adcionar item ao vetor e não para... O QUE PODE SER O PROBLEMA? UTILIZO EM OUTRAS ROTINA E FUNCIONA NORMAL.... OBRIGADO!!!!!!! xHarbour + BCC55 + FiveWin + xDevStudio - Tentando Aprender com os Irmãos Editado por - theotokos on 27/09/2008 17:40:36 Editado por - theotokos on 27/09/2008 19:45:28

citação:hb_cdxIndexFree: index file still locked. (arquivo de índice continua bloqueado.) A app esta rodando em rede. Numa unica estacao, dah essa mensagem ! O q poderia ser ??? Obrigado ! Gilberto Frohlich - Toledo/PR giba_f@hotmail.com giba_f@yahoo.com.br xHarbour xBuild+Fivewin 2.7+PellesC+(Postgres+DB2) id=quote>id=quote>Tente apagar o arquivo de indice e gerar novamente... xHarbour + BCC55 + FiveWin + xDevStudio - Tentando Aprender com os Irmãos

citação:Tente assim: oGet:oJump:=oRadMenu:aItems[1] e se for usar xsefocus, tem que usar como acima também. e-mail: gilmer@fivewin.com.br msn: fivewinbrasil@hotmail.com id=quote>id=quote>To com este problema, tmb, fiz o que estava no forum, mas esta acontecendo isto "Error BASE/1004 Message not found: TRADIO:EDITUPDATE From Errorsys, line 172" Clipper 5.2e + Blinker 7.0 + FiveWin + xDevStudio - Tentando Aprender com os Irmãos

citação:A versão comercial tem o SQLRDD, o IDE deles (Visual xHarbour) e suporte técnico (não sei se presta mas sei que é por um prazo específico) e roda com FW. O xHarbour do site .ORG roda com FW e aceita SQL atraves de outros meios e suporte através de comunidades e foruns como este. Do meu ponto de vista é basicamente isto. Editado por - vailtom on 20/09/2008 12:38:20 id=quote>id=quote>Valew!!!!!!!!!!!!!!!!11 Clipper 5.2e + Blinker 7.0 + FiveWin + xDevStudio - Tentando Aprender com os Irmãos

citação:Respondendo : Estilo normal Estilo 2007 Vagner Wirts VI Encontro está chegando , não perca id=quote>id=quote>FIca muito mais bonito!!!!!!!!!!!!!!!!!!! Gostaria de Saber como faz este menu, teu, ai.. Parece um botão... Dá umas dicas ai....... sou novatão... rsrsrsrsrsrsrsrsrsrs Envia para mim no email ronerli@uol.com.br Valew!!!!!!!!!!!! Clipper 5.2e + Blinker 7.0 + FiveWin + xDevStudio - Tentando Aprender com os Irmãos

Olá Pessoal!!!!!!!!!!! Qual a diferença entre os dois? E que posso fazer em um e no outro... Obgdo!!! Com Deus! Em Cristo! Amor de Maria! Rone O. Coura ronerli@uol.com.br Clipper 5.2e + Blinker 7.0 + FiveWin + xDevStudio - Tentando Aprender com os Irmãos

Olá Pessoal!!!!!!!!!!! Qual a diferença entre os dois? E que posso fazer em um e no outro... Obgdo!!! Com Deus! Em Cristo! Amor de Maria! Rone O. Coura ronerli@uol.com.br Clipper 5.2e + Blinker 7.0 + FiveWin + xDevStudio - Tentando Aprender com os Irmãos

citação:Theo... No forum do fivewin em dicas + dicas existe vários exemplos de como fazer com a Bemafi32.dll id=quote>id=quote>Falew!!!!!!!!! Clipper 5.2e + Blinker 7.0 + FiveWin + xDevStudio - Tentando Aprender com os Irmãos

Olá pessoal... Será que alguem tem algum exemplos simples mesmo de um Frente em Caixa com FiveWin e xHarbour para me enviar? Gostaria de saber como fazer com a DLL da Bematech, Configração, Chamada no Programa, algo assim... Desde já que DEUS LHES ABENÇOE!!!! aH!!! ENVIEM PARA ronerli@uol.com.br Clipper 5.2e + Blinker 7.0 + FiveWin + xDevStudio - Tentando Aprender com os Irmãos

Olá pessoal... Será que alguem tem algum exemplos simples mesmo de um Frente em Caixa com FiveWin e xHarbour para me enviar? Gostaria de saber como fazer com a DLL da Bematech, Configração, Chamada no Programa, algo assim... Desde já que DEUS LHES ABENÇOE!!!! aH!!! ENVIEM PARA ronerli@uol.com.br Clipper 5.2e + Blinker 7.0 + FiveWin + xDevStudio - Tentando Aprender com os Irmãos