atnsoft

Lucida Console tb mantem o mesmo espaçamento

COLUMN TITLE "%" DATA iif(SubStr(aImp[nConta, 01],1,3) != "AGD", Abs((aImp[nConta, 06] / iif(aImp[nConta, 05] = 0,1,aImp[nConta, 05]) -1)*100), 0.0) Size 08 Picture "@E 999,999.9" Right veja se é isso talvez Column Title "teste" Data iif(banco->dc="C", 0, banco->valor) Size 100 Picture "@E 999,999.99" Ve ai, qq tamo aki

Tente inicializar aMatriz como aMatriz := Array(0)

Hotmail smtp = smtp.live.com smtp = 587 autenticacao = S SSL = N Funcionando perfeitamente. Testado agora, neste instante.

Quaquaquaqua, é mesmo. nem tinha lido na íntegra. Variavel trocada para oNadameu.

Ricardo, deu certo, bastou testar se oEntra não é nil Gracias

uso no campo texto normal: {FT10} isto é um teste com fonte na variavel Vft10 {FT02} isto é um teste com fonte na variavel vft02 e assim por diante no exemplo pratico: {FT01}DOSAGEM DE GLICOSE{FT03} Material..: {Vmaterial} Método: {Vmetodo} {FT02}RESULTADO.: {N01}{FT02} mg/dl. {FT03} REFERÊNCIA População Normo Glicemica : 70,0 a 110,0 mg/dl. Glicose Alterada de Jejum : 110,0 a 125,0 mg/dl. Diabetes Mellitus : Acima de 126,0 mg/dl. Obs. Classificação da Associação Americana de Diabetes BOSTON 1997 , Pacientes com Resultados alterados devem ser confirmados em NOVA COLETA de preferência no mesmo serviço Laboratorial; mesma metodologia e equipamentos. e na impressão com a tprinter, uso substr e at para localizar as tags e trocar as fontes de letras. Note que tem de ir fazendo e testanto, pois não se tem com precisão onde ira terminar a linha.

num get normal assim: local Ventra := 10, oEntra @ 12,12 get oEntra Var Ventra picture "99" of oDlg Valid Testaalgo(oEntra, Ventra) funciona mas se em outro contexto do sistema, preciso usar a funçao testaalgo assim: Ventra := 10 como criar o objeto get oEntra aqui? if ! TestaAlgo(oEntra, Ventra) ? "erro" endif

Cara, tentei isso por dias. O campo qdo formatado, recebe trocentos caracteres de controle. A alternativa é usar as funçoes gtftotxt e txttogtf e fazer na "unha". Não se consegue separar as linhas e ter o controle das formatações juntas. Minha saida foi usar tags de formatação e assim conseguir fontes alternativas na impressão.

Boa tarde pessoal; Gostaria de saber como fazer um update em dois bancos sql assim em dbf local (o sql ta remoto e uso heidisql) use banco1 seek tak replace codigo with wcodigo select 2 seek tal replace codigo with wcodigo close all return no sql ta no banco resultados tabela ativa campo npassa varchar 10 tabela passados campo npassa varchar 10 Obrigado. AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Boa tarde pessoal; Gostaria de saber como fazer um update em dois bancos sql assim em dbf local (o sql ta remoto e uso heidisql) use banco1 seek tak replace codigo with wcodigo select 2 seek tal replace codigo with wcodigo close all return no sql ta no banco resultados tabela ativa campo npassa varchar 10 tabela passados campo npassa varchar 10 Obrigado. AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Eh Kapi, toda sexta voce fica assim soltinho, soltinho. kakakakaka AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

