sistem

sim kapiaba no site da flexdocs diz isso tb veja link acima de seu ultimo post o mkyx tb jah tinha comentado

O Windows 10 esta atualizado? veja isto: Execute MSCONFIG. Clique na guia Serviços. Clique na opção Ocultar todos os serviços Microsoft, em seguida clique no botão Desativar tudo. Clique na guia Inicialização de Programas, Abrir Gerenciador de tarefas e desabilite todos os programas que estão iniciando junto com o Windows. Feche a janela de Gerenciador de Tarefas. Na janela de Configurações de Sistema clique em OK, será solicitado o reinicio do computador confirme a solicitação clicando em Reiniciar. Veja se resolve. caso resolva.... você inicializa os serviços que foram desativados e testando até saber qual serviço causa o problema.... se não for isto Veja também: https://answers.microsoft.com/pt-br/windows/forum/windows_10-update-winpc/certificado-digitais-pararam-de-funcionar/421ac8b1-1c04-4140-b10e-07cef6051c83

trabalhou perfeito kabiaba vlw

amigos txbrowse = xbrowse

tem um post meu das antiga justamente procurando isto. mais não indenta tendo END TRY? ....todos meus prg tem TRY cnavarro tem como resolver, ver imagem abaixo:

desinstalando o Warsaw resolve

programa nao "fecha" ao sair... alias qualquer programa fica na memoria em processos do windows... tipo se vc abrir 10 vezes um programa ele vai ficar no processos do windows 10 vezes... tenho o seguinte no inicio do meu programa : If ISEXERUNNING( CFILENAME( HB_ARGV( 0 ) ) ) Msginfo("Já existe instância do SIAV em execução.", "Aviso!") Return nil Endif dai consigo ver o problema. tive que remover o codigo acima.

tenho esta versao, se nao tiver problema posso enviar

google nele kapiaba http://www.andersonpatricio.org/copiando-dados-com-o-robocopy/

if ::oDevice:lPrvModal if ::oWndMain == nil StopUntil( { || ::lExit } ) else hWndMain := WndMain():hWnd StopUntil( { || ::lExit .or. !IsWindow( hWndMain ) } ) endif endif fwh1709

DbSelectAreaSql("Cona") Cona->( OrdScope( 0, cCod_Cona ) ) Cona->( OrdScope( 1, cCod_Cona ) ) da mesma maneira que usava com dbf

Ola Tenho cliente que lança os serviço na NFe assim.. no item informo a TAG indTot := 0 0-Valor vProd NÂO compõe valor total NFe 1-Valor vProd compõe valor total NFe e NAO soma o valor do item na TAG vProd ref.a dúvida do rochinha não sei responder

soh para constar, uso o ordscope com sqlrdd sem problema, e tem a seguinte funcao no sqlrdd => sr_SetGotopOnScope(.f.) // nao vai executar o dbgotop() automatico nos ordscope entao era para funcionar ai com vcs []s

ta meio complicado (rs). mais tarde irei ver isto, não vamos desistir

é a consulta do captcha ou do robô? link da consulta antiga => https://www.nfe.fazenda.gov.br/portal/consultaResumoCompletaAntiga.aspx?tipoConsulta=completa&tipoConteudo=XbSeqxE8pl8= consulta nova : oActivex:Navigate2("http://www.nfe.fazenda.gov.br/portal/consultaRecaptcha.aspx?tipoConsulta=completa&tipoConteudo=XbSeqxE8pl8=") oActiveXdo:All:Item("ctl00$ContentPlaceHolder1$txtChaveAcessoCompleta",0):Value:=cChave

aaahhaa

acho que o site mudou pq nao vejo essas abas... Function teste99() Local oOle, hWnd, cUrl, oError cUrl:="https://www.situacaocadastral.com.br" TRY oOle:= CreateObject("InternetExplorer.Application") oOle:Visible := .t. oOle:ToolBar := .f. oOle:StatusBar := .f. oOle:MenuBar := .f. oOle:Navigate2(cUrl) hWnd:=oOle:HWND BringWindowToTop(hWnd) ShowWindow(hWnd, 3) While oOle:Busy syswait(.5) End CATCH END TRY oOle := oOle:Document() oOle:All:Item("doc",0):Value := "06990590000123" oOle:All:Item("consultar",0):Focus() oOle:All:Item("consultar",0):Click() CATCH END oOle := NIL Return nil o resultado eh este sem nenhuma aba

amigo toya.... não consegui baixar

