sistem
Membros-
Posts
561 -
Joined
-
Last visited
-
Days Won
25
Everything posted by sistem
-
http://www.mediafire.com/download/4y36olekl4ed8h6/dbu32.exe
-
aproveitamdo o topic, entra em vigor quando? segundo o site abaixo 01/06 http://sigemt.com.br/testes-da-nfe-para-cumprir-lei-da-transpar%C3%AAncia-dos-tributos-iniciam-este-m%C3%AAs alguém jah fez?
-
Mostrar uma mensagem em cada GET abrindo um ToolTip automatico
sistem replied to foliene's topic in Programação
com o bloco de notas -
Mostrar uma mensagem em cada GET abrindo um ToolTip automatico
sistem replied to foliene's topic in Programação
pois é eu prefiro o htmlpop -
Mostrar uma mensagem em cada GET abrindo um ToolTip automatico
sistem replied to foliene's topic in Programação
errei aqui na verdade a função é HTMLPOP dai fiz essa função: //----------------------------------------------------------------------------// function ShowFunctionHelp(cFile, cTitle) local cText := cTitle+CRLF+CRLF+MemoRead( oApp:cDir_001+"help\"+cFile ) if !Empty( cText ) HTMLPOP( GetActiveWindow(), nil, 0x000E, cText ) endif return cText o ctext no meu caso é grande, por isso dessa funcao -
Mostrar uma mensagem em cada GET abrindo um ToolTip automatico
sistem replied to foliene's topic in Programação
Ola uma dica, tem a funcao ShowFunctionHelp: oGet:bRClicked := { || ShowFunctionHelp("ArquivoTexto.h", "Titulo do Arquivo Texto") } // nesse caso do botao direito fica ruim pq o menu de copiar e colar some ou oGet:bGotFocus := {|| ShowFunctionHelp("ArquivoTexto.h", "Titulo do Arquivo Texto") } -
Ola, seria isto? oLbx:report() oLbx:ToExcel() ñão entendi bem a pergunta, +d quelquer forma fica a dica
-
tem algo referente no fórum do Linhares: http://forums.fivetechsupport.com/viewtopic.php?f=6&t=14213&p=73288&hilit=ReportManX%2F3+DISP_E_MEMBERNOTFOUND%3A+EXECUTE#p73288
-
obs: basta executar no prompt de comando mshta vbscript:CreateObject("SAPI.SpVoice").Speak("Programa construido com sucesso")(Window.close) ou mesmo usando em seu aplicativo via winexec para pôr em portugues buscar no google => Scansoft - Raquel 22 khz.exe veja o link http://ead.cetam.am.gov.br/portal/instalacao.html (para por a raquel como padrao)
-
Fórum, não estou conseguindo enviar email com Hotmail, alguém sabe se alterou alguma coisa na porta smtp? Private aServs := { {"@gmail.com", "smtp.gmail.com", 465, .t. },; {"@hotmail.com", "smtp.live.com", 25, .t. },; {"@hotmail.com.br", "smtp.live.com", 25, .t. },; {"@windowslive.com", "smtp.live.com", 25, .t. },; {"@yahoo.com.br", "smtp.mail.yahoo.com.br", 465, .t. },; {"@ymail.com", "smtp.mail.yahoo.com.br", 465, .t. },; {"@uol.com.br", "smtps.uol.com.br", 465, .t. },; {"@bol.com.br", "smtps.bol.com.br", 465, .t. },; {"@terra.com.br", "smtp.terra.com.br", 587, .f. },; {"@ig.com.br", "smtp.ig.com.br", 465, .t. },; {"@ibest.com.br", "smtp.ibest.com.br", 465, .t. },;
-
Alguem sabe informar algo sobre esse projeto, parou? é bom ? alguém usa?
-
Gilmer SPED FISCAL vai ser uma classe tipo NFe para comercializar?
-
aqui http://blog.kowalczyk.info/software/sumatrapdf/free-pdf-reader-pt.html veja tb o Argumentos da linha de comandos no mesmo site(link manual): obs:escolha executável quando for baixa, dai vc copia para uma subpasta de seu aplicativo (ex: c:\SeuAplicativo\sumatra) Executável: SumatraPDF-2.2.1.zip []´s
-
João vc pode usar a flexdocs para gerar PDFdo danfe, CriaPdfDanfe(Alltrim(Pedm->Cha_Pedm), .t.) *-------------------------------------------------------------------------------------- Function CriaPdfDanfe(cChaveNFe, ltela, lNotSumatra) LOCAL OrigDadosEmissor := "", quadroRecibo := "I", quadroFatura := "S", quadroISSQN := "S", DPEC := "", separadorItem := "T" LOCAL gravaPDF := oApp:cDir_002+"pdf\"+Alltrim(cChaveNFe)+"nfe.pdf",; cResultado:=0, msgResultado := "", objNfeUtil := NIL LOCAL cFileXmlAssinado:=oApp:cDir_002+"remessa\protocolos\"+Alltrim(cChaveNFe)+"-nfe.xml", oNFeUtil, cCertificado Default lNotSumatra := .t. If Len(cChaveNFe) <44 MsgAlert("Chave NFe inválida.", "Alerta!") Return nil Endif If !file(gravaPDF) cCertificado := GetPvProfString( "CONFIGURACAO", "CERTIFICADO", "", "VoNfeCertSign.Ini") oNFeUtil := TVoNFeUtil2g():New(Empr->Est_Empr, Empr->Mod_Empr, cCertificado,,,, Empr->Cha_Empr, .t., Iif(Val(Empr->Ctg_Empr)>1, .t., .f.)) If oNFeUtil == Nil Return nil Endif objNfeUtil := CreateObject( "NFe_Util_2G.util" ) OrigDadosEmissor:="" //cFot_Emp cFileXmlAssinado:=oNfeUtil:ReadXml(cFileXmlAssinado) cResultado := objNfeUtil:geraPdfDANFE(cFileXmlAssinado, OrigDadosEmissor, quadroRecibo, quadroFatura, quadroISSQN, DPEC, separadorItem, gravaPDF, msgResultado) Endif If lNotSumatra If ltela WinExec(oApp:cDir_001+"sumatra\sumatrapdf.exe -reuse-instance -lang pt "+gravaPDF) //-restrict -fullscreen Else // somente imprime WinExec(oApp:cDir_001+"sumatra\sumatrapdf.exe -print-to-default -reuse-instance -lang pt "+gravaPDF) //-restrict -fullscreen Endif Endif Return(Nil) obs: meu unidanfe soh gera pdf da CCe, uso a função acima para PDF do DANFe veja se ajuda
-
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=26154&sid=723886e6d3389eff26298b2618026c3a
-
tive o mesmo problema com winexec e shellExecute com Win7 64 bit e win2008R2 64bit subistitui por ex: cComando:= "-u root -pSENHA --all-databases > "+cDirName+"\backupD"+strtran(dtos(Date()), "/","")+"T"+Strtran(time(), ":", "")+".sql" MsgRun( "Gerando backup, este processo poderá levar alguns minutos", "Aguarde!", { || MYRUN(oApp:cDir_001+"mysqldump "+cComando) } ) Function MYRUN( cComando ) Local oShell, RET oShell := CreateObject( "WScript.Shell" ) RET := oShell:Run( "%comspec% /c " + cComando, 0, .T. ) oShell := NIL Return iif( RET = 0, .T., .F. )
-
xHarbour 1.2.3 (build 20130117) http://sourceforge.net/projects/xharbour/files/latest/download?source=dlp tem uma versão mais nova (build 20130327), mas apresentou problema comigo e outros tb, veja: http://forums.fivetechsupport.com/viewtopic.php?f=6&t=26041&sid=040b3189bcde2b9cfffab15cd9592d16#p142665 se quer a versão 1.2.1 posso enviar para seu email
-
entendo, mais sera que teria algum comando sql para comparar uma tabela com outra e atualizar se necessário vi algo assim com M.access via menu, não era comando sql alguém conhece um bom fórum(ativo) de SQL mais direcional para MYSQL?
-
alguém sabe se é possÃvel fazer isto com mysql Tenho uma tabela cliente no database db1 (4000 mil registro) e tenho outra tabela cliente no database dbStru (com novas colunas e nenhum registro) essa tabela seria somente para efeito de atualizar novas colunas(campos) no db1.cliente teria algum comando mysql para comparar e atualizar o db1.cliente aparti do dbStru.cliente sem apagar os 4000 mil registro é claro? resumo. preciso atualiza a estrutura de uma tabela. * SEM TER QUE FAZER copia do db1.cliente para db1.clienteOLD, apagar db1.cliente e depois criar db1.cliente(com nova estrutura) e depois copiar os registros do db1.clienteOLD de volta para a nova tabela db1.cliente. obrigado
-
foline qual tipo de campo vc usa para armazenar? mediumtext?
-
è possivel gravar arquivo XML(tipo NFE) em uma tabela mysql? parece ser com campo BLOB, mais nao sei como fazer alguem teria exemplos obrigado
-
Eduardo estava fazendo +ou- dessa maneira que vc descreveu mais nao encontrava o indice na hora de abrir a tabela (pensei que fosse erro de abertura da tabela) *------------------------------------------------------------------------------------------------------------ FUNCTION NETUSESQL( cFile, ex_use, wait, cAlias, lRede ) LOCAL forever := ( wait = 0 ), lRet := .F., nConn, FalhaCon1:=.f. IF ex_use = NIL ex_use := .f. ENDIF IF lRede = NIL lRede := .t. ENDIF IF wait = NIL wait := 10 ENDIF SR_SetActiveConnection(nConn0) If SR_ExistTable( cFile ) Else SR_SetActiveConnection(nConn1) If !SR_ExistTable( cFile ) MsgAlert("Base de dados não encontrado.", "Alerta!") DbCloseAll() SET RESOURCES TO SR_EndConnection( nConn0 ) SR_EndConnection( nConn1 ) nConn0:=0 nConn1:=0 SR_End() Quit Return nil Endif Endif IF ex_use IF !EMPTY( cAlias ) USE ( cFile ) EXCLUSIVE ALIAS ( cAlias ) VIA "SQLRDD" ELSE USE ( cFile ) EXCLUSIVE VIA "SQLRDD" ENDIF ELSE IF !EMPTY( cAlias ) USE ( cFile ) SHARED NEW ALIAS ( cAlias ) VIA "SQLRDD" ELSE USE ( cFile ) SHARED NEW VIA "SQLRDD" ENDIF ENDIF RETURN ( lRet ) com o comando RENAME TABLE db1.clie TO db0.clie; o mesmo remove do database db1 e adiciona no db0 a tabela clie com seus indices e tudo ( workbench ) soh que nao sabia que seria preciso indexar novamente, mesmo mostrando os indices no db0 em resumo recriei os indices e deu certo obs:se mover tabela com indices para outro DB tem que reidexar obrigado a tados
-
gente é possivel fazer isto em SQLRDD? dbSelectArea( "0" ) dbUseArea(.t., "SQLRDD", "tabela", .t., .f.,,, Iif(SR_ExistTable("tabela"), nConn1, nConn0)) pois preciso verificar se minha tabela esta no db1 ou db2 tentei aqui eh nao deu certo, este ultimo parametro existe mesmo? "(parametro da conexao)
-
entendi, irei usar MSGRUN obrigados a todos