FiveTech Software tech support forums

... É possivel passar um nome classe por este comando ?

E dentro da página do relatório botoes para imprimir, pdf, dashboard, excel, etc. Passei olhando os exemplos e não consegui nada.

Antes tudo isso já funcionava com o mod_harbour, mas isso precisa de um servidor grande, apache, etc.. e ...

Boa tarde,

sim já passei pelo mesmo problema, ou seja:

1 se no checkbox vc colocar WHEN .F.
2 obj:enable()/Disable()

O problema acontece.

Não consegui resolver o problema, tive que desistir de DESATIVAR o objeto.

Olá pessoAll

Webservice sempre funcionou perfeitamente com as linhas abaixo: ( exemplo no início do post )

oUp := CreateObject("MSSOAP.SoapClient30")
oUp:MSSoapInit(alltrim(UPurl))

Mas quando passei para Windows 7 parou de funcionar.

Alguem passou por isto ou tem alguma solução ?

Obrigado

RESOLVIDO ASSIM:

METHOD CreateButton() CLASS TGet
...
// Passei a controlar em GOTFOCUS/LOSTFOCUS
//::oBtn:lCancel = .T. // so the GET VALID is not fired when the button is focused

METHOD LostFocus( hCtlFocus ) CLASS TGet
if ::oBtn != nil
::oBtn:lCancel = .F. // so the GET VALID is not fired when ...

... version of xHarbour expects version: 10Module: 'ads1.c' was compiled into PCODE version: 9,this version of xHarbour expects version: 10

Também passei por isto...
Precisei atualizar a versão do xHarbour , mas preservei a versão antiga, instalando a nova versão em outro local.
Alterei os PATH dos ...

... version of xHarbour expects version: 10Module: 'ads1.c' was compiled into PCODE version: 9,this version of xHarbour expects version: 10

Também passei por isto...
Precisei atualizar a versão do xHarbour , mas preservei a versão antiga, instalando a nova versão em outro local.
Alterei os PATH dos ...

... declarada como abaixo, os recursos dentro deste GROUP não aparececem, se eu passar o mouse por cima aparece. Outro detalhe, uma vez que passei o mouse e apareceu os recursos, se eu minimizar minha aplicação ao voltar ao normal os recursos dentro do GROUP não aparecem novamente, veja ...

... Get oGet[1] Var cVar ID <ID> of odlg

Após dar um loop nos controles o cursor do Get fica posicionado após a ultima letra do get, eu gostaria que caisse antes da primeira letra

Teste | o cursor cai aqui
| Teste quero ele aqui

Ja passei oGet[2]:SetPos(0) mas não surte efeito nem um..

Obrigado..

... tela de vendas TOUCH SCREEN, e esta tela deve ocupar toda a extenção da tela, porém se o usuário aumentar a resolução esta tela fica pequena.

Passei a utilizar a função auto800() de autoria de:

Fivewidi
Manuel Valdenebro

m

Venho utilizando está função com muito exito, falta abranger ...

Ola Anser

Esta maneira q. te passei é somente um paliativo pos também não conheço nenhuma função no xHarbour q. faça isso q. vc quer

mas ela ainda apresenta problemas como por exemplo

JATO DE TINTA
EPSON STYLUS C79 em modo economico oPrn:nLogPixelX () = 120
e isso ira te trazer problemas ...

... há de mais simples. Um arquivo texto renomeado para xls com chr(9) para separar os campos.

porem já não estava atendendo mais meus clientes

passei a testar com OLE

até consegui gerar o arquivo. Era para ter 1 só celula ocupada, porem ele repete o mesmo conteudo em toda planilha.
alguem ...

... há de mais simples. Um arquivo texto renomeado para xls com chr(9) para separar os campos.

porem já não estava atendendo mais meus clientes

passei a testar com OLE

até consegui gerar o arquivo. Era para ter 1 só celula ocupada, porem ele repete o mesmo conteudo em toda planilha.
alguem ...

... VarPut&#40; "FiveWin power" &#41;, &#58;&#58;Refresh&#40;&#41; &#41; ;
BITMAP "&#46;&#46;\bitmaps\16x16\people&#46;bmp";
VALID&#40; MsgInfo&#40;"Passei"&#41;, &#46;T&#46; &#41; // Foi incluido este

REDEFINE BUTTONBMP ID IDOK OF oDlg ACTION &#40;MsgInfo&#40;"Mi Boton"&#41; &#41; // Foi incluido ...

... FUNCTION Chavepara(nanda,nregistos,linha)

LOCAL nandou

nandou :=0

* movimento dentro de gama aceitavel

IF Linha + nanda < 1

* passei topo do bloco !

nanda := - Linha + 1

ELSEIF linha + nanda > LEN(Nregistos)

* passei o fim do bloco !

nanda := LEN(Nregistos) - Linha ...

Pessoal

já passei 3 dias nisto e não me funciona o zip, dá um erro GPF e o windows fecha o aplicativo. É criado um arquivo zip com 0 bytes apenas.

O código está assim:

function T510()

LOCAL aZipar := {"WT110.prg","WT170.prg", "WT160.prg","WT130.prg"}
LOCAL cfile := "pacote.zip"

IF ...