jfaguiar

É verdade, se for com windows, sobretudo o 7, roda legal. Eu tenho um aplicativo numa empresa que faz coletas de resíduos, onde os motorista levam um tablet e uma mini impressora bluetooth, de modo todas coletas são inseridas na tabela e impressas no ato da coleta. A parte melhor é quando esses motoristas voltam para empresa, ao acessarem o wi-fi transferem todas as coletas para o servidor com poucos clicks.

Olá amigos. Sei que o fw já acessa mysql e alguns outros bds sem precisar de nenhuma rdd como sqllib, sqlrdd etc. Gostaria de saber se alguém já utiliza o fw puro para acessar bancos de dados relacionais e o que têm a dizer. Desde já agradeço

Qualquer coisa pode enviar no joaosiscom@hotmail.com

Bom dia amigos. Alguém teria um xml de nf-e interestadual de venda para não contribuinte? Aquela que tem a diferença de alíquota, onde uma parte do valor fica com o estado emitente e a outra para o estado destino. Eu programei as tags dessa forma mais ainda tá dando uns paus: nDIFALIQ := ARQCLI->CLIALQINT - ARQCLI->CLIPICMS // 18 - 7 = 11 nBASDIF := VBASICM * nDIFALIQ / 100 // nBASECALC * 11 / 100 VARAUX1 := STR(nBASDIF * 0.60,10,2) nDIFDest := VAL(VARAUX1) // 60% DO VALOR nDIFRemet := nBASDIF - nDIFDest // 40% DO VALOR oNFe:SetValue("total" , "vBCUFDest" , VBASICM) // 3100,26 oNFe:SetValue("total" , "pICMSUFDest",ARQCLI->CLIPICMS) // 18 oNFe:SetValue("total" , "pICMSInter" , nDIFALIQ) // 11 oNFe:SetValue("total" , "pICMSInterPart" , 60) // 40 agora é 60% // Base da Diferença 434,0364 oNFe:SetValue("total" , "vICMSUFDest" , nDIFDest) // 173,61456 Agora é sobre 60% oNFe:SetValue("total" , "vICMSUFRemet" , nDIFRemet) // 260,42184 Agora é sobre 40% Obrigado

rsrs eu sou um velho Clippeiro que aprendi Five win xHarbour com os meus amigos do forum. Jamais teria progredido sem esses amigos parceiros aqui do forum!

Entendi. É exatamente as informações que preciso sobre o Pelles C. Vou alterar e tentar compilar. Muito obrigado.

opa, como assim, você usa o xdev para gerar o executável? Eu tenho uma IDE própria através da qual edito, compilo, gero o executável, texto o executável. É isso que faz o xdev?

Grande Kap. sabe muito. Desde quando sai do Clipper em abril de 2007 que usufruo dos seu conhecimentos. Abraço caríssimo.

Ola amigo. Mas o projeto continua igual ao que postei ou tenho que incluir alguma lib a mais? E o meu bcc32.cfg e ilink32.cfg, muda alguma coisa? Se você puder explicar essas constantes que a serem alteradas? Obrigado mesmo

