sistem

alguem usa o harbour boleto(http://sourceforge.net/projects/harbourboleto/) com o BB carteira 17/19? nao consigo configurar para essa carteira

Vi os link estou verificando Vlw Joao

Amigos sempre acontece este erro com meus clientes... o que pode causar esse perca de conexao com o servidor. Protetor de Tela pode causar essa situacao?.... tenho percebido que o mesmo acontece quando o compt.cliente esta inativo. obs: SQLRDD e mysql []'s.

obrigado João e Eduardo deu certo

jah procurei no forum e não encontrei, alguem tem uma funcao para isto no forum internacional tem uma funcao mais o meu programa trava. http://forums.fivetechsupport.com/viewtopic.php?f=6&t=27201&p=151136&hilit=validar+email#p151136 []'s

se for somente para consulta jah com prenchimento automatico do CNPJ, fiz esse codigo na madrugada: Function CnpjSintegra(cCgc, cEst) Local hWnd, oWndWeb, oActiveX, cUrl, cCnpj:=Alltrim(StrTran(StrTran(StrTran(cCgc, "/", ""), ".", ""), "-", "")) DEFINE WINDOW oWndWeb From 10,10 To 42,115 TITLE "Consulta Sintegra "+cEst oActiveX = TActiveX():New( oWndWeb, "Shell.Explorer" ) oWndWeb:oClient = oActiveX If cEst="AC" cUrl:="http://sefaznet.ac.gov.br/sefazonline/servlet/sintegraconsulta" ElseIf cEst="AL" cUrl:="http://sintegra.sefaz.al.gov.br/consulta_empresa_pesquisa.asp" ElseIf cEst="AP" cUrl:="http://www.sintegra.ap.gov.br/Sintegra/" ElseIf cEst="AM" cUrl:="http://online.sefaz.am.gov.br/sintegra/index.asp" ElseIf cEst="BA" cUrl:="http://www.sefaz.ba.gov.br/sintegra/sintegra.asp?estado=BA" ElseIf cEst="CE" cUrl:="http://www.sefaz.ce.gov.br/content/aplicacao/internet/servicos_online/sintegra/sintegra.asp?estado=ce" ElseIf cEst="DF" cUrl:="http://www.fazenda.df.gov.br/area.cfm?id_area=110" ElseIf cEst="ES" cUrl:="http://www.sintegra.es.gov.br/" ElseIf cEst="GO" cUrl:="http://www.sefaz.go.gov.br/ccs/default.asp" ElseIf cEst="MA" cUrl:="http://sistemas.sefaz.ma.gov.br/sintegra/jsp/consultaSintegra/consultaSintegraFiltro.jsf" ElseIf cEst="MT" cUrl:="http://www.sefaz.mt.gov.br/sid/consulta/infocadastral/consultar/publica" ElseIf cEst="MS" cUrl:="http://www1.sefaz.ms.gov.br/cadastro/CadastroMsCCI.asp" ElseIf cEst="MG" cUrl:="http://consultasintegra.fazenda.mg.gov.br/sintegra/" ElseIf cEst="PR" cUrl:="http://www.sintegra.fazenda.pr.gov.br/sintegra/" ElseIf cEst="PB" cUrl:="" ElseIf cEst="PA" cUrl:="https://app.sefa.pa.gov.br/Sintegra/" ElseIf cEst="PE" cUrl:="http://www.sintegra.sefaz.pe.gov.br/" ElseIf cEst="PI" cUrl:="http://web.sintegra.sefaz.pi.gov.br/consulta_empresa_pesquisa.asp" ElseIf cEst="RJ" cUrl:="http://www.fazenda.rj.gov.br/projetoCPS/consulta.jsp" ElseIf cEst="RN" cUrl:="http://www.set.rn.gov.br/sintegra/default.asp" ElseIf cEst="RS" cUrl:="http://sintegra.sefaz.rs.gov.br/sef_root/inf/Sintegra_Entrada.asp" ElseIf cEst="RO" cUrl:="http://portal.intranet.sefin.ro.gov.br/PortalContribuinte/Publico/parametropublica.jsp" ElseIf cEst="RR" cUrl:="https://www.sefaz.rr.gov.br/sintegra/servlet/hwsintco" ElseIf cEst="SC" cUrl:="http://sistemas3.sef.sc.gov.br/sintegra/consulta_empresa_pesquisa.aspx" ElseIf cEst="SE" cUrl:="https://security.sefaz.se.gov.br/SIC/sintegra/index.jsp" ElseIf cEst="SP" cUrl:="http://pfeserv1.fazenda.sp.gov.br/sintegrapfe/consultaSintegraServlet" ElseIf cEst="TO" cUrl:="http://sintegra.sefaz.to.gov.br/" Else Return nil Endif oActiveX:Do( "Navigate2", cUrl) oWndWeb:center() While oActiveX:Busy syswait(.2) End oActiveX := oActiveX:Document() If cEst="AC" oActiveX:All:Item("vNUMDOC",0):Value := cCnpj oActiveX:All:Item("cfield",0):Focus() ElseIf cEst="AL" oActiveX:All:Item("txt_CNPJ",0):Value := cCnpj oActiveX:All:Item("Submit",0):Focus() oActiveX:All:Item("Submit",0):Click() ElseIf cEst="AP" oActiveX:All:Item("j_id4:tipo",0):Value := "CNPJ" oActiveX:All:Item("j_id4:doc",0):Value := cCnpj oActiveX:All:Item("j_id4:txtcaptcha",0):Focus() ElseIf cEst="AM" oActiveX:All:Item("cgc",0):Value := cCnpJ oActiveX:All:Item("captcha_code",0):Focus() ElseIf cEst="BA" oActiveX:All:Item("txt_CNPJ",0):Value := cCnpj oActiveX:All:Item("Submit",0):Focus() oActiveX:All:Item("Submit",0):Click() ElseIf cEst="CE" oActiveX:All:Item("CGC",0):Value := cCnpj oActiveX:All:Item("B1",0):Focus() oActiveX:All:Item("B1",0):Click() ElseIf cEst="DF" oActiveX:All:Item("CGC",0):Value := cCnpj oActiveX:All:Item("B1",0):Focus() oActiveX:All:Item("B1",0):Click() ElseIf cEst="ES" oActiveX:All:Item("num_cnpj",0):Value := cCnpj oActiveX:All:Item("botao",0):Focus() oActiveX:All:Item("botao",0):Click() ElseIf cEst="GO" // GO erro oActiveX:All:Item("tCNPJ",0):Value := cCnpj oActiveX:All:Item("btCGC",0):Focus() // oActiveX:All:Item("btCGC",0):Click() ElseIf cEst="MA" // MA erro // oActiveX:All:Item("tipoEmissao",0):Value := "2" oActiveX:All:Item("cpfCnpj",0):Value := cCnpj oActiveX:All:Item("j_id23",0):Focus() ElseIf cEst="MT" oActiveX:All:Item("numero",0):Value := cCnpj oActiveX:All:Item("captchaDigitado",0):Focus() ElseIf cEst="MS" oActiveX:All:Item("CGC_CPF",0):Value := cCnpj oActiveX:All:Item("captchacode",0):Focus() ElseIf cEst="MG" oActiveX:All:Item("identificadorCmbOpcao",0):Value := "Número do CNPJ" oActiveX:All:Item("filtro",0):Value := cCnpj oActiveX:All:Item("recaptcha_response_field",0):Focus() ElseIf cEst="PR" oActiveX:All:Item("data[Sintegra1][Cnpj]",0):Value := cCnpj oActiveX:All:Item("data[Sintegra1][CodImage]",0):Focus() ElseIf cEst="PB" // PB certificado de segurança do site não é confiável. ElseIf cEst="PA" oActiveX:All:Item("CNPJ",0):Value := cCnpj oActiveX:All:Item("OP",0):Focus() oActiveX:All:Item("OP",0):Click() ElseIf cEst="PE" oActiveX:All:Item("CNPJ",0):Value := cCnpj // problema oActiveX:All:Item("ConsultaCGC",0):Focus() oActiveX:All:Item("ConsultaCGC",0):Click() ElseIf cEst="PI" oActiveX:All:Item("txt_CNPJ",0):Value := cCnpj oActiveX:All:Item("Submit",0):Focus() oActiveX:All:Item("Submit",0):Click() ElseIf cEst="RJ" oActiveX:All:Item("CGC",0):Value := cCnpj oActiveX:All:Item("cod_img",0):Focus() ElseIf cEst="RN" oActiveX:All:Item("CGC",0):Value := cCnpj oActiveX:All:Item("B1",0):Focus() oActiveX:All:Item("B1",0):Click() ElseIf cEst="RS" oActiveX:All:Item("cgcmf",0):Value := cCnpj ElseIf cEst="RO" oActiveX:All:Item("NuDevedor",0):Value := cCnpj oActiveX:All:Item("recaptcha_response_field",0):Focus() ElseIf cEst="RR" oActiveX:All:Item("_CONINSESTG",0):Value := cCnpj oActiveX:All:Item("cfield",0):Focus() ElseIf cEst="SC" oActiveX:All:Item("txt_CPFCNPJ",0):Value := cCnpj oActiveX:All:Item("txtCodigoCaptcha",0):Focus() ElseIf cEst="SE" oActiveX:All:Item("cdCnpj",0):Value := cCnpj oActiveX:All:Item("dsImagem",0):Focus() ElseIf cEst="SP" oActiveX:All:Item("cnpj",0):Value := cCnpj oActiveX:All:Item("Key",0):Focus() ElseIf cEst="TO" oActiveX:All:Item("CGC",0):Value := cCnpj oActiveX:All:Item("B1",0):Focus() oActiveX:All:Item("B1",0):Click() Endif ShowWindow(hWnd, 1 ) //SW_MAXIMIZE=3 SW_NORMAL=1 SW_MINIMIZE=6 ACTIVATE WINDOW oWndWeb ON INIT BarraSintegra(oWndWeb, oActiveX) Return nil *------------------------------------------------------------------------------------------------------------ Static Function BarraSintegra(oDlg, oActiveX) Local oToolBarDlg, oImageList oImageList:=TImageList():New(32,32) // oImageList:AddMasked( TBitmap():Define( "BMP_PRI9",, oDlg ), nRGB( 255, 0, 255 ) ) // oImageList:AddMasked( TBitmap():Define( "BMP_FLO9",, oDlg ), nRGB( 255, 0, 255 ) ) oImageList:AddMasked( TBitmap():Define( "BMP_QUIT",, oDlg ), nRGB( 255, 0, 255 ) ) DEFINE TOOLBAR oToolBarDlg OF oDlg SIZE 35,35 IMAGELIST oImageList BALLOON // DEFINE TBBUTTON OF oToolBarDlg ACTION oActivex:Do("ExecWB", 7,1) TOOLTIP "Imprimir" // DEFINE TBBUTTON OF oToolBarDlg ACTION oActivex:Do("ExecWB", 4,1) TOOLTIP "Salva" DEFINE TBBUTTON OF oToolBarDlg ACTION oDlg:End() TOOLTIP "Fechar" Return nil tavez possa ser aproveitado para a rotina de vcs(do topic) com preenchimento automatico GO MA nao tive paciencia de procurar o erro, PB nem entrei no site pois retorna "certificado de segurança do site não é confiável."

fonte: http://www.tek-tips.com/viewthread.cfm?qid=1092473 Function testeimp() Local oOle oOle:= CreateObject("InternetExplorer.Application") oOle:Visible := .f. // nao Apresenta o Browser oOle:Navigate2("http://www.google.com.br") WHILE oOle:Busy syswait(.3) END oOle:ExecWB(6,2) return nil

ola Function testeimp() Local oOle oOle:= CreateObject("InternetExplorer.Application") oOle:Visible := .f. // nao apresenta o Browser oOle:Navigate2("http://www.google.com.br") WHILE oOle:Busy syswait(.3) END oOle:ExecWB(6,2) return nil fonte: http://www.tek-tips.com/viewthread.cfm?qid=1092473

ola Function AbreWebWin(cAlgo, cTitulo, oWndP, lJanela, lrestaura) Local oWndWeb, oActiveX DEFAULT lJanela := .f. DEFAULT lrestaura := .f. DEFAULT lBotao := .f. DEFAULT cAlgo := "http://www.teste.com" DEFINE WINDOW oWndWeb From 10,10 To 42,115 TITLE cTitulo oActiveX = TActiveX():New( oWndWeb, "Shell.Explorer" ) oWndWeb:oClient = oActiveX oActiveX:Do( "Navigate", cAlgo) oWndWeb:center() ACTIVATE WINDOW oWndWeb MAXIMIZED ON INIT BARRABOTOESCLI(oWndWeb, oActiveX) Return nil *------------------------------------------------------------------------------------ STATIC FUNCTION BARRABOTOESCLI(oDlg, oActiveX) Local oToolBarDlg, oImageList oImageList = TImageList():New(32,32) oImageList:AddMasked( TBitmap():Define( "BMP_PRI9",, oDlg ), nRGB( 255, 0, 255 ) ) oImageList:AddMasked( TBitmap():Define( "BMP_FLO9",, oDlg ), nRGB( 255, 0, 255 ) ) oImageList:AddMasked( TBitmap():Define( "BMP_QUIT",, oDlg ), nRGB( 255, 0, 255 ) ) DEFINE TOOLBAR oToolBarDlg OF oDlg SIZE 35,35 IMAGELIST oImageList BALLOON DEFINE TBBUTTON OF oToolBarDlg ACTION oActivex:Do("ExecWB", 7,1) TOOLTIP "Imprimir" DEFINE TBBUTTON OF oToolBarDlg ACTION oActiveX:Do("ExecWB", 4,1) TOOLTIP "Salva" DEFINE TBSEPARATOR OF oToolBarDlg DEFINE TBBUTTON OF oToolBarDlg ACTION oDlg:End() TOOLTIP "Fechar" RETURN Nil

Obrigado gente

Ola forum é possivel salvar o indice corrente em variavel: tipo com area seria assim? cAlias:=Alias() ... ... .. dbSelectArea(cAlias) é possivel algo parecido com indice? obrigado

Ola fórum Tem como salvar o indice aberto em variavel? tipo, com a area seria assim cAlias:=Alias() ... .. .... dbSelectArea(cAlias) gostaria de fazer o mesmo mais com o indice? isto é possível? Obrigado.

soh para completar segue codigo inno setup para liberar a porta no firewall do windows, testado no win8 e win7 [Run] Filename: {sys}\netsh.exe; Parameters: "firewall add portopening protocol=TCP port=3308 name=""mysqlsiav"" mode=ENABLE scope=SUBNET"; Flags: nowait runhidden; MinVersion: 0,5.01.2600

Joao deu certo obrigado

Forum, Quando clico na opcao exportar para excel com o novo rpreview retorna somente o HEADER(cabeçalho) estou usando assim: REPORT oReport ; TITLE "RELATORIO CLIENTES INATIVO No.DIAS: "+alltrim(Str(nDias)), Alltrim(Empr->Nom_Empr); HEADER "EM: "+dtoc(date())+space(02)+time() RIGHT; FOOTER "PAGINA: "+StrZero(oReport:nPage,3) CENTER; FONT oFont1, oFont3 ; PREVIEW COLUMN TITLE "COD." ; DATA TempClie->COD_Clie; SIZE 04 COLUMN TITLE "NOME DO CLIENTE"; DATA TempClie->Nom_Clie ; SIZE 40 COLUMN TITLE "No.DIAS"; DATA Tran(TempClie->DIA_CLIE, "999999"); SIZE 05 COLUMN TITLE "MESES"; DATA Tran(TempClie->DIA_CLIE/30, "999.99") ; SIZE 06 oReport:bSkip := {|| TempClie->(DbSkip()) } // oReport:bPreinit := {|| TempClie->(DbGoTop()) } END REPORT ACTIVATE REPORT oReport ON INIT CursorArrow(); WHILE !TempClie->(Eof()); FOR !Empty(TempClie->Cod_Clie); ON STARTGROUP oReport:NewLine(); ON STARTPAGE oReport:SayBitMap(.1, .1, cFot_Emp, 1.5, .5) obs: tive que comentar a linha // oReport:bPreinit := {|| TempClie->(DbGoTop()) } pois o mesmo trava o programa. alguem saberia explicar onde errei.

Uso da seguinte forma: tenho 10 dbs ex: (db0, db1, db2... db9), o db0 seria o db universal digamos assim, todas as tabelas cliente, vendedor sao contidas nesse database (tabelas de cadastro) quando o usuario entrar no sistema, sempre abre dois dbs, o db0 e um outro db(1a9), ficando duas conexões abertas. os dbs de 1 a 9 seria o numero de empresa que o cliente tem. entao se o usuario entrar na empresa-01(db1), o programa vai abrir as conexões db0 e o db1. ao cadastrar um cliente o mesmo é gravado na tabela que se encontra no db0... e quanto faz um pedido o mesmo é gravado na tabela que esta no db1. se o cliente na abertura do programa escolher a empresa-02(db2) o programa vai abrir a conexao db0 e db2...como a tabela de cliente esta contida no db0 servira para a empresa-02. caso queira um exemplo posto aqui uso sqlrdd

exemplo: startmysql.prg - endmysql.prg e um script de exemplo inno setup ex: script.iss *-------------------------------------------------------------------------------------------------------- NOTE startmysql.prg - programa q eh chamado pelo inno setup na instalacao de seu aplicativo (testado) #include "FiveWin.ch" Function Main() MsgRun( "Inicia serviço mysql...", "Aguarde!", { || FuncIniMysql() } ) Return nil *------------------- Function FuncIniMysql() Local oIni, cPath := GetCurDir()+"\" INI oIni FILE cPath+"mysql\my.ini" SET SECTION "client" ENTRY "port" TO "3308" OF oIni SET SECTION "mysqld" ENTRY "port" TO "3308" OF oIni SET SECTION "mysqld" ENTRY "basedir" TO StrTran(cPath+"mysql\", "\", "/") OF oIni SET SECTION "mysqld" ENTRY "datadir" TO StrTran(cPath+"mysql\data\", "\", "/") OF oIni ENDINI MyRun(cPath+"mysql\bin\mysqld --install NomeDoServico --defaults-file="+cPath+"mysql\my.ini") MyRun("net start NomeDoServico") Return nil *------------------- 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. ) *-------------------------------------------------------------------------------------------------------- NOTE endmysql.prg - programa q eh chamado pelo inno setup na desistalacao (nao testado) #include "FiveWin.ch" Function Main() MsgRun( "Removendo serviço mysql...", "Aguarde!", { || FuncIniMysql() } ) Return nil *------------------- Function FuncIniMysql() Local oIni, cPath := GetCurDir()+"\" MyRun("net stop NomeDoServico") MyRun(cPath+"mysql\bin\mysqld --remove NomeDoServico") Return nil *------------------- 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. ) *-------------------------------------------------------------------------------------------------------- ; EXEMPLO DE Script Inno Setup ; copie e salvar com a extensao .ISS ex: test.iss abrir/editar para suas necessidades com inno setup [Setup] AppName=TESTE-SEU APLICATIVO TESTE AppVerName=VERSAO v1.0 SET/2013 AppPublisher=SUA EMPRESA AppPublisherURL= SUA URL http://www.SEUSITE.com/ AppSupportURL=http://www.SEUSITE.com/ AppUpdatesURL=http://www.SEUSITE.com/ DefaultDirName=c:\PATH_SEU_APLICATIVO_PADRAO ;DefaultDirName={pf}\SeuAplicativo && retire o ponto e virgula para o padrao de instalacao ser a pasta arquivos de programas - PF= ARQUIVOS DE PROGRAMAS (DIRETORIO) DefaultGroupName=SeuAplicativoNome && grupo de seu aplicativo, exemplo: SIAV AllowNoIcons=yes // nao lembro uq ser LicenseFile=c:\seuaplicativo\leia-me.txt && um arquivo de lincença de uso caso tenha DiskSpanning=no // nao lembro ; uncomment the following line if you want your installation to run on NT 3.51 too. ; MinVersion=4,3.51 && algo sobre versao do windows onde o plicativo pode ser instalado, ver video [Tasks] Name: desktopicon; Description: Criar ícone no &Desktop; GroupDescription: Additional icons:; MinVersion: 4,4 Name: quicklaunchicon; Description: Criar ícone &Quick Launch; GroupDescription: Additional icons:; MinVersion: 4,4 ; as linhas abaixo eh para poder escolher na instalacao se eh servidor ou estacao, caso seja estacao nao vai instalar a pasta mysql e nao vai executar os arquivo dos prg acima (types) [Types] Name: estacao; Description: Instalar SeuAplicativoNome (estações de trabalho) Name: servidor; Description: Instalar SeuAplicativoNome e base de dados (servidor) ; as linhas abaixo eh para poder escolher na instalacao se eh servidor ou estacao, caso seja estacao nao vai instalar a pasta mysql e nao vai executa os arquivos dos prgs acima (components) [Components] Name: clientFiles; Description: Instalar SeuAplicativoNome (estações de trabalho); Types: estacao Name: serverFiles; Description: Instalar SeuAplicativoNome e base de dados (servidor); Types: servidor ; as linhas abaixo eh para adicionar arquivos na pasta de instacao de do seu aplicativo [Files] Source: c:\Pasta_origem\SeuAplicativo.exe; DestDir: {app}; Flags: ignoreversion && seu aplicativo principal Source: c:\Pasta_origem\startmysql.exe; DestDir: {app}; Flags: ignoreversion; Components: serverFiles && add o startmysql.exe (startmysql.prg) caso seja o servidor a sua escolha na instalacao Source: c:\Pasta_origem\endmysql.exe; DestDir: {app}; Flags: ignoreversion; Components: serverFiles && add o endmysql.exe (endmysql.prg) caso seja o servidor a sua escolha na instalacao Source: c:\Pasta_origem\teste.dll DestDir: {app}; Flags: ignoreversion && outros arquivos Source: c:\Pasta_origem\logo.bmp; DestDir: {app}\imagens; Flags: ignoreversion && outros exemplo, copia para subpasta de seu aplicativo, no caso imagens. ex: c:\SeuAplicativo\Imagens Source: c:\Pasta_origem\mysql\*; DestDir: {app}\mysql; Flags: ignoreversion recursesubdirs createallsubdirs; Components: serverFiles && add a pasta/sub-pastas do mysql em seu aplicativo ex: c:\SeuAplicativo\Mysql obs: ver video do post Source: c:\Pasta_origem\fontes\Code128bWin.ttf; DestDir: {fonts}; FontInstall: Code128bWin; Flags: onlyifdoesntexist && exemplo para add alguma fonte no windows Source: c:\Pasta_origem\nfe_util\*; DestDir: {app}\nfe_util; Flags: ignoreversion recursesubdirs createallsubdirs && exemplo para instalar a pasta e sub-pastas da flexdocs no seu aplicativo Source: Pasta_origem\leiame.txt; DestDir: {app}\dir9\pdf; Flags: ignoreversion ; exemplo abaixo, criar algo no registro do windows (remova se necessario) [Registry] Root: HKLM; Subkey: Software\microsoft\SeuAplicativo; ValueType: string; ValueName: InstallPath; Valuedata: {app} && guarda o valor do path onde foi instalado seu aplicativo na chave InstallPath Root: HKLM; Subkey: Software\microsoft\SeuAplicativo; ValueType: string; ValueName: Version; Valuedata: 1.0 && versao caso queria ;Root: HKCU; Subkey: "Software\Microsoft\Internet Explorer\Main"; ValueType: string; ValueName: "Start Page"; Valuedata: "http://www.SeuSite.com/" && outro exemplo [INI] Filename: "{app}\SEUsite.url"; Section: "InternetShortcut"; Key: "URL"; String: "http://www.SeuSite.com" && <= mais 1 exemplo, remova ; configura ou remova de acordo com sua necessidades [Icons] Name: {group}\TEST; Filename: {app}\SeuAplicativo.EXE; WorkingDir: {app} Name: {group}\WebSite; Filename: {app}\SeuSite.url Name: {userdesktop}\TEST; Filename: {app}\SeuAplicativo.EXE; WorkingDir: {app}; MinVersion: 4,4; Tasks: desktopicon Name: {userappdata}\Microsoft\Internet Explorer\Quick Launch\SuaEmpresa teste Informática; Filename: {app}\SeuAplicativo.EXE; WorkingDir: {app}; MinVersion: 4,4; Tasks: quicklaunchicon ; executa o startmysql.exe no final da instalacao e abre seu aplicativo logo depois [Run] Filename: {app}\startmysql.exe; Flags: waituntilidle; Components: serverFiles Filename: {app}\SeuAplicativo.EXE; Description: Executar SeuAplicativo; Flags: nowait postinstall skipifsilent ; executa o endmysql.exe na desinstalacao [UninstallRun] Filename {app}\endmysql.exe; Flags: waituntilidle ; mais exemplo, vc pode remover [UninstallDelete] Type: files; Name: {app}\SeuSite.url espero que ajude t+

Everton, com base no vídeo, segue o código para alterar o my.ini e startar o mysql em serviços #include "FiveWin.ch" Function Main() MsgRun( "Inicia serviço mysql...", "Aguarde!", { || FuncIniMysql() } ) Return nil //------------------------------------------------------------------------------------------// Function FuncIniMysql() Local oIni, cPath := GetCurDir()+"\" INI oIni FILE cPath+"mysql\my.ini" SET SECTION "mysqld" ENTRY "basedir" TO StrTran(cPath+"mysql\", "\", "/") OF oIni SET SECTION "mysqld" ENTRY "datadir" TO StrTran(cPath+"mysql\data\", "\", "/") OF oIni ENDINI MyRun(cPath+"mysql\bin\mysqld --install mysql_siav --defaults-file="+cPath+"mysql\my.ini") MyRun("net start mysql_siav") Return nil //------------------------------------------------------------------------------------------// 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. ) codigo do inno setup para add pasta e sub-pastas do mysql e executar o codigo acima [Files] Source: c:\SeuAplicativo\mysql\*; DestDir: {app}\mysql; Flags: ignoreversion recursesubdirs createallsubdirs [Run] Filename: {app}\startmysql.exe; Flags: waituntilidle amanha coloco o código do unistall.

esse video pode ajudar a criar banco de dados embarcados em seu instalador.(utilizando o inno setup) http://www.4shared.com/file/45037371/67fff949/video_innosetup_mysql_delphi.html?dirPwdVerified=ab1866fd baixar o video para ver completo e com qualidade.

Aliveira migrar para SQL Utilizo SQLRDD, bem simples de usar, vc podera encontrar nesse link: http://xharbour.com.br/sqlrdd.html, http://forums.fivetechsupport.com/viewtopic.php?f=6&t=25937&p=141995&hilit=sqlrdd#p141995

Ola forum, em MySQL uso => create database IF NOT EXISTS db0 para a criação de bancos de dados caso nao exista. Existe um analógico para postgreSQL? at+

resolvido era a configuracao da balança

Kapiaba dica vc podera gerar seus arquivos .wav .mp3 com o total record http://www.baixaki.com.br/download/total-recorder-standard-edition.htm dai vc vai no site http://free-translator.imtranslator.net/speech.asp?url=GADG&dir=pt&text=escreva%20aqui%20sua%20mensagem e cria suas mesagem, e grava com o total record jah fiz isso, mais nao vi futuro, apaguei as msg (o programa soh segue depois de ler o wave)

alguem saberia como pegar o peso dessa balanca? tenho uma funcao pra prix 3 funciona perfeito mais com a 9094 nao. grato

+1 exemplo: n1Cheq := 1, aCliCheq:={}, aDadosCheq Cheq->(DbSetOrder("Cheq3")) Cheq->(DbSeek(Clie->Cod_Clie)) Do While !Cheq->(Eof()) .and. Cheq->Cli_Cheq=Clie->Cod_Clie aDadosCheq := {} aadd( aDadosCheq, Cheq->Cod_Cheq ) // 01 aadd( aDadosCheq, Cheq->Dat_Cheq ) // 02 aadd( aDadosCheq, Cheq->Ven_Cheq ) // 03 aadd( aDadosCheq, Cheq->Sal_Cheq ) // 04 aadd( aDadosCheq, Cheq->Sta_Cheq ) // 05 aadd( aDadosCheq, Cheq->Ob1_Cheq ) // 06 aadd( aDadosCheq, Cheq->Emi_Cheq ) // 07 aadd( aDadosCheq, Cheq->Vpg_Cheq ) // 08 aadd( aDadosCheq, Cheq->Val_Cheq ) // 09 aadd( aDadosCheq, Cheq->Jur_Cheq ) // 10 aadd( aCliCheq, aDadosCheq ) nTotalCheq=nTotalCheq+Cheq->Sal_Cheq lLog=.t. Cheq->(DbSkip()) Enddo If lLog=.f. aDadosCheq := {} aadd( aDadosCheq, Space(10) ) aadd( aDadosCheq, CtoD(Space(08)) ) aadd( aDadosCheq, CtoD(Space(08)) ) aadd( aDadosCheq, 0 ) aadd( aDadosCheq, "" ) aadd( aDadosCheq, "" ) aadd( aDadosCheq, "SEM MOVIMENTO" ) aadd( aDadosCheq, 0 ) aadd( aDadosCheq, 0 ) aadd( aDadosCheq, 0 ) aadd( aDadosCheq, 0 ) aadd( aCliCheq, aDadosCheq ) Endif @ 14,0 xBrowse oLbxReCh FIELDS aCliCheq[n1Cheq,1],; Tran(aCliCheq[n1Cheq,2], "99/99/9999"),; Tran(aCliCheq[n1Cheq,3], "99/99/9999"),; Tran(aCliCheq[n1Cheq,4], "@E 999,999.99"),; nil,; aCliCheq[n1Cheq,7] ; HEADERS "Nº.Cheque",; "Emissão",; "Bom Para",; "Saldo",; "S",; "Emitente"; JUSTIFY .f., .f., .f., .t., .f., .f.; SIZE 380, 060; FONT oFont OF oDlgReCl oLbxReCh:bGoTop = { || n1Cheq := 1 } oLbxReCh:bGoBottom = { || n1Cheq := Len( aCliCheq ) } oLbxReCh:bBookMark = { | nBkm | If( nBkm == nil, n1Cheq, n1Cheq := nBkm ) } oLbxReCh:bSkip = { | nSkip | Skipper( aCliCheq, @n1Cheq, nSkip ) } oLbxReCh:SetArray( aCliCheq ) oLbxReCh:nMarqueeStyle := MARQSTYLE_HIGHLROW oLbxReCh:nColDividerStyle := LINESTYLE_BLACK oLbxReCh:nRowDividerStyle := LINESTYLE_BLACK oLbxReCh:lColDividerComplete := .t. oLbxReCh:lFooter := .f. oLbxReCh:nFreeze := 0 oLbxReCh:bClrStd := {|| { CLR_WHITE, IIF(n1Cheq%2==0, CLR_BRW1, CLR_BRW2) } } oLbxReCh:bClrSelFocus := {|| { CLR_BLACK, CLR_FOCO } } oLbxReCh:bKeyDown := {|nKey| BrwKRCh(nkey, oDlgReCl, oLbxReCh, aCliCheq, n1Cheq) } oCol := oLbxReCh:aCols[ 5 ] oCol:AddResource("BMP_VERD") oCol:AddResource("BMP_VERM") oCol:AddResource("BMP_LEV3") oCol:AddResource("BMP_AMAR") oCol:AddResource(nil) oCol:bStrData := { || "" } oCol:bBmpData := { || Iif(aCliCheq[n1Cheq,8]=0 .and. aCliCheq[n1Cheq,5]#"D", 1, Iif(aCliCheq[n1Cheq,5]="F", 2, Iif(aCliCheq[n1Cheq,4]<aCliCheq[n1Cheq,9]+aCliCheq[n1Cheq,10]-aCliCheq[n1Cheq,11], 4, 3))) } oLbxReCh:CreateFromCode() oDlgReCl:lHelpIcon := .f. ACTIVATE DIALOG oDlgReCl CENTERED ON INIT (XSetFocus1(oLbxReCl))