eu uso o FTPSendFiles( VnFtp, { (cPasta)+"\"+Lletil+"TRANSP.TRC" }, { cRecebeFtp }, VuFtp, VsFtp ) para enviar e FTPGetFiles( PnFtp, { cDirArq+lLetil+"*.Trc"}, { lLetil+"*.Trc" }, PuFtp, PsFtp, " ", "R") para pegar os arquivos Mais exemplos em FWH\SAMPLES\GALLERY\ICOPYFIL\ICOPYFIL.PRG AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Ok, tinha notado. Obrigado a todos, deu certo. AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Tenho um banco sql remoto com os seguintes campos data1 e data2 (date) como montar um select pra saber se um determinado periodo esta dentro destes campos? Assim: data1 = 12/04/2013 e data2 = 25/04/2013 procura: vdata1 = 10/04/2013 e vdata2 = 13/04/2013 quero procurar se algum intervalo destas datas esta dentro dessa faixa. (nesse caso 12 e 13 de abril) select agenda, nome, carteira from tagenda where data1 >= xxxiiii .... AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Tenho um banco sql remoto com os seguintes campos data1 e data2 (date) como montar um select pra saber se um determinado periodo esta dentro destes campos? Assim: data1 = 12/04/2013 e data2 = 25/04/2013 procura: vdata1 = 10/04/2013 e vdata2 = 13/04/2013 quero procurar se algum intervalo destas datas esta dentro dessa faixa. (nesse caso 12 e 13 de abril) select agenda, nome, carteira from tagenda where data1 >= xxxiiii .... AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Eu as testei, mas tem bug demais. O principal é a barra de rolagem. AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR Editado por - atnsoft on 11/11/2012 11:39:22

O campo foto tá como blob ? Voce ta convertendo a imagem usando o memowrit ? note que a conversão é de max 64K Mas o que dá pra ver como erro é perda de conexão, aumente o timeout do mysql. AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Rone, mesmo trocando a classe, continuou o erro. Depois de fuçar até dizer chega, achei o problema, dois na verdade: 1) Depois de copiar para um temporario, colocar um syswait(1) para dar "um tempinho pro windows" 2) Toda variavel data, se tiver em branco dá pau. passei pra nDatatal := "____/___/___" Resolvido Muito obrigado. AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Rone, aqui dá aquele erro e trava tudo. Tem como vc me enviar a classe que voce ta usando? Por que a que to usando, na compilação da um monte de erros de variaveis, fui ajustando até parar os erros. Obrigado. AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

if (Ptipo = "L") Copy File (cDirRes)+"Cont_Freta.Doc" To (cDirRes)+"TempFreta.Doc" oWord := TWord():New() If ( oWord:IsVisible() ) oWord:Hide() Endif TRY oWord:OpenDoc((cDirRes)+"TempFreta.Doc") oWord:Replace( "{nNome}", nNome) oWord:Replace( "{nCnpj}", nCnpj) oWord:Replace( "{nTelefone}", nTelefone) oWord:Replace( "{nEndereco}", nEndereco) oWord:Replace( "{nBairro}", nBairro) oWord:Replace( "{nCep}", nCep) oWord:Replace( "{nUf}", nUf) oWord:Replace( "{nCidade}", nCidade) oWord:Replace( "{nSaida}", nSaida) oWord:Replace( "{nDestino}", nDestino) oWord:Replace( "{nDatar}", nDatar) oWord:Replace( "{nTotal}", nTotal) oWord:Replace( "{nSinal}", nSinal) oWord:Replace( "{nVeiculo}", nVeiculo) oWord:Replace( "{ExtensoData}", ExtensoData) CATCH oError // E avisamos ao usuario o motivo do erro! MsgStop("Erro ao Abrir Gerenciador de Textos.","WinTur") Return NIL End //oWord:Preview() //oWord:Printdoc(.F.) oWord:PrintDoc( .F., , , , , , , nPrtcopia) oWord:End() endif id=code>id=code>Este codigo acima funciona 100% com win xp e word 2003. Testado em minha maquina, mas qdo fui instalar o sistema no cliente dá pau pois o dito cujo usa o xp/win7 com word 2007. O erro sempre cai em Erro ao Abrir Gerenciador de Textos. O WinWord.exe fica residente (gerenciador de tarefas) mas nao imprime. Mesmo apagando o temporario, retirando o word da memoria, cai no mesmo lugar. Sugestoes ? ah, a classe que baixei começa assim: // Clase TWord // Mira el documento TWord.doc para información // 2003 Sebastián Almirón /* 5-Diciembre-2003 Clase TWord Modificada por : Víctor Manuel Tomás Díaz [ Vikthor ] vikthor@creswin.com He quitado todas las llamadas a las funciones OleGetProperty() , OleSetProperty() , OleInvoke(). Ahora es usada la clase TOleAuto() y sus Metodos :Get , :Set , :Invoke ++ METHOD Sendmail( lAttach ) ++ METHOD HeaderFooter( nOption ) ++ METHOD OpenDataSource( cFile ) ++ METHOD AddField( cField ) ++ METHOD WebPagePreview() 09-Mar-2004 ++ Data oTables ++ METHOD AddTables() 08-Jun-2004 ++ METHOD View( nView ) oWord:View( 1 ) Vista Normal oWord:View( 3 ) Vista Diseño oWord:View( 6 ) Vista Web ++ METHOD Zoom( nPercent ) 03-Dic-2004 ** Modificación al Metodo New usando TRY y CATCH para recuperar una instacia abierta crearla o enviar un mensaje de error. */ #include "FiveWin.Ch" #define TAB chr(9) #define ENTER chr(13) #define ALI_LEFT 0 #define ALI_CENTER 1 #define ALI_RIGHT 2 #define ALI_JUSTIFY 3 #define LOGPIXELSX 88 #define LOGPIXELSY 90 // Registros y delimitadores de campos de la estructura GTF #define SP_REG Chr( 5 ) id=code>id=code>AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

