Lameira

É verdade..., estive pesquisando outros tópicos e na net também, a melhor saída e a mais prática é ter uma tabela só que faça todo o fluxo. valeu!!!

Olá Galera!!! Preciso da ajuda de Mestre!!! Estou montando um projetinho em VB6 de fluxo de caixa, criei duas tabelas, sendo uma para entrada (ent -> numin, codcli, datin, bcoin, chein, valin) e outra para saída (deb -> numout, desout, datout, banout, cheout, valout). Introduzi vários registros em cada uma das tabelas. Eu preciso agora jogar esses registros numa grid demonstrando o fluxo de caixa ($$), os registros devem mostrar por período e deve ser pelo mês anterior, mês atual e por período aleatório. Para os registros de entrada eu estou usando o seguinte código: mês atual: 'primeiro dia do mês atual d1 = DateSerial(Year(Date), Month(Date), 1) 'último dia do mês atual d2 = DateSerial(Year(Date), Month(Date) + 1, 0) Set rsentcash = basecash.OpenRecordset("select * from ent where DateValue(dtin) >= DateValue('" & d1 & "') and DateValue(dtin) <= DateValue('" & d2 & "')order by numin") Set dataent.Recordset = rsentcash mês anterior: 'primeiro dia do mês atual d1 = DateSerial(Year(Date), Month(Date) - 1, 1) 'último dia do mês atual d2 = DateSerial(Year(Date), Month(Date), 0) Set rsentcash = basecash.OpenRecordset("select * from ent where DateValue(dtin) >= DateValue('" & d1 & "') and DateValue(dtin) <= DateValue('" & d2 & "')order by numin") Set dataent.Recordset = rsentcash periodo: Set rsentcash = basecash.OpenRecordset("select * from ent where DateValue(dtin) >= DateValue('" & d1 & "') and DateValue(dtin) <= DateValue('" & d2 & "')order by numin") Set dataent.Recordset = rsentcash esses códigos estão funcionando perfeitamente. Já para os registros de fluxo de caixa eu já tentei usar os comandos Union e InnerJoin, mas eu nunca havia usado esses comandos e estou quebrando a cabeça com o SQL... Por favor me ajudem e enviem um declaração em SQL usando esses comandos que se adapte em minha necessidade. grato :blink:

Vê se dá certo assim: 'declarações Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _ ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _ ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long Private Const SM_CXSCREEN = 0 Private Const SM_CYSCREEN = 1 Private Const HWND_TOP = 0 Private Const SWP_SHOWWINDOW = &H40 Private Sub Form_Resize() Dim cx As Long Dim cy As Long Dim RetVal As Long Me.WindowsState = vbNormal 'retorna a largura da tela cheia (resolução H) cx = GetSysteMMetrics(SM_CXSCREEN) 'retorna a altura da tela cheia(resoluçao V) cy = GetSystemMetrics(SM_CYSCREEN) 'chama a API para definir o novo tamanho da janela RetVal = SetWindowPos(Me.hwnd,HWDN_TOP,0,0,cx,cy, SWP_SHOWWINDOW) 'dimenciona o comp Image de acordo com a janela image.width = Me.Width - 500 image.Heigth = Me.Height + 2300 image.Left = Me.Left + 700 image.Top = Me.Top + 2300 End Sub

Ok, Kuroi, abri um novo projeto e segui tua dica e, deu pau também. Será que a última versão do controle activeX (flash.ocx e swflash.ocx) é compatível com o XP SP3??? Minha pergunta é porque depois que formatei a máquina eu baixei esses arquivos da adobe e depois disso eu não posso fazer nenhuma alteração no form que tem o shockwavesplash, se não mexo nele, roda belezinha, mas qualquer alteração, tenho que salvar e ai dá erro, não sei como checar essa compatilibidade... :huh:

estou usando o XP SP3. :blink:

Olá feras!!! Mais uma vez apelo aos Mestres deste forum. Eu tinha dificuldade em ajustar as dimensões do meu form com o tamanho do monitor, para cada monitor era necessário ajustar o código: ' ajusta dimensão do componente Image de acordo com a tela imgpri.Width = Me.Width + 2550 imgpri.Height = Me.Height + 1200 imgpri.Left = Me.Left - 2000 imgpri.Top = Me.Top + 2300 ..., achei um código na net e colei no meu form, como segue: ' declarações para ajustar dimensão do formulário com o monitor * http://www.daniweb.com/forums/thread140757.html Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _ ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _ ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long Private Const SM_CXSCREEN = 0 Private Const SM_CYSCREEN = 1 Private Const HWND_TOP = 0 Private Const SWP_SHOWWINDOW = &H40 no form_load colei esse código: 'variáveis para definir a relação tela / monitor Dim cx As Long Dim cy As Long Dim RetVal As Long Me.WindowState = vbNormal ' retorna a largura da tela cheia (resolução Horizontal). cx = GetSystemMetrics(SM_CXSCREEN) ' retorna a altura da tela cheia (resolução Vertical). cy = GetSystemMetrics(SM_CYSCREEN) ' chama a API para definir o novo tamanho da janela. RetVal = SetWindowPos(Me.hwnd, HWND_TOP, 0, 0, cx, cy, SWP_SHOWWINDOW) ' ajusta dimensão do componente Image de acordo com a tela imgpri.Width = Me.Width - 500 imgpri.Height = Me.Height + 2300 imgpri.Left = Me.Left + 700 imgpri.Top = Me.Top + 2300 Só que quando eu inicio o form ele fica no tamanho estabelecido no projeto e depois fica piscando até se ajustar ao tamanho do monitor. Alguns usuários reclamaram disso. Tem como melhorar o código? grato,

