EDUTEK

Eu tenho a classe do CTE usando a Flexdocs

EMAGDBU https://www.emagsoftware.it/Download.asp

isso ai, eu crio um arquivo ini para cada certificado instalado

DEFINE DIALOG oDlg OF oMainWnd FONT oBold TITLE ".:: "+m_titulo +" ::." oDlg:lHelpIcon := .F. oDlg:nTop := 1 oDlg:nLeft := 10 oDlg:nBottom := GetSysMetrics(17) - 1 oDlg:nRight := GetSysMetrics(16) - 155 oDlg:nStyle := nOR( DS_MODALFRAME, DS_SYSMODAL, WS_POPUP, WS_CAPTION, WS_SYSMENU ) mTamDlg := (oDlg:nWidth()/2) - 50 && (((oDlg:nWidth()) /2 -1)/4) * 3 mPosBt := mTamDlg + 10 oDlg:lTransparent := .t. @ 001,01 SAY oSay1 VAR mTextoEmp SIZE mtamdlg,40 CENTERED PIXEL FONT Arial50B update transparent adjust OF oDlg @ 041,01 SAY oSay2 VAR mTextoDia SIZE mtamdlg,40 CENTERED PIXEL FONT Arial40B update transparent adjust OF oDlg @ 081,01 SAY oSay3 VAR mTextoMeta SIZE mtamdlg,35 CENTERED PIXEL FONT Arial32B update transparent adjust OF oDlg @ 116,01 SAY oSay4 VAR mValorMeta SIZE mtamdlg,40 CENTERED PIXEL FONT Arial50B update transparent adjust OF oDlg @ 161,01 SAY oSay5 VAR mTextoFatura SIZE mtamdlg,35 CENTERED PIXEL FONT Arial32B update transparent adjust OF oDlg @ 196,01 SAY oSay6 VAR mValorFatura SIZE mtamdlg,40 CENTERED PIXEL FONT Arial50B update transparent adjust OF oDlg @ 241,01 SAY oSay7 VAR mTextoSaldo SIZE mtamdlg,40 CENTERED PIXEL FONT Arial28B update TRANSPARENT adjust OF oDlg @ 281,01 SAY oSay8 VAR mValorSaldo SIZE mtamdlg,40 CENTERED PIXEL FONT Arial50B update TRANSPARENT adjust OF oDlg oSay1:nClrText := cCorTH oSay2:nClrText := cCorYH oSay3:nClrText := cCorYH oSay4:nClrText := cCorYH oSay5:nClrText := cCorYH oSay6:nClrText := cCorYH oSay7:nClrText := cCorYH oSay8:nClrText := cCorBH oSay1:Refresh() oSay2:Refresh() oSay3:Refresh() oSay4:Refresh() oSay5:Refresh() oSay6:Refresh() oSay7:Refresh() oSay8:Refresh() oDlg:lTransparent := .t. @ 281,mPosbt BTNBMP OF oDlg PROMPT "" TOOLTIP "SAIR" RESOURCE "excluir" 2007 ACTION {oDLG:END()} SIZE 20, 20 PIXEL FONT oFont3 ACTIVATE DIALOG oDlg CENTERED ON INIT (odlg:SetFocus(), oDlg:lTransparent:=.t., oTimer:activate()) VALID(oDlg:End(), oTimer:Deactivate(), .t.) ON PAINT FBmpTiled( hDC, oDlg, oBmpTiled, oBmp ) dbcloseall() Release All RETURN nil ****assim

Valeu pessoal Vou efetuar os testes

Bom Dia! Onde acho exemplos de ADO, pois na verdade eu usaria o Mysql via ferramenta do Fivewin mesmo e os acessos oracle e mssql por outro meio ( o ADO por exemplo) pois eu uso só para extrair informações deste bancos, para compor meus relatorios e importar dados.

a ideia é ir para o Harbour mesmo, sair do xharbour

onde eu baixo o mrboleto? tenho aqui uma versão bem antiga.

Gostaria de usar o SQL Server e o Oracle sem usar a SQLRDD , hoje eu uso os dois BD com SQLRDD, mas gostaria de ficar independente da SQLRDD. eu ja uso para dar Insert, update e delete os comando SQL com o SQLRDD, mas estou refém do Browse e seleção de indices que usando a SQLRDD fica muito comodo. como eu faria isso sem utilizar ela. alguém tem um exemplo ou uma documentação para isso. se possível algo nativo sem usar ferramentas de terceiros.

opa, (19) 98156-7871