if (Ptipo = "L") Copy File (cDirRes)+"Cont_Freta.Doc" To (cDirRes)+"TempFreta.Doc" oWord := TWord():New() If ( oWord:IsVisible() ) oWord:Hide() Endif TRY oWord:OpenDoc((cDirRes)+"TempFreta.Doc") oWord:Replace( "{nNome}", nNome) oWord:Replace( "{nCnpj}", nCnpj) oWord:Replace( "{nTelefone}", nTelefone) oWord:Replace( "{nEndereco}", nEndereco) oWord:Replace( "{nBairro}", nBairro) oWord:Replace( "{nCep}", nCep) oWord:Replace( "{nUf}", nUf) oWord:Replace( "{nCidade}", nCidade) oWord:Replace( "{nSaida}", nSaida) oWord:Replace( "{nDestino}", nDestino) oWord:Replace( "{nDatar}", nDatar) oWord:Replace( "{nTotal}", nTotal) oWord:Replace( "{nSinal}", nSinal) oWord:Replace( "{nVeiculo}", nVeiculo) oWord:Replace( "{ExtensoData}", ExtensoData) CATCH oError // E avisamos ao usuario o motivo do erro! MsgStop("Erro ao Abrir Gerenciador de Textos.","WinTur") Return NIL End //oWord:Preview() //oWord:Printdoc(.F.) oWord:PrintDoc( .F., , , , , , , nPrtcopia) oWord:End() endif id=code>id=code>Este codigo acima funciona 100% com win xp e word 2003. Testado em minha maquina, mas qdo fui instalar o sistema no cliente dá pau pois o dito cujo usa o xp/win7 com word 2007. O erro sempre cai em Erro ao Abrir Gerenciador de Textos. O WinWord.exe fica residente (gerenciador de tarefas) mas nao imprime. Mesmo apagando o temporario, retirando o word da memoria, cai no mesmo lugar. Sugestoes ? ah, a classe que baixei começa assim: // Clase TWord // Mira el documento TWord.doc para información // 2003 Sebastián Almirón /* 5-Diciembre-2003 Clase TWord Modificada por : Víctor Manuel Tomás Díaz [ Vikthor ] vikthor@creswin.com He quitado todas las llamadas a las funciones OleGetProperty() , OleSetProperty() , OleInvoke(). Ahora es usada la clase TOleAuto() y sus Metodos :Get , :Set , :Invoke ++ METHOD Sendmail( lAttach ) ++ METHOD HeaderFooter( nOption ) ++ METHOD OpenDataSource( cFile ) ++ METHOD AddField( cField ) ++ METHOD WebPagePreview() 09-Mar-2004 ++ Data oTables ++ METHOD AddTables() 08-Jun-2004 ++ METHOD View( nView ) oWord:View( 1 ) Vista Normal oWord:View( 3 ) Vista Diseño oWord:View( 6 ) Vista Web ++ METHOD Zoom( nPercent ) 03-Dic-2004 ** Modificación al Metodo New usando TRY y CATCH para recuperar una instacia abierta crearla o enviar un mensaje de error. */ #include "FiveWin.Ch" #define TAB chr(9) #define ENTER chr(13) #define ALI_LEFT 0 #define ALI_CENTER 1 #define ALI_RIGHT 2 #define ALI_JUSTIFY 3 #define LOGPIXELSX 88 #define LOGPIXELSY 90 // Registros y delimitadores de campos de la estructura GTF #define SP_REG Chr( 5 ) id=code>id=code>AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Será que o taskkill roda no Win 7? Parece ser a opção mais indicada para meu caso. AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Bom dia, Tentei implementar um editor de texto ao sistema usando o Format Get, mas é muito limitado, fora os bugs. Agora to usando a classe tword, mas tambem encontrei um pequeno incoveniente ao fechar. Fecha-se tudo, ou seja, se tiver mais de uma instancia do word aberto...pau. Tem como verificar se o Word já esta aberto? achei isto no forum, mas nao existe no xharbour hWnd := GetTaskFirstWnd( "Winword.exe" ) if (hWnd > 0) Msgstop("EM USO") return nil endif id=code>id=code>Há alguma solução pra isso? AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Bom dia, Tentei implementar um editor de texto ao sistema usando o Format Get, mas é muito limitado, fora os bugs. Agora to usando a classe tword, mas tambem encontrei um pequeno incoveniente ao fechar. Fecha-se tudo, ou seja, se tiver mais de uma instancia do word aberto...pau. Tem como verificar se o Word já esta aberto? achei isto no forum, mas nao existe no xharbour hWnd := GetTaskFirstWnd( "Winword.exe" ) if (hWnd > 0) Msgstop("EM USO") return nil endif id=code>id=code>Há alguma solução pra isso? AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR