EDUTEK
-
Posts
340 -
Joined
-
Last visited
-
Days Won
6
Posts posted by EDUTEK
-
-
Boa tarde!
O que vocês estão usando para envio de e-mail, eu usava o swithmail, mas agora não estou conseguindo mais em contas Gmail.
alguma sugestão de programa.
uso para enviar de duplicatas, cte, nfe, mdfe, avisos de vencimento, cobranca, etc.
-
Alguem tem um passo a passo de como baixa e compilar o SQLRDD para a ultima versão do Xharbour, a minha é de 2017
Grato.
-
valeu
-
Boa Tarde
Baixei o xharbour ultima versão
http://www.xharbour.org/files/download/windows/xhb10278_bcc770.zip
onde baixo o bcc 7.70 agora, entrei no embarcadero e não consegui achar
Grato
-
Bom Dia!
CT-e 4.00 já funcionando, agradeço a atenção dos colegas, valeu!
até o próximo BO kkkkkk
-
achei o BO, declarei uma variavel string no lugar de inteiro
cstat
-
Ja fiz também, e como se o metodo não existisse na DLL
estranho demais
Como eu listo as funcoes da DLL?
-
o pior é que já esta atualizada, parece que não carrega erra funcao
-
Class TVoCTeUtil Data oCTeUtil Data cCertificado Data SiglaUF Data SiglaWS Data Proxy Data Usuario Data Senha Data Ambiente Data aUltStatus Data Licenca Data cTitular Data cCNPJTitular Data EmissorCertificado Data NroSerieCertificado Data dInicioValidade Data dFimValidade Data cMsgStatusInternet Data cVersaoDotNet Data lmensagem Data cStsCTe Data cStsCTeMsg Data lAutorizada INIT .f. Data lOperacao Data cMsgOperacao Data cMsgSefaz INIT "" // Descrição da mensagem da SEFZ para Buscas Data Protocolo Data Recebimento Data cXml Data cChaveCte INIT "" Data cXmlProtocolo Data lSalvaXmlAutomatico INIT .T. Data cMensagem INIT "" Data VersaoCTe INIT "4.00" DATA cPathNFe Method New(SiglaUF, TipoAmbiente, cCertificado, proxy,Usuario,Senha,Licenca, lMensagem,lScan) CONSTRUCTOR Method Versao() Method PegaCertificado(Nome,Mensagem) Method Assinar(XmlDoc,RefURI,Nome,XmlAssinado) Method CertificadoSelecionado() Method ConsultaStatus() Method EnviaLote(XmlDados,nroRecibo) Method BuscaLote(NumeroRecibo) Method ConsultaCT(ChaveCTe,cXmlAssinado) Method CancelaCT(ChaveCTe, nroProtocolo, Justificativa) Method CancelaCTEvento(ChaveCTe, nroProtocolo, Justificativa) Method enviaEPEC(ChaveCTe, nroProtocolo, Justificativa) Method InutilizaCT( cUF, Ano, Modelo, SerieCTe, NroInicial,NroFinal,Justificativa) Method ConsultaCad(TipoArgumento,Argumento) Method ValidaXml(XmlDoc,TipoXml) Method CriaChave(Ano,Mes,modelo,serie,numero,codigoseguranca) Method PegaDadosCertificado() Method EnviaCTe(XmlDoc, CTeAssinada, nroRecibo ) Method EnviaCTeSinc(XmlDoc, CTeAssinada, nroRecibo ) Method BuscaCTe(CTeAssinada, nroRecibo ) #IFNDEF __DOS__ Method StatusInternet() #ENDIF Method DotNetInstalled(cVersao) Method Limpa() Method CriaProcCTe(cNfeAssinado,cTo,cBcc,cSubject,aFieldBody,cBody,lBodyHtml,cCancNFe) Method EnviaCCe(cChaveNfe,cTextoCorrecao,lAcentuado,nCorrecao,cDataHoraCorrecao) Method ReadXml(XmlDoc) METHOD SalvaXML(cFile, cDocXml) METHOD SaveXML(cFile, cDocXml, nTipo) Method infCTeSupl(cURL, cChave, cTipoAmbiente, cCertificado, mQrCodeCTe, resultado, msgResultado) * Method CTe_v3a(CTe_versao, CTe_Id, CTe_ide, CTe_compl_Opc, CTe_emit, CTe_rem_Opc, CTe_exped_Opc, CTe_receb_Opc, CTe_dest_Opc, CTe_vPrest, CTe_imp, CTe_infCTe, CTe_autXML_Opc, CTe_infRespTec_Opc, CTe_infCteSupl_Opc) Method End() EndClasscriei o metodo assim logo apos o antigo "enviacte"
METHOD EnviaCTeSinc( XmlDoc, CTeAssinada, nroRecibo ) Class TVoCTeUtil local nRet:=1 Local msgCabec:="", msgDados:="", msgRetWS:="" Local mensagem:="" default nrorecibo:="" default nroProtocolo:="" default dhProtocolo:="" default CTeAssinada := "" default cStat:="" XmlDoc := ::ReadXml( XmlDoc ) // ? XmlDoc if Empty(xmlDoc) #IFDEF __DOS__ Alert("Favor informar, a CTe/XML a ser enviada!") #ELSE MsgStop("Favor informar, a CTe/XML a ser enviada!",CAPTION_MSG) #ENDIF return( 1 ) Endif If ::CertificadoSelecionado() nRet := ::oCTeUtil:EnviaCTeSinc(::SiglaWS,; ::VersaoCTe,; ::cCertificado,; xmlDoc,; msgDados,; @msgRetWS,; cStat,; msgResultado,; @CTeAssinada,; @nroProtocolo,; @dhProtocolo,; ::proxy,; ::usuario,; ::senha,; ::licenca) If nRet != 101 .and. nRet != 103 .and. ::lMensagem #IFDEF __DOS__ * Alert( hb_ansitooem( Mensagem+"-"+Procname() ) ) #ELSE * MsgStop( Mensagem+CRLF+ProcName() , CAPTION_MSG) #ENDIF MemoWrit("EnviCTe.lOG",MsgRetWs) Endif ::aUltStatus:={ msgCabec, msgDados, msgRetWS} ::cStsCTe := LerTag(msgRetWS, "cStat") ::cStsCTeMsg := LerTag(msgRetWS, "xMotivo") ::lAutorizada := ( ::cStsCTe $ "101/103" ) ::Protocolo := LerTag(msgRetWS, "nProt") ::Recebimento := LerTag(msgRetWS, "dhRecbto") Endif Return(nRet)desta forma
-
Bom Dia
Alguem usa a DLL da Flexdocs para emissao de CT-e, atualizei para a a versão nova devido a troca de de layout de 3 para 4
instalei conforme o procedimento , esta certinho igual na versao anteriar
gero o XML< valido e assino, mas p sistema não envia, da um erro como se não existisse a funcao de envio
EnviaCTeSinc
If ::CertificadoSelecionado()
nRet := ::oCTeUtil:EnviaCTeSinc(::SiglaWS,;
::VersaoCTe,;
::cCertificado,;
xmlDoc,;
msgDados,;
@msgRetWS,;
cStat,;
msgResultado,;
@CTeAssinada,;
@nroProtocolo,;
@dhProtocolo,;
::proxy,;
::usuario,;
::senha,;
::licenca)segue o erro
Application
===========
Path and name: D:\aplicx\CONES\cones.EXE (32 bits)
Size: ********* bytes
Compiler version: xHarbour build 1.0.0 Intl. (SimpLex)
FiveWin Version: FWHX 9.04
Windows version: 6.2, Build 9200Time from start: 0 hours 1 mins 11 secs
Error occurred at: 28/01/2024, 18:25:34
Error description: Error CTe_Util.Util/3 DISP_E_MEMBERNOTFOUND: ENVIACTESINC
Args:
[ 1] = C RS
[ 2] = C 4.00.......
Stack Calls
===========
Called from: win32ole.prg => TOLEAUTO:ENVIACTESINC( 0 )
Called from: vocteutil3.000 => TVOCTEUTIL:ENVIACTESINC( 940 )
Called from: cteflexdocs.prg => ENVIASEFAZCTE( 65 )
Called from: cteflexdocs.prg => ENVIA_CTE_XML( 989 )
Called from: cteflexdocs.prg => (b)GERA_CTE_XML( 971 )como se se essa funcao não existisse, alguem passoupro isso, ou ja usou e tem algo mais a fazer que não estou sabendo configurar
-
5 horas atrás, kapiaba disse:
Good, que eu informo aqui:
mLat, mLong ???Latitude e longitude e: -22.63458 , -47,30005 -
pois minha aplicação recebe essas informações dos tablets nos caminhões, e ai pro pessoal de controle aqui eles necessitam saber onde foi o apontamento,
ai converto isso num endereço.
-
conforme o João passou, procurei lá e consegui achar uma forma segue abaixo
function orion_jornada_AchaEndereco(mLat, mLong) local cGoogleURL := "https://nominatim.openstreetmap.org/reverse?format=xml&" local cAddress := "lat="+alltrim(mLat)+"&lon="+alltrim(mLong) local aReturn, i, cTxt := "" if empty(mLat) mLat := jornada->latitudegps mLong := Jornada->longitudegps cAddress := "lat="+alltrim(mLat)+"&lon="+alltrim(mLong) endif // aReturn := hb_jsonDecode( WebPageContents( cGoogleURL + cAddress) ) // *** Change this *** cDocXML := WebPageContents( cGoogleURL + cAddress) * hb_jsondecode( aReturn, @aReturn ) && se lá na URL vc colocar format "json" - eu uso "XML" if !empty(cDocXML) mRodovia := LerTag(cDocxml, "road") mCidade := LerTag(cDocxml, "town") mArea := LerTag(cDocxml, "municipality") mEstado := LerTag(cDocxml, "state") mRegiao := LerTag(cDocxml, "region") mRodovia := iif(len(rtrim(mrodovia))>0,mRodovia+", ","") mCidade := iif(len(rtrim(mCidade))>0,mCidade+", ","") mestado := iif(len(rtrim(mEstado))>0,mEstado+", ","") mRegiao := iif(len(rtrim(mRegiao))>0,mRegiao+", ","") cTxt1 := mRodovia + mcidade + mEstado + mRegiao + mArea cTXT := U8ToUni(cTXT1,"UTYPE_ANSI") if len(alltrim(ctxt)) < 10 cTxt:="Localização não Encontrada" endif else cTxt:="Localização não Encontrada" endif dbselectarea("jornada") mregistro := jornada->( recno()) grava_dados("A","jornada",{ "local" }, { cTxt }, alias(), "S") return nil -
eu quero o contrario
tenho a lat e long - quero o endereço aproximado
-
Boa tarde
Alguém tem algum exemplo de como pegar a localização tendo a latitude e longitude.
Tenho um programa de ponto de motorista, cada marcação ele grava a latitude e longitude, preciso informar pelo menos aproximadamente o local que ele efetuou a marcação.
O programa do Tablet que ele faz a marcação não fui eu que desenvolvi, só montei o projeto, mas a parte da retaguarda é minha a programação.
ai queria saber por exemplo onde ele encerrou a jornada do dia dele.
Alguém tem um exemplo ?
Grato.
-
Como Faço um xbrowse que apresente um campo que tem várias linhas, é uma tabela de mensagens entre a central e o motorista
isso está no Mysql e estou usando SQLRDD, quando campo vem ele vem como campo MEMO
como faço para que a linha seja quebrada e apareça todo o conteúdo da mensagem, da forma que fiz so aparace uma linha
oCol2:=obrw2:addcol()
oCol2:bStrdata:={|| mensagem_chat->MENSAGEM}
oCol2:cHeader:="MENSAGEM"
oCol2:oDataFont := oFont2
oCol2:oHeaderFont := oFont2
oCol2:nWidth := 450
oCol2:nEditType := EDIT_BUTTON
oCol2:bEditBlock := { | r, c, o | EditNotes( r, c, o ) }
-
18/09/23 14:49:30: Connection Error
Só isso aparece no sqlerror.log
fiz via ODBC e vai sem problema.
criei uma conexão OCBC através do Drive ODBC e acesso por ela.
mas Conexão direta nativa não vai.
-
a porta é essa mesmo pois a 3306 eu uso pro MariaDB
o OWNER= --> sempre passo assim, no maria e nas versoes mais antigas do mysql
-
defino a string
cConnString = "MySQL=192.168.0.245;UID=root;PWD=senha;DTB=orion;PRT=3307;OWNER=;ENGINE=innoDB;AUTOCOMMIT=1000"
e executo
nCnn1 := SR_AddConnection( CONNECT_MYSQL, cConnString )
ele retorna ncnn1 = -1
mas não diz o que foi que aconteceu, qual foi o erro.quando eu uso o mariaDB ele não da este erro, ele conecta normalmente com a mesma lib "libmysql"
tem alguma alteração que tem que fazer ?
-
Bom Dia!
Bom dia Estou usando o FWH com sqlrdd, para mariaDB 10 o sistema conecta sem problemas,
mas não conecta o mysql 8,
está na rede interna, já instalei o mysql 8 na minha maquina local,
e quando dou
e pelo heidiSQL ele entra normalmente
-
Boa tarde
Alguém teria um exemplo de como usar um Get Spinner com peles C, eu achi um exemplo com Get normal ( @ ) mas não com recurso
@ 100, 10 GET aGet[1] VAR nGiocata SPINNER MIN 00 MAX 24 ;
ON UP GetStep( aGet[ 1 ], 1 ) ;
ON DOWN GetStep( aGet[ 1 ], - 1 ) ;
SIZE 80, 24 RIGHT PIXEL OF oDlg PICTURE "€ 999.99"assim funciona
mas com Recurso não achei como fazer
-
Bom Dia!
Preciso desenvolver um sistema para usar em celular para controle de Jornada, não tenho nada e sem contato com qualquer linguagem.
Qual vocês estão usando para este tipo de desenvolvimento que tenha uma boa documentação?
sei que tudo é novo, mas vou começar do zero mesmo.
-
-
Valeu!
mas eu acesso o ORACLE e o SQLserver
ai precisaria de uma forma para conectar a eles também.
-
No caso para sair do SQLRDD qual a melhor opção ?
acesso Oracle, SQL Server e Mysql simultaneamente no mesmo aplicativo.
alguém teria algum exemplo, pois meu sqlrdd já e antiga a versão , tenho medo de não funcionar mais mais para frente.
isso ja migrando para Harbour 3.2
Envio de Email
in Programação
Posted
valeu vou ajustar aqui