vagner

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 8 - Vailton Renato - contato@vailton.com.br 9 - Rubens Martins - rumarti@gmail.com 10- Cleber Conde - cleber@krcsistemas.com.br 11 - Decker - Carlos E. Decker 12 - Vagner Wirts - vwirts@ig.com.br 13 - Antenor Trufelli Filho - trufelli@uol.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 #xcommand @ <nRow>,<nCol> SAY <cText> OF <oPrinter> => <oPrinter>:Say(<nRow>, <nCol>, <cText> )

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"