Kbelo

April 18, 2013

Bom dia galera,

Estou com dois problemas

1 quero fazer um botÃ£o com bordas arredondadas e outro que o botÃ£o seja transparente.

Nesse botÃ£o transparente quero que fique somente o desenho do icone sendo que sem fundo.

Os exemplos do que quero estÃ£o em anexo

exemplotransparente.bmp

exemploarredondado.bmp

April 4, 2013

Ola amigos.
Resolvi dessa forma.

Tenho uma tela para preencher o Servidor, banco, usuario e senha.

"ConnString = Provider=SQLNCLI10;Driver={SQL Server Native Client 10.0};Server=" + alltrim(servidor) + ";Database=" + alltrim(banco) + ";Uid=" + alltrim(usuario) + ";Pwd=" + alltrim(senha) + ";")

um exemplo de como fica

"ConnString = Provider=SQLNCLI10;Driver={SQL Server Native Client 10.0};Server=MARCELO-PC\SQLEXPRESS;Database=MeuBanco;Uid=sa;Pwd=sa;"

April 3, 2013

Boa Tarde.

Amigos estou tentando fazer uma conexÃ£o com SQL Server e nÃ£o estou conseguindo.

Fiz a conexÃ£o ODBC no painel de controle.

No sistema estou tentando conectar dessa forma

"ConnString = Driver={SQL Server Native Client 10.0};Server=MARCELO-PC\SQLEXPRESS;Database=Rickmarley;Uid=sa;Pwd=sa;"

sempre que tento conectar mostra o seguinte erro

03/04/2013 12:14:55: SQLDriverConnect Error: No ODBC connection established IM002 - 0 - [Microsoft][ODBC Driver Manager] Nome da fonte de dados nÃ£o encontrado e nenhum driver padrÃ£o especificado

O Problema Ã© que o Drive esta criado no Painel de controle e continua informando que nÃ£o existe.

Help-me

November 16, 2012

Tem gente ai confundindo as coisas.

Windows 32 bits roda aplicaÃ§Ã£o atÃ© 16 bits

Windows 64 bits roda aplicaÃ§Ã£o atÃ© 32 bits

Isso independente da versÃ£o do Windows.

Se for WIN7 32 bits vai rodar clipper com certeza.

Se for XP 64 bita nÃ£o roda.

Ou seja nÃ£o tem haver com versÃ£o e sim a plataforma de bits que ele roda.

Quanto ao seu sistema a unica alternativa seria retirar o

full screen e aumentar as propriedade e fontes no proprio prompt.

Marcelo Michels

E-mail:marcelo@folksistemas.com.br

Msn/E-mail:celo.michels@hotmail.com

xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

November 7, 2012

sei disso e nossos sistemas geram. Isso Ã© para um cliente que usa outro sistema e estamos migrado sÃ³ que ele precisa do sintegra do ecf e o sistema antigo esta com o banco corrompido.

Ã© sÃ³ um paleativo

Marcelo Michels

E-mail:marcelo@folksistemas.com.br

Msn/E-mail:celo.michels@hotmail.com

xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

November 7, 2012

www.folksistemas.com.br

Sistema Dincash

De uma olhada acredito que temos o que precisa

Marcelo Michels

E-mail:marcelo@folksistemas.com.br

Msn/E-mail:celo.michels@hotmail.com

xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

November 7, 2012

Bom dia.

Onde foi que eu errei???

Quando executo esse teste da erro no executÃ¡vel de enviar relatÃ³rio.

O que eu pude perceber Ã© que quando vai acessar a BemaMFD2.dll mostra um alert e depois ocorre o erro.

#INCLUDE "FiveWin.ch"

FUNCTION Start()

LOCAL hBorland,bAction

xDll := LoadLibrary("BEMAFI32.DLL")

Private x01 := "09"

Private x02 := "2012"

Private x03 := "Teste Empresa LTDA"

