fluna

se já pagou, e foi pro caixa, o controle financeiro nada tem mais a ver com a operação. já o estoque sim, teria que haver um campo no cad de produtos tipo Quant_em_transito. a quantidade total vendida seria abatida do saldo final, que é o estoque real mas toda vez que houver venda desse tipo, a quantidade seria lançada no Quant_em_transito e dela seria abatida a cada retirada. para evitar problemas posateriores, a ordem de retirada seria via requisição cujo numero seria numero_do_pedido_original+no_da_requisição. NFE DE VENDA: 456788 Requisicao:? 456788-01 456788-02 456788-03 456788-nn e quantas requisições tivessem até que a soma das quantidades retiradas batesse, com a da NFE. enquanto houver quantidades no ampo estoque_EM_TRANSITO, significa que aquela quantidade tá no estoque, mas não pertence mais à loja. Editado por - fluna on 26/10/2011 15:08:28

http://desciclopedia.org/wiki/PHP http://desciclopedia.org/wiki/CLIPPER e vai por aí.... xharbour 0.99.50 (simplex); fwh6.2(free),hbmake,Qedit(dos;PspPad Editor

http://desciclopedia.org/wiki/PHP http://desciclopedia.org/wiki/CLIPPER e vai por aí.... xharbour 0.99.50 (simplex); fwh6.2(free),hbmake,Qedit(dos;PspPad Editor

