Jmsilva

Obrigados amigos! vou testar e retorno assim que possível !

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=35501 Veja se ajuda...

Uma única tabela.... acredito que é um select dentro de outro. Com group by. Quase conseguindo.

Olá! como ficaria um SELECT, para exibir SEMENTE as linhas em que os campos CODIGO e a DATACADASTRO sejam idênticas Pseudo código: Select * from <nometabela> where codigo=codigo and datacadastro=datacadastro; CODIGO,TIPO,DATA,QTDE result: 1,'S',01/01/2020, 10 1,'E',01/01/2020, 100 5,'E', 10/01/2020, 20 5,'S',10/01/2020, 5 5,'S',10/01/2020, 3 BLZ

Acredito que vc precisa cadastrar nas regras de excessão do monitoramento do Kaspersky. Desta forma ele deixa de monitorar o comportamento do seu sistema.

Já tive problemas igual, no meu caso resolvi configurando o recurso com a desativação da propriedade ":l2007". Ex: oBrw:l2007 := .f. //melhora o desempenho

Edu, a titulo de curiosidade! Talvez vc já tenha usado, segue uma outra forma: mNome = "select nome from cliente where codigo = 00001" oSql := SR_GetConnection() oSql:Execute(mNome) oSql:iniFields(.F.) //obrigatório aResult:={} Do While oSql:Fetch(@aResult) == SQL_SUCCESS //=0 //Linha a linha dos dados xbrowse(aResult) Enddo

Se não quer usar o Dbf a sugestão e o vetor, que também citei acima. oSql:Exec(mNome,,.T.,aNomes)

Uma forma simples e que poderia resolver é o próprio dbusearea(). Ex: DBUseArea(.T.,"SQLRDD",mNOME,"TEMP") // OU "MEM:TEMP") Vetor: oSql:Exec(mNome,,.T.,aNomes) Dbf: oSql:Exec(mNome,,.T.,,"temp") //mem:temp ou temp Function exemplo() Local nID,apCode Local oSql := SR_GetConnection() nID:=oSql:nSystemID apCode := SR_SQLParse(mNome,@nErr,@nIdErr) mNome := SR_SQLCodeGen(apCode,,nID) oSql:Exec(mNome,,.T.,aNomes) // para vetor /*ou assim*/ oSql:Exec(mNome,,.T.,,"temp") //para dbf ... Return

Edu, tem várias formas, a SqlRdd, ela retorna em vetor ou Dbf, vou passar um exemplo assim que poder. Que eu mais gosto é associar Dbf em memória usando MEM:NOMEALIASSEU. blz

**=================================================================== STATIC FUNCTION GoFoto(oImg) **=================================================================== LOCAL lRet,cFile := "tmp\file.bmp" lRet := GetWebCam(oImg) If lRet cStrBMP := BmpToStr(oImg:hBitmap) //GRAVA_IMG() EndIf RETURN NIL Chamada

/*------------------------------------------------------------------------------*/ * Archivo: WebCam.PRG * * Descripcion: WebCam * * Fecha: Diciembre del 2010 * * Release: Ver 1.0 * * Autor: Jose Javier LLoris Roig * * Verion para: 32Bits * * * * Libreria: FWH/FWHX 8.12 28/December/2008 * * Harbour: Harbour 1.0.1 Rev 9361 1999-2008 * * Compilador: Borland C++ 5.5.1 versión 32bits * * Editor de Recursos: WorkShop 4.5 y ResEdit * * Gestor de B.D: A.D.A ( Advantage Data Architect ) * * S.O: Windows XP / Windows 7 * /*------------------------------------------------------------------------------*/ #INCLUDE "Fivewin.ch" #INCLUDE "WebCam.ch" #DEFINE DT_CENTER 0x01 STATIC oWnd STATIC oBar STATIC oWebCam STATIC lStop,lRet **----------------------------------------------------------------------------*/ Function GetWebCam(oImg) //necessita para manter o focu da tela **----------------------------------------------------------------------------*/ LOCAL oDlg DEFINE DIALOG oDlg ACTIVATE DIALOG oDlg ON INIT (ShowWindow( oDlg:hWnd,6),; oDlg:Hide(),WndWebCam(oImg),oDlg:End()) Return lRet **------------------------------------------------------------------------------*/ Static Function WndWebCam(oImg) **------------------------------------------------------------------------------*/ LOCAL oCursor,oFont,oIco //,cFILE := "bmp\file.bmp" lStop := .T. lRet := .F. DEFINE ICON oIco RESOURCE "RC_IWEB" DEFINE FONT oFont NAME "Tahoma" SIZE 0,-12 DEFINE CURSOR oCursor HAND DEFINE WINDOW oWnd TITLE "Capturar Fotos"; BORDER NONE NOMINIMIZE NOMAXIMIZE oWnd:SetIcon(oIco) oWnd:SetFont(oFont) @ 60, 0 WEBCAM oWebCam SIZE 400, 400 OF oWnd ADJUST RATE 66 oWebCam:Initialize() /* Incremento adicional por la adicion de la barra de botones */ /* y la barra de mensajes. */ oWebCam:nIncrem := 130 DEFINE BUTTONBAR oBar _3D SIZE 75, 60 OF oWnd DEFINE BUTTON RESOURCE "RC_WEBON"; NOBORDER OF oBar; ACTION oWebCam:Initialize(); TOOLTIP "Conectar a WebCam"; FONT oFont; PROMPT "Conectar"; WHEN !oWebCam:isConnected /* DEFINE BUTTON RESOURCE "RC_WEBG"; NOBORDER OF oBar; ACTION (oWebCam:Clipboard(),; //Copy oWebCam:SaveFile(cFILE),oImg:LoadBMP(cFILE)); //deu certo TOOLTIP "Capturar Imagem"; FONT oFont; PROMPT "Capturar"; WHEN oWebCam:isConnected */ DEFINE BUTTON RESOURCE "RC_FOTO"; NOBORDER OF oBar; ACTION (oWebCam:Clipboard(),; //Copy ctrl+c oImg:LoadFromClipboard(),; //paste ctrl+v oImg:LoadFromString(BmpToStr(oImg:hBitmap)),; oImg:Refresh()); //Paste TOOLTIP "Capturar Imagem"; FONT oFont; PROMPT "Capturar"; WHEN oWebCam:isConnected //oImag:CopyToClipboard() //classe Clipboard para text //oImg:LoadFromClipboard(), oImg:Refresh()); //Paste DEFINE BUTTON RESOURCE "RC_WEBOF"; NOBORDER OF oBar; ACTION oWebCam:Finalize(); TOOLTIP "Desconectar a WebCam"; FONT oFont; PROMPT "Desconectar"; WHEN oWebCam:isConnected DEFINE BUTTON RESOURCE "RC_WEBG"; NOBORDER OF oBar; ACTION (lRet:=.T.,WebSair()); TOOLTIP "Gravar e Sair"; FONT oFont; PROMPT "Gravar"; WHEN oWebCam:isClipboard DEFINE BUTTON RESOURCE "RC_END"; NOBORDER OF oBar; ACTION WebSair(); TOOLTIP "Sair"; FONT oFont; PROMPT "Sair" AEval( oBar:aControls, { | o | o:oCursor := oCursor } ) oBar:bRClicked := {|| NIL } oWnd:lBalloon := .T. ACTIVATE WINDOW oWnd; ON INIT ( oWnd:SetSize( oWebCam:nRight, oWebCam:nBottom ),; oWnd:Refresh(), oWnd:UpDate(), oWnd:Center(),PitStop()) DeleteObject( oFont ) DeleteObject( oIco ) DeleteObject( oCursor ) Return NIL /*------------------------------------------------------------------------------*/ Static Function WebSair() /*------------------------------------------------------------------------------*/ lStop := .F. IF !Empty(oWebCam) // != NIL IF oWebCam:isConnected oWebCam:Finalize() //oWebCam:Disconnect() ENDIF oWebCam:Destroy() ENDIF DeleteObject( oBar ) DeleteObject( oWebCam ) oWnd:End() Return Nil **=================================================== Static Function PitStop() **=================================================== DO WHILE lStop SysWait( .5 ) ENDDO RETURN .T. .rc RC_WEBON BITMAP bmp\icono.bmp RC_WEBOF BITMAP bmp\webcamoff.bmp RC_FOTO BITMAP bmp\camera.bmp RC_WEBG BITMAP bmp\webg.bmp Esta rotina funciona perfeitamente comigo, se ajudar!