Private x04 := "Rua Padrao de teste"

Private x05 := " "

Private x06 := space(22)

Private x07 := "Sao Luiz "

Private x08 := "Criciuma "

Private x09 := "88803290"

Private x10 := space(12)

Private x11 := space(10)

Private x12 := space(18)

define dialog oDlg resource "ECFTESTE"

redefine Get ogx01 var x01 ID 101 OF oDlg Picture "@!"

redefine Get ogx02 var x02 ID 102 OF oDlg Picture "@!"

redefine Get ogx03 var x03 ID 103 OF oDlg Picture "@!"

redefine Get ogx04 var x04 ID 104 OF oDlg Picture "@!"

redefine Get ogx05 var x05 ID 105 OF oDlg Picture "@!"

redefine Get ogx06 var x06 ID 106 OF oDlg Picture "@!"

redefine Get ogx07 var x07 ID 107 OF oDlg Picture "@!"

redefine Get ogx08 var x08 ID 108 OF oDlg Picture "@!"

redefine Get ogx09 var x09 ID 109 OF oDlg Picture "@!"

redefine Get ogx10 var x10 ID 110 OF oDlg Picture "@!"

redefine Get ogx11 var x11 ID 111 OF oDlg Picture "@!"

redefine Get ogx12 var x12 ID 112 OF oDlg Picture "@!"

redefine button obok ID 113 OF oDlg ;

ACTION(executa())

oDlg:lHelpicon := .F.

activate dialog oDlg center

*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*

static function executa

*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*

nRet := Bematech_FI_GeraRelatorioSintegraMFD(31, "c:\download.mfd", "d:\sintegra.txt", x01, x02, x03, x04, x05, x06, x07, x08, x09, x10, x11, x12)

alert('Concluido')

return .t.

//Ler flag fiscal da impressora

DLL32 FUNCTION Bematech_FI_GeraRelatorioSintegraMFD( codigo AS _INT,;

Mdf AS STRING,;

txtSintegra AS STRING,;

x1 AS STRING,;

x2 AS STRING,;

x3 AS STRING,;

x4 AS STRING,;

x5 AS STRING,;

x6 AS STRING,;

x7 AS STRING,;

x8 AS STRING,;

x9 AS STRING,;

x10 AS STRING,;

x11 AS STRING,;

x12 AS STRING ) AS LONG PASCAL ;

FROM "Bematech_FI_GeraRelatorioSintegraMFD" LIB xDll

id=code>id=code>

Marcelo Michels

E-mail:marcelo@folksistemas.com.br

Msn/E-mail:celo.michels@hotmail.com

xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

November 7, 2012

Bom dia.

Onde foi que eu errei???

Quando executo esse teste da erro no executÃ¡vel de enviar relatÃ³rio.

O que eu pude perceber Ã© que quando vai acessar a BemaMFD2.dll mostra um alert e depois ocorre o erro.

#INCLUDE "FiveWin.ch"

FUNCTION Start()

LOCAL hBorland,bAction

xDll := LoadLibrary("BEMAFI32.DLL")

Private x01 := "09"

Private x02 := "2012"

Private x03 := "Teste Empresa LTDA"

Private x04 := "Rua Padrao de teste"

Private x05 := " "

Private x06 := space(22)

Private x07 := "Sao Luiz "

Private x08 := "Criciuma "

Private x09 := "88803290"

Private x10 := space(12)

Private x11 := space(10)

Private x12 := space(18)

define dialog oDlg resource "ECFTESTE"

redefine Get ogx01 var x01 ID 101 OF oDlg Picture "@!"

redefine Get ogx02 var x02 ID 102 OF oDlg Picture "@!"

redefine Get ogx03 var x03 ID 103 OF oDlg Picture "@!"

redefine Get ogx04 var x04 ID 104 OF oDlg Picture "@!"

redefine Get ogx05 var x05 ID 105 OF oDlg Picture "@!"