veja se ajuda cFile := FOpen( "arquivo.xml" ) xmlDoc := TXmlDocument():New( cFile ) If xmlDoc:nStatus != HBXML_STATUS_OK Msginfo("Erro ao ler XML", "Aviso!") Return nil Endif xmlIter := TXmlIterator():New( xmlDoc:oRoot ) xmlNode := xmlIter:Find() Do While xmlNode != nil If !Empty(xmlNode:cData) If Lower(xmlNode:cName) == "nnf" cNumeroNFe := xmlNode:cData Elseif Lower(xmlNode:cName) == "cfop" cCFOP := xmlNode:cData Elseif Lower(xmlNode:cName) == "chnfe" cChaveNfe := xmlNode:cData Endif Endif xmlNode := xmlIter:Next() Enddo Endif ? cChaveNfe

outros streams para teste e autoredimensionar em iframe...pequena alteracao no INTER_APP_WEB_CONFIG compilar: buildx v8 em \fwh\samples\ NOTE v8.prg #include "FiveWin.ch" #define HKEY_LOCAL_MACHINE 2147483650 Function Main() Local oWnd, oBar, oFont, oActiveX, oCombo, nCombo := 1 INTER_APP_WEB_CONFIG() DEFINE FONT oFont NAME "Arial" SIZE 0, -12 DEFINE WINDOW oWnd TITLE "ISS live ustream TESTE" DEFINE BUTTONBAR oBar SIZE 33, 33 OF oWnd DEFINE BUTTON OF oBar FILE "..\bitmaps\window.bmp" MESSAGE "ISS live ustream" ACTION (oActiveX:Do("Navigate2", Link(1)), oWnd:SetText("ISS live ustream"), oWnd:Refresh()) DEFINE BUTTON OF oBar FILE "..\bitmaps\window.bmp" MESSAGE "ISS live ustream cam2" ACTION (oActiveX:Do("Navigate2", Link(6)), oWnd:SetText("ISS live ustream"), oWnd:Refresh()) DEFINE BUTTON OF oBar FILE "..\bitmaps\window.bmp" MESSAGE "tv diario ceara" ACTION (oActiveX:Do("Navigate2", Link(4)), oWnd:SetText("tv diario (Online) ceara"), oWnd:Refresh()) DEFINE BUTTON OF oBar FILE "..\bitmaps\Exit.bmp" MESSAGE "Sair" GROUP ACTION oWnd:End() @ 0.5, 20 COMBOBOX oCombo VAR nCombo ITEMS {"ISS live ustream", "youtube1", "youtube2", "tv diario", "Escuta AéreaGALEÃO Rio", "ISS live ustream cam2"} OF oBar SIZE 160, 200 FONT oFont ON CHANGE (oActiveX:Do("Navigate2", Link(nCombo)), oWnd:SetText("stream No.: "+Alltrim(str(nCombo))), oWnd:Refresh()) oActiveX := TActiveX():New( oWnd, "Shell.Explorer.2" ) oActivex:Silent := .t. oWnd:oClient := oActiveX SET MESSAGE OF oWnd TO FWVERSION NOINSET CLOCK DATE KEYBOARD ACTIVATE WINDOW oWnd ON INIT oActiveX:Do("Navigate2", Link(1)) Return nil //------------------------------------------------------------------------------------ Function Link(nlink) Local cPath, cFile, cHtml := '' cPath := cFilePath(GetModuleFileName(GetInstance())) cFile := cPath + "v8.html" fErase(cFile) If nlink = 1 cHtml := '<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" height="100%" width="100%"><param name="wmode" value="transparent"> '+; '<param name="flashvars" value="cid=17074538&autoplay=true"><param name="allowfullscreen" value="true"> '+; '<param name="allowscriptaccess" value="always"><param name="src" value="http://www.ustream.tv/flash/viewer.swf"> '+; '<embed flashvars="cid=17074538&autoplay=true" allowfullscreen="true" allowscriptaccess="always" src="http://www.ustream.tv/flash/viewer.swf" type="application/x-shockwave-flash" height="100%" width="100%"></object>' Elseif nLink = 2 cHtml := '<iframe width="100%" height="100%" src="https://www.youtube.com/embed/LcEE8gML8Lg?autoplay=1"></iframe>' ElseIf nLink = 3 cHtml := '<iframe width="100%" height="100%" src="https://www.youtube.com/embed/lLuc6rtWkrM?autoplay=1"></iframe>' ElseIf nLink = 4 cHtml := '<iframe allowfullscreen="true" msallowfullscreen="true" webkitallowfullscreen="true" mozallowfullscreen="true" width="100%" height="100%" frameborder="0" src="http://fast.player.liquidplatform.com/pApiv2/embed/7a683b067e5eee5c8d45e1e1883f69b9?title=tvdiario&autoStart=true&enableShare=false&gaAccount=UA-24105952-6&alternateLive=http://slrp.sambavideos.sambatech.com/liveevent/tvdiario_7a683b067e5eee5c8d45e1e1883f69b9/livestream/playlist.m3u8" ></iframe>' ElseIf nLink = 5 cHtml := '<H2>Escuta Aérea GALEÃO Rio' cHtml += '<iframe width="100%" height="100%" frameborder="0" src="http://radio.server6.com.br:8282/stream"></iframe>' Else cHtml += '<iframe width="100%" height="100%" src="http://www.ustream.tv/embed/9408562?html5ui&autoplay=true" scrolling="no" allowfullscreen webkitallowfullscreen frameborder="0" style="border: 0 none transparent;"></iframe>' Endif MemoWrit(cFile, cHtml) Return cFile //------------------------------------------------------------------------------------ Function INTER_APP_WEB_CONFIG(nVersionIE) Local oReg, oRegKey, cRegProgGet, lDeleteKey := .f., cNameProg, uIEver oReg := TReg32():New( HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Internet Explorer\" ) uIEver := oReg:Get( "svcVersion" ) DEFAULT nVersionIE := If(Left(Alltrim(uIEver),2)="11", 11001, ) DEFAULT cNameProg := Alltrim(cFileName(HB_ARGV(0))) If IsWow64() oRegKey := TReg32():New( HKEY_LOCAL_MACHINE, "SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION" ) oRegKey:Set(cNameProg, nVersionIE,4) oRegKey:Close() oRegKey := TReg32():New( HKEY_LOCAL_MACHINE, "SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_AJAX_CONNECTIONEVENTS" ) oRegKey:Set(cNameProg,0,4) // Padrão 0 oRegKey:Close() oRegKey := TReg32():New( HKEY_LOCAL_MACHINE, "SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_ZONE_ELEVATION" ) oRegKey:Set(cNameProg,0,4) // Padrão 1 oRegKey:Close() oRegKey := TReg32():New( HKEY_LOCAL_MACHINE, "SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_READ_ZONE_STRINGS_FROM_REGISTRY" ) oRegKey:Set(cNameProg,1,4) // Padrão 0 oRegKey:Close() oRegKey := TReg32():New( HKEY_LOCAL_MACHINE, "SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BEHAVIORS" ) oRegKey:Set(cNameProg,1,4) oRegKey:Close() oRegKey := TReg32():New( HKEY_LOCAL_MACHINE, "SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_ENABLE_WEB_CONTROL_VISUALS" ) oRegKey:Set(cNameProg,1,4) oRegKey:Close() oRegKey := TReg32():New( HKEY_LOCAL_MACHINE, "SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_SHOW_APP_PROTOCOL_WARN_DIALOG" ) oRegKey:Set(cNameProg,1,4) // Padrao 0 oRegKey:Close() oRegKey := TReg32():New( HKEY_LOCAL_MACHINE, "SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_GPU_RENDERING" ) oRegKey:Set(cNameProg,1,4) // Padrao 0 oRegKey:Close() oRegKey := TReg32():New( HKEY_LOCAL_MACHINE, "SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_NINPUT_LEGACYMODE" ) oRegKey:Set(cNameProg,0,4) // Padrao 1 oRegKey:Close() Else oRegKey := TReg32():New( HKEY_LOCAL_MACHINE, "Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION" ) oRegKey:Set(cNameProg, nVersionIE,4) oRegKey:Close() oRegKey := TReg32():New( HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BEHAVIORS" ) cRegProgGet := oRegKey:GetBinary(cNameProg) If Empty(cRegProgGet) oRegKey:Set(cNameProg,1,4) EndIf oRegKey:Close() oRegKey := TReg32():New( HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_ENABLE_WEB_CONTROL_VISUALS" ) oRegKey:Set(cNameProg,1,4) oRegKey:Close() EndIf Return nil

que eu saiba DFe tem diversos tipos -> NFe, NFCe, NFSe, CTe, MDFe, nao sabia que existia o DFe unico, poderia passar o link da flexdocs sobre DFe

amigo tb uso sqlrdd e testei assim => Dat_Clie := ctod(space(8)) o campo dat_clie que tinha uma valor de data passou a ser null nao seria isto?

aqui a imagem nao abriu use esse site https://uploaddeimagens.com.br/

ola experimenta alterar o http://www.nfe.fazen..... por https... onde tem esse prg que baixa sem captcha?

mysql UPDATE clie SET dat_clie=null WHERE sr_recno=43; ou Clie->Dat_Clie :=ctod(space(8))