oliveiros

Olá, obrigado pelas respostas.

Oi Kapiaba, blz? É o seguinte: Tenho um a dialog pintada com setDlgGradiente dividido horizontalmente, aonde o lado esquerdo e 3/4 da tela. Sobre esse lado eu consigo colocar uma imagem, porém necessito sobre essa imagem colocar outra, porém não funciona. Achei o comando TransBmp, porém só funciona com bmp e preciso que seja png. Att., Oliveiros Junior

Olá, bom dia! Pessoal é possível sobre imagem com outra imagem, ambas png. Vou detalhar aqui a minha necessidade: Tenho uma dialog, aonde eu divido em duas partes com o comando SetDlgGradient, sendo o lado esquerdo maior, 3/4 da tela. Sobre o lado maior, esquerdo, coloquei a imagem fundo.png, porém preciso colocar imagens sobre a fundo.png. Já tentei algumas opções que não funcionaram, como https://forums.fivetechsupport.com/viewtopic.php?f=3&t=36838&p=219823&hilit=bitmap+transparent&sid=65eca4af1d53bc22544edbbd2b12fc48#p219823; e transpBmp(). Alguém teria alguma sugestão? Att., Oliveiros Junior

Olá, É simples. oCol := oBrowse:AddCol() oCol:nWidth := 30 oCol:cHeader := "Situação" oCol:oHeaderFont := oFonte5 oCol:nHeadStrAlign := AL_CENTER oCol:AddResource( "FALTA" ) // Imagem do rc - 1 oCol:AddResource( "FALTA_JUSTIFICADA" ) // Imagem do rc - 2 oCol:AddResource( "AULA" ) // Imagem do rc - 3 oCol:bBmpData := { || IIf( financeiro->situacao_cobranca = "01", 1, ; IIf( financeiro->situacao_cobranca = "02", 2, 3 ) ) } Att., Oliveiros Junior

Olá João, tudo bem? Você tem o link para baixar o BCC7.60? Att., Oliveiros Junior

Olá, bom dia! Obrigado a todos.

Obrigado!

Boa noite pessoal! Alguém saberia informar se existe alguma forma de colorir metade de uma dialog de uma cor e a outra de outra cor? Att., Oliveiros Junior

Olá, bom dia! Obrigado pelas respostas. Acredito que uma solução passe pela função FW_GetMonitor do fivewin. https://forums.fivetechsupport.com/viewtopic.php?f=3&t=41156&p=246507&hilit=FW_GetMonitor&sid=38bcc961beab96a50e8dab3c700c0eb8#p246507 Att., Oliveiros Junior

Olá, boa tarde! Alguém conseguiu implementar os dois monitores, um para que o cliente possa acompanhar a compra e outra para o caixa? Att., Oliveiros Junior

Olá, Acho que seria mais interessante o Messenger. Será que alguém tem uma rotina para partilhar? Desde já agradeço. Att., Oliveiros Junior

Oi Wellington, boa noite! Obrigado! Já havia resolvido com o xBrowse. Estou acabando de montar. Att., Oliveiros Junior

Valeu, obrigado! Mas teria outra opção? Oliveiros Junior

Pessoal, boa tarde! Estava precisando colocar em um browser vários registro na mesma linha, como no exemplo abaixo, que por sinal é daqui do fórum. Alguém sabe dizer se isso é da xBrowser, se tem algum método especifico ou foi feito por meio de array? Att., Oliveiros Junior

Olá, agora entendi. select a.Date, ( SELECT COUNT(*) from process AS p WHERE a.Date >= p.dtcalc1 and If( TIMESTAMPDIFF(DAY, p.dtcalc1, p.dtcalc2) = 0 , a.Date <= p.dtcalc2, a.Date < p.dtcalc2 ) GROUP BY a.Date) AS ocorrencia from ( select curdate() - INTERVAL (a.a + (10 * b.a) + (100 * c.a) + (1000 * d.a) ) DAY as Date from (select 0 as a union all select 1 union all select 2 union all select 3 union all select 4 union all select 5 union all select 6 union all select 7 union all select 8 union all select 9) as a cross join (select 0 as a union all select 1 union all select 2 union all select 3 union all select 4 union all select 5 union all select 6 union all select 7 union all select 8 union all select 9) as b cross join (select 0 as a union all select 1 union all select 2 union all select 3 union all select 4 union all select 5 union all select 6 union all select 7 union all select 8 union all select 9) as c cross join (select 0 as a union all select 1 union all select 2 union all select 3 union all select 4 union all select 5 union all select 6 union all select 7 union all select 8 union all select 9) as d ) a where a.Date between '2023-06-01' and '2023-06-07' GROUP BY a.Date ORDER BY a.Date Essa query vai retorna algo assim 2023-06-01 - NULL 2023-06-02 - NULL 2023-06-03 - 1 2023-06-04 - 3 2023-06-05 - 1 2023-06-06 - 2 2023-06-07 - NULL Att., Oliveiros Junior

