SAOliveira

August 6, 2014

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.

August 4, 2014

Giovany, perfeito.

No meu caso não coloco em todas as dlgs.

Mas vou adotar.

Grato.

August 3, 2014

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)

Dr.Microso · August 2, 2014

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"

August 1, 2014

Giovani, se puder poste uma imagem do resultado.

Uso algo que imagino ser semelhante, gostaria de poder comparar os resultados.

Grato.

kapiaba · July 16, 2014

pra não perder a piada.

Que trocadalho do carilho que dá o nome deste Alias

July 12, 2014

Marcio, desculpe.

Voce migra por exemplo (clientes para delphi) e o resto rodando em FIVE e assim vai mudando. Sem ter transtorno.

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.

July 12, 2014

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"))

June 19, 2014

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

June 17, 2014

Faltou a parte que você grava no MySql ?

June 17, 2014

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.

June 16, 2014

Luizão, mande para mim por favor

sergio@oho.com.br

June 15, 2014

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".

June 13, 2014

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.... ?

June 13, 2014

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

June 12, 2014

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.

June 12, 2014

Dorneles, isto já pedi faz tempo.

June 10, 2014

Ve se ajuda.

http://www.oho.com.br/toledo

June 9, 2014

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

June 5, 2014

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

June 4, 2014

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.

kapiaba · June 2, 2014

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.

May 29, 2014

**---------------------------------------------------------**
** 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)

May 27, 2014

Se puder poste em dicas.

Theotokos · May 26, 2014

Se fosse só você ...

Sign In

SAOliveira

Posts

Joined

Last visited

Days Won

Content Type

Downloads

Profiles

Forums

Posts posted by SAOliveira

pegar dados da nfe no portal nacional

Efeito transparencia em Dialog quando fora de focus

Efeito transparencia em Dialog quando fora de focus

Efeito transparencia em Dialog quando fora de focus

Efeito transparencia em Dialog quando fora de focus

Xbrowse com problema

Android

activex facebook pluguin

FALHA NO COMANDO ROUND() DO XHARBOUR

INDEXAÇÃO CONSTANTE

INDEXAÇÃO CONSTANTE

Android

BACKUP Banco Mysql

BACKUP Banco Mysql

BACKUP Banco Mysql

INDEXAÇÃO CONSTANTE

INDEXAÇÃO CONSTANTE

Balança L-PCR Magna - Resolvido

Instalando e configurando o MySQL para (x)Harbour

NFC-e

INDEXAÇÃO CONSTANTE

Function DBINFO()

Calculo de horas

Autocomplete

Impressão Código Barras (Boleto bancário) em fastreport

Browse

Activity