Quase rone, nem sempre dá para saber o nome das pastas para entrar em cada uma e incluir no projeto, e me parece que o HBZIP tem um bug, não inclui arquivos dentro de subpastas... o jeito é partir para winexec("pkzip bla bla bla") De qualquer maneira, valeu pela ajuda, muito obrigado. xharbour 0.99.50 (simplex); fwh6.2(free),hbmake,Qedit(dos;PspPad Editor

Companheiros, to tentando criar um arquivo .zip de uma determinada pasta, que possui várias sub pastas, o hb_zip cria o zip, mas as subpastas ficam VAZIAS , os arquivos dentro das subpastas não estão sendo incluidos no .zip... alguem pode me ajudar? xharbour 0.99.50 (simplex); fwh6.2(free),hbmake,Qedit(dos;PspPad Editor

Companheiros, to tentando criar um arquivo .zip de uma determinada pasta, que possui várias sub pastas, o hb_zip cria o zip, mas as subpastas ficam VAZIAS , os arquivos dentro das subpastas não estão sendo incluidos no .zip... alguem pode me ajudar? xharbour 0.99.50 (simplex); fwh6.2(free),hbmake,Qedit(dos;PspPad Editor

Alguem poderia me ajudar? Como transformar um documento .RTF para .HTML usando somente comandos x(harbour) + FWH? Toda ajuda será muito bem vinda... A idéia é criar um executável onde abre um editor de textos para o usuário (rtf), transforma em .HTML e envia pelo FTP para o servidor na web... ============RESOLVIDO=================== (extraído do fórum da fivetech) #Include "FiveWin.ch" // Word HTML format constant, used to save Rtf as Html #DEFINE wdFormatHTML 8 #DEFINE wdFormatFilteredHTML 10 *-------------------------------------* Function Main() *-------------------------------------* Local cRtfFile,cHtmlFile cRtfFile:="D:\Test\MyRtfFile.Rtf" cHtmlFile:="D:\Test\MyHtmlFile" Rtf2Html(cRtfFile,cHtmlFile) RETURN NIL *-------------------------------------* Function Rtf2Html(cRtfFile,cHtmlFile) *-------------------------------------* Local oWordApp,oWordDoc,oError TRY oWordApp := CreateObject("Word.Application") CATCH MsgInfo("MS-Word is not installed in your PC") Return NIL END //Open the RTF document TRY oWordDoc:=oWordApp:Documents:Open(cRtfFile) CATCH oError MsgInfo("Error. Unable to Open the File"+CRLF+oError:Description) oWordApp:Quit() Return NIL END //Save the document in HTML format oWordDoc:SaveAs (cHtmlFile, wdFormatFilteredHTML) //Free memory & resources by closing objects oWordDoc:Close() oWordApp:Quit() Return NIL xharbour 0.99.50 (simplex); fwh6.2(free),hbmake,Qedit(dos;PspPad Editor id=code>id=code>Editado por - fluna on 26/09/2011 20:47:07

Alguem poderia me ajudar? Como transformar um documento .RTF para .HTML usando somente comandos x(harbour) + FWH? Toda ajuda será muito bem vinda... A idéia é criar um executável onde abre um editor de textos para o usuário (rtf), transforma em .HTML e envia pelo FTP para o servidor na web... ============RESOLVIDO=================== (extraído do fórum da fivetech) #Include "FiveWin.ch" // Word HTML format constant, used to save Rtf as Html #DEFINE wdFormatHTML 8 #DEFINE wdFormatFilteredHTML 10 *-------------------------------------* Function Main() *-------------------------------------* Local cRtfFile,cHtmlFile cRtfFile:="D:\Test\MyRtfFile.Rtf" cHtmlFile:="D:\Test\MyHtmlFile" Rtf2Html(cRtfFile,cHtmlFile) RETURN NIL *-------------------------------------* Function Rtf2Html(cRtfFile,cHtmlFile) *-------------------------------------* Local oWordApp,oWordDoc,oError TRY oWordApp := CreateObject("Word.Application") CATCH MsgInfo("MS-Word is not installed in your PC") Return NIL END //Open the RTF document TRY oWordDoc:=oWordApp:Documents:Open(cRtfFile) CATCH oError MsgInfo("Error. Unable to Open the File"+CRLF+oError:Description) oWordApp:Quit() Return NIL END //Save the document in HTML format oWordDoc:SaveAs (cHtmlFile, wdFormatFilteredHTML) //Free memory & resources by closing objects oWordDoc:Close() oWordApp:Quit() Return NIL xharbour 0.99.50 (simplex); fwh6.2(free),hbmake,Qedit(dos;PspPad Editor id=code>id=code>Editado por - fluna on 26/09/2011 20:47:07

corrigindo... Function Num( Txt ) local i,cRet:="" // <------ for i=1 to len(txt) cRet+=iif( val(substr(txt,i,1))>0,substr(txt,i,1),"") Next Return( cret ) xharbour 0.99.50 (simplex); fwh6.2(free),hbmake,Qedit(dos;PspPad Editor

Function Num( Txt ) local i,cRet for i=1 to len(txt) cRet+=iif( val(substr(txt,i,1))>0,substr(txt,i,1),"") Next Return( cret ) xharbour 0.99.50 (simplex); fwh6.2(free),hbmake,Qedit(dos;PspPad Editor

cGetDir32() Dialog box to select directory. Syntax: cGetDir32( , [] ) --> cDir This function invokes the 32 bits Windows default select directory DialogBox. Parameters: Title of the dialog box Initial directory Returns: Selected directory Sample: SOURCE\FUNCTION\DLGS32.PRG xharbour 0.99.50 (simplex); fwh6.2(free),hbmake,Qedit(dos;PspPad Editor

...e como nada se cria, tudo se copia, a ideia original baseou-se no dataflex. lembro-me bem. (iniciei no dbase-ii, passei para o dbase-iii, dbase-iii plus, autum85 e dai adiante...) xharbour 0.99.50 (simplex); fwh6.2(free),hbmake,Qedit(dos;PspPad Editor

kkk, regra à urea dos programadores: Não remende, refaça!!!!! xharbour 0.99.50 (simplex); fwh6.2(free),hbmake,Qedit(dos;PspPad Editor

Meu querido, se direcionar a saida do relatorio para dentro de um DBF, com um unico campo LINHA,C,200 e imprimir o campo do dbf tambem funfa não? dá até para mudar a funcao para imprimir o dbf em vez do vdata tipo assim: do while !eof() txtt:=codigo+" "+descricao sele relat appe blank repl linha with txtt select contas skip enddo pronto, o relatorio inteiro esta dentro do relat.dbf; agora é só usar o report em cima do relat.dbf o relatorio terá uma única coluna (linha,c,200)... xharbour 0.99.50 (simplex); fwh6.2(free),hbmake,Qedit(dos;PspPad Editor Editado por - fluna on 04/08/2011 16:44:53 Editado por - fluna on 04/08/2011 16:46:28

vcab:={} // array de cabeçalho aadd(vcab,"============================") aadd(vcab," RELATORIO BVLA BLA ") aadd(vcab,"============================") vtt:={} // array de dados aadd(vtt,"----------------------------") aadd(vtt,"CODIGO NOME ") aadd(vtt,"----------------------------") do while !eof() aadd(vtt,codigo+" "+descricao) skip enddo Impr_Ext(vtt,vcab) ******************************************* FUNCTION Impr_Ext(vData,Vcabe,cBMp,cSep) ******************************************* * vData = array UNIDIMENSIONAL com o texto a ser impresso. * vCabe = array UNIDIMENSIONAL com o texto do cabeçalho-Max 7 linhas * cBmp = BitMap para colocar no cabeçalho * cSep = Caracter para separar cabeçalho ******************************************* local x,i,ii,lOk:=.f. STATIC oReport, nField if empty(vData) return(.f.) endif cSep:=iif(cSep=NIL," ",cSep) cBmp:=iif(cbmp=NIL," ",cBmp) do while len(Vcabe) <=7 aadd(Vcabe,"") enddo Define Font oFnt Name "Lucida Console" Size -0,12 nField := 1 REPORT oReport ; TITLE Vcabe[1],Vcabe[2],Vcabe[3],Vcabe[4],; Vcabe[5],Vcabe[6],Vcabe[7] ; HEADER "Data: "+dtoc(date()),"Hora: "+time() RIGHT ; FOOTER "Página: "+str(oReport:nPage,3) CENTER ; FONT oFnt ; PREVIEW COLUMN TITLE repl(cSep,100) DATA vData[nField] SIZE 100 END REPORT oReport:bSkip := {|| nField++} oReport:oDevice:SetPortrait() oReport:oDevice:SetPage(9) oReport:oDevice:lPrvModal:=.t. oReport:nTotalLine := 0 oReport:nGroupLine := 0 oReport:nTitleUpLine := 0 oReport:nTitleDnLine := 0 ACTIVATE REPORT oReport WHILE nField <= len(vData) Return(.t.) id=code>id=code> xharbour 0.99.50 (simplex); fwh6.2(free),hbmake,Qedit(dos;PspPad Editor Editado por - fluna on 04/08/2011 16:11:37

Esse foi rápido kkkkk acendeu a bomba e apagou antes do pavio queimar xharbour 0.99.50 (simplex); fwh6.2(free),hbmake,Qedit(dos;PspPad Editor

Fábio Luna - Araguaína/Tocantins xharbour 0.99.50 (simplex); fwh6.2(free),hbmake,Qedit(dos;PspPad Editor

Me parece que você quer executar o .exe que está no HOST, até onde sei os webmasters não permitem por questão de segurança... teria que usar algo como o fiveweb... xharbour 0.99.50 (simplex); fwh6.2(free),hbmake,Qedit(dos;PspPad Editor

Tá aí companheiro... uma mudançinhas e... aqui, o cliente baixa os extratos em formato .txt e não o .rem, então, fiz para .txt. ******************************************* FUNCTION BaixaBol() ******************************************* Local estr:={},wvet,ii,nqtd:=0,cQtd:="",npos Close all;AbreArqs() cLcto:="Extratos bancários|movdia*.txt|" x_rai:="c:\" If file("Baixa.dir") Restore from baixa.dir additive Endif cLcto:=cGetFile32( cLcto, "Selecione o extrato bancário que deseja processar.",,x_rai,.t. ) If empty(cLcto) return(.f.) Endif Save all Like x_* to baixa.dir cPath:=cFilePath( cLcto ) x_rai:=cPath cDoct:=cFileNoExt( cLcto ) Save all Like x_* to baixa.dir cNovo:=cPath+cDoct+".PRC" DbCreate("c:\TmpBxa",{{"Linha","c",120,0}}) use c:\TmpBxa new exclu Appe from &cLcto sdf goto top Do while !eof() wlin:=linha wbol:=trf(Substr(linha,010,08),"C","BOL") wdta:=trf(Substr(linha,047,10),"D","DTA") wvlo:=trf(Substr(linha,058,10),"N","VLR") wjur:=trf(Substr(linha,077,08),"N","JUR") wtot:=trf(Substr(linha,102,10),"N","TOT") wvet:={} if empty(wdta) skip loop endif if wtot>0 Sele CredCorr set order to 5 seek wbol if found() do while CredCorr->boleto = wbol .and. !eof() aadd(wvet,{recno(),CredCorr->VlrLcto}) skip enddo endif if !empty(wvet) npos:=1 if len(wvet) > 1 for ii=1 to len(wvet) if wvet[ii,2]=wtot npos:=ii exit endif next endif goto wvet[npos,1] if rlock() nqtd++ cQtd+=wbol+" - "+CredCorr->nome+CRLF Repl CredCorr->DtaBaix with wdta Repl CredCorr->VlrBaix with wtot Repl CredCorr->DocBaix with cDoct Repl CredCorr->UsuBaix with "SYS" unlock endif endif Sele TmpBxa endif skip enddo MsgAlert("Foram baixados "+alltrim(str(nqtd,5))+" Boletos:"+CRLF+CRLF+cQtd,"Atenção!") close all rename &cLcto to &cNovo Return( .t. ) ******************************************* Function Trf( ctxt, cTip , Msg ) ******************************************* local xTxt:=alltrim(ctxt) nTam:=Len(xTxt) xTxt:=iif(cTip="D",Ctod(cTxt),cTxt) If cTip="N" xTxt:=Alltrim(charrem(xtxt)) nTam:=Len(xTxt) nInt:=Substr(xTxt,1,nTam-2) nDec:=Right(xTxt,2) xTxt:=Val(nInt+"."+nDec) Endif Return( xTxt ) id=code>id=code> xharbour 0.99.50 (simplex); fwh6.2(free),hbmake,Qedit(dos;PspPad Editor

Domo arigatô... xharbour 0.99.50 (simplex); fwh6.2(free),hbmake,Qedit(dos;PspPad Editor

Imagem reduzida, teste xharbour 0.99.50 (simplex); fwh6.2(free),hbmake,Qedit(dos;PspPad Editor giving up for while... Editado por - fluna on 23/06/2011 13:55:07

dá um ctrl+alt+del e verifica que rotinas estão rodando quando isso acontece. se tiver a do banco do brasil, bingo. é ela mesma. xharbour 0.99.50 (simplex); fwh6.2(free),hbmake,Qedit(dos;PspPad Editor

alguma sujestão de um host para foto pessoal? xharbour 0.99.50 (simplex); fwh6.2(free),hbmake,Qedit(dos;PspPad Editor

aderindo... -teste xharbour 0.99.50 (simplex); fwh6.2(free),hbmake,Qedit(dos;PspPad Editor Editado por - fluna on 14/06/2011 21:57:15

P L E N A M E N T E D E A C O R D O !!!! (apenas achei engraçado como a minha namorada levatou a questão por aqui rssss) xharbour 0.99.50 (simplex); fwh6.2(free),hbmake,Qedit(dos;PspPad Editor