Tenho um form Splash no meu projeto VB6 e nele coloquei um componente ShockwaveFlash para apresentar um videozinho em flash, baixei o arquivo swflash.ocx e instalei na pasta Windows/system. Adicionei o componente na Caixa de Ferramentas e colei o componente no form; usei o seguinte código: AnimaFlash.Movie = (App.Path & "\arquivo.swf") AnimaFlash.Play AnimaFlash.Loop = False A princípio funcionou bem... Tive que formatar minha máquina, refiz todo procedimento quanto aos arquivos .ocx, porem notei que na Caixa de ferramentas a opção SlockwaveFlash ficou como se fosse uma folha em branco (igual a tecla Arquivo Novo no Word). O programinha roda bem, porem se fizer alguma alteração no form Splash dá erro: "System Error &H80004005(-2147467259). Erro não especificado." Se retiro o componente ShockwareFlash consigo salvar mas fico sem apresentação do videozinho. Já exclui e recolei o componente no form mas continuou dando pau. Só consigo gravar se o componente for eliminado do form. alguém pode me ajudar??? :rolleyes:

Kuroi, é o seguinte... o form Principal, quando minimizado, minimiza também os outros formulários; a idéia é deixar os formulários mais independentes do form Principal, deixando-o apenas para chamar os outros forms. Vamos supor que o usuário vai copiar informações de uma tabela, como o form Principal toma toda a tela o ideal seria minimiza-lo e ficar apenas com o form de Cadastro, que é bem menor, aberto. O que acontece é que quando o form Principal é minimizado o de cadastro também é. Pelo que entendi isso não será possível porque o form Cadastro é chamado como "modal", certo? Como então eu posso resolver essa questão? fico aguardando...

...o form Principal está sendo mostrado como modal principal.Show os demais forms também. A propriedade MDIChild de todos os formulários estão marcados com 'false'. :wacko:

vlw Kuroi, vou colar no meu sistema e testar..., brigadão por mais esta ajuda. :rolleyes:

Olá Kurói!!! realmente eu ainda estou precisando dessa ajuda, e sinceramente eu não sei como fazer esses replaces, se tiver algum exemplo fico grato. vlw

Olá Galera!!! É possível minimizar o form Principal e deixar os outros forms na tela??? Vamos supor, através do form Principal é chamado o form de Cadastro e o usuário queira deixar somente o form de Cadastro na tela; é possível minimizar o form Principal e continuar com o form de Cadastro na tela??? Tenho um sisteminha que quando o form Principal é minimizado todos os outros forms também são (???). Tem como evitar isso??? :rolleyes:

'imgpri' é um componente Image do Form Principal. Consegui fazer um teste e funcionou, tanto num monitor normal como no widescreen, o form ficou bem dimensionado e posicionado. Vlw pela dica da API GetSystemMetrics. :rolleyes: Só ficou o 'pisca' quando o formulário é iniciado. :blink:

Olá Kurói!!! Valeu pela força (+1x) Dei uma pesquisada e encontrei um código, dá uma olhada como ficou... na declaração do Form foi colocado: Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _ ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long Private Const SM_CXSCREEN = 0 Private Const SM_CYSCREEN = 1 Private Const HWND_TOP = 0 Private Const SWP_SHOWWINDOW = &H40 e, no Form_Load: Dim cx As Long Dim cy As Long Dim RetVal As Long Me.WindowState = vbNormal ' retorna a largura da tela cheia (resolução H). cx = GetSystemMetrics(SM_CXSCREEN) ' retorna a altura da tela cheia (resolução V). cy = GetSystemMetrics(SM_CYSCREEN) ' chama a API para definir o novo tamanho da janela. RetVal = SetWindowPos(Me.hwnd, HWND_TOP, 0, 0, cx, cy, SWP_SHOWWINDOW) ' ajusta dimensão do componente Image de acordo com a tela imgpri.Width = Me.Width - 500 imgpri.Height = Me.Height + 2300 imgpri.Left = Me.Left + 700 imgpri.Top = Me.Top + 2300 O código só foi testado no meu note (widescreen), não tenho monitor no formato normal, assim que testar eu posto o resultado mas fique a vontade para comentar o que foi feito; só observei uma falha: quando abre o formulário dá uma piscada na tela mas depois fica tudo normal.

Olá galera do bem!!! Tenho mais uma para esse fórum. Existe alguma forma do sistema identificar quando a tela é widescreen ou normal??? Explico..., fiz um sistema no meu notebook que possui tela widescreen e apresentei num computador com monitor normal, ficou bem visível que o sistema não entendeu a mudança e as telas não cabiam na tela do computador. Existe alguma forma disso não acontecer??? Qual é o melhor formato de tela para se elaborar um sistema, widescreen ou normal??? fico no aguardo e agradeço mais essa ajuda. :wacko: