sig_gilberto

Consegui! CREATE TABLE TBARQDEV (LhDados VarChar(5000)) SELECT * FROM TBARQDEV insert into tbarqdev Select * FROM OPENROWSET('MSDASQL', 'Driver={Microsoft Text Driver (*.txt; *.csv)}; DefaultDir=u:\arqdev\sistema;', 'SELECT * FROM ARQDEV_04575.TXT') ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Olá Desenvolvedores, Bom Dia! Caso possam ajudar... Preciso URGENTE importar arquivo TXT para dentro de uma tabla em SQL. Só que preciso fazer isso, se possível, via console, ou se ja, com comandos diretos... Estrutura do TXT : CIF|7205015910039278100000000110011209#CPF|99999#RG| #DOCUMENTO|99999#CEDENTE|CIA BRASIL#NOME|MARIA GREGORIO#ENDERECO|RUA DORACI 00#NUMERO|00 #COMPLEMENTO|ALI DO LADO#BAIRRO|BOM PASTOR#CIDADE|SAO PAULO#Estado|SP#CEP|999999999#VALOR|123,56#VENCIMENTO|00/00/0000#NNUMERO|99999 Ainda, quero fazer isso com o MicroSoft SQL Server Management Studio Express.. Tem jeito ? tem alguma coisa parecida com SELECT, IMPORTSQL, ETC ? ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Olá Desenvolvedores, Bom Dia! Caso possam ajudar... Preciso URGENTE importar arquivo TXT para dentro de uma tabla em SQL. Só que preciso fazer isso, se possível, via console, ou se ja, com comandos diretos... Estrutura do TXT : CIF|7205015910039278100000000110011209#CPF|99999#RG| #DOCUMENTO|99999#CEDENTE|CIA BRASIL#NOME|MARIA GREGORIO#ENDERECO|RUA DORACI 00#NUMERO|00 #COMPLEMENTO|ALI DO LADO#BAIRRO|BOM PASTOR#CIDADE|SAO PAULO#Estado|SP#CEP|999999999#VALOR|123,56#VENCIMENTO|00/00/0000#NNUMERO|99999 Ainda, quero fazer isso com o MicroSoft SQL Server Management Studio Express.. Tem jeito ? tem alguma coisa parecida com SELECT, IMPORTSQL, ETC ? ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

RESOLVIDO!!! (por enquanto!! rsrs) Obrigaduu! ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Voltando... Acho que estou errando na hora de indicar o INDICE, pois o DBSEEK() está voltando .f. (falso) : Function Logar() If DBUseArea(.t.,"DBFCDX","TB_ACESS","TB_ACESS",.t.,.t.)=.f. MsgStop("Inexistente, Corrompida ou sendo usada por outra estação!","ERRO : Tentativa de Acesso a Tabela TB_ACESSO") Return .f. EndIf DBSelectArea("TB_ACESS") ORDSETFOCUS(1,"TB_ACESS") DBGoTop() Public vNmUsuar:=Space(10) While .t. MsgGet("Acesso","Digite o Nome do Usuário",@vNmUsuar) vNmUsuar:=Upper(vNmUsuar) If Empty(vNmUsuar) .or. Len(vNmUsuar) < 3 MsgAlert("Informe Nome do Usuário Corretamente!","ERRO: Tentativa de Acesso ao Sistema") DBCloseAll() return .f. EndIf * ERRO AKI, não esta achando o usuario: DBSeek(vnmUsuar) If !Found() MsgAlert("Usuário "+Alltrim(vNmUsuar)+" não autorizado!","ERRO: Tentativa de Acesso ao Sistema") DBCloseAll() return .f. EndIf If !RLock() MsgAlert("Usuário "+Alltrim(vNmUsuar)+" está acessando outra Estação!","ERRO: Tentativa de Acesso ao Sistema") Loop EndIf vDSSenha=Space(10) MsgGet("Acesso","Digite a Senha de Acesso",@vDSSenha) If alltrim(DsSenha)#Alltrim(vSenha) MsgAlert("Digite Senha Corretamente!","Senha Inválida!") UnLock Return .f. EndIf TB_Acess->DtUltAc:=Dtoc(Date()) TB_Acess->DtUltAc:=Time() TB_Acess->NmTermi:="PORTARIA 01" UnLock Return .t. EndDo ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

OK "meninos" !! Não deu mais o erro..agora vou manipular os dados e caso dê certo, retorno informando!! Por enquanto Obrigadu!!! ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

E agora ? Onde esta a LIB ? Error: Unresolved external '_HB_FUN_DBFCDX' referenced from PORTAL.OBJ ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Ico, obrigado pelo retorno... Mas eu estou fechando ! ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Olá Desenvolvedores, Bom Dia! Me Ajudem por favor. Esta faltando algum parâmetro ? Tem alguma LIB em especial ? * Rotina Principal #include "Fivewin.ch" #Include "Directry.ch" #Include "Report.ch" Static oWnd Function Janela() Local oBru REQUEST DBFCDX RDDSETDEFAULT("DBFCDX") DBSETDRIVER("DBFCDX") CriaDBF() DBUseArea(.t.,"DBFCDX","TB_ACESS","TB_ACESS",.t.,.t.) ** aki dá erro : ** Error description: Error DBCMD/1015 Argument error: DBUSEAREA Return Nil ********************************************************* **** Criar DBF Procedure Criadbf Mtz:={} AAdd(Mtz,{"NmUsuar","C",010,0}) AAdd(Mtz,{"DsSenha","C",010,0}) AAdd(Mtz,{"DtUltAc","C",010,0}) AAdd(Mtz,{"HrUltAc","C",008,0}) DBCreate("TB_ACESS.DBF",Mtz) Use TB_ACESS New Index On NmUsuar TAG NmUsuar To TB_ACESS Use Return Nil ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Olá Desenvolvedores, Bom Dia! Me Ajudem por favor. Esta faltando algum parâmetro ? Tem alguma LIB em especial ? * Rotina Principal #include "Fivewin.ch" #Include "Directry.ch" #Include "Report.ch" Static oWnd Function Janela() Local oBru REQUEST DBFCDX RDDSETDEFAULT("DBFCDX") DBSETDRIVER("DBFCDX") CriaDBF() DBUseArea(.t.,"DBFCDX","TB_ACESS","TB_ACESS",.t.,.t.) ** aki dá erro : ** Error description: Error DBCMD/1015 Argument error: DBUSEAREA Return Nil ********************************************************* **** Criar DBF Procedure Criadbf Mtz:={} AAdd(Mtz,{"NmUsuar","C",010,0}) AAdd(Mtz,{"DsSenha","C",010,0}) AAdd(Mtz,{"DtUltAc","C",010,0}) AAdd(Mtz,{"HrUltAc","C",008,0}) DBCreate("TB_ACESS.DBF",Mtz) Use TB_ACESS New Index On NmUsuar TAG NmUsuar To TB_ACESS Use Return Nil ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

É isso ai!!!!!!! VLW!!!! ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Ola Desenvolvedores, Boa Tarde! Coloco uma imagem BMP como botão para acionar um evento... Além da imagem, tem como colocar uma "strig" como se fosse um título ? No quandadro do Button além da imagem que quero acrescentar uma palavra, exemplo : O Button é um desenho de uma porta, e dentro do "box" do button quero escrever a palavra "ENTRADA". Eu poderia fazer esta palavra fazer parte do BMP, mas não, quero inserir a palavra, tem como ? @ 010,020 BtnBmp oBtn3 Of oDlg FILENAME "IMG\Pessoa.BMP" Size 70,50 Action(BuscaArq("*.TXT")) NOBORDER oBtn3:ctooltip="Entrada de Pedestres..." *** Aproveitando a pergunta : Tem como utilizar GIF ou mesmo JPEG no BTNBMP ? ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...." Editado por - sig_gilberto on 25/01/2010 13:30:34

Ola Desenvolvedores, Boa Tarde! Coloco uma imagem BMP como botão para acionar um evento... Além da imagem, tem como colocar uma "strig" como se fosse um título ? No quandadro do Button além da imagem que quero acrescentar uma palavra, exemplo : O Button é um desenho de uma porta, e dentro do "box" do button quero escrever a palavra "ENTRADA". Eu poderia fazer esta palavra fazer parte do BMP, mas não, quero inserir a palavra, tem como ? @ 010,020 BtnBmp oBtn3 Of oDlg FILENAME "IMG\Pessoa.BMP" Size 70,50 Action(BuscaArq("*.TXT")) NOBORDER oBtn3:ctooltip="Entrada de Pedestres..." *** Aproveitando a pergunta : Tem como utilizar GIF ou mesmo JPEG no BTNBMP ? ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...." Editado por - sig_gilberto on 25/01/2010 13:30:34

Bom Dia Amigos!! Realmente a idéia é esta mesmo, caso um usuário abrir um DBF através até do DBU ou mesmo o Excel, gostaria de um função/classe que fizesse este rastreio e me retornasse o IP deste terminal. ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Olá Kapi, Bom Dia! NÂO! Na verdade eu queria saber isso sobre qualquer DBF sendo utilizado na rede a qualquer momento... Não tem controle de usuarios...seria qualquer DBF.. ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

vData = Substr(vData,01,06)+Substr(vData,09,02) ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

E por isso que gosto postar aki!!! Bem, vamos lá.. Eu sei onde eu estou, mas não sei que abriu o arquivo primeiro. Como o arquivo DBF pode ou não ser estar sendo aberto de modo compartilhado, quando eu estiver tentanto abrir ele na minha estação, e o arquivo estiver em uso em outra estação, quero saber qual estação é esta que "pegou" o DBF primeiro... ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...." Editado por - sig_gilberto on 21/01/2010 09:41:42 Editado por - sig_gilberto on 22/01/2010 08:19:44

