SAOliveira

http://www.receita.fazenda.gov.br/Sped/Download/Default.htm

Amigo indique neste link, qual você esta usando.

Valdir, no mercado existe inúmeros equipamentos Wireless, desde R$ 50,00 a R$ 1.000,00 ou mais.

O que ocorre é que na maioria dos casos, o usuário opta pelo mais barato.

Isto posto, o que define o resultado do wireless, é "QUALIDADE DE EQUIPAMENTOS" e ambiente.

Desculpe, esqueci de dizer que o Array{}, é o resultado de um select, e retorna 2 parâmetros [x,y]

Quem usa GetHbArrayVar() poderia passar os parâmetros.

[GetHbArrayVar('aArray',x)] dá erro.

Oscar, se possível me esclareça.

Sua versão do Five 13.9 com o xHarbour 1.2.3, está apresentando algum problema ?

http://www.fabulatech.com/usb-over-network.html

Lendo em outro fórum achei interessante.

Quem usa Certificado A3 para NF-e, acho que vai quebrar um galhão.

Não testei, só repassando.

Base em Access, MySql e .TXT

http://www.oho.com.br/fw/cep_02_2013.zip

1 - Pela imagem da pra ver a foto, e esta capturando 648x480, um exagero pra meu gosto.

2 - Passei pro márcio, uma forma de redimensionar a imagem, desta forma ocupando menor espaço em BD.

Sem resposta dele até o presente momento.

Como quem cala......

Este link, não traz informação estadual alguma, portanto não terá utilidade no caso do uso "DENEGADO de NF-e"

No MontSintegra()

ELSEIF(cUF $ "BA")
    Do Whil (nPos := At("<!--%",cSintegra)) > 0
        nPo1 := At("%-->",cSintegra)
        cTexto := SubStr(cSintegra,nPos,(nPo1-nPos)+4)
        cSintegra := StrTran(cSintegra,cTexto,"")
    ENDDO
ENDIF

ElseIf cUF == "BA"
    aRet := {"http://www.sefaz.ba.gov.br/Sintegra/",;
         "sintegra.asp?estado=BA/",;
         "",;
         {"IDENTIFICAÇÃO","Os dados acima são baseados em"},;
         {,;
         "Data da Consulta:",;
         "Número da Consulta:",;
         "CNPJ:",;
         "Inscrição Estadual:",;
         "UF:",;
         "Razão Social:",;
         "Logradouro:",;
         "Número:",;
         "Complemento:",;
         "Bairro:",;
         "UF:",;
         "Município:",;
         "CEP:",;
         "Endereço Eletrônico:",;
         "Telefone:",;
         "Atividade Econômica:",;
         "Data da Inscrição Estadual:",;
         "Usuário SEPD :",;
         "Situação Cadastral Atual:",;
         "Data desta Situação Cadastral:",;
         "Condição:",;
         "Regime de Apuração de ICMS:";
         } ;
        }

IF(!PCS_StatusExe("nome_do_exe.exe"))
    
    // faz o que quer

    
ENDIF

**------------------------------------------------------------------------------**
** Finalidade : Verificar se um Programa está em execução
**------------------------------------------------------------------------------**
    FUNCTION  PCS_StatusExe(cExecutavel)
**------------------------------------------------------------------------------**
LOCAL oWmiService,oListaProcess,oProcessos,Wexecutando:=.F.
oWmiService=Service_WMI()
oListaProcess:=oWmiService:ExecQuery("SELECT * FROM Win32_Process WHERE Name='"+cExecutavel+"'")

FOR EACH oProcessos IN oListaProcess
    Wexecutando:=.t.
Next
RETURN(Wexecutando)

**----------------------------------------------------------**
    STATIC FUNCTION  Service_WMI()