Bom dia amigos Instalei o Pellesc 32, abri um .rc que havia gerado pelo Workshop fiz uma alteração, salvei e salvei como .res, mas não funcionou. Para maior clareza, vou enviar u meu projeto. Pessoal, eu não entendo nada de Pellesc e gostaria de fazer umas perguntas. Vocês geram o executável direto pelo pellesc ou usam pellesc somente para gerar os seu .rc e .res? Obrigado @ECHO OFF Cls ECHO FiveWin for xHarbour 2013 13.07 xHarbour development power ECHO (c) FiveTech for Microsoft Windows 9X/NT/200X/ME/XP/Vista/7 IF EXIST SGCWGB.EXE DEL SGCWGB.EXE Rem gerando .res sobre o arquivo .rc IF EXIST SGCWGB.rc c:\bcc582\bin\brc32 -r SGCWGB c:\bcc582\bin\ilink32 -Gn -aa -Tpe -s @Buildxgp.Lnk IF ERRORLEVEL 1 GOTO LINKERROR Cls Echo . Echo * Aplicacao Foi Desenvolvida Com Sucesso Echo . rem Echo * Aguarde um Momento, Compactando Aplicacao, Usando o UPX.EXE Echo . REM \PDVXB\UPX\UPX.EXE -9 CTB.EXE Echo . Echo * Aplicativo Foi Compactado Com Sucesso - Aguarde Execucao. Echo . Echo * Aguarde, Executando o Aplicativo, Gerado Com Sucesso Absoluto * GOTO EXIT :LINKERROR PAUSE * Applicacao Nao Foi Desenvolvida Com Sucesso. Veja ERRO.LOG * GOTO EXIT Echo. cls :EXIT c:\bcc582\lib\c0w32.obj + sgcwgb.obj + cadcli2.obj + finr110.obj + reportsarqcrec.obj + lancotc.obj + reldesempenhofor.obj + reportsarqcpag.obj + reportsarqcont.obj + \grupobh\fntpublic\finpcabc.obj + invenprod.obj + \grupobh\fntpublic\geraloterps.obj + \grupobh\fntpublic\geraremessatrust.obj + \grupobh\fntpublic\vonfseutil.obj + \idems\objs1307\danfe.obj + \idems\objs1307\nfeflexutil2g.obj + \idems\objs1307\vonfe2g.obj + \idems\objs1307\vonfeutil2g.obj + funcoesnfse.obj + impboll.obj + imprimeboletoi.obj + nfediver.obj + nfeserv.obj + nfeservn.obj + reajcont.obj + relfat2.obj + relnf2.obj + \grupobh\fntpublic\impdresult.obj + \grupobh\fntpublic\manutverba.obj + \grupobh\fntpublic\relrepr.obj + baixretpg.obj + extccfluxocx.obj + impproc.obj + Ratunidneg.obj + \grupobh\fntpublic\cadcomint.obj + \grupobh\fntpublic\cadppp.obj + \grupobh\fntpublic\cadprofst.obj + \grupobh\fntpublic\conscont.obj + \grupobh\fntpublic\finflux.obj + \grupobh\fntpublic\finp110r.obj + \grupobh\fntpublic\finp130.obj + \grupobh\fntpublic\finr130.obj + \grupobh\fntpublic\finrcabc2.obj + \grupobh\fntpublic\geracnab.obj + \grupobh\fntpublic\impbolm.obj + \grupobh\fntpublic\impossfw.obj + \grupobh\fntpublic\imprimeverbas.obj + \grupobh\fntpublic\impvisitas.obj + \grupobh\fntpublic\inspecao.obj + \grupobh\fntpublic\landespc.obj + \grupobh\fntpublic\ocorsist.obj + \grupobh\fntpublic\plandesp.obj + \grupobh\fntpublic\relcomint.obj + \grupobh\fntpublic\relfat5.obj + \grupobh\fntpublic\relmeta.obj + \grupobh\fntpublic\relnf1.obj + \grupobh\fntpublic\resrecdesp.obj + \grupobh\fntpublic\tftp.obj + \idems\objs1307\cadgc2_30.obj + \idems\objs1307\cadger_30.obj + \idems\objs1307\cadpesq.obj + \idems\objs1307\confcores.obj + \idems\objs1307\flexreport_31.obj + \idems\objs1307\funcoeside_30.obj + \idems\objs1307\rmail.obj + \idems\objs1307\tdosprn.obj + \idems\objs1307\texcels.obj + \idems\objs1307\twordhb.obj + agendarep.obj + baixretcb.obj + cadcand.obj + cadcli.obj + cadcont.obj + cadcontt.obj + cancmtr.obj + consnf.obj + etiqcli.obj + exponf.obj + extcont.obj + exteqpcli.obj + extprod.obj + finp002.obj + funcoes.obj + funcoescad.obj + funcoescadg.obj + funcoescomunizacao.obj + funcoesg.obj + funcoesrel.obj + gercontrato.obj + helpger.obj + impdfunc.obj + impentepi.obj + impmtr_b.obj + impmtr_p.obj + imptermo.obj + nfiscal.obj + protocolmtr.obj + recepcao.obj + relcabcf.obj + relcnf.obj + relcolf.obj + relcont3.obj + relcontv.obj + relfat3.obj + relpesg.obj + relpess.obj + resfat2.obj + resfat3.obj + resfat4.obj + tranctb.obj + \grupobh\fntbh\relman1.obj + reportsarqmcol.obj + \grupobh\fntbh\planrec.obj + \grupobh\fntbh\geraplanvistoria.obj + \grupobh\fntbh\relman2.obj + \grupobh\fntbh\relman3.obj + \grupobh\fntbh\relman4.obj + caditinerarios.obj + \grupobh\fntbh\geraplansemasa.obj + \grupobh\fntbh\lanman.obj + \grupobh\fntbh\relman5.obj + \grupobh\fntbh\cadselo.obj + \grupobh\fntbh\relcertn.obj + cadvagas.obj + importaheadicionais.obj + funcoestemporarias.obj + impesprem.obj + impespserv.obj + \grupobh\fntpublic\checklist.obj, + SGCWGB.Exe, + SGCWGB.Map, + c:\fwh1307\lib\fivehx.lib + c:\fwh1307\lib\fivehc.lib + c:\xharbour1307\lib\hbzip.lib + c:\xharbour1307\lib\zlib.lib + c:\xharbour1307\lib\rtl.lib + c:\xharbour1307\lib\vm.lib + c:\xharbour1307\lib\gtgui.lib + c:\xharbour1307\lib\lang.lib + c:\xharbour1307\lib\macro.lib + c:\xharbour1307\lib\rdd.lib + c:\xharbour1307\lib\dbfntx.lib + c:\xharbour1307\lib\dbfcdx.lib + c:\xharbour1307\lib\debug.lib + c:\xharbour1307\lib\common.lib + c:\xharbour1307\lib\tip.lib + c:\xharbour1307\lib\pp.lib + c:\xharbour1307\lib\dbffpt.lib + c:\xharbour1307\lib\codepage.lib + c:\xharbour1307\lib\hbsix.lib + c:\xharbour1307\lib\pcrepos.lib + c:\xharbour1307\lib\ct.lib + c:\xharbour1307\lib\png.lib + c:\bcc582\lib\cw32.lib + c:\bcc582\lib\psdk\msimg32.lib + c:\bcc582\lib\psdk\odbc32.lib + c:\bcc582\lib\psdk\rasapi32.lib + c:\bcc582\lib\psdk\nddeapi.lib + c:\bcc582\lib\psdk\psapi.lib + c:\bcc582\lib\psdk\iphlpapi.lib + c:\bcc582\lib\import32.lib, SGCWGB.RES