redefine Get ogx06 var x06 ID 106 OF oDlg Picture "@!"

redefine Get ogx07 var x07 ID 107 OF oDlg Picture "@!"

redefine Get ogx08 var x08 ID 108 OF oDlg Picture "@!"

redefine Get ogx09 var x09 ID 109 OF oDlg Picture "@!"

redefine Get ogx10 var x10 ID 110 OF oDlg Picture "@!"

redefine Get ogx11 var x11 ID 111 OF oDlg Picture "@!"

redefine Get ogx12 var x12 ID 112 OF oDlg Picture "@!"

redefine button obok ID 113 OF oDlg ;

ACTION(executa())

oDlg:lHelpicon := .F.

activate dialog oDlg center

*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*

static function executa

*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*

nRet := Bematech_FI_GeraRelatorioSintegraMFD(31, "c:\download.mfd", "d:\sintegra.txt", x01, x02, x03, x04, x05, x06, x07, x08, x09, x10, x11, x12)

alert('Concluido')

return .t.

//Ler flag fiscal da impressora

DLL32 FUNCTION Bematech_FI_GeraRelatorioSintegraMFD( codigo AS _INT,;

Mdf AS STRING,;

txtSintegra AS STRING,;

x1 AS STRING,;

x2 AS STRING,;

x3 AS STRING,;

x4 AS STRING,;

x5 AS STRING,;

x6 AS STRING,;

x7 AS STRING,;

x8 AS STRING,;

x9 AS STRING,;

x10 AS STRING,;

x11 AS STRING,;

x12 AS STRING ) AS LONG PASCAL ;

FROM "Bematech_FI_GeraRelatorioSintegraMFD" LIB xDll

id=code>id=code>

Marcelo Michels

E-mail:marcelo@folksistemas.com.br

Msn/E-mail:celo.michels@hotmail.com

xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

May 30, 2012

Ja tentou colocar um barra de rolagem na janela?

Marcelo Michels

E-mail:marcelo@folksistemas.com.br

Msn/E-mail:celo.michels@hotmail.com

xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

May 29, 2012

xBrowse sim.

Listbox acredito que nÃ£o.

Marcelo Michels

E-mail:marcelo@folksistemas.com.br

Msn/E-mail:celo.michels@hotmail.com

xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

May 25, 2012

o Primeiro problema Ã© simples como ja descrito aqui.

Voce utilizou um produto no C170 que nÃ£o esta no 0200.

O Segundo problema voce pode atÃ© matar a charada.

O validador esta informando a linha voce vai la e ve o conteudo dessa linha 4227.

Ao que me parece ele estava esperando um outro registro e encontrou esse.

Se puder poste essa linha para analisarmos.

Se for o registro de uma nota poste o C100 e todos os filhos.

Marcelo Michels

E-mail:marcelo@folksistemas.com.br

Msn/E-mail:celo.michels@hotmail.com

xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

May 25, 2012

Esses dados sÃ£o necessarios principalmente para quem usa SPED Pis e Cofins.

Apesar de a ECF nÃ£o guardar nada disso o CONTADOR deve passar uma lista para seu cliente informando qual a CST correta de cada produto.

O NCM normalmente vem nas NF de compras com isso fica facil o cliente encontrar.

Quando for SPED fiscal voce tera que informar a CST de ICMS.

Crie um campo no cadastro de produtos e insira la esse valor.

Se voce tiver SPED PIS e COFINS ai voce tambem ira precisar da CST de Pis e a CST de Cofins. Sendo que existe a de Entrada e a de Saida para cada CST.

Alem disso estude tambem sobre o CSOSN, caso ainda nÃ£o conheÃ§a.

Marcelo Michels

E-mail:marcelo@folksistemas.com.br

Msn/E-mail:celo.michels@hotmail.com

xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

May 25, 2012

A loja virtual tera que acessar um banco de dados para alimentar o estoque.