if !file(mArqXML) mArqXML := cGetFile( "*.xml" , "Selecione o arquivo..." ) endif cXMLDoc := MemoRead(mArqXML) cTipoDoc := LerTag(cXMLDoc,'mod') Try oHttp := CreateObject( 'MSXML2.XMLHTTP' ) Catch oHttp := CreateObject( 'Microsoft.XMLHTTP' ) End oHttp:Open( 'POST', "http://webserver.averba.com.br/rest/Auth", .F. ) oHttp:SetRequestHeader( "Accept","application/json") oHttp:SetRequestHeader( "Content-Type","application/json") oHttp:Send( '{ "usuario": "'+rtrim(lower(mFilUserSeg))+'", "senha": "'+rtrim(lower(mFilPwdSeg))+'", "codigoatm": "'+rtrim(lower(mFilIdSeg))+'" }' ) SysRefresh() cResp := oHttp:ResponseBody cResp := StrTran(cResp,"{","") cResp := StrTran(cResp,"}","") cResp := StrTran(cResp,'"','') cResp := StrTran(cResp,':','') cResp := rtrim(cResp) if cTipoDoc = '57' oHttp:Open( 'POST', "http://webserver.averba.com.br/rest/CTE", .F. ) elseif cTipoDoc = '55' oHttp:Open( 'POST', "http://webserver.averba.com.br/rest/NFE", .F. ) elseif cTipoDoc = '58' oHttp:Open( 'POST', "http://webserver.averba.com.br/rest/MDFE", .F. ) endif oHttp:SetRequestHeader( "Authorization",cResp) oHttp:SetRequestHeader( "Accept","application/xml") oHttp:SetRequestHeader( "Content-Type","application/xml") oHttp:Send( cXMLDoc ) SysRefresh() cRespAverb :=oHttp:ResponseBody if cTipoDoc = '57' cAverba := LerTag(cRespAverb,'NumeroAverbacao') elseif cTipoDoc = '55' cAverba := LerTag(cRespAverb,'NumeroAverbacao') elseif cTipoDoc = '58' cAverba := '' cProtocolo := LerTag(cRespAverb,'Protocolo') endif mNum_averb := respProt := cAverba isso fiz para averbação de CT-e juto a seguradora, acho que é mais ou menos o que vc precisa, faço a conexao, autentico e recebo um token depois com esse token envio o Cte para averbar e pego o retorno da averbação.

no oracle usando sqltools use este comando SELECT d.dia_idlanc, d.dia_idanot, p.pdc_observ FROM f_pedcompra P INNER JOIN f_titulos t ON p.pdc_numped = t.tit_numped INNER JOIN c_diario d ON t.tit_idtit = d.dia_idlanc WHERE pdc_dtemis >= To_Date('25/11/2019 00:01:00', 'dd/mm/yyyy HH24:mi:ss') e ele me retorno os 3 campo da consulta, sendo que o 3 coluna é uma coluna tipo LONG do oracle quando executo iss na minha aplicacao usando isso cSql2 := "SELECT d.dia_idlanc, d.dia_idanot, p.pdc_observ as varchar " cSql2 += "FROM f_pedcompra P " cSql2 += "INNER JOIN f_titulos t ON p.pdc_numped = t.tit_numped " cSql2 += "INNER JOIN c_diario d ON t.tit_idtit = d.dia_idlanc " cSql2 += "WHERE pdc_dtemis >= To_Date('"+ mDataTimeInic +"', 'dd/mm/yyyy HH24:mi:ss') " && p.pdc_numped = "+SR_cDBValue( mNumeroPD ) && +" AND d.dia_concre = "+SR_cDBValue( "10" )+" " cSql2 += " " executa_sql_puro(cSql2,"dc_diario",mPredbf10) FUNCTION EXECUTA_SQL_PURO(cComm, cAlias, cTABELA) LOCAL oSql, nerr, nPos aTabela := iif(ctabela=nil,mPreDbf1,cTabela) aTabela := mlocal_path + "\temp\"+aTabela nerr := npos := "" oSql := SR_GetConnection() nerr := osql:exec( cComm,,.t.,,aTabela,cAlias) RETURN .T. a 3 coluna ven como se fosse numerica ela retorno 0.0000 e não os dados de campo que estão na tabela, alguém sabe como resolver isso? o certo era vir como um campo MEMO da tabela DBF

ok valeu.

ok, assim eu já faço, eu jogo num DBF temporario mesmo e pego o primeiro registro, achei que tinha uma forma de vir direto. valeu obrigado.

Bom Dia Qual a melhor forma e mais prática de eu retornar um dados usando comando SQL no SQLRDD quero nome do cliente Exemplo: mNome = "select nome from cliente where codigo = 00001" como eu faria isso no RDD ou pode ser usando sql puro mesmo como eu pego o resultado e gravo na variavel .

Bom Dia! Ficou xique, valeu, obrigado

