ivomar

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, ShellAPI, { Unit para criar icone no Systray } const wm_IconMessage = wm_User; private { Private declarations } procedure TrataErros(Sender: TObject; E: Exception); procedure IconTray (var Msg: TMessage); message wm_IconMessage; public { Public declarations } nid: TNotifyIconData; procedure TForm1.FormCreate(Sender: TObject); begin { Criando TrayIcon, e copiando Icone do Form } Icon.Handle := LoadIcon (HInstance, 'MAINICON'); nid.cbSize := sizeof (nid); nid.wnd := Handle; nid.uID := 1; // Identificador do ícone nid.uCallBAckMessage := wm_IconMessage; nid.hIcon := Icon.Handle; nid.szTip := 'IVM Update'; nid.uFlags := nif_Message or nif_Icon or nif_Tip; Shell_NotifyIcon (NIM_ADD, @nid); Caption := 'IVM Update - Software Auto-Atualização'; Application.OnException := TrataErros ; Application.OnMinimize := Ocultar1Click ; Application.OnRestore := Restaurar1Click ; Application.Title := Caption ; Application.HintHidePause := 5000 ; Ocultar1.Click; end; procedure TForm1.Restaurar1Click(Sender: TObject); begin Application.ShowMainForm := true ; Visible := true ; Application.Restore ; Application.BringToFront ; Application.ProcessMessages ; end; procedure TForm1.Ocultar1Click(Sender: TObject); begin Visible := false ; Application.ShowMainForm := false ; Application.ProcessMessages ; end; procedure TForm1.IconTray(var Msg: TMessage); var Pt: TPoint; begin if Msg.lParam = WM_RBUTTONDOWN then begin GetCursorPos (Pt); pmTray.Popup (Pt.x, Pt.y); end else if Msg.lParam = WM_LBUTTONDBLCLK then if Visible then Ocultar1.Click else Restaurar1.Click; end; procedure TForm1.TrataErros(Sender: TObject; E: Exception); begin ShowMessage('Exception: ' + E.Message); StatusBar1.Panels[0].Text := 'Exception' ; end; procedure TForm1.Encerrar1Click(Sender: TObject); begin Close; end; procedure TForm1.FormDestroy(Sender: TObject); begin nid.uFlags := 0; Shell_NotifyIcon (NIM_DELETE, @nid); // Timer1.Enabled := false ; end; Testa assim, Abraço

Fiz os teste e ficou assim: vlr1=100,00 vlr2=null TOTAL=NULL QUERY1.SQL('SELECT SUM(VLR1)+SUM(VLR2) AS TOTAL ....

Olá Jhonas, quando eu faço sum(vlr1)+sum(vlr2) se um dos dois campos estiver nulo o TOTAL será nulo.

sim, apos a solicitação feita no site da sefaz "UVT" deverá ser feita uma NFe teste no ambiente de homologacao e enviada para sefaz. Depois disso a secretaria vai liberar o seu cnpj pra transmitir em produção.

Favor não replicar o tópico, se não for acrescentar nada novo ... obrigado editado por Jhonas... 15:34hs Eu não sei quem tem valor ou quem está nulo por exemplo: vr1=100,00 vlr2=null O TOTAL deverá ser = 100,00 vlr1=null vlr2=100,01 o total deverá ser = 100,01 vlr1=null vlr2=null o total deverá ser = 0,00

Preciso de uma grande ajuda. Estou tendo que usar tabelas antigas em .DBF e não estou conseguindo testar os valores nulo já tentei: 1-QUERY1.SQL('SELECT COD,NOME,SUM(ISNULL(VLR1,0)+SUM(ISNULL(VLR2,0) AS TOTAL FROM TABELA GROUP BY COD,NOME'); 2-QUERY1.SQL('SELECT COD,NOME,SUM(COALESCE(VLR1,0)+SUM(COALESCE(VLR2,0) AS TOTAL FROM TABELA GROUP BY COD,NOME'); 3-QUERY1.SQL('SELECT COD,NOME,SUM(IFNULL(VLR1,0)+SUM(IFNULL(VLR2,0) AS TOTAL FROM TABELA GROUP BY COD,NOME'); 4-QUERY1.SQL('SELECT COD,NOME,SUM(NVL(VLR1,0)+SUM(NVL(VLR2,0) AS TOTAL FROM TABELA GROUP BY COD,NOME'); O ERRO É SEMPRE O MESMO "CAPABILITY NOT SUPPORTED" alguém tem uma dica??????????????? Grato, Ivomar