CIACPD

Marca, se for usar o gmail de uma olhada neste link https://support.google.com/accounts/answer/6010255 Daniel Segura

TeamViewer em média R$ 5,00 por máquina, levando em conta o retorno... 200 máquinas -> 990 400 máquinas -> 2150 Daniel Segura

De uma olhada no código abaixo, se não entender pergunta novamente function at_saldo_especie() npos_array := ascan( a_fecha_mv_cai_esp ,{|e| e[1]== caixa->CODESP }) if npos_array > 0 if caixa->tipmov = "S" a_fecha_mv_cai_esp[npos_array, 03] += caixa->VLTOT else a_fecha_mv_cai_esp[npos_array, 04] += caixa->VLTOT endif else if caixa->tipmov = "S" cdesesp_cai:= localiza_esp(caixa->CODESP) aadd( a_fecha_mv_cai_esp, { caixa->CODESP , cdesesp_cai , caixa->VLTOT , 0 , caixa->TIPOPE } ) else cdesesp_cai:= localiza_esp(caixa->CODESP) aadd( a_fecha_mv_cai_esp, { caixa->CODESP , cdesesp_cai , 0 , caixa->VLTOT , caixa->TIPOPE } ) endif endif Return .T. Daniel Segura

kleyber, tem como voce me enviar o exemplo no e-mail ciacpd@hotmail.comObrigado. Daniel Segura daniel_segura@ig.com.br ciacpd@hotmail.com

Edu, é para isto https://www.youtube.com/watch?v=GSYawN4PUpM ou quase isto. Daniel Segura

Olá Marcio, Verifique no link http://www.techmundi.com/index.php/tutoriais/softcheque/importacao/131-art-criar-csv-importarcomo fazer o que voce precisa. Daniel Segura

Estava com um problema igual, mas era uma tela com @say e continha alguns grupos "TGroup():". Aí foi só comentar as linhas e voltou tudo ao normal Daniel Segura

Olá Valdir, dentro da função valid do get que o sr informou coloque cText = "select campos1, campo2, ... from tabela where campo_filtro='" +seuget+"'" oQry := oServer:Execute( cText ) seuxbrowse:refresh() Daniel Segura

A dica do nosso amigo Kleyber, é utilizada para não tornar o processamento lerdo. Daniel Segura

Muito abrigado João, Estou usando o ssay e resolveu o meu problema que era a cor de fundo quando o say estiver sobre um folder. Daniel Segura ciacpd@hotmail.com daniel_segura@ig.com.br (11) 9-7102-0895 VIVO

João , a pergunta não é para mim, mas... FiveWin Version: FWHX 14.07 Daniel Segura

Não é sua aplicação, é um bug do MYSQL, troque de versão. Daniel Segura

Marcio, coloca uma copia da estrutura da tabela e dos dados que refere ao registro que você esta usando. Daniel Segura

João, seria isto? >> cFilePath << pegar o diretorio local da aplicação cDirLocal:=cFilePath( GetModuleFileName( GetInstance() ) ) >> cFileName << verificar se existe o arquivo If empty(cFileName( cDirDoMonitorBematech+"BematechMonitor.exe" )) MsgStop( "Monitor da Bematech nao encontrado em "+cDirDoMonitorBematech ) Return .T. EndIf >> cFileNoExt << retirar a extensão cFileName:=cFileNoExt(cFile) mesma coisa que: cFileName:=substr(cFile,1,len(cfile)-4) as outras nunca usei Daniel Segura

Olá Marcelo, Tudo Bem? Uma dica, caso seja um novo sistema, voce poderá usar ADO que está sendo usado por vários usuários. visite a página http://forums.fivetechsupport.com/viewtopic.php?f=6&t=30060&hilit=ado+postgres&start=15 , a ADORDD foi praticamente refeita. Daniel Segura

Senhores, meu instalador feito com innosetup só reinstala o programa no windows 10 se excluir o atalho do desktop primeiro, por acaso alguém já teve ou está tendo o mesmo problema, e saberia de alguma dica para me ajudar. Obrigado. Daniel Segura

