atnsoft

Marciano, isso resolveria 100%. AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

João, Segui seu conselho e mudei a classe. Agora é só incorporar ao compilar ? PS : Procópio é a cidade, meu nome é Antenor Obrigado. AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Tem alguma forma de imprimir este campo sem ser o velho: obj:Print ? Preciso colocar um logo no cabeçalho. AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Tem alguma forma de imprimir este campo sem ser o velho: obj:Print ? Preciso colocar um logo no cabeçalho. AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

De um Quit neles. AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Calma meninas, sexta só amanhã. Kkkkkkkkkkkkk AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Fazer o que com o cliente toda hora perguntando se ta pronto? Mas vou ver isso somente no fim do dia de amanhã. Se o efeito da gelada deixar, kkkkkkkkkkkkkkkkkkk. AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Valeu amigos, testarei no feriado (menos pra mim). Obrigado. AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Kapi, arquivos corruptos ? Até aqui no forum ? kakakaka. Tente isso: http://support.microsoft.com/kb/184059/pt-br AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Extraio de um texto as seguintes expressões: Var1 := "(N01+N02)/0.78" Var2 := "N05+N06+N07-12.15" Var3 := "(N60/N61^2" Var4 := "N60/Var3" já consegui substituir as variaveis N?? pelos numeros certos, mas resolver as equações que tá osso. Alguma idéia ? AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Extraio de um texto as seguintes expressões: Var1 := "(N01+N02)/0.78" Var2 := "N05+N06+N07-12.15" Var3 := "(N60/N61^2" Var4 := "N60/Var3" já consegui substituir as variaveis N?? pelos numeros certos, mas resolver as equações que tá osso. Alguma idéia ? AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Dores de parto qdo se troca de versão. De todas que fiz, foi aquele suplicio. Tem como gerar essa dll de novo na nova versão ? AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Pra validar @ xx,xx get Vhora1 pict "99:99" Valid Fhoras(Vhora1) e/ou @ xx,xx get Vhora2 pict "99:99" Valid Fhoras(Vhora1, Vhora2) //////////////////// // // Fhoras() - Testar Horas // Pfim - hora final (testar intervalo) // // Function Fhoras(Phoras, Pfim) Local Gp := Val(Substr(Phoras,1,2)) Local Gs := Val(Substr(Phoras,4,2)) Local nLocal1, nLocal2 if (Gp > 23) .or. (Gp < 0) MsgStop("O Valor de Horas Informado Está Incorreto !", "LabWin") Return(.F.) endif if (Gs > 59) .or. (Gs < 0) MsgStop("O Valor de Minutos Informado Está Incorreto !", "LabWin") Return(.F.) endif if (Pfim != NIL) nLocal1 := SubStr(Pfim,1,2)+SubStr(Pfim,4,2) nLocal1 := Val(nLocal1) nLocal2 := SubStr(Phoras,1,2)+SubStr(Phoras,4,2) nLocal2 := Val(nLocal2) if (nLocal1 > nLocal2) MsgStop("Hora Inicial Maior Que Final !", "LabWin") Return(.F.) endif endif Return(.T.) id=code>id=code>AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR Editado por - atnsoft on 01/10/2012 18:15:47

Se entendi: logo apos a gravação, zere o array do combo e o refaça com o setitems novamente. AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Legal Alessandro.Funcionou, valeu. Obrigado tambem ao Ricardo. AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Alessandro, o que voce me passou NAO tem como baixar. link inexistente. AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Pessoal, useo 0 @ para telas como no antigo clipper. Estou há 2 dias numa mesma dialog de entrada. Existe alguma coisa pra confecção de telas, exceto Res/Rc ? Algo que dê as coordenadas linha/coluna ? Gilmer, o que vc usa pra isso? Kapi, por favor nao me indique o Workshop. AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Pessoal, useo 0 @ para telas como no antigo clipper. Estou há 2 dias numa mesma dialog de entrada. Existe alguma coisa pra confecção de telas, exceto Res/Rc ? Algo que dê as coordenadas linha/coluna ? Gilmer, o que vc usa pra isso? Kapi, por favor nao me indique o Workshop. AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Valeu Vagner. AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Pessoal, a mascara do Cnpj e Cpf segue a mesma para todos os Estados ? Cnpj = 99.999.999/9999-99 Cpf = 999.999.999-99 AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Pessoal, a mascara do Cnpj e Cpf segue a mesma para todos os Estados ? Cnpj = 99.999.999/9999-99 Cpf = 999.999.999-99 AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Para colunas use shadow. assim: COLUMN TITLE "CONTRATO" DATA aImp[nConta,01] Size 10 Shadow COLUMN TITLE "NOME" DATA aImp[nConta,02] Size 60 COLUMN TITLE "JUV." DATA aImp[nConta,03] Size 10 Right COLUMN TITLE "CRI." DATA aImp[nConta,04] Size 10 Right com fontes Define Font oFont1 Name "Courier New" Size 0, -12 Define Font oFont2 Name "Courier New" Size 0, -12 Bold COLUMN TITLE "PRODUTO" DATA aImp[nConta,2] Size 40 Font iif(empty(aImp[nConta, 1]), 2, 1) id=code>id=code>e alterar a sombra (shadow) oReport:SetShdColor(CLR_GREEN) AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR Editado por - atnsoft on 27/08/2012 19:27:53

Founded() and resolved() AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Eu uso assim: REPORT oReport ; TITLE "ATUAL ESCRITÓRIO CONTABIL",; "LISTAGEM DE CLIENTES - DATA: "+DtoC(Date())+" - Hrs: "+Left(Time(),5)+" - Pág: "+Str(oReport:nPage,3,0) Caption "Listagem de Clientes" Font oFont1 Preview COLUMN TITLE "CÓD." DATA aImp[nConta,1] Right Size 05 Font 1 COLUMN TITLE "NOME" DATA aImp[nConta,2] Size 40 Font 1 COLUMN TITLE "ENDEREÇO" DATA aImp[nConta,3] Size 35 Font 1 COLUMN TITLE "CIDADE" DATA aImp[nConta,4] Size 25 Font 1 COLUMN TITLE "CEP" DATA aImp[nConta,5] Size 10 Font 1 COLUMN TITLE "UF" DATA aImp[nConta,6] Size 02 Font 1 COLUMN TITLE "HONORÃRIOS" DATA aImp[nConta,7] Right Size 12 Font 1 END REPORT oReport:bSkip := {|| nConta ++} oReport:CellView() oReport:nRightMargin := 5 oReport:nTopMargin := Int(oReport:nLogPixY*0.50) ACTIVATE REPORT oReport While nConta <= len(aImp) On StartPage ImpLogo(oReport) oFont1:End() Return NIL /////////////////////// // // ImpLogo() // // Function ImpLogo(oReport) MemVar cDirApl oReport:SayBitmap(0.1,0.7,(cDirApl)+"LOGO_ATUAL.BMP",0.9,0.6) RETURN NIL id=code>id=code>AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Acho que nao. Como só coloco como logo, ela vai no começo do relat. AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR