vagner

Olá,

Mas como? Não vi a inscrição dele!

O Kapi, deve estar de fogo só de pensar nas brejas

Olá Kapi,
Melhor vc compilar

@ECHO OFF
Rem CLS
ECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
ECHO ³ FiveWin for xHarbour xHarbour development power ³Ü
ECHO ³ © FiveTech, 1993-2007 for Microsoft Windows 95/98/NT/2000/ME/XP/Vista ³Û
ECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ
ECHO ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

ECHO Compiling with %hDir% %FwHDir% ...
If Exist hBComm.Lib Del hBComm.Lib
If Exist Erro.Vag Del Erro.Vag
If Exist *.Bak Del *.Bak
If Exist *.Log Del *.Log
If Exist *.Ppo Del *.Ppo

@Set Path=\Windows\Command;\Fox;\xHarbour1106\Bin;\Bcc582\Bin
@Set Lib=\FwH1106\Lib;\xHarbour1106\Lib;\Bcc582\Lib
@Set Include=\Bcc582\Include;\xHarbour1106\Include;\FwH1106\Include

Set hDir=\xHarbour1106
Set BcDir=\Bcc582
Set FwHDir=\FwH1106

%BcDir%\bin\bcc32 -M -c -D__HARBOUR__ -I%FwHDir%\Include;%BcDir%\Include;%hDir%\include Comm.Cpp >> Erro.Vag
%BcDir%\bin\bcc32 -M -c -D__HARBOUR__ -I%FwHDir%\Include;%BcDir%\Include;%hDir%\include hbComm.C >> Erro.Vag
%BcDir%\bin\bcc32 -M -c -D__HARBOUR__ -I%FwHDir%\Include;%BcDir%\Include;%hDir%\include hblComm.Cpp >> Erro.Vag

TLib hbComm + Comm.Obj >> Erro.Vag
TLib hbComm + hbComm.Obj >> Erro.Vag
TLib hbComm + hblComm.Obj >> Erro.Vag

1 - João Santos - Email: joao@pleno.com.br
2 - Luiz Fernando - Email: empresoft@globo.com

3 - Alexandre Serafini - alexandre@polirep.com.br

4 - Nárlem - narlem@nagas.com.br

5 - Gilmer - gilmer@fivewin.com.br

6 - Alexandre Pereira - alexandre@declatecnologia.com.br

7- Evandro G. de Paula - imortal@skillnet.com.br

Olá Valdir,

O mais lógico seria colocar na tabela de NCM/SH

Olá,

Após seu o action do button, coloque :
oSeuGet:bValid := {|| SuaRotinaDeValidação() }

Olá Valdir,

Desculpe mas funciona no XP sim , eu tenho rodando em XP, Vista e Win7.

O que pode ser é que a resolução que vc está tentando colocar não funciona no micro por causa da placa de vídeo

Olá Chame no Inicio do programa, antes de abrir a window, e no final do programa depois da activate window

Olá Dr Valdir

/********************************************************* 
 * Função      : Funcao em C para mudar a Resolução da Tela se Menor da Necessária para trabalhar
 * Data        : 13/03/2013 às 12:05:26 por Vagner
 * Revisado em : 13/03/2013 às 12:05:35 por Vagner
 * Parâmetros :
 * iWidthNew  - Largura Mínima Necessária
 * iHeightNew - Altura Mínima Necessária
**********************************************************/ 
#Pragma BEGINDUMP

#include <Windows.h>
#include <ShellApi.h>
#include <Wingdi.h>
#include <hbapi.h>

HB_FUNC (VMUDAVIDEO)
{
 int iWidthNew  = hb_parni(1);
 int iHeightNew = hb_parni(2);
 BOOL bSaida    = hb_parl(3) ;
 int iWidth,iHeight ;

 //Pega a Configuração Atual
 DEVMODE DeviceMode = { 0 };
 EnumDisplaySettings( NULL,
        ENUM_CURRENT_SETTINGS,
        &DeviceMode );

 iWidth  = DeviceMode.dmPelsWidth;
 iHeight = DeviceMode.dmPelsHeight;

 if(bSaida || iWidth < iWidthNew && iHeight < iHeightNew) {
  //Muda para a nova Configuração
  DeviceMode.dmPelsWidth  = iWidthNew ;
  DeviceMode.dmPelsHeight = iHeightNew;
  ChangeDisplaySettings( &DeviceMode, 0 );
 }
 hb_reta( 2 );

 hb_storni( iWidth , -1, 1 );
 hb_storni( iHeight, -1, 2 );
}

#pragma ENDDUMP

Modo de usar :

aVideoAntes := VMudaVideo(1024,768)]

Antes de Sair do Sistema

VMudaVideo(aVideoAntes[1],aVideoAntes[2],.T.)

Olá,

Faça um teste e retire o

Uma pequena observação :
No Windows XP não funciona, então prefira a transparência

/********************************************************* 
 * Função      : PintaDialogSemiTransparente - Função para Tornar uma Dialog Semi-Transparente
 * Programador : Vagner
 * Data        : 18/06/2008 - 19:07:11
 * Revisado em : 08/04/2013 às 16:02:15 por Vagner
 * Parâmetros  : 
 * oDlg - Objeto Dialog
 * nFat - Fator de Transparecencia Default 200
 * nClr - Cor para Colocar
**********************************************************/ 
Func PintaDialogSemiTransparente(oDlg,nFat,nClr)

Default nFat := 200
Default nClr := nRgb(255,255,254)

SetWindowLong( oDlg:hWnd, GWL_EXSTYLE, nOr( GETWINDOWLONG( oDlg:hWnd, GWL_EXSTYLE ), WS_EX_LAYERED ) )

SetLayeredWindowAttributes( oDlg:hWnd, nClr, nFat, 3 )
SysWait(.01)

return NIL

Olá Pessoal,
Eu disponibilizei os fontes, pois não compensava, era muita trabalho e pouco retorno, e quando eu soube que piratearam, aí realmente eu "desisti" dela e entreguei os fontes, basta compilar existe um c.bat e um xhar.bat, que são para compilar só precisa arrumar os bats para sua versão.
Jeorge, infelizmente estou sem tempo para mexer nisso agora.

Olá,

Já tentou com o lCellStyle ?

Olá,

Pode ser a versão do Internet explore, já que ele cria em HTML, tente criar em PDF

Hehehhe, não esquente não Daniel , foi só para relaxar um pouco mesmo  

O Erro é exatamente isso :

EMPTY(DTOS(DT_SAIDA))

o Empty() lhe retorna .T. ou .F. (variável Lógica)

KKKK, exatamente igual a minha segunda opção   só não coloquei em um codblock pois o valid já faz o codblock

Olá,

ACTION IF( MsgYesNo("Deseja excluir os dados ?", "..::Dados"), (SeuArquivo->(RLock()),SeuArquivo->(DbDelete()),SeuArquivo->(DbUnlock()), MsgInfo("Não Deleta"))

Agora se For mais de um registro :

ACTION IF( MsgYesNo("Deseja excluir os dados ?", "..::Dados"), SueArquivo->(DbEval({||(SeuArquivo->(RLock()),SeuArquivo->(DbDelete()),SeuArquivo->(DbUnlock())}), MsgInfo("Não Deleta"))

Olá,
Se for Win7 e for Home Edition, esquece, as vezes nem abrir o arquivo simultaneamente vc consegue:(

Oi, vc verificou se o cabo está funcional ?, uma vez tomei um baile de uma balança, e o problema estava no cabo, foi só trocar e pronto

Olá,
Bom reativei o tópico, pois tive necessidade de mudar a configuração do monitor, então montei, uma função estou deixando para quem precisar

/********************************************************* 
 * Função      : Funcao em C para mudar a Resolução da Tela se Menor da Necessária para trabalhar
 * Data        : 13/03/2013 às 12:05:26 por Vagner
 * Revisado em : 13/03/2013 às 12:05:35 por Vagner
 * Parâmetros :
 * iWidthNew  - Largura Mínima Necessária
 * iHeightNew - Altura Mínima Necessária
**********************************************************/ 
#Pragma BEGINDUMP

#include <Windows.h>
#include <ShellApi.h>
#include <Wingdi.h>
#include <hbapi.h>

HB_FUNC (VMUDAVIDEO)
{
 int iWidthNew  = hb_parni(1);
 int iHeightNew = hb_parni(2);
 int iWidth,iHeight ;

 //Pega a Configuração Atual
 DEVMODE DeviceMode = { 0 };
 EnumDisplaySettings( NULL,
        ENUM_CURRENT_SETTINGS,
        &DeviceMode );

 iWidth  = DeviceMode.dmPelsWidth;
 iHeight = DeviceMode.dmPelsHeight;

// if(iWidth < iWidthNew || iHeight < iHeightNew) {  

//Desculpem eu retirei isso pois só serve para eu, senão vcs não conseguirão retorar o monitor

  //Muda para a nova Configuração
  DeviceMode.dmPelsWidth  = iWidthNew ;
  DeviceMode.dmPelsHeight = iHeightNew;
  ChangeDisplaySettings( &DeviceMode, 0 );
// }
 hb_reta( 2 );

 hb_storni( iWidth , -1, 1 );
 hb_storni( iHeight, -1, 2 );
}

#pragma ENDDUMP

Para Usar é simples :

aResolucaoAtual := VMudaVideo(1024,768)
Isso fará mudar para a nova configuração, lhe retornando um array, para que qndo sair do sistema retornar para a incial

VMudaVideo(aResolucaoAtual[1],aResolucaoAtual[2])

Abraços,
Vagner Wirts

Olá,

Está correto como vc postou, deveria funcionar, eu não gosto muito de usar índices desse jeito com str, prefira usar o StrZero() ao invés do Str(), mas de qualquer maneira está correto.

Veja que ele irá filtrar primeiramente pelo cContr+cTurm+cEstagio

Só uma pergunta, essas variáveis são Numéricas né ? pergunto isso por vc ter colocado "c" na frente, indicando ser uma var Caracter ao invés de ser numéria como deveria ser para poder usar o STR()

Abraços

Vagner Wirts

Olá,
Vc está mandando gravar diretamente na "Raiz" "C:", coloque em alguma outra pasta pois dependendo do Windows, vc não consegue gravar no Raiz

Bom Gente,
O Fórum ficou mais AZUL , quem sabe agora tudo fique azul tb para todos, um Bom Retorno a todos

Abraços

Vagner Wirts

Feliz Natal a Todos e Um Próspero Ano Novo

Vagner Wirts

"Ele não sabendo que era impossível, foi lá e fez"

Olá Pessoal,

Só pra informar, depois de formatar uma mqna e instalar o xharbour e borland, consegui

Obrigado a todos

Vagner Wirts

"Ele não sabendo que era impossível, foi lá e fez"