PC Toledo

Resolvido com o seguinte código!!!


//-------------------------
FUNCTION LerExtrato(zconta)
//-------------------------

LOCAL xarq := LerArquivo("*.ofx","Selecione arquivo de extrato OFX...","",.F.,.T.)
LOCAL aDadosLocal, aRetorno, xBody := '', xBound := ''

IF !EMPTY(xarq)
aDadosLocal ...

Vejam...

Não é simplesmente "renomear" o arquivo, o que ocorre é que, o que esta gravado no arquivo vem em um formato que não permite ser descompactado, o arquivo não esta faltando nada e nem esta corrompido, só não foi montado da maneira correta!

Ja consegui a solução, mas em JAVA, irei postar a ...

Tinha notado isso e inseri... mas sem progresso também...

veja o código dai como ficou...


//------------------------------------------------------
FUNCTION MicrosoftXmlRequest( cXmlRequest, cWebService )
//------------------------------------------------------

LOCAL oServer, oDOMDoc, cRetorno ...

Tenho esses exemplos...

em C# (Requisição)

private static HttpWebRequest CreateRequest()
{
HttpWebRequest request = (HttpWebRequest)WebRequest.Create("http://webservice.onixsat.com.br");
request.Method = "POST";
request.ContentType = "text/xml";
return request;
}

public static string ...

Não funcionou...

Olá...
Estou precisando receber o retorno de um rastreamento de veículos...dai usei o código abaixo!
#include "hbcompat.ch"
#include "hbxml.ch"
#include "hbmxml.ch"
//-----------------
FUNCTION Rastreador
//-----------------

LOCAL cWebService := 'http://webservice.onixsat.com.br'
LOCAL cXml, oXml ...

Revendo com mais calma

o correto é:
select * from movcentrocusto where idfecha = 4634 and ( fkcc <> 5 or fkprodcc <> 31 or fkloteprodcc <> 3 )
Eu que causei confusão! Mas fica o exemplo ai!
O Marcelo ja tinha matado no primeiro post, mas com a pressa em resolver, não parei para pensar!
Muito ...

Vejam

Digamos que eu tenha uma tabela com as seguintes linhas (dados):

#registro fkcc fkprodcc fkloteprodcc idfecha
1 5 31 3 2029
2 5 31 5 2029
3 5 32 3 2029
4 7 1 1 2029
5 8 1 7 2029
o que quero é que quando dê o select abaixo:
select fkcc,fkprodcc,fkloteprodcc from movcentrocusto where ...

O and esta correto...tem que ser válidas as 4 condições ao mesmo tempo

Resolvi dessa forma:
select fkcc,fkprodcc,fkloteprodcc from movcentrocusto where idfecha = 2029 and concat(cast(fkcc as text),cast(fkprodcc as text),cast(fkloteprodcc as text)) <> '5313'

O pq de não funcionar da outra forma ...

O comando abaixo traz os registros que necessito:
select fkcc,fkprodcc,fkloteprodcc from movcentrocusto where idfecha = 2029 and fkcc != 5
Quando altero para o comando a seguir:
select fkcc,fkprodcc,fkloteprodcc from movcentrocusto where idfecha = 2029 and fkcc != 5 and fkprodcc != 31 and ...

Prezados...

Observei que houve problemas na geração do .pem, ou seja, não gerou a PRIVATE KEY...estou com o mesmo problema, dai vi que o asimoes resolveu, poderia relatar o que fez para resolver...

Agradecido!

Parabéns pela iniciativa...estou ajustando e vou usar, tanto a consulta da NFe, quanto a consulta do CNPJ !!!

A mesma coisa para CTe, tem alguma coisa em vista ??

F.Freire

- Estou usando sem multithread

- Compilo sem -mt e sim com -st
# ---------------------------
# MultiThread
# ---------------------------
#-mt
-st
Mas ja fiz o teste com e sem e fica na mesma.

Não coloquei nada para aguardar a execução, apenas abro uma janela GUI modal e a partir dela executo o GT ...

Na verdade, estou usando BCC + Minigui Extended 16.02, pois as posteriores se eu atualizar, dá o erro que narrei acima !

Só para acrescentar, talvez estejam perguntando, pq criar uma janela MODAL, antes de chamar o console, ja respondendo, é que dessa forma, não permito que por exemplo, o usuário entre em um cadastro e ao mesmo tempo entre em outro cadastro, pois a modal tem exclusividade, não permitindo isso ...