joao

Bom dia , esse exemplo não usa METROPANEL.

o Leonardo postou a uns tempos atrás a classe que fiz, eles tem uma nova versão que tem algumas alteraçoes.

Boa tarde , nós usamos https://mega-api.app.br/ Preços: BÁSICO 99,90/mês A partir de 1 número Todas as formas de pagamento MEGA TOKEN 10 69,90 Acima de 10 números Valor mensal por número GRANDE VOLUMES MEGA TOKEN 50 55,00 Acima de 50 números Valor mensal por número GRANDE VOLUMES MEGA TOKEN 100 45,00 Acima de 100 números Valor mensal por número GRANDE VOLUMES MEGA TOKEN 500 30,00 Acima de 500 números Valor mensal por número

Bom dia , o amigo Paiva usa , são muito mais rápidos , mas é só no xharbour pago .

Boa noite, Não entendo sua dúvida , como quer agrupar se tem colunas com valor diferente, só vai agrupar mesmo se todas colunas forem iguais, se vc tem várias observações qual vc deseja que mostre, acho lógico , se vc quiser mostrar todas observações, faz um sub-select e criar um array das observações numa coluna, se quiser mostrar só uma observação faz um limit 1

Aqui tienes el .EXE que aparece en el video https://bitbucket.org/fivetech/fivewin-contributions/downloads/Fivedbuw.zip http://www.fivetechsupport.com/forums/viewtopic.php?f=6&t=41908&sid=36843bb1d9413ae1352330eb0b6a4cc3

Bom dia, Mas não pode ocultar o cabeçalho?

Boa tarde , não sei se entendi bem o que deseja , se é ocultar não é só fazer colocar a propriedade visible cada memo como false , testando se a página maior que 1 no evento OnBeforePrint if <Page#> = 1 then memo2.visible := false; abraço

Bom dia , as impressoras locais , câmera do computador local , funcionam bem ?

Bom dia, Não sei se vc quer atualizar a base no servidor em tem real, ou seja quando cadastra ou altera, se sim tem de fazer como o colega Jmsilva sugeriu, se vai fazer esse processo uma vez por dia, só restaurar as tabelas no servidor remoto, depois em cada base local abir conexão ao servidor, pegar os registros(vetor para cada tabela), depois ler esses dados e atualizar base local.

null ou zeros é igual não vai dar sem aquela alteração no mysql, envia uma data válida '1000-01-01'

Boa tarde, só mandar no formato certo no seu sistema e ai não dá erro, enviando NULL dá erro? Deve dar erro como null também , só vejo vc enviar uma data válida exemplo '1000-01-01'

Boa tarde , desde a versão 5.7, o MySQL habilita o SQL Strict Mode por padrão e não permite '0000-00-00' como um valor de data válido. Você pode ver o modo SQL no arquivo de configuração do MySQL ou executar este comando: SELECT @@GLOBAL.sql_mode global, @@SESSION.sql_mode session Se quiser Desative o modo estrito Se o modo estrito estiver ativado, um ou ambos STRICT_TRANS_TABLES ou STRICT_ALL_TABLES estarão ativados. Portanto, você pode desativá-lo comentando-o no arquivo de configuração do MySQL ou executando o comando: SET sql_mode = ''; Ou SET GLOBAL sql_mode = ''; Em seguida, reinicie o MySQL e você poderá usar '0000-00-00' como um valor para a coluna DATE ou DATETIME.

Boa tarde , Tenta assim : cFile:="c:\teste\arq.bmp" cStr:="conteúdo do_qrcode" Generar_QR(cStr,cFile) No final do prg coloca a seguinte chamada da dll e retire sua função Generar_QR DLL Function Generar_QR(cStr AS STRING ,cFile AS STRING ) AS LONG PASCAL FROM "FastQRCode" LIB ".\QRCodelib.dll"

Boa tarde, Desculpem a demora da resposta, usei em Harbour , mas pode usar a função do Eduardo Motta que funciona igual: EMTCRC_CCITT_FFFF(cTexto)