Ã‰ possivel ter um banco de dados na Loja virtual a qual voce tenha controle?

Ã‰ voce quem controla o site da loja virtual?

Marcelo Michels

E-mail:marcelo@folksistemas.com.br

Msn/E-mail:celo.michels@hotmail.com

xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

May 25, 2012

pretono := rretornarinformacao_ecf_daruma_("78",@valor)

Tente assim

Marcelo Michels

E-mail:marcelo@folksistemas.com.br

Msn/E-mail:celo.michels@hotmail.com

xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

May 25, 2012

*************

function main

private hDLL := LoadLibrary( "suadll.dll" )

....

No final do prg apos o return

DLL32 FUNCTION bSendDisplayMsg( ID AS INT, line1 AS LPSTR, line2 AS LPSTR, timeExhibition AS WORD, typeAnimation AS WORD ) AS BOOL PASCAL LIB hDLL

DLL32 FUNCTION bReceiveBarcode( ID AS INT, PORTA AS INT, BUFFER AS LPSTR, NBR AS INT ) AS BOOL PASCAL LIB hDLL

DLL32 FUNCTION bSendProdPrice( ID AS INT, nameProd AS LPSTR, priceProd AS LPSTR ) AS BOOL PASCAL LIB hDLL

DLL32 FUNCTION bSendProdNotFound( ID AS INT) AS BOOL PASCAL LIB hDLL

id=code>id=code>

Veja se ajuda.

Marcelo Michels

E-mail:marcelo@folksistemas.com.br

Msn/E-mail:celo.michels@hotmail.com

xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

May 18, 2012

Resumindo o que quero.

Tenho uma tela de PDV e quero um espelho do cupom na tela.

Vai subir um cupom por isso um browse sem bordas e se possivel de baixo para cima.

Essa tela tera uma imagem de fundo para poder personalizar para cada cliente assim o Desenho do cupom ja vem do brush da tela.

Marcelo Michels

E-mail:marcelo@folksistemas.com.br

Msn/E-mail:celo.michels@hotmail.com

xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

May 18, 2012

citaÃ§Ã£o:

citaÃ§Ã£o:
inicie de baixo para cima.

Marcelo Michels

E-mail:marcelo@folksistemas.com.br

Msn/E-mail:celo.michels@hotmail.com

xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

id=quote>id=quote>
Ola Marcelo veja se Ã© isto que vc quer...

antes de abrir a browse...

KEYBD_EVENT(33,,,0)

KEYBD_EVENT(35,,,0)

fazer esta declaraÃ§Ã£o no prg principal...
DLL32 FUNCTION keybd_event(bVk as _INT,bScan as _INT,dwFlags ;

as LONG,dwExtraInfo as LONG) AS LONG PASCAL LIB "user32.dll"

id=code>id=code>
AbraÃ§os

Luiz Fernando

$http:\\img193.imageshack.us\img193\6434\foto3nr.jpg$

msn: empresoft@globo.com

skype:empresoft

empresoft@globo.com

FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1

FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH1104

id=quote>id=quote>

NÃ£o entendi sua postagem mas fiz o teste mesmo assim

NÃ£o funcionou.

Marcelo Michels

E-mail:marcelo@folksistemas.com.br

Msn/E-mail:celo.michels@hotmail.com

xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

May 18, 2012

citaÃ§Ã£o:
Ola amigos

Sem bordas Ã© fÃ¡cil... agora de BAIXO P/ CIMA ai complicou

Jackson Douglas

Boa Vista

FWH 12.02 Lamborguini ( isso voa gente ) PellesC+xH 1.2.1 + FAST REPORT + DBFCDX + SQL 100%

email : miragerr@osite.com.br

MSN : jackson_rl@hotmail.com

SKYPE : jackson_rr

id=quote>id=quote>

Como faz sem Bordas?

Marcelo Michels

E-mail:marcelo@folksistemas.com.br

