vagner

Olá, Procure por Replicação na página principal eu fazia isso com arquivos via ftp, rápido e seguro sem problema algum Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Olá, Sim, o que muda é só a inscrição estadual e municipal se não me engano. CNPJ - Cadastro Nacional da Pessoa Jurídica CPF - Cadastro da Pessoa Física Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

citação:Falou poderoso chefão. Então sugiro que mantenha seus critérios pra todos, coisa que não está acontecendo. Cleiton FWH906+xHarbour, MySql, WorkShop, PellesC, FW20d+Clipper5.2+Clip53b id=quote>id=quote>Olá, Não sou o "poderoso chefão" como disse, eu sempre que entro verifico, não é sempre que estou por aqui, mas qndo estou verifico e travo tópicos e remanejo qndo necessário como foi o seu caso Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

citação:Protesto Sr.Moderador, aqui quase ninguém vê. Postei lá justamente por ter mais acesso, inclusive coloquei como título o termo "Offtopic", só queria opinião, já que a internet é uma ferramente de trabalho, e não posso entrar numa barca furada. Desculpe pelo incômodo. E a partir de hoje me ausento totalmente deste site, já que estou incomodando. Cleiton FWH906+xHarbour, MySql, WorkShop, PellesC, FW20d+Clipper5.2+Clip53b id=quote>id=quote>Olá Cleiton, Se mensagens de Off - Topic, fosse para deixar no site de programação, imagina o que seria do site ? Como é um off-topic que não ser refere a programação, de nenhuma forma, foi retirado. Agora se sentiu ofendido por ter postado a mensagem em lugar errado e foi retirado e colocado no lugar certo, não posso fazer nada a respeito, como sempre digo "cada cabeça uma sentença" Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Em uma floresta da Colômbia, os animais tinham o estranho costume de usar todos os tipos de drogas. Certo dia, a girafa estava fumando um baseado, quando apareceu um coelho correndo, com alguns animais o seguindo e lhe disse: — Girafa amiga, não fume isso... Venha correr comigo pra ficar em forma! A girafa ficou sensibilizada com a atitude do pequeno coelho, jogou o cigarro fora e seguiu o coelho. De repente eles viram um elefante cheirando cocaína e o coelho voltou a defender os seus costumes: — Elefante amigo, pare de cheirar isso! Venha correr conosco e perca alguns quilinhos! O elefante decidiu pensar na sua saúde, jogou o pó pro alto e começou a fazer cooper com o novo amigo. Então eles correram mais alguns quilômetros até que encontraram um leão usando lança-perfume. O coelho se apressou em dar seus conselhos: — Leão amigo, pare de cheirar essa droga! Venha correr com a gente e viver uma vida saudável. O leão largou o pano molhado em cima de um tronco, se aproximou do coelho e lhe deu uma patada violenta, que arrancou a sua cabeça. A girafa, o elefante e todos os adeptos da geração saúde ficaram enfurecidos com a atitude do rei da selva, até que o elefante tomou a frente e disse: — Leão, por que você fez isso com o pobre coelho? O leão, impiedoso, respondeu: — Esse cara me obriga a ficar correndo por aí toda vez que toma extasy! Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

citação: citação:Bom, faz sentido, como estava o seu índice na hora que estava appendando ? Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez" id=quote>id=quote>Vagner :: Eu havia criado ele na abertura, antes de dar o append. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc. id=quote>id=quote>Olá, Desculpe da demora, mas é justamente isso, vc criou o índice antes de dar o append, e pelo visto antes de dar o rename pq não ví ele na parte do prg q mostrou, aí vc renomeou o dbf que estava com o índice para outro e deu o appen, é isso ? Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

citação:Que doido.. matei o CDX com o Ferase()junto com o Empresas.250 e agora tá dando certo.. quero entender porque isso. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc. id=quote>id=quote>Bom, faz sentido, como estava o seu índice na hora que estava appendando ? Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Só mais uma dica, se vc está trabalhando com datas, coloque o ano em primeiro depois o mês, pois senão vai lhe dar problema Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Olá, Não dê muita atenção ao kapiaba qndo ele fala não use o strzero Use sim o StrZero() Agora se eu fosse vc faria diferente, se vc quer eliminar registro com "chave" duplicadas, eu faria assim: Sele Recxx000 DbSetOrder(1) Do Whil !Recxx000->(Eof()) cChav := RecXx000->(SeusFieldsDeChave) Recxx000->(DbSkip()) Do Whil !Recxx000->(Eof()) .and. RecXx000->(SeusFieldsDeChave) == cChav UseSuaTravaDeRegistros() Recxx000->(DbDelete()) Recxx000->(DbUnlock()) Recxx000->(DbSkip()) Enddo Enddo id=code>id=code>Pronto Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

