sistem

sim kapiaba no site da flexdocs diz isso tb

veja link acima de seu ultimo post o mkyx tb jah tinha comentado

 

Procede, galera?

 

http://contadores.cnt.br/noticias/tecnicas/2017/11/23/adesao-a-nfe-4-0-e-prorrogada-para-julho-de-2018.html

 

Abs.

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

 

Sputnik, tente com o hbformat.exe do xHarbour, pode ser que funcione, veja a diferença de tamanho:

 

 

	 Pasta de C:\XHBBCC72\bin
	18/02/2017  00:12           922.112 hbformat.exe
	

 

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:

 

Pois é percebi isso também. Alguém saberia de uma forma de evitar isso. De sair do sistema e ele ainda continuar em processos?

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/

 

Alguém já viu esse erro ?

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))