Eu adoro o Fivewin kkk. Thanks Kapiaba.

kkk Olá Kapiaba blz? Eu também gosto do Workshop. O único problema é essa incompatibilidade com Windows 64 bits por isso estou buscando outras ferramentas que gerem o .Rc e o .Res. Eu uso Windows 7 64 bits, baixei o Pellesc 64 bits, abri um .rc gerado pelo Workshop e fiz uma alteração. Salvei e salvei como .res também, mantive o meu projeto como estava, mas deu uns paus. Muito obrigado pela atenção parceiros. Abço

Olá Gilmer. O meu computador é 64 bits. Baixo o pellesc 32 ou 64 bits?

Bom dia amigos. Estou tentando abrir um documento do Office 2016 com ShellExecute(GetActiveWindow(),"open",cARQDOC) em Fw 13.07 e tá dando uns paus. Será que a versão atual do Fw abre? Obrigado

Desculpem-me, mas nesse assunto sou totalmente leigo. Tentei compilar em fw+xharbour 13.07 e deu falta da function hb_jsondecode. Gostaria de saber quais libs e includes devo colocar no projeto.

Poxa que pena. Que Deus conforte a família.

Boa tarde. Eu fiz algo mais ou menos assim: Criei uma tabela para armazenar palavras (TBPESQCL.DBF) que é alimentada após a gravação do registro na tabela de clientes/Fornecedores, onde nessa tabela além dessas palavra chave eu armazeno também o código do cliente, de modo que ao pesquisar nessa tabela e selecionar uma certa palavra chave o sistema mostra em quais clientes contém a mesma. Seque a rotina: STATIC FUNCTION CadSearch() LOCAL cNOME,cDESPREZ,nMINLEN DbSelectArea("TBPESQCL") FOR i = 1 TO 3 n := 0 cDESPREZ := ' .()"+/&,-' nMINLEN := 3 IF i = 1 cNOME := TRIM(TMPCAD->CLIRAZAO) // Monta palavra chave da razão social ELSEIF i = 2 cNOME := TRIM(TMPCAD->CLINOME) // Monta palavra chave do nome de fantasia ELSE cNOME := TRIM(TMPCAD->CLITEL1) // Monta palavra chave do telefone nMINLEN := 7 cDESPREZ := ' ()"+/&,' DO CASE CASE !SUBSTR(ARQCLI->CLITEL1,3,1) $ "0123456789" n := 3 CASE !SUBSTR(ARQCLI->CLITEL1,4,1) $ "0123456789" n := 4 CASE !SUBSTR(ARQCLI->CLITEL1,6,1) $ "0123456789" n := 6 ENDCASE ENDIF cWORD := " " WHILE .T. ++ n cCHR := SUBSTR(cNOME,n,1) IF !cCHR $ cDESPREZ cWORD += cCHR ENDIF IF cCHR $ cDESPREZ .OR. n = LEN(cNOME) // ? cWORD cWORD := ALLTRIM(cWORD) IF LEFT( cWORD,1 ) == "-" cWORD := LTRIM( SUBSTR(cWORD,2) ) ENDIF IF LEN( cWORD ) > nMINLEN .AND. !"LTDA" $ cWORD DbSelectArea("TBPESQCL") SEEK PADR(cWORD,15)+STR(ARQCLI->CLICOD,6) IF EOF() DbAppend() REPLACE CODIGO WITH ARQCLI->CLICOD REPLACE NOME WITH cWORD ENDIF DbSelectArea("ARQCLI") ENDIF cWORD := " " ENDIF IF n = LEN(cNOME) .OR. EMPTY( SUBSTR(cNOME,n) ) EXIT ENDIF ENDDO NEXT DbSelectArea("ARQCLI") RETURN nil