Msn/E-mail:celo.michels@hotmail.com

xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

May 18, 2012

Ola amigos.

Como faÃ§o um xbrowse sem Bordas e que inicie de baixo para cima.

Marcelo Michels

E-mail:marcelo@folksistemas.com.br

Msn/E-mail:celo.michels@hotmail.com

xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

May 18, 2012

Ola amigos.

Como faÃ§o um xbrowse sem Bordas e que inicie de baixo para cima.

Marcelo Michels

E-mail:marcelo@folksistemas.com.br

Msn/E-mail:celo.michels@hotmail.com

xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

May 16, 2012

Deixa eu ver se entendi.

Beleza vou fazer esse teste.

NÃ£o vi nada de concreto onde dizia que a ou b era melhor em certo recurso.

EntÃ£o minha conclusÃ£o Ã©: Quando o Harbour possuir a SQLrdd eu faÃ§o o teste. Fora isso continuo no xHarbour que ta bom demais.

Marcelo Michels

E-mail:marcelo@folksistemas.com.br

Msn/E-mail:celo.michels@hotmail.com

xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

May 15, 2012

Para fazer Download sÃ³ com o Certificado.

Agora quando voce inclui a chave da nota o site carrega as informaÃ§Ãµes da nota.

Se voce puxar as informaÃ§Ãµes do Site pode gerar o XML.

Exatamente como faz com o Sintegra.

Marcelo Michels

E-mail:marcelo@folksistemas.com.br

Msn/E-mail:celo.michels@hotmail.com

xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

May 15, 2012

Voce esta fazendo uam carta de CorreÃ§Ã£o.

NÃ£o teria que enviar a chave da Nota que esta corrigindo?

Marcelo Michels

E-mail:marcelo@folksistemas.com.br

Msn/E-mail:celo.michels@hotmail.com

xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

May 15, 2012

Boa Noite.

O que realmente o Harbour tem de melhor?

Quais vantagens do harbour?

Alimentando mais ainda.

Aos usuarios de xharbour que acham ele melhor tambem postem aqui quais as vantagem que ele tem sobre o Harbour.

Marcelo Michels

E-mail:marcelo@folksistemas.com.br

Msn/E-mail:celo.michels@hotmail.com

xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

Editado por - kbelo on 15/05/2012 21:20:58

May 15, 2012

Boa Noite.

O que realmente o Harbour tem de melhor?

Quais vantagens do harbour?

Alimentando mais ainda.

Aos usuarios de xharbour que acham ele melhor tambem postem aqui quais as vantagem que ele tem sobre o Harbour.

Marcelo Michels

E-mail:marcelo@folksistemas.com.br

Msn/E-mail:celo.michels@hotmail.com

xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

Editado por - kbelo on 15/05/2012 21:20:58

Sign In

Kbelo

Posts

Joined

Last visited

Content Type

Downloads

Profiles

Forums

Posts posted by Kbelo

botoes transparente ou arredondados

ConexÃ£o SQL Server(Resolvido)

ConexÃ£o SQL Server(Resolvido)

Problemas com windows7 + clipper puro

SINTEGRA DLL BEMATECH

PARCERIA PARA SISTEMA PAF ECF

SINTEGRA DLL BEMATECH

SINTEGRA DLL BEMATECH

Tela em notebook (14") e netbook (10")

Shift no Listbox

Problemas com SPED

Informacoes sobre NCM entre outras no SPED ECF

Como fazer a ligaÃ§Ã£o entre o estoque e lj virtual?

Atualizar libs fivewin

DeclaraÃ§Ã£o de FunÃ§Ãµes em C

xBrowse

xBrowse

xBrowse

xBrowse

xBrowse

Harbour ou xHarbour

XML direto no SEFAZ

494 RejeiÃ§Ã£o: Chave de Acesso inexistente

Harbour ou xHarbour

Harbour ou xHarbour

Browse

Activity