citação:Antes de ingressar uma aplicação em Java na plataforma Android,alguém sabe se o FWPPC irá rodar em Windows 8? Gostaria de saber isto, porque nisto vai depender o investimento na compra do FWPPC ou investir num curso Java Android. fivewin 6.12 (FREE) - BCC55- Xharbour - Xdev - PellesC - Med. id=quote>id=quote>Olá, Bom o FWPPC (FiveWin Pocket PC), só funciona em Pocket PC e Celulares, não foi feito para funcionar em windows desktop Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Olá, Mostre como vc está indexando, pois sendo tudo numérico, daria problema, vamos supor o seguinte : Rec_Mes := 1 Rec_Ano := 2012 Rec_Cod := 1 Rec_Emp := 1 Inde On Rec_Mes+Rec_Ano+Rec_Cod+Rec_Empr é igual a Inde On 2015 P.S.: O índice CDX, não foi feito para ser criado toda hora, então qndo se precisa indexar (coisa rara no CDX), precisa eliminar o índice para que ele possa criar tudo novamente Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Olá, Como vc criou o objeto ? TRY oExcel := CreateObject( "Excel.Application" ) CATCH MsgStop("Excel não encontrado na máquina. [" + Ole2TxtError()+ "]" ) Retu(Nil) END oAS := oExcel:Worksheets( 1 ) id=code>id=code>Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Olá, oAS:Range( cCIni+Alltrim(Str(nLiIn))+":"+cCFin+AllTrim(Str(nLiIn)) ):MergeCells := .T. Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

