zekasan

Meu vizinho pelo jeito terá que colocar um software homologado, alguem teria um sistema pronto para um mercado pequeno (apenas 1 caixa)?

FWH 8.05 - xHarbour - xDev - VLib

na hora de gravar os dados da tela, eu dou um seek no bd do dbcombo com o valor dele, caso ele não exista eu adiciono ele e recarrego o dbcombo novamente, é bem rudimentar mas funciona

FWH 8.05 - xHarbour - xDev - VLib

tente linkar a ct.lib do xharbour

FWH 8.05 - xHarbour - xDev - VLib

Olá Talita, que linguagem você trabalha?

FWH 8.05 - xHarbour - xDev - VLib

vc tentou colocar o botão como owner draw no pelles?

FWH 8.05 - xHarbour - xDev - VLib

vc já olhou que papel está configurado na impressora? isto costuma acontecer qdo os papéis nao estão configurados iguais

FWH 8.05 - xHarbour - xDev - VLib

Vc já tentou executar o MED como "administrador"?

FWH 8.05 - xHarbour - xDev - VLib

No router em "DHCP SETTINGS"

Ãtem " ADDRES LEASE TIME"

Mude o valor padrão que é de 120 min para um valor maior, este valor define quanto tempo um endereço dinâmico poderá ficar liberado.

Por isso ele desconecta a cada 2 horas (120 min)

Informações retiradas do manual do Router da PACIFIC, creio que seja o mesmo para as outras marcas

FWH 8.05 - xHarbour - xDev - VLib

Usando o Pelles vc tem que gerar no formato "res"

FWH 8.05 - xHarbour - xDev - VLib

você pode usar também a funçao do (x)harbour:

BOM ([]) -> dDateBeginOfMonth

retorna o primeiro dia do mes

? BOM(date())

01/10/2008

obs.: anexe a biblioteca CT.LIB do (x)harbour

FWH 8.05 - xHarbour - xDev - VLib

procure no google por "miniguibrasil"

FWH 8.05 - xHarbour - xDev - VLib

http://br.groups.yahoo.com/group/xhgtk-br/

é gratuito, basta vc fazer sua inscrição no grupo

FWH 8.05 - xHarbour - xDev - VLib

Posso estar falando besteira, mas creio que o rc gerado pelo workshop não é aberto corretamente pelo Pelles

FWH 8.05 - xHarbour - xDev - VLib

Boa tarde a todos, é possível mudar a cor da msgbar? está setada como 2007.

FWH 8.05 - xHarbour - xDev - VLib

Boa tarde a todos, é possível mudar a cor da msgbar? está setada como 2007.

FWH 8.05 - xHarbour - xDev - VLib

+-------+

fio ------------[resistor]-----------| MODEM |

tel. ---------------------------------| |

+-------+

FWH 8.05 - xHarbour - xDev - VLib

Vailton no sccript do fivewin linha 236 faltou:

t:=len(aFiles)

e a pcrepos.lib não vai ser incorporada neste script tb?

FWH 8.05 - xHarbour - xDev - VLib

vc precisa incorporar a pcrepos.lib como se fosse incluir um prg

FWH 8.05 - xHarbour - xDev - VLib

você não tem que dar um tempo antes do skip prá vc pode ver o registro que está sendo selecionado?

FWH 8.05 - xHarbour - xDev - VLib

o Dr. Vaílton poderia nos ajudar??????

FWH 8.05 - xHarbour - xDev - VLib

eu uso como .res e não .rc, mude o nome dela em propriedades, "TESTE" por exemplo, coloque as aspas e letras maiúsculas

FWH 8.05 - xHarbour - xDev - VLib

Redefine VGet oCPFR Var cCPFR picture "999999999999999999" Id 6001 Color cCorGet valid vCPF_CNPJ(@cCPFR,@oCPFR)

function vCPF_CNPJ(NR_CALC,oGet)

NR_CALC = StrTran(NR_CALC,".","")

NR_CALC = StrTran(NR_CALC,"/","")

NR_CALC = StrTran(NR_CALC,"-","")

NR_CALC:=alltrim(NR_CALC)

if len(NR_CALC) = 11

if zCPF(NR_CALC) //valida o CPF

NR_CALC:=substr(NR_CALC,1,3)+"."+substr(NR_CALC,4,3)+"."+substr(NR_CALC,7,3)+"-"+substr(NR_CALC,10,2)

oGet:Refresh()

return(.t.)

else

msgalert("CPF informado não é válido","ATENÇÃO")

NR_CALC:=space(18)

oGet:Refresh()

xsetfocus(oGet)

endif

elseif len(NR_CALC) = 14

if zCNPJ(NR_CALC) //valida o CNPJ

NR_CALC:=substr(NR_CALC,1,2)+"."+substr(NR_CALC,3,3)+"."+substr(NR_CALC,6,3)+"/"+substr(NR_CALC,9,4)+"-"+substr(NR_CALC,13,2)

oGet:Refresh()

return(.t.)

else

msgalert("CNPJ informado não é válido","ATENÇÃO")

NR_CALC:=space(18)

oGet:Refresh()

xsetfocus(oGet)

endif

else

msgalert("Formato inválido de CPF/CNPJ","ATENÇÃO")

NR_CALC:=space(18)

oGet:Refresh()

xsetfocus(oGet)

endif

return(.f.)

FWH 8.05 - xHarbour - xDev - VLib

Você já tentou o chr(13) ao invés do chr(9)?

FWH 8.05 - xHarbour - xDev - VLib

por quê vc não lê como se fosse um única variável e depois a desmembra? atribuindo para cada campo um pedaço da primeira variável?

a:="123412345678901"

a1:=substr(a,1,4)

a2:=substr(a,5,11)...

FWH 8.05 - xHarbour - xDev - VLib

redefine listbox ...

ON DBLCLICK msginfo("CLIQUE DUPLO")

FWH 8.05 - xHarbour - xDev - VLib