Function ViaCep() Local oOle,cJSon,cCep := "91312001" Local cLink := "http://viacep.com.br/ws/<<CEP>>/json/" Local hResp := Hash() cLink := StrTran(cLink,"<<CEP>>",cCep) BEGIN SEQUENCE Try oOle := CreateObject("Msxml2.XMLHTTP.3.0") oOle:Open("GET",cLink,.F.) oOle:Send() cJSon := oOle:ResponseBody oOle := nil Catch BREAK End HB_JsonDecode(cJSon,@hResp) IF HHasKey(hResp, "erro" ) MsgStop("Cep não localizado !") Endif XBrowse(hResp) END SEQUENCE Return hResp #BoasPraticas

Jovem veja se ajuda ! /* * Project: trad * File: mainlang.prg * Description: * Author: JMSILVA * Date: 10-29-2019 */ #include "Fivewin.ch" Function Main() local oTrans,cTextEnd local aLanguages := {} local cTextIni := "Morango" local hLing:= Hash() FW_SetUnicode( .t. ) HB_CDPSELECT( "ESWIN" ) HB_SETCODEPAGE( "UTF8" ) // Harbour (not xHarbour) to display unicode filenames //------------------------------------------------------------------------// // List languages supported // https://ctrlq.org/code/19899-google-translate-languages //------------------------------------------------------------------------// // Function: FW_TransLang // Params..: Source Text, Language Source, Language Target, .T. if target language is UTF8 // Target languages UTF8, not run OK in xHarbour ( not support UTF8 ) //------------------------------------------------------------------------// hLing["pt"] := "Morango" cTextEnd := FW_TransLang(cTextIni, , "en" ) // Ingles hLing["en"] := cTextEnd cTextEnd := FW_TransLang( cTextIni, , "fr" ) // Frances hLing["fr"] := cTextEnd cTextEnd := FW_TransLang( cTextIni, , "RU" ) // Russia hLing["ru"] := cTextEnd cTextEnd := FW_TransLang( cTextIni, , "JA" ) // Japao hLing["ja"] := cTextEnd cTextEnd := FW_TransLang( cTextIni, , "KO" ) // Korea hLing["ko"] := cTextEnd XBrowse(hLing) Return nil Elaborado com base exemplos FiveWin 17.05 com Harbour 3.2, não funcionou no xHarbour. https://drive.google.com/open?id=1xyMY4vuez_AScfsSvRb3pnAEIrCRBq0G - veja imagem -Morango https://drive.google.com/open?id=1aXqhX7U1fHenbEEDXqu2vgf6PiHnPGcn - Veja imagem - Batata

Harbour https://drive.google.com/open?id=1xsL27I3uM6z7B2EjMArcIybSqi7e2sF6 xharbour https://drive.google.com/open?id=1lpK3Jily_Nfsdj_-JOdqRsCOO_r801KK

Obrigado! Pelo feedback. Kkk

Jorge, Bom Dia! Consegui com o cadastro e contato do suporte via WhatsAPP baixar a dll para 15 dias de testes, valeu! O problema é que o cadastro "SAC Trial" não é liberado na hora, demora 24 horas no minimo! Ate momento consegui com sucesso a compilação da da classe que tem um BUG, agora simular um boleto, se vc ou alguém do grupo possuir alguma função com exemplos pronto com uso da solução boleto da ACBr e puder compartilhar agradeço!