citação:Olá pessoal, Essa função tá lendo o XML blz! Só que tem os campos como o Se alguém puder ajudar!! Abraços a todos JHILBERT FWH 8.08/pellesc7/xHarbour/xDev/vLib id=quote>id=quote>Olá Jeorge, /********************************************************* * Função : PegaArquivoXml() - Funcao para Pegar o Arquivo e transformar * Data : 14/03/2012 - 15:14:32 Por : Vagner * Revisado em : 16/03/2012 - 10:22:05 Por : Vagner * Parâmetros : * lXml - Se vai pegar os dados direto do XML ou pelo site (Default - Site .F.) **********************************************************/ Static Func PegaArquivoXml() Local cArqu:= "" Local cDire := GetPvProfString("Diretórios","NotaFiscalEntrada","",oSistema:cDiretPadra+oSistema:cArquiConfi) cArqu := cGetFile32("Arquivos De Notas Fiscais XML | *.xml","Escolha o Arquivo !",,cDire) If Empty(cArqu) Retu({.F.,1}) Endif If cDire != Left(cArqu,Rat("\",cArqu)) cDire := Left(cArqu,Rat("\",cArqu)) WritePProString("Diretórios","NotaFiscalEntrada",cDire,oSistema:cDiretPadra+oSistema:cArquiConfi) Endif (cCabecaPreNota)->(DbZap()) (cItensPreNota)->(DbZap()) (cDuplicataPreNota)->(DbZap()) cTextN := "" cTexto := MemoRead(cArqu) nSpace := 0 nConta := 1 cTexto := StrTran(cTexto,Chr(10),"") cTexto := StrTran(cTexto,Chr(13),"") cTexto := StrTran(cTexto,Chr( 9),"") cTexto := StrTran(cTexto,"Ç","C") cTexto := StrTran(cTexto,"Ã","A") Do Whil .T. nPos1 := At("<",cTexto) nPos2 := At(">",cTexto) cTex1 := Left(cTexto,nPos2) If nPos2 == Len(cTexto) .or. nPos2 == Len(cTexto)-1 .or. Empty(cTexto) .or. nPos1 == 0 Exit Endif lFaz := .F. cText2 := StrTran(cTexto,cTex1,"") If Right(cTex1,1) == ">" nPos2 := At(">",cText2) If Right(Left(cText2,nPos2),Len(cTex1)+1) == Stuff(cTex1,2,0,"/") nPos2 := At(Stuff(cTex1,2,0,"/"),cTexto)+Len(Stuff(cTex1,2,0,"/"))-1 cTex1 := Left(cTexto,nPos2) lFaz := .F. Else lFaz := .T. Endif Endif If Left(cTex1,2) == "" nSpace -- lFaz := .F. Endif cTexto := SubStr(cTexto,Len(cTex1)+1) cTextN += Iif(nSpace >0 ,Repl(Chr(9),nSpace),"")+cTex1+CRLF cTex3 := SubStr(cTex1,2,Len(cTex1)-1) If lFaz If Left(cTex1,2) != "" .and. Right(cTex1,2) != "/>" nSpace ++ Endif Endif Enddo //Tranformou, agora preciso pegar os dados //Não havia necessidade de transformar mas.... cTexto := cTextN nPos := At('Id="NFe',cTexto) cNumer := SubStr(cTexto,nPos+7,44) oNumer :Refresh() aTexto := PegaParteTexto(cTexto,"",,.F.,.T.) cTex1 := aTexto[1] cCgc_Forne := PegaParteTexto(cTex1,"") If Empty(cCgc_Forne) cCgc_Forne := PegaParteTexto(cTex1,"") Endif cI_E_Forne := PegaParteTexto(cTex1,"") cNom_Forne := PegaParteTexto(cTex1,"") cFan_Forne := PegaParteTexto(cTex1,"") cLog := PegaParteTexto(cTex1,"") nAt := At(" ",cLog) cLog_Forne := "" If nAt > 0 cLog1 := Left(cLog,nAt) cLog := AllTrim(StrTran(cLog,cLog1,"")) cLog_Forne := Alltrim(cLog1) Endif cEnd_Forne := cLog cNum_Forne := PegaParteTexto(cTex1,"") cClp_Forne := PegaParteTexto(cTex1,"") cBai_Forne := PegaParteTexto(cTex1,"") cCod_Munic := Right(PegaParteTexto(cTex1,""),5) cCod_Estad := Left(PegaParteTexto(cTex1,""),2) cMun_Forne := PegaParteTexto(cTex1,"") cEst_Forne := PegaParteTexto(cTex1,"") cCep_Forne := PegaParteTexto(cTex1,"") cPai_Forne := PegaParteTexto(cTex1,"") cPai_Nome_ := PegaParteTexto(cTex1,"") cDDD_Forne := Left(PegaParteTexto(cTex1,""),2) cFon_Forne := Right(PegaParteTexto(cTex1,""),8) cTexto := SubStr(cTexto,1,aTexto[2])+SubStr(cTexto,aTexto[3]) aTexto := PegaParteTexto(cTexto,"",,.F.,.T.) cTex1 := aTexto[1] cCgc_Desti := PegaParteTexto(cTex1,"") aTexto := PegaParteTexto(cTexto,"",,.F.,.T.) cTex1 := aTexto[1] cNro_NtFis := StrZero(Val(PegaParteTexto(cTex1,"")),10) dDat_NtFis := StoD(StrTran(PegaParteTexto(cTex1,""),"-","")) cTexto := SubStr(cTexto,1,aTexto[2])+SubStr(cTexto,aTexto[3]) aTexto := PegaParteTexto(cTexto," cTex1 := aTexto[1] cCha_Acess := PegaParteTexto(cTex1,"") cNro_Proto := PegaParteTexto(cTex1,"") cSta_Proto := PegaParteTexto(cTex1,"")+"-"+PegaParteTexto(cTex1,"") cTexto := SubStr(cTexto,1,aTexto[2])+SubStr(cTexto,aTexto[3]) aTexto := PegaParteTexto(cTexto,"",,.F.,.T.) cTex1 := aTexto[1] nBSI_NtFis := Val(PegaParteTexto(cTex1,"")) nIcm_NtFis := Val(PegaParteTexto(cTex1,"")) nBSU_NtFis := Val(PegaParteTexto(cTex1,"")) nVSU_NtFis := Val(PegaParteTexto(cTex1,"")) nTot_Produ := Val(PegaParteTexto(cTex1,"")) nTot_Frete := Val(PegaParteTexto(cTex1,"")) nTot_Segur := Val(PegaParteTexto(cTex1,"")) nTot_Desco := Val(PegaParteTexto(cTex1,"")) nTot_I_I__ := Val(PegaParteTexto(cTex1,"")) nTot_I_P_I := Val(PegaParteTexto(cTex1,"")) nTot_P_i_s := Val(PegaParteTexto(cTex1,"")) nTot_Cofin := Val(PegaParteTexto(cTex1,"")) nTot_Outro := Val(PegaParteTexto(cTex1,"")) nTot_NtFis := Val(PegaParteTexto(cTex1,"")) cTexto := SubStr(cTexto,1,aTexto[2])+SubStr(cTexto,aTexto[3]) aTexto := PegaParteTexto(cTexto,"",,.F.,.T.) cTex1 := aTexto[1] nPes_Bruto := Val(PegaParteTexto(cTex1,"")) nPes_Liqui := Val(PegaParteTexto(cTex1,"")) nQtd_Volum := Val(PegaParteTexto(cTex1,"")) cTexto := SubStr(cTexto,1,aTexto[2])+SubStr(cTexto,aTexto[3]) //Gravar dados da Pre-Nota (Cabecalho da Nota) (cCabecaPreNota)->(DbAppend()) (cCabecaPreNota)->Cha_Acess := cNumer (cCabecaPreNota)->Cgc_Forne := cCgc_Forne (cCabecaPreNota)->I_E_Forne := cI_E_Forne (cCabecaPreNota)->Nom_Forne := cNom_Forne (cCabecaPreNota)->Fan_Forne := cFan_Forne (cCabecaPreNota)->Log_Forne := cLog_Forne (cCabecaPreNota)->End_Forne := cEnd_Forne (cCabecaPreNota)->Num_Forne := cNum_Forne (cCabecaPreNota)->Clp_Forne := cClp_Forne (cCabecaPreNota)->Bai_Forne := cBai_Forne (cCabecaPreNota)->Cod_Munic := cCod_Munic (cCabecaPreNota)->Cod_Estad := cCod_Estad (cCabecaPreNota)->Mun_Forne := cMun_Forne (cCabecaPreNota)->Est_Forne := cEst_Forne (cCabecaPreNota)->Cep_Forne := cCep_Forne (cCabecaPreNota)->Pai_Forne := cPai_Forne (cCabecaPreNota)->Pai_Nome_ := cPai_Nome_ (cCabecaPreNota)->DDD_Forne := cDDD_Forne (cCabecaPreNota)->Fon_Forne := cFon_Forne (cCabecaPreNota)->Cgc_Desti := cCgc_Desti (cCabecaPreNota)->Num_Empre := cNum_Empre := RetornaDados("Empresas",AllTrim(SoNumeros((cCabecaPreNota)->Cgc_Desti)),"Cod_Empr",,,,2 ) (cCabecaPreNota)->Cod_Forne := cCod_Forne := RetornaDados("Forneced",AllTrim(SoNumeros((cCabecaPreNota)->Cgc_Forne)),"Cod_Forn",,,,2 ) (cCabecaPreNota)->Tip_Nota_ := "N" (cCabecaPreNota)->Nro_NtFis := cNro_NtFis (cCabecaPreNota)->Dat_NtFis := dDat_NtFis (cCabecaPreNota)->Cha_Acess := cCha_Acess (cCabecaPreNota)->Nro_Proto := cNro_Proto (cCabecaPreNota)->Sta_Proto := cSta_Proto (cCabecaPreNota)->BSI_NtFis := nBSI_NtFis (cCabecaPreNota)->Icm_NtFis := nIcm_NtFis (cCabecaPreNota)->BSU_NtFis := nBSU_NtFis (cCabecaPreNota)->VSU_NtFis := nVSU_NtFis (cCabecaPreNota)->Tot_Produ := nTot_Produ (cCabecaPreNota)->Tot_Frete := nTot_Frete (cCabecaPreNota)->Tot_Segur := nTot_Segur (cCabecaPreNota)->Tot_Desco := nTot_Desco (cCabecaPreNota)->Tot_I_I__ := nTot_I_I__ (cCabecaPreNota)->Tot_I_P_I := nTot_I_P_I (cCabecaPreNota)->Tot_P_i_s := nTot_P_i_s (cCabecaPreNota)->Tot_Cofin := nTot_Cofin (cCabecaPreNota)->Tot_Outro := nTot_Outro (cCabecaPreNota)->Tot_NtFis := nTot_NtFis (cCabecaPreNota)->Pes_Bruto := nPes_Bruto (cCabecaPreNota)->Pes_Liqui := nPes_Liqui (cCabecaPreNota)->Qtd_Volum := nQtd_Volum //Itens da Nota nQtd := 0 Do Whil .T. aTexto := PegaParteTexto(cTexto,'',"",.F.,.T.) cTex1 := aTexto[1] If Empty(cTex1) ; Exit ; Endif cCod_PrFor := PegaParteTexto(cTex1,"" ) cDes_PrFor := PegaParteTexto(cTex1,"" ) cCod_N_C_M := PegaParteTexto(cTex1,"" ) cCod_CFOP_ := PegaParteTexto(cTex1,"" ) cUni_Produ := PegaParteTexto(cTex1,"" ) nQtd_Produ := Val(PegaParteTexto(cTex1,"" )) cUni_Produ := PegaParteTexto(cTex1,"" ) nTot_Produ := Val(PegaParteTexto(cTex1,"" )) nVlr_Produ := Val(PegaParteTexto(cTex1,"" )) nQtd_Tribu := Val(PegaParteTexto(cTex1,"" )) nVlr_Tribu := Val(PegaParteTexto(cTex1,"" )) nVlr_Frete := Val(PegaParteTexto(cTex1,"" )) nVlr_Segur := Val(PegaParteTexto(cTex1,"" )) nVlr_Desco := Val(PegaParteTexto(cTex1,"" )) nInd_Produ := Val(PegaParteTexto(cTex1,"" )) //Impostos cOri_Produ := PegaParteTexto(cTex1,"" ) cCst_IcmsP := PegaParteTexto(cTex1,"" ) cMod_BaseC := PegaParteTexto(cTex1,"" ) nVlr_BaseC := Val(PegaParteTexto(cTex1,"" )) nPer_BaseC := Val(PegaParteTexto(cTex1,"" )) nVlr_ICMSP := Val(PegaParteTexto(cTex1,"" )) cCst_IPI_P := PegaParteTexto(cTex1,"" ) nVlr_BaseI := Val(PegaParteTexto(cTex1,"" )) nPer_BaseI := Val(PegaParteTexto(cTex1,"" )) nVlr_IPI_P := Val(PegaParteTexto(cTex1,"" )) cCst_CSOSN := PegaParteTexto(cTex1,"" ) nPer_Credi := Val(PegaParteTexto(cTex1,"" )) nVlr_Credi := Val(PegaParteTexto(cTex1,"")) cCst_CBST_ := PegaParteTexto(cTex1,"" ) nPer_CBST_ := Val(PegaParteTexto(cTex1,"" )) nBsc_CBST_ := Val(PegaParteTexto(cTex1,"" )) nAli_CBST_ := Val(PegaParteTexto(cTex1,"" )) nVlr_CBST_ := Val(PegaParteTexto(cTex1,"" )) //Gravar Dados Pré-Nota - (Itens da Nota) (cItensPreNota)->(DbAppend()) (cItensPreNota)->Cod_Forne := cCod_Forne (cItensPreNota)->Cgc_Forne := cCgc_Forne (cItensPreNota)->Nro_NtFis := cNro_NtFis (cItensPreNota)->Dat_NtFis := dDat_NtFis (cItensPreNota)->Cod_PrFor := cCod_PrFor (cItensPreNota)->Des_PrFor := cDes_PrFor (cItensPreNota)->Cod_N_C_M := cCod_N_C_M (cItensPreNota)->Cod_CFOP_ := cCod_CFOP_ (cItensPreNota)->Uni_Produ := cUni_Produ (cItensPreNota)->Qtd_Produ := nQtd_Produ (cItensPreNota)->Uni_Produ := cUni_Produ (cItensPreNota)->Tot_Produ := nTot_Produ (cItensPreNota)->Vlr_Produ := nVlr_Produ (cItensPreNota)->Qtd_Tribu := nQtd_Tribu (cItensPreNota)->Vlr_Tribu := nVlr_Tribu (cItensPreNota)->Vlr_Frete := nVlr_Frete (cItensPreNota)->Vlr_Segur := nVlr_Segur (cItensPreNota)->Vlr_Desco := nVlr_Desco (cItensPreNota)->Ind_Produ := nInd_Produ //Impostos (cItensPreNota)->Ori_Produ := cOri_Produ (cItensPreNota)->Cst_IcmsP := cCst_IcmsP (cItensPreNota)->Mod_BaseC := cMod_BaseC (cItensPreNota)->Vlr_BaseC := nVlr_BaseC (cItensPreNota)->Per_BaseC := nPer_BaseC (cItensPreNota)->Vlr_ICMSP := nVlr_ICMSP (cItensPreNota)->Cst_IPI_P := cCst_IPI_P (cItensPreNota)->Vlr_BaseI := nVlr_BaseI (cItensPreNota)->Per_BaseI := nPer_BaseI (cItensPreNota)->Vlr_IPI_P := nVlr_IPI_P (cItensPreNota)->Cst_CSOSN := cCst_CSOSN (cItensPreNota)->Per_Credi := nPer_Credi (cItensPreNota)->Vlr_Credi := nVlr_Credi (cItensPreNota)->Cst_CBST_ := cCst_CBST_ (cItensPreNota)->Per_CBST_ := nPer_CBST_ (cItensPreNota)->Bsc_CBST_ := nBsc_CBST_ (cItensPreNota)->Ali_CBST_ := nAli_CBST_ (cItensPreNota)->Vlr_CBST_ := nVlr_CBST_ cTexto := SubStr(cTexto,1,aTexto[2])+SubStr(cTexto,aTexto[3]) Enddo //Cobrança aTexto := PegaParteTexto(cTexto,"",,.F.,.T.) cTex1 := aTexto[1] Do Whil .T. aText2 := PegaParteTexto(cTex1,"",,.F.,.T.) cTex2 := aText2[1] If Empty(cTex2) ; Exit ; Endif cNro_Dupli := PegaParteTexto(cTex2,"") dDat_Dupli := StoD(StrTran(PegaParteTexto(cTex2,""),"-","")) nVlr_Dupli := Val(PegaParteTexto(cTex2,"")) //Gravar dados da Pre-Nota (Duplicatas) (cDuplicataPreNota)->(DbAppend()) (cDuplicataPreNota)->Cgc_Forne := cCgc_Forne (cDuplicataPreNota)->Nro_NtFis := cNro_NtFis (cDuplicataPreNota)->Nro_Dupli := cNro_Dupli (cDuplicataPreNota)->Dat_Dupli := dDat_Dupli (cDuplicataPreNota)->Vlr_Dupli := nVlr_Dupli cTex1 := SubStr(cTex1,1,aText2[2])+SubStr(cTex1,aText2[3]) Enddo cTexto := SubStr(cTexto,1,aTexto[2])+SubStr(cTexto,aTexto[3]) Retu({.T.,0}) /********************************************************* * Função : PegaParteTexto() - Funcao para Pegar partes de um texto * Data : 14/03/2012 - 10:28:12 Por : Vagner * Revisado em : 14/03/2012 - 11:42:15 Por : Vagner * Parâmetros : * cTexto - Texto para a Leitura * cStri1 - String Inicial para pegar * cStri2 - String Final para Pegar * lDesca - Se descarta as String do Texto para retornar (Default .T.) * lArray - Se Irá Retornar um array contendo as posições (Default .F.) * Retorno : * cRetor - Texto para Retornar **********************************************************/ Func PegaParteTexto(cTexto,cStri1,cStri2,lDesca,lArray) Local nPos1 := 0,nPos2 := 0 Local cRetor := "" Default cStri2 := Stuff(cStri1,2,0,"/") Default lDesca := .T. Default lArray := .F. If cStri1 $ cTexto nPos1 := At(cStri1,cTexto)+Iif(lDesca,Len(cStri1),-1) nPos2 := At(cStri2,cTexto)+Iif(lDesca,0,Len(cStri2)) If nPos1 == 0 ; cReto := "" ElseIf nPos2 == 0 ; cReto := SubStr(cTexto,nPos1) Else ; cRetor := SubStr(cTexto,nPos1,nPos2-nPos1) Endif Endif If lArray ; cRetor := {cRetor,nPos1,nPos2} ; Endif Retu(cRetor) id=code>id=code>Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Depois de comprar um novo estoque de lingeries, a loirinha pede à bordadeira que borde os seguintes dizeres em cada uma de suas calcinhas: "Se você consegue ler isto, é porque está perto demais". — Em letras de forma? — pergunta a bordadeira. — Não, não... Em Braile, por favor! Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

citação:Kapiaba, vai precisar de alguma lib para as funcoes "adicione" e " travereg" ???? Vagner eu quero cadastrar 2 funcionarios mas ele aceita os mesmos codigos quando eu coloco por exemplo : Nome: Arthur matricula: 555555 Nome: Vanessa matricula: 555555 entendeu ? FWH.11.12 E-mail:ArthurSilvestreSnt@hotmail.com id=quote>id=quote>Olá, Primeiramente, vc têm um índice ? Se não tiver, precisa criar um índice para o arquivo Use Funcionario New Excl Alias Funcionario Inde On Codigo To Funcionario Feito isso Basta vc pesquisar antes de adicionar ao arquivo Pode ser feito de duas maneiras cCodig := "555555" Seek cCodig If Found() MsgStop("Funcionario já cadastrado.") Endif ou If Funcionario->(DbSeek(cCodig)) MsgStop("Funcionario ja cadastrado.") Endif Eu pessoalmente prefiro o segundo modo, mas aí é gosto Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Olá, Vc está pesquisando para ver se ele existe ou não ? Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Olá, O XBrowse, realmente é muito mais lento que o WBrowse padrão do FWH. Beto, não há nada disso no browse normal (Listbox que usa o WBrowse) Eu criei o meu browse, mas veja se o TSBrowse não lhe atende Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Uma loira estava querendo perder uns quilinhos, ela foi no hospital e... Doutor, eu queria emgrecer, e o doutor disse: - É facil, você tem que fazer dieta um dia, e pula o outro dia. A loira agradeceu, e ele disse que queria ver ela 30 dias depois. A loira seguiu as instruçoes. quando deu 30 dias, ela foi no hospital falar com o doutor. chegando na sala dele... O doutor se apavora, mas tambem fica feliz. A loira tinha emagrecido 15 quilos! O doutor dez: - Nossa, como você emagreceu tudo isso? A loira responde: - A doutor, eu fiz como você mandou, fiz dieta em um dia, e no outro dia, pulei sem parar. Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Olá, funct f_001(nome_v,codigo_v) v_imagem = nome_v+alltrim(trans(codigo_v,"99999"))+'.bmp' v_imagem1:refresh() oFolder:Refresh() xsetfocus(v_imagem1) return .t. id=code>id=code>Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Olá Oscar, Leia novamente, veja que nos mais antigos não existe, veja a parte em vermelho. Use com o DbCreate mesmo Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

citação:Estou com xHarbour 1.0.0 e infelizmente não tem esse comando: // Arquivo Temporário, no xHarbour 1.2 Somente // Hb_DbCreateTemp("Clientes",{{ "Nombre", "C", 40, 0 },; { "Direccion", "C", 50, 0 },; { "Telefono", "C", 12, 0 },; { "Edad", "N", 2, 0 },; { "Productos", "C", 10, 0 },; { "Nivel", "N", 2, 0 }}) Clientes->(DBCLOSEAREA()) dbdrop("MEM:Clientes") Oscar Ribeiroid=size4> OASyS Informáticaid=blue>id=size4> Fwh+xHb1.0.0+BCC55+WorkShopid=size1> id=quote>id=quote>Olá Oscar http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=17545 Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Olha na hora de gravar, se não está dando o left(cVar,8) Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez" P.S.: Poste o código, fica mais fácil hehehehehe

citação: citação:Sua variável está caracter? Tem certeza que funcionava? ^^ Pelo que parece (PARECE ^^), sua variável é caracter de 09, e ao digitar no GET, está deixando só 9 caracters 99999-999 ficando o ultimo número no além não eh isso? tá, se não for, coloca um msginfo pra saber, o valtype, e o len da variável ^^ Erciley Junior (FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY) NÃO ABANDONE O POST, QUEREMOS SABER SE SUA DÚVIDA/PROBLEMA TEVE SOLUÇÃO id=quote>id=quote>Não, pois pego direto do CAMPO do Banco de dados. Ex.: cTelCel := ( cAlias )->CAMPODOBANCO // ESPACE(15) João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote>No @, eu aumentaria o size , acho q no workshop, deve ter algo assim tb né ? Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Bom que lhe ajudou, realmente o ordscope é muito rápido Se usar direito e com os temporários em memória, verá que a velocidade é espantosa Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"