Boa tarde , Link do Manual: fhttps://www.bcb.gov.br/content/estabilidadefinanceira/pix/Regulamento_Pix/II_ManualdePadroesparaIniciacaodoPix.pdf Ajudei um amigo a montar a string e a gerar o QRCODE, montei assim a string: vEdit[1] := nValor //Valor do PIX vEdit[2] := cPIX_CHAVE //Chave do PIX para receber a transferencia vEdit[3] := cPIX_NOME //Nome do Proprietario do PIX cNomeCidadeLoja := cPIX_cidade //Nome da Cidade do proprietario do PIX cMsg := '05'+ strzero(len(alltrim(left(alltrim(cMsg),21))),2) + left(alltrim(cMsg),21) //Reference label até 25 caracteres. nTamChave := 22 + len(alltrim(vEdit[2])) //Tamanho da chave para ser colocado no registro 26 cString := '000201' //Inicio do código para gerar o Qr-Code cString += '26'+strzero(nTamChave,2)+'0014BR.GOV.BCB.PIX01'+ strzero(len(alltrim(vEdit[2])),2) + alltrim(vEdit[2]) cString += '52040000' cString += '5303986' cString += '54' + strzero(len(alltrim(str(vEdit[1]))),2) + alltrim(str(vEdit[1])) cString += '5802BR' cString += '59' + strzero(len(alltrim(vEdit[3])),2) + alltrim(vEdit[3]) //Merchant Name até 25 caracteres. cString += '60' + strzero(len(left(alltrim(cNomeCidadeLoja),15)),2) + alltrim(left(cNomeCidadeLoja,15)) //City Name até 15 caracteres. cString += '62' + strzero(len(cMsg),2) + cMsg cString += '6304' cString += NumToHex(HB_CRCCT(cString)) cString += NumToHex( hb_crcct( cString ) )

Feliz Natal e um próspero Ano Novo para todos.

Tente Sr_dbrefresh() no final

Boa tarde, Pode tentar : Antes : Sr_BeginTransaction() Depois : SR_CommitTransaction()

Boa tarde amigo, aqui funciona bem sem essa alteração, mas obrigado, abraço.

Boa tarde, Tem de alterar a classe ttray \source\ttray.prg colocar NIIF_NOSOUND : nid.dwInfoFlags = NIIF_INFO | NIIF_NOSOUND; //----------------------------------------------------------------------------// #pragma BEGINDUMP #include <hbapi.h> #define _WIN32_IE 0x0501 #include <windows.h> #ifndef NIF_INFO #define NIF_INFO 0x00000010 #define NIIF_INFO 0x00000001 #endif HB_FUNC( GETNOTIFYICONDATA ) { NOTIFYICONDATAA nid; memset( &nid, 0, sizeof( NOTIFYICONDATA ) ); nid.cbSize = sizeof( NOTIFYICONDATA ); #ifndef _WIN64 nid.hWnd = ( HWND ) hb_parnl( 1 ); #else nid.hWnd = ( HWND ) hb_parnll( 1 ); #endif nid.uID = ( UINT ) hb_parnl( 2 ); nid.uFlags = NIF_INFO | NIF_MESSAGE | NIF_ICON | NIF_TIP ; nid.dwInfoFlags = NIIF_INFO | NIIF_NOSOUND; nid.uCallbackMessage = ( UINT ) hb_parnl( 3 ); #ifndef _WIN64 nid.hIcon = ( HICON ) hb_parnl( 4 ); #else nid.hIcon = ( HICON ) hb_parnll( 4 ); #endif strcpy( nid.szTip, hb_parc( 5 ) ); strcpy( nid.szInfo, hb_parc( 5 ) ); strcpy( nid.szInfoTitle, hb_parc( 6 ) ); hb_retclen( ( char * ) &nid, sizeof( NOTIFYICONDATA ) ); } #pragma ENDDUMP

Boa tarde, teste com esta função e ajuste para o que precisa: FUNCTION ShowMsgTray(cMsg, cTit) SysRefresh() IF cMsg == NIL .OR. cTit == NIL c = GetNotifyIconData( oTray:oWnd:hWnd, 1, WM_TASKBAR, oTray:oIcon:hIcon, "", "") Shell_NotifyIcon( 1, c ) ELSE c = GetNotifyIconData( oTray:oWnd:hWnd, 1, WM_TASKBAR, oTray:oIcon:hIcon, cMsg, cTit ) Shell_NotifyIcon( 0, @c ) Shell_NotifyIcon( 1, c ) ENDIF oTray:Refresh() RETURN NIL Abraço João Alpande

Meus sentimento a família.

Boa tarde , Exemplo como mudar a cor do group da ribbonbar (gradient) ADD GROUP oGr1 RIBBON oRBar TO OPTION 1 PROMPT "Font" WIDTH 205 GRADIANT { { 0.23, RGB( 218, 229, 243 ), RGB( 174, 150, 169 ) }, { 0.77, RGB( 174, 150, 169 ), RGB( 218, 229, 243 ) } } Pode mudar o tema da ribbonbar só mudando o ano (2010,2013,2015,2016) DEFINE RIBBONBAR oRBar WINDOW oWnd PROMPT "um", "dois", "três", "Help" HEIGHT 134 TOPMARGIN 25 2010 Se precisar de mais veja este tópico para alterar as classes e os .ch: http://forums.fivetechsupport.com/viewtopic.php?f=3&t=17983&p=93976&hilit=define+ribbonbar#p93976

Bom dia , tem na pasta do samples yunus.prg, envio a imagem. Relembro que a classe tget tem ela.