**----------------------------------------------------------**
    STATIC oWmiService
    LOCAL oScriptObj
    IF(oWmiService==NIL)
        oScriptObj=CREATEOBJECT("wbemScripting.SwbemLocator")
        oWmiService=oScriptObj:ConnectServer()
    ENDIF
    RETURN(oWmiService)

Senhores, se permitem uma sugestão.

Os que conseguirem consultar e pegar o retorno postar a solução e o retorno.

Desta forma poderíamos ir eliminando e repassando as UFs.

Detalhe: postar só a parte que foi alterada/adequada.

Blz. Señores, testei e funciona de boa

Kapi, traduz na integra, ta funcionando todos os estados "de boa" ?

Outra, de uma olhada em DEFINE CLIPBOARD, não testei, se atender, poste como fez.

 ElseIf cUF == "SP"
     aRet := {"http://pfeserv1.fazenda.sp.gov.br/sintegrapfe/","consultaSintegraServlet","sintegra",;
          {"IDENTIFICAÇÃO","Os dados acima estão baseados"},;
          {"CNPJ:",;
          "Inscrição Estadual:",;
          "Razão Social:",;
          "Logradouro:",;
          "Número:",;
          "Complemento:",;
          "Bairro:",;
          "Município:",;
          "UF:",;
          "CEP:",;
          "Telefone:",;
          "Atividade Econômica:",;
          "Situação Cadastral Vigente:",;
          "Data desta Situação Cadastral:",;
          "Regime de Apuração:" ,;
          "Data de Credenciamento como emissor de NF-e:",;
          "Indicador de Obrigatoriedade de NF-e:",;
          "Data de Início da Obrigatoriedade de NF-e:",;  // aqui //
          "Data da Consulta:";
          } ;
         }

João a coisa é muito simples.

Você faz a consulta desejada direto no link que vc deseja

Vou usar SP como exemplo.

vai aparecer o retorno da consulta.

Observe "Dara da Consulta:'

Marque o texto e agregue a sua rotina do estado.

Vai ficar assim como acima "code"

Hergon:

No lugar de SR_ShowVector(aRet)

use

xBrowse(aAret)

Limitação: Só consulta a UF do certificado.

Não o fiz, porque só acontecia no link que o ale_sb postou sobre harbour para vc.

Ou o Gilmer leu e corrigiu,

Ou é mais uma das coisas que só a informática faz para você.

Passou, passou chefinho !!!

Postado Ontem, 09:19  
@Joao, meu bravo e grande amigo gaivota (heheheh), já pode testar:
http://fivewin.com.b...harbour-fw-bcc/

Tentando acessar DICAS.

DESCULPE VOCE NAO TEM PERMISSÃO PARA ISTO.

EMotta.

Qual outra alternativa você conhece para o Linux se tornar servidor de arquivos para estações Windows ?

Kapi, este negócio de SAMBA com DBF não combina, deve ser muito bem analisado.

Trabalho com Linux/Samba/DBF faz mais de 15 anos, e nunca, nunca tive problemas com lentidão.

Agora se tiver usando Linux para descktop com samba, pode ser aí o problema

Outra, Qual a versao do Linux e Terminais Windows ?

oCol_His:=oBrwRec:AddCol()
oCol_His:cHeader      :="Histórico"
oCol_His:nHeadStrAlign:=AL_CENTER
oCol_His:nDataStrAlign:=AL_LEFT
oCol_His:bStrData     :={|| TMPREC->linrec     }
oCol_His:oDataFont    :=oPub:fBCour13
oCol_His:nWidth       :=400
oCol_His:bFooter      :={|| "Valor Líquido " }
oCol_His:oFooterFont  :=oPub:fBCour16

"Funcionou com o ButtonBmp!!! Só que o botão fica veinho.. rsrsrsrs"

que ser isto "Veinho"

Vc por acaso ativou o manifest no seu sistema ?

Não sei na "BTNBMP", mas na "BUTTON" nativa, isto é controlado pelo recurso.

^{mande para mim tambem}