Nunca usei isso na vida Kapiaba. Vlw Kapiaba.

kkkk segue o codigo: STATIC FUNCTION EnviaFtp() LOCAL oFtp, oInternet, hMon, lRet := .F. LOCAL aJPGS := {} PRIVATE cWINDIR := CurDrive() + ":\MsScan\" + cEMPRESA,nQTDPDF := 0 PRIVATE oPrn,oImg nMultWidth := 3.7 nMultHeight := 3.8 cPathPdf := CurDrive() + ":\MsScan\" + cEMPRESA // // Gera as imagens pdf para cada coleta e seus anexos // DbSelectArea("TBPSCAN") DbGotop() WHILE !EOF() IF STATUS = 2 // .OR. !"B00111" $ NOMEPAS // 2 = gerou pdf DbSkip() LOOP ENDIF cARQJPG := CurDrive() + ":\MsScan\" + cEMPRESA + "\" + TRIM(TBPSCAN->NOMEPAS)+"\TBASCAN.DBF" cINDJPG := CurDrive() + ":\MsScan\" + cEMPRESA + "\" + TRIM(TBPSCAN->NOMEPAS)+"\TBASCAN.CDX" IF NETUSE(cARQJPG,"TBASCAN",.F.,.F.,5) SET INDEX TO (cINDJPG) ELSE DbSelectArea("TBPSCAN") DbSkip() ERRORED := .F. LOOP ENDIF WHILE !EOF() IF LEFT(NOMEARQ,1) == "E" //.OR. !"157" $ NOMEARQ DbSkip() LOOP ENDIF // WHILE LEN(aJPGS) > 0 aJPGS := {} ENDDO cNOMPDF := STRTRAN(NOMEARQ,"Jpg","Pdf") cNOMEARQ := LEFT(NOMEARQ,8) // 0017000102.Jpg WHILE LEFT(NOMEARQ,8) == cNOMEARQ .AND. !EOF() cJPG := CurDrive() + ":\MsScan\" + cEMPRESA + "\" + TRIM(TBPSCAN->NOMEPAS) +"\"+TRIM(NOMEARQ) IF FILE(cJPG) AADD(aJPGS,{NOMEARQ,RECNO()} ) ENDIF DbSkip() ENDDO // IF LEN(aJPGS) > 0 PRINT oPrn NAME "Geração de Pdfs" PREVIEW // MODAL FROM USER //oPrn:SetLandscape() // Paisagem DEFINE FONT oFont08 NAME "ARIAL" SIZE 0,-8 OF OPRN DEFINE FONT oFont10 NAME "ARIAL" SIZE 0,-10 OF OPRN //DEFINE FONT oFont10 NAME "ARIAL" SIZE 27,10 OF OPRN oPrn:SetFont(oFont08) oPrn:SetPage(9) // 1=Carta 9=A4 FOR n := 1 TO LEN(aJPGS) cIMAGE := CurDrive() + ":\MsScan\" + cEMPRESA + "\" + TRIM(TBPSCAN->NOMEPAS) +"\"+ aJPGS[n,1] DEFINE IMAGE oImg FILENAME cIMAGE PAGE // Inicia a página oPrn:SayImage( 0,0,oImg, oImg:nWidth * nMultWidth, oImg:nHeight * nMultHeight ) ENDPAGE //oPrn:lMeta = .F. NEXT oPrn:lMeta = .F. // tem que ficar aqui ENDPRINT FWSavePreviewToPDF( oPrn,cPathPdf+"\"+cNOMPDF,.F. ) RELEASE oImg* RELEASE oPrn* ENDIF ENDDO TBASCAN->( DbCloseArea() ) // DbSelectArea("TBPSCAN") DbSkip() ENDDO RETURN Nil ***************************** Projeto: @ECHO OFF Cls ECHO FiveWin for xHarbour 2013 13.072 xHarbour development power ECHO (c) FiveTech for Microsoft Windows 9X/NT/200X/ME/XP/Vista/7 ECHO Gearado pelo gerador de projetos do João Programador ECHO Application_successfully_built > E:\MSSCAN\CodOk.Txt IF EXIST MSSCAN.EXE DEL MSSCAN.EXE Rem gerando .res sobre o arquivo .rc IF EXIST MSSCAN.rc c:\bcc73\bin\brc32 -r MSSCAN c:\bcc73\bin\ilink32 -Gn -aa -Tpe -s @Buildxgp.Lnk Echo . IF ERRORLEVEL 1 GOTO LINKERROR Cls Echo . Echo * Aplicacao Foi Desenvolvida Com Sucesso Echo . rem Echo * Aguarde um Momento, Compactando Aplicacao, Usando o UPX.EXE Echo . REM \PDVXB\UPX\UPX.EXE -9 CTB.EXE Echo . Echo * Aplicativo Foi Compactado Com Sucesso - Aguarde Execucao. Echo . Echo * Aguarde, Executando o Aplicativo, Gerado Com Sucesso Absoluto * GOTO EXIT :LINKERROR PAUSE * Applicacao Nao Foi Desenvolvida Com Sucesso. Veja ERRO.LOG * GOTO EXIT Echo. cls :EXIT ******************************** c:\bcc73\lib\c0w32.obj + msscan.obj + \grupobh\fntpublic\tftp.obj + msfunctions.obj + tscan.obj, + MSSCAN.Exe, + MSSCAN.Map, + c:\fwh1307\lib\fivehx.lib + c:\fwh1307\lib\fivehc.lib + twain.lib + c:\xharbour1307\lib\hbzip.lib + c:\xharbour1307\lib\zlib.lib + c:\xharbour1307\lib\rtl.lib + c:\xharbour1307\lib\vm.lib + c:\xharbour1307\lib\gtgui.lib + c:\xharbour1307\lib\lang.lib + c:\xharbour1307\lib\macro.lib + c:\xharbour1307\lib\rdd.lib + c:\xharbour1307\lib\dbfntx.lib + c:\xharbour1307\lib\dbfcdx.lib + c:\xharbour1307\lib\debug.lib + c:\xharbour1307\lib\common.lib + c:\xharbour1307\lib\tip.lib + c:\xharbour1307\lib\pp.lib + c:\xharbour1307\lib\dbffpt.lib + c:\xharbour1307\lib\codepage.lib + c:\xharbour1307\lib\hbsix.lib + c:\xharbour1307\lib\pcrepos.lib + c:\xharbour1307\lib\ct.lib + c:\xharbour1307\lib\png.lib + c:\bcc73\lib\cw32.lib + c:\bcc73\lib\psdk\msimg32.lib + c:\bcc73\lib\psdk\odbc32.lib + c:\bcc73\lib\psdk\rasapi32.lib + c:\bcc73\lib\psdk\nddeapi.lib + c:\bcc73\lib\psdk\psapi.lib + c:\bcc73\lib\psdk\iphlpapi.lib + c:\bcc73\lib\import32.lib,

Boa tarde amigos. Estou desenvolvendo um sistema em Fwh-xHarbour 13.07 e bcc73 que gera vários pdfs de imagens jpg e está apresentando o seguinte erro após gerar alguns: "hb_xgrab nao pode alocar memoria". Alguém teria uma dica para solucionar este problema? Para maior clareza estou usando um Intel i5 com 8gb Ram. Obrigado.

Opa. Muito obrigado amigo. Vou ver sim. Aliás, acho que vou pegar uma pra mim mesmo e fazer os testes direitinho. Depois passo ela pra frente.

Já tive algo parecido com a GM e infelizmente, tive que usar uma solução por fora para enviar os benditos aquivos. Vou ver direitinho o que aconteceu e reporto para você.

Eu tentei da forma abaixo, mas quando chega lá pela 13º linha do cupom parece que imprime o resto tudo em uma única linha. PRINT PAGE oPrn:Say ... ENDPAGE ENDPRINT

Show Kapiaba. Já ta rodando!! Thanks

Bom dia amigos. Alguém tem algum exemplo de impressão de cupom não fiscal na impressora sweda SI-i300s? Obrigado