SqlLib_Conn( AllTrim(Lower(nServidor)),Val(nPorta),Lower(AllTrim(nDatabase)),Lower(AllTrim(nUsuario)),Lower(AllTrim(nSenha)),SQL_NO_WARNING,"MySql") if SQL_Errorno() > 0 alerta3(,'Não foi possivel estabelecer',' a Conexão...') return .f. else alerta1(,'Conexão estabelecida com sucesso...') // no inicio só precisa incluir a linha abaixo nConn1:= SQLGetConnection() return .t. endif quando for atualizar a outra base, conecta, salva o que tem a salvar e mata ela

Acredito que não é necessário, se for em apenas um módulo ou rotina específica, você pode setar a variavel nconn1 com a conexão corrente e criar uma nova quando necessário. Qquer coisa manda como faz para se ter uma idéia. Daniel Segura

Luiz, se for sqllib é simples, SQL CONNECT ON alltrim( chost_principal ) PORT 3306 DATABASE db USER user PASSWORD pwd LIB "MySQL" nConn1:= SQLGetConnection() SQL CONNECT ON alltrim( chost_principal ) PORT 3306 DATABASE db2 USER user2 PASSWORD pwd2 LIB "MySQL" nConn2:= SQLGetConnection() sqlsetconnection(nConn1) cPesq_Sql:= "SELECT * FROM grupro WHERE grupro.DTALTERA >="+STR_SQL ( ddtinicio )+" order by grupro.CODGRU" use grupro as cPesq_Sql alias grupro new via 'mysql' sqlsetconnection(nConn2) while ! grupro->(eof()) gravar_na_nconn2() end Daniel Segura

Teste aí. // aItens_todos == >> contém todos os ítens // aVal[1] == >> aNotas[i,1] ==>> as duas posições devem ser iguais aItens := {} ASCAN( aItens_todos, { | aVal | IIF( aVal[1] == aNotas[i,1], AADD( aItens,{ aVal[1],aVal[2],aVal[3],...,aVal[n] } ),) } ) Daniel Segura

Luiz Fernando, O que é mais legal nesta de registrar o programa como próprio da empresa, é que você acaba igual a um amigo de sorocaba/sp que teve que entregar todo o fonte e cópia das ferramentas para o cliente pois qualquer advogado arruma uma testemunha que vc ganhou para desenvolver e estava ciente tanto que colocou desta forma no registro. É muito mais prudente trabalhar "correto". Se existe porta paralela em seu sistema feche. Como podemos ver Big-Automação, sysfar, ciss-poder entre outras trabalham corretamente e mostra que isto vale muito. Milhares de clientes cada uma. Daniel Segura

Oliveiros, visite este link http://forums.fivetechsupport.com/viewtopic.php?f=3&t=30266&hilit=adordd&start=825 existe um pessoal usando e quanto mais usuarios melhor. Daniel Segura

Eduardo, já existe aqui no fórum exemplo de como buscar o cadastro de empresas. procure por: Consulta sintegra. Daniel Segura

Caro Everton, Crie um instalador para o seu programa e estará resolvido o seu problema. No Inno Setup voce ja deixa pronto para executar e configurar o MySql, abaixo está como eu faço. [Run] ;PROGRAMAS A SEREM EXECUTADOS APÓS A INSTALAÇÃO (backup, winzip, etc.) Filename: C:\CiaLoja\mysql\bin\mysqld-nt.exe; Parameters: --install; WorkingDir: C:\CiaLoja\mysql\bin; StatusMsg: Instalando MySQL Service; Description: Instalando MySQL Service; Flags: runhidden ; Components: base Filename: net.exe; Parameters: start mysql; StatusMsg: Iniciando Serviço MySQL; Description: Iniciando Serviço MySQL. Por favor aguarde.; Flags: runhidden ; Components: base Filename: C:\CiaLoja\mysql\config.bat; StatusMsg: Iniciando Serviço MySQL; Description: Configurando acesso; Flags: runhidden ; Components: base Filename: c:\CiaLoja\CiaLoja.EXE; Description: Executar o Sistema CiaLoja 2.0; Flags: nowait postinstall skipifsilent; Tasks: Qualquer coisa baixe inno setup e vai ver que é simples criar um instalador Daniel Segura

Matheus, Retire o transparent do Define dialog e coloque no objeto SAY Define Dialog odlgedope Resource "KDOPEED" COLORS RGB(0,0,0),RGB(255,255,255) TITLE 'Incluindo uma nova operação' REDEFINE SAY oSay01 ID 4001 OF odlgedope ; oSay01:lTransparent := .T. Daniel Segura