Boa tarde Tenho um dialog que tenho uma imagem de fundo, coloquei uns SAY mas não estou conseguingo deixar eles transparente para mostrar a imagem. estou usando @ say DEFINE ICON oIco RESOURCE "CONES" DEFINE BITMAP oBmp RESOURCE "PAPEL_TTG" && TTG_VEICULO" && CARGAS" DEFINE TIMER oTimer INTERVAL 6000 ACTION {syslog_faturamento_diario_refresh(mPassagem),oDlg:SetFocus(),; oSay1:refresh(),oSay2:refresh(),oSay3:refresh(),oSay4:refresh(),oSay5:refresh(),oSay6:refresh(),; oSay7:refresh(),oSay8:nClrText:=cCorBH,oSay8:refresh()} OF oDlg DEFINE DIALOG oDlg OF oMainWnd FONT oBold TITLE ".:: "+m_titulo +" ::." oDlg:lHelpIcon := .F. oDlg:nTop := 1 oDlg:nLeft := 10 oDlg:nBottom := GetSysMetrics(17) - 1 oDlg:nRight := GetSysMetrics(16) - 355 oDlg:nStyle := nOR( DS_MODALFRAME, DS_SYSMODAL, WS_POPUP, WS_CAPTION, WS_SYSMENU ) mTamDlg := (oDlg:nWidth()/2) - 50 && (((oDlg:nWidth()) /2 -1)/4) * 3 mPosBt := mTamDlg + 10 @ 001,01 SAY oSay1 VAR mTextoEmp SIZE mtamdlg,40 CENTERED PIXEL FONT Arial50B TRANSPARENT ADJUST OF oDlg @ 041,01 SAY oSay2 VAR mTextoDia SIZE mtamdlg,40 CENTERED PIXEL FONT Arial40B update transparent adjust OF oDlg @ 081,01 SAY oSay3 VAR mTextoMeta SIZE mtamdlg,35 CENTERED PIXEL FONT Arial32B update transparent adjust OF oDlg @ 116,01 SAY oSay4 VAR mValorMeta SIZE mtamdlg,40 CENTERED PIXEL FONT Arial50B update transparent adjust OF oDlg @ 161,01 SAY oSay5 VAR mTextoFatura SIZE mtamdlg,35 CENTERED PIXEL FONT Arial32B update transparent adjust OF oDlg @ 196,01 SAY oSay6 VAR mValorFatura SIZE mtamdlg,40 CENTERED PIXEL FONT Arial50B update transparent adjust OF oDlg @ 241,01 SAY oSay7 VAR mTextoSaldo SIZE mtamdlg,40 CENTERED PIXEL FONT Arial28B update TRANSPARENT OF oDlg @ 281,01 SAY oSay8 VAR mValorSaldo SIZE mtamdlg,40 CENTERED PIXEL FONT Arial50B update TRANSPARENT OF oDlg oSay1:nClrText := cCorBH oSay8:nClrText := cCorBH oSay1:Refresh() oSay8:Refresh() @ 281,mPosbt BTNBMP OF oDlg PROMPT "" TOOLTIP "SAIR" RESOURCE "excluir" 2007 ACTION {oDLG:END()} SIZE 20, 20 PIXEL FONT oFont3 ACTIVATE DIALOG oDlg CENTERED ON INIT (odlg:SetFocus(), oTimer:activate()) VALID(oDlg:End(), oTimer:Deactivate(), .t.) ON PAINT FBmpTiled( hDC, oDlg, oBmpTiled, oBmp ) dbcloseall() Release All RETURN nil como faço para resolver isso.

Bom Dia! Gostaria de saber, o que usar para substituir a fastreport, nunca testei outra pois usa ela desde o inicio. Se existe outra ferramente parecida com ela que esteja funcionando em FWH (xharbour), que possa usar para iniciar a substituição. Pois a FR ficou muito cara, se triver uma outra solução mais em conta ou até mesmo free, que não seja descontinuada.

Valeu pela dica. usei a QRCodeLib.DLL para fazer o MDF-e com o FastReport ficou Show de bola, funcionou certinho. estou ajustando agora o CT-e

ok Obrigado, vou esperar receber minha atualização, para ver, pois tenho a 19.01.

Boa tarde! como faço para mostar num painel uma faixa passando os dados igual daquelas de Jornal da TV CNN, tenho um paineil com umas informações em 2 xbrowse, que dão refresh a cada 5 minutos, isso funciona certinho, mas gostaria que criar uma linha abaixo do painel, ficasse mostrando mais dados. como é muita informação, gostaria que ficasse passando na tela. como faz isso.

Obrigado, usando NOWAIT na dialog e o SYSWAIT() funcionou da forma que eu precisava. Obrigado a todos.

Grato! vou testar ambos.

tenho 2 xbrowse nque mostra 1 - veiculos em manutencao e 2 - veiculos liberados usando o define timer DEFINE TIMER oTimer2 INTERVAL 20000 ACTION {syslog_os_painel_mostra(),oDlg:SetFocus(),oSay2:refresh(),oSay3:refresh(),oBrw:refresh(),oBrw2:refresh() } OF oDlg executo um dialogo que mostra os 3 últimos veículos liberados. eu queria mostrar o Dialogo por 20 segundo e fechar automaticamente. pois não vai ter interferência de usuário, é uma tela que fica na sala dos motoristas.