Oi, bom dia! Explica melhor a demanda, por favor. Vc precisa colocar a quantidade de dias entre as datas dtcalc1 e dtcalc2, isso? SELECT p.dtcalc1 AS data, SUM( IF( TIMESTAMPDIFF(DAY, p.dtcalc1, p.dtcalc2) = 0, 1, TIMESTAMPDIFF(DAY, p.dtcalc1, p.dtcalc2) ) ) AS dias FROM process AS p GROUP BY p.dtcalc1; Testa essa Query. O resultado será: 03/06/2023 - 2; 04/06/2023 - 3; 06/06/2023 - 2; Não entendi na sua demanda dia 05/06/2023 - 1; Atenciosamente, Oliveiros Junior

Olá Kapiaba, boa noite! Consegui usar a HBOle. O problema é que ela tinha que vir no inicio do bat de compilação. Obrigado pela ajuda Oliveiros Junior

Oi, não João, atualmente uso o 20.07. Esse é um sistema que está funcionando bem só preciso implementar essa rotina.

Olá Kapiaba, boa tarde! Em primeiro lugar, obrigado pela resposta. Coloquei seu exemplo para compilar na versão "FiveWin for Harbour 2.4 - July 2003" e agora ele não passa o URL. Abre o IE e no browser mostra "http:///". Att., Oliveiros Junior.

Olá pessoal, boa noite! Preciso compilar um programa antigo e estou precisando da lib HbOleAut, queria saber se tem alguém que possa compartilhar. A que tenho é de 15.07.2007. Estou tentando abrir um página da internet, e para isso estou usando a seguinte rotina: Function AbrirURL() Local oOle, cURL cURL := "https://receita.fazenda.df.gov.br.com.br" oOle:= TOleAuto():NEW( "InternetExplorer.Application" ) oOle:Visible := .T. oOle:ToolBar := .F. oOle:StatusBar := .F. oOle:MenuBar := .F. oOle:Navigate2( cURL ) //While oOle:ReadyState <> 4 // SysWait( .5 ) //Enddo SysRefresh() Return .t. *----------------------------------------------------------------------------------------* O programa compila, porém diz que a propriedade Navigate2, no momento da execução, é "tipo de variante não implementado" Desde já agradeço. Se quiser mandar direto, pode mandar para oliveiros.jr@uol.com.br Att., Oliveiros Junior

Oi emotta, boa tarde! Você precisa capturar seu certificado. Eu uso a capcom.dll e seleciono o certificado pela função: .... cXML := HB_MemoRead( cXML_Assinado ) cCertificado := Pegar_Certificado() If Empty( cCertificado ) cMensagem += "Não foi possível carregar as informações do certificado." Exibir_Mensagem() Return .F. Else cMensagem += "Certificado em uso " + cCertificado Exibir_Mensagem() EndIf TRY oServer := CreateObject( "MSXML2.ServerXMLHTTP.6.0" ) CATCH oError cMensagem += "Não foi possível carregar objeto XMLHTTPServer." Exibir_Mensagem() Return .F. END oServer:setOption( 3, 'CURRENT_USER\MY\' + cCertificado ) oServer:open( 'POST', cLink, .F. ) oServer:setRequestHeader( 'SOAPAction' , cSoapAct ) oServer:setRequestHeader( 'Content-Type' , 'text/xml; charset=utf-8' ) oServer:setRequestHeader( 'Content-Length:', AllTrim( Str( Len( cXML ) ) ) ) TRY oDOMDoc := CreateObject( "MSXML2.DOMDocument.5.0" ) oDOMDoc:async := .F. oDOMDoc:resolveExternals := .F. oDOMDoc:validateOnParse := .T. oDOMDoc:preserveWhiteSpace := .T. oDOMDoc:LoadXML( cXML ) CATCH cMensagem += "Não foi possível carregar o documento XML." Exibir_Mensagem() Return .F. END *------------------------------------------------------------------------------* Function Pegar_Certificado() Local oCapicom Local oCertificado Local cCertificado Local nX Local cSubjectName TRY oCapicom := CreateObject( "CAPICOM.Store" ) CATCH END If oCapicom == NIL Return "" EndIf oCapicom:open( CAPICOM_CURRENT_USER_STORE,'My', CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED ) oCertificado := oCapicom:Certificates() For nX := 1 To oCertificado:Count() If oCertificado:Item(nX):SerialNumber == cSerial_Certificado cSubjectName := oCertificado:Item( nX ):SubjectName EndIf Next cCertificado := "" FOR nX := At( "CN=", cSubjectName ) + 3 To Len( cSubjectName ) If SubStr( cSubjectName, nX, 1 ) == "," Exit EndIf cCertificado += SubStr( cSubjectName, nX, 1 ) Next Return cCertificado *------------------------------------------------------------------------------* ATENÇÃO! Essa função é baseada na classe sefazclass do JoséQuintas Att., Oliveiros Junior

Boa noite! Alguém já testou a conexão com BD pelo IPV6 - SQLLib, HDO, Eagle ou Nativa do Fivewin? que possa passar sua experiência? Att., Oliveiros Junior

Oi emotta, boa tarde! Eu tenho um servidor linux na LocaWeb com mysql 8.0. Att., Oliveiros Junior

Oi, Alterei o campo observação para mediumblob e fiz um teste colocando o campo no GROUP BY, e como lhe falei o resultado foram 3 registros, porque o conteúdo do campo observação são diferentes.

Só uma observação, como o conteúdo da obervação é diferente, como na seq, ele mostra a primeira ocorrência. Se o seq estiver na lista de campos a ser apresentado, ele apresentaria a seq 001.