Olá Desenvolvedores, Bom Dia! Há como saber qual estação de trabalho/IP abriu um determinado DBF ? Minha estação tenta abrir: USE Coletor New Shared alias Coletor INDEX Coletor If NetErr() MsgStop("Abertura de Arquivo não Sucedida","ERRO: Arquivo já sendo usado pela Estação: "+vNmEstacao) Return Nil EndIf Levando em consideração que esta estação de trabalho poderá ter aberto o DBF simplesmente com USE ARQDBF... ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Olá Desenvolvedores, Bom Dia! Há como saber qual estação de trabalho/IP abriu um determinado DBF ? Minha estação tenta abrir: USE Coletor New Shared alias Coletor INDEX Coletor If NetErr() MsgStop("Abertura de Arquivo não Sucedida","ERRO: Arquivo já sendo usado pela Estação: "+vNmEstacao) Return Nil EndIf Levando em consideração que esta estação de trabalho poderá ter aberto o DBF simplesmente com USE ARQDBF... ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Olá Desenvolvedores, Bom Dia! Utilizo o MsgGet para acesso ao sistema. Agora, como colocar "*" asteriscos para que não seja vista a senha ? Public vShUsuar:=Space(10) If !MsgGet("Acesso","Digite o Senha do Usuário",@vShUsuar) Return Nil EndIf ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP JAVA / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 8.05 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Olá Desenvolvedores, Bom Dia! Utilizo o MsgGet para acesso ao sistema. Agora, como colocar "*" asteriscos para que não seja vista a senha ? Public vShUsuar:=Space(10) If !MsgGet("Acesso","Digite o Senha do Usuário",@vShUsuar) Return Nil EndIf ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP JAVA / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 8.05 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Bom Dia! Valeu ICO, é isso mesmo, funcionou : . . Public vNmCmh:=BuscaArq("U:\ARQDEV") If MsgNoYes("Pasta Correta ?","Processar de "+vNmCmh) = .f. Return Nil EndIf vNmCmh:=Alltrim(vNmCmh)+"\*.Dev" Public vNomes:=DIRECTORY(vNmCmh), anames:={} . . . Function BuscaArq(BTipo) Local vNmPasta := cGetDir( "Selecione Pasta a Processar...",BTipo,; CurDrive() + ":\" + GetCurDir() ) Return vNmPasta ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP JAVA / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 8.05 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Olá Desenvolvedores, Boa Tarde! Caso possam me ajuda, quero apenas "apontar" para uma Pasta determinada, mas não quero nome de nenhum arquivo. Quando eu chamar a função BuscaArq("U:\ARQDEV\*.") já estarei passando a pasta/caminho principal, onde dentro dela, estarei selecionando o nome de outra pasta a qual tem um montão de arquivos; Na verdade quero apenas o "caminho" na variávell VPasta : exemplo : U:\ARQDEV\DIA100110\ Como fazer a variável vPasta Para tal, estou utilizando o código abaixo : vPASTA:=BuscaArq("U:\ARQDEV\*.") Public vNomes:=DIRECTORY(vPasta+"\*.Dev"), anames:={} aeval(vNomes,{|file|aadd(anames,file[F_NAME])}) aadd(anames,"FIM") Public acum := {} vr=0 While .t. vr++ if anames[vr]="FIM" exit endif aadd(acum,upper(anames[vr])) EndDo . . ***************************** *********** Function BuscaArq(BTipo) NmCmh=cGetFile32(BTipo,"Selecione a Pasta",,WPasta) NmCmh=iif(!Empty(NmCmh),cFileNoPath(NmCmh),"Nenhuma Pasta Selecionada!") Return NmCmh ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP JAVA / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 8.05 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Olá Desenvolvedores, Boa Tarde! Caso possam me ajuda, quero apenas "apontar" para uma Pasta determinada, mas não quero nome de nenhum arquivo. Quando eu chamar a função BuscaArq("U:\ARQDEV\*.") já estarei passando a pasta/caminho principal, onde dentro dela, estarei selecionando o nome de outra pasta a qual tem um montão de arquivos; Na verdade quero apenas o "caminho" na variávell VPasta : exemplo : U:\ARQDEV\DIA100110\ Como fazer a variável vPasta Para tal, estou utilizando o código abaixo : vPASTA:=BuscaArq("U:\ARQDEV\*.") Public vNomes:=DIRECTORY(vPasta+"\*.Dev"), anames:={} aeval(vNomes,{|file|aadd(anames,file[F_NAME])}) aadd(anames,"FIM") Public acum := {} vr=0 While .t. vr++ if anames[vr]="FIM" exit endif aadd(acum,upper(anames[vr])) EndDo . . ***************************** *********** Function BuscaArq(BTipo) NmCmh=cGetFile32(BTipo,"Selecione a Pasta",,WPasta) NmCmh=iif(!Empty(NmCmh),cFileNoPath(NmCmh),"Nenhuma Pasta Selecionada!") Return NmCmh ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP JAVA / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 8.05 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Olá Desenvolvedores, Boa Tarde! Aproveitando o tópico... tem alguma limite de linhas/tamanho do arquivo para esta classe TTXTFile()? ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP JAVA / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 8.05 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."