SAOliveira

Amigo, acho legal se interesse em facilitar para seu cliente. Mas veja, a menina não aperta um botão e o sistema da Dominio, le o html, ou tela.. ELE BAIXA O XML DO SITE DA SEFAZ com a ação deste botão. A Software da Dominio Sistemas, agora pertencente ao grupo thomsonreuters.com dispõe de uma estrutura de fazer inveja. Falo isto, pois tenho um sobrinho(raro ou nenhum contato), que trabalha na thomsonreuters.com, justamente na area de NFe e CTe.

Giovany, perfeito. No meu caso não coloco em todas as dlgs. Mas vou adotar. Grato.

DEFINE DIALOG oDlg ................................... oDlg:bPainted:={||PCS_SetTransparencia('oDlg',255)} .. ACTIVATE ... Quando Vc tive alguma chamada que vai ter uma janela sobreposta a oDlg PCS_Transparencia(qDlg) DEFINE NOVA DIALOG.... ACTIVATE NOVADIALOG PCS_VTransparencia(qDlg)

Uso a do Vagner com algumas adaptações para mim. O resultado é o mesmo, e bem resumida a função. **------------------------------------------------------------------------------** ** Finalidade : Setar a transparencia em dialogs ** Parametros : 1 = Dialog origem ** 2 = Fator da transparencia de 0 at-e 255 ** Original : Vagner ** Alterado : SAOliveira **------------------------------------------------------------------------------** #include "Fivewin.ch" **------------------------------------------------------------------------------** FUNCTION PCS_SetTransparencia(tDlg) **------------------------------------------------------------------------------** SETWINDOWLONG( &(tDlg):hWnd, -20,NOR( GETWINDOWLONG( &(tDlg):hWnd,-20 ), 524288 ) ) SETLAYEREDWINDOWATTRIBUTES( &(tDlg):hWnd, , 255, 2 ) RETURN(NIL) **------------------------------------------------------------------------------** FUNCTION PCS_Transparencia(tDlg) **------------------------------------------------------------------------------** SETLAYEREDWINDOWATTRIBUTES( &(tDlg):hWnd, , 155, 2 ) SysRefresh() RETURN(NIL) **------------------------------------------------------------------------------** FUNCTION PCS_VTransparencia(tDlg) **------------------------------------------------------------------------------** SETLAYEREDWINDOWATTRIBUTES( &(tDlg):hWnd, , 255, 2 ) SysRefresh() RETURN(NIL) DLL32 FUNCTION SetLayeredWindowAttributes( hWnd As LONG, crKey As LONG,; bAlpha As LONG, dwFlags As LONG ) AS LONG PASCAL ; FROM "SetLayeredWindowAttributes" lib "user32.DLL"

Giovani, se puder poste uma imagem do resultado. Uso algo que imagino ser semelhante, gostaria de poder comparar os resultados. Grato.

pra não perder a piada. Que trocadalho do carilho que dá o nome deste Alias

Marcio, desculpe. Realmente espero ser apenas um rompante esta coisa, no mínimo ridícula que você postou. Não migrar, e sim a forma que você citou.

Veja se é perto disto. DEFINE DIALOG oDlgIE FROM 0,0 TO 700,1000 OF &(Arg1) PIXEL TITLE " ..:: Consulta ON-LINE base CEP dos correios ::.." oDlgIE:lHelpIcon:=.f. oActiveX:=TActiveX():New( oDlgIE, "Shell.Explorer",0,0,500,350 ) oDlgIE:oClient:=oActiveX ACTIVATE DIALOG oDlgIE CENTER ON INIT(oActiveX:Do( "Navigate","https://www.facebook.com/plugins/like.php?href=https%3A%2F%2Fwww.facebook.com%2Femottasistemas&width&layout=button&action=like&show_faces=false&share=true&height=35"))

xHarbour Reference Documentation Function Reference xHarbour Developers Network Round() Rounds a numeric value to a specified number of digits Syntax Round( <nNumber>, <nDecimals> ) --> nRounded Arguments <nNumber> This is the numeric value to round. <nDecimals> If the parameter is a positive number, it specifies the number of decimal places to retain after the decimal point. If specified as negative value, Round() operates on the digits before the decimal point, thus rounding integer numbers. Return The function returns the rounded numeric value. Description Round() is a numeric function used to round numbers to a given number of decimal places. Digits 5 to 9 are rounded up, while digits 0 to 4 round down. Info See also: Abs(), Int(), SET DECIMALS, SET FIXED, Str(), Val() Category: Numeric functions Source: rtl\round.c LIB: xhb.lib DLL: xhbdll.dll Example // The example demonstrates results of Round() and how SET FIXED // influences the display of rounded numbers. PROCEDURE Main SET DECIMALS TO 4 SET FIXED ON ? Round( 1234.5678, 0) // result: 1235.0000 ? Round( 1234.5678, 1) // result: 1234.6000 ? Round( 1234.5678, 2) // result: 1234.5700 ? Round( 1234.5678, 3) // result: 1234.5680 ? Round( 1234.5678,-1) // result: 1230.0000 ? Round( 1234.5678,-2) // result: 1200.0000 ? Round( 1234.5678,-3) // result: 1000.0000 SET FIXED OFF ? Round( 1234.5678, 0) // result: 1235 ? Round( 1234.5678, 1) // result: 1234.6 ? Round( 1234.5678, 2) // result: 1234.57 ? Round( 1234.5678, 3) // result: 1234.568 ? Round( 1234.5678,-1) // result: 1230 ? Round( 1234.5678,-2) // result: 1200 ? Round( 1234.5678,-3) // result: 1000 RETURN

Faltou a parte que você grava no MySql ?

Vi que você usa DBFCDX e MYSQL. Postei acima como faço as chamadas para o Request/RddSetDefault Mostra o inicio como esta gravando os dados no banco.

Luizão, mande para mim por favor sergio@oho.com.br

Evandro testarei. Mas poderia das mais detalhes do procedimento. "Consultas posteriores", como fica as atualizações da tabela principal. Cria algum gatilho para atualizar a tabela temporária. Ps.: apesar disto não estar no contexto do tópico que é "não usar o tal de dumpsql".

A justificativa de usar para criar copia em outro servidor, foi o único motivo que eu mesmo falei. Quanto a criar temporário para trabalhar com dados de período especifico.... ?

Qual a finalidade acima, se não para outro servidor.

Algumas dicas. **--[ RDD de arquivos e indices ]--** REQUEST SQLLIB REQUEST MYSQL RDDSETDEFAULT("MYSQL") DBSETDRIVER("MYSQL") REQUEST DBFCDX REQUEST ORDKEYNO REQUEST ORDKEYCOUNT REQUEST ORDKEYGOTO REQUEST DESCEND **--[ Cria/abrir aquivos e indices ]--** USE nArquivo EXCLUSIVE INDEX ON campo1 TAG "cp1" TO nIndice INDEX ON campo2 TAG "cp2" TO nIndice Use nArquivo Index nIndice Alias("nAlias") Via "DBFCDX" NEW Shared **--[ usar arquivos ]--** cAlias->(OrdSetFocus("cp2") cAlias->(DbSeek(...)) cAlias->(dbAppend(...)) cAlias->(__dbZap()) cAlias->(dbcommit()) cAlias->(OrdScope(...)) Travar Simple sem tratamento : While(nAlias->(!rLock())) ; ENDDO Fechar Arquivo: cAlias(DbCloseArea()) Ou seja, definir e utilizar tudo baseado em ALIAS(), pois desta forma jamais terá uso de comandos em área aberta/fechada indevidamente.

Dorneles, isto já pedi faz tempo.

Ve se ajuda. http://www.oho.com.br/toledo

Kapi, tú já devia sabe decor e salteado.

http://www.daruma.com.br/prd_det.php?id_prod=110

Já foi perguntado, mas volto a perguntar. 1 - RDD de arquivos/índices como/onde estão as chamadas. 2 - Como é o processo de abertura e em qual momento de Arquivos/indices 3 - Na inclusão, como esta pegando o próximo numero sequencial. 4 - Mostrar parte do processo de inclusão. (inicio/append) 5 - Mostrar a estrutura da tabela. Só por curiosidade, qual a quantidade de registros.

Para uma maquina Windows, acessar dados em um Servido LINUX, é preciso estar com o samba rodando e startado pelo smb.conf Tipo assim, uma rede de maquinas Windows devem estar no mesmo grupo de trabalho para que o desempenho seja satisfatório. O samba ativo e rodando, o servidor Linux será visto na rede Windows. Alguns parâmetros devem ser analisados e colocados em pratica no LINUX. Se tudo estiver correto, a rede Linux/Windows é imbatível. Outra coisa, apesar de Linux Desck poder ativar o Samba, isto nunca é aconselhável , recomenda-se instalar Linux SERVER, pelo mesmo princípio que se usa Windows Server.

**---------------------------------------------------------** ** Finalidade : Retornar intervalo entre dias/horas ** Sintaxe : PCS_ElapTime(par1,par2) ** Par1 : Dia1/Hora1 DtoC(Dia1)+Subs(hora1,1,8) ** Par2 : Dia2/Hora2 DtoC(Dia2)+Subs(hora2,1,8) ** Exemplo : PCS_ElapTime(Dia1,Dia2) ** Retorno : 00:00:00 **---------------------------------------------------------** Function PCS_ElapTime(Data1,Data2) **---------------------------------------------------------** LOCAL D1:=CToD(Subs(Data1,1,10)), H1:=Subs(Data1,11,8) LOCAL D2:=CToD(Subs(Data2,1,10)), H2:=Subs(Data2,11,8) PegaHora:=ElapTime(H1,H2) IF(D2 > D1) PegaDia:=(D2 - D1) * 24 IF(H2 < H1) PegaDia-=24 ENDIF PegaMinuto:=subs(PegaHora,3,6) PegaHora:=Val(Subs(PegaHora,1,2))+PegaDia PegaHora:=AllTrim(Str(PegaHora)+PegaMinuto) ENDIF RETURN(PegaHora)

Se puder poste em dicas.

Se fosse só você ...