O problema é como e onde conseguir a DLL, pq nos exemplos, especificamente a classe, faz a leitura, mas a DLL não está no repositório. O site deles não ajuda muito... pesquisei não encontrei.

Jorge, Não consegui testar, se tiver alguma dica.

Obrigado! disse parceria (colaborador) porque, assim está no fórum da ACBr. https://www.projetoacbr.com.br/forum/topic/54256-exemplo-harbour-acbrlib-boleto/?do=findComment&comment=356502 Por gentileza, você tem link para baixar a o arquivo ACBrBoleto32.dll (demo para testes) Obrigado!

Caro Jorge Andrade, primeiro quero parabenizar pela sua parceria com AcBR para disponibilizar produto muito importante e legal para nosso universo (x)Harbour. A princípio preciso do AcBr Boletos, como manda o figurino estou fazendo os primeiros testes, apresentou a seguinte mensagem: Compiling: ACBrBoletoDemo.prg... Linking: AcBrBol.exe... Error: Unresolved external '_hb_stackGetRecoverBase' referenced from C:\USERS\SILVA\DOCUMENTS\XAILER\PROJECTS\OBJ\DEBUGGER.OBJ 1 Files, 0 Warnings, 1 Errors Compile time: 0.65s Link time: 1.97s Total time: 2.64s Também sentiu falta da função hb_dirBase() fiz assim: boleto:ConfigGravarValor("Principal", "LogPath", "c:\correio\" ) //hb_dirBase()) compilando com xHarbour Obrigado!

Jovem, com o post do código ficaria mais fácil ! Minha sugestão é: SR_QuickAppend(.T.) // Append from (cFile) VIA "DBFCDX" //Sua rotina de leitura e gravação SR_QuickAppend(.F.)

Também pode contar comigo referente a ajuda técnica, Litoral Norte de SP.

Jovem, sugiro que vc monitore o comando do SQLRDD junto ao PostGreSql, da seguinte forma: Sr_StarLog() /*comando sql - Insert, update, etc*/ Sr_StopLog() Desta forma consegui resolver problemas parecidos e entender melhor o "modus operandi" da SQLRDD. Sugiro que deixe ativo somente na rotina que deseja monitorar e pelo tempo necessário, pois causa lentidão. Resultado, será criado um dbf como o comando Sql gerado pela SQLRD. Vide manual SQLRDD.

Function ViaCep() Local oOle,cXml,cCep := "01302001" Local cLink := "http://viacep.com.br/ws/<<CEP>>/xml/" Local oXml,oTag,cLog,cComple,cBairro,cCidade,cUf cLink := StrTran(cLink,"<<CEP>>",cCep) BEGIN SEQUENCE Try oOle := CreateObject("Msxml2.XMLHTTP.3.0") oOle:Open("GET",cLink,.F.) oOle:Send() cXml := oOle:ResponseBody oOle := nil Catch BREAK End //verifica se não encontrou o cep atraves tag "erro" oXml := TXmlDocument():New(cXml) oTag := oXml:findFirst("erro") If !Empty(oTag) .and. oTag:cData == "true" MsgStop("CEP não encontrado !") BREAK Endif oTag := oXml:findFirst("logradouro") cLog := IIF(Empty(oTag),'',oTag:cData) oTag := oXml:findFirst("complemento") cComple := IIF(Empty(oTag),'',oTag:cData) oTag := oXml:findFirst("bairro") cBairro := IIF(Empty(oTag),'',oTag:cData) oTag := oXml:findFirst("localidade") cCidade := IIF(Empty(oTag),'',oTag:cData) oTag := oXml:findFirst("uf") cUf := IIF(Empty(oTag),'',oTag:cData) XBrowse({cLog,cComple,cBairro,cCidade,cUf}) END SEQUENCE Return {cLog,cComple,cBairro,cCidade,cUf} Pesquisa de CEP OnLine!