Jump to content
Fivewin Brasil

syspel

Membros
  • Posts

    511
  • Joined

  • Last visited

  • Days Won

    3

Everything posted by syspel

  1. Lista box Syspel BCC55,XHABOUR 1.2.1,DBF,FIVEWIN
  2. BOA TARDE PESSOAL PRECISO DE UMA LUZ.EU TENHO UMA PASTA QUE CONTEM 20 XML E GOSTARIA DE COLOCAR 20 XML NA TELA.QUANDO O USUARIO DA UM CLIK A COR QUE ELE CLICOU PASSAVA PARA VERMELHO ALGUEM EXEMPLO DE COMO FAZER. DESDE JA AGRADEÇO @SAY BCC583 ROBSON Syspel BCC55,XHABOUR 1.2.1,DBF,FIVEWIN
  3. BOA TARDE PESSOAL PRECISO DE UMA LUZ.EU TENHO UMA PASTA QUE CONTEM 20 XML E GOSTARIA DE COLOCAR 20 XML NA TELA.QUANDO O USUARIO DA UM CLIK A COR QUE ELE CLICOU PASSAVA PARA VERMELHO ALGUEM EXEMPLO DE COMO FAZER. DESDE JA AGRADEÇO @SAY BCC583 ROBSON Syspel BCC55,XHABOUR 1.2.1,DBF,FIVEWIN
  4. OLA PESSOAL,OBRIAGADO PELA A DICA,EU USEI O STRZERO() E DEU CERTO VALEU Syspel BCC55,XHABOUR 1.2.1,DBF,FIVEWIN
  5. select 0 if net_use("Recxx000",.t.,5) index on strzero(rec_mes,2)+strzero(rec_ano,4)+strzero(cod_rec,4)+strzero(cod_empre,3) to aajax go top else msgalert("Arquivo Bloqueado pôr Outro Terminal","Aviso") close databases return nil endif select 0 if net_use("Temporao",.t.,5) zap index on strzero(rec_mes,2)+strzero(rec_ano,4)+strzero(cod_rec,4)+strzero(cod_empre,3) to babx else msgalert("Arquivo Bloqueado pôr Outro Terminal","Aviso") close databases return nil endif function confrec select Recxx000 set order to 1 go top Select Temporao set order to 1 go top store 0 to v1,v2,v3,v4 select recxx000 go top Do While ! Eof() j=0 sysrefresh() Select recxx000 store " " to v1,v2,v3,v4 v1=strzero(recxx000->rec_mes,2) v2=strzero(recxx000->rec_ano,4) v3=strzero(recxx000->cod_rec,4) v4=strzero(recxx000->cod_empre,3) saaa=" " saaa=v1+v2+v3+v4 select temporao set order to 1 seek saaa if found() select recxx000 skip loop endif for ka=1 to 35 Ca=" " Ca=ltrim(str(ka,2)) if j=0 ometer:set(somm + 1) select Temporao set index to babx Append blank if ! Neterr() Replace Rec_mes with vaL(v1) Replace Rec_ano with val(v2) Replace Cod_rec with val(v3) Replace Cod_empre with val(v4) replace temporao->data with recxx000->data replace temporao->refer1 with recxx000->refer1 replace temporao->sectul with recxx000->sectul replace temporao->settul with recxx000->settul replace temporao->deptul with recxx000->deptul replace temporao->cod_banco with recxx000->cod_banco j=1 endif endif Select recxx000 IF ! empty(codevent&ca) select temporao replace temporao->codevent&ca with recxx000->codevent&ca replace temporao->valevent&ca with recxx000->valevent&ca replace temporao->refer&ca with recxx000->refer&ca replace temporao->valdesc&ca with recxx000->valdesc&ca Endif If Codevent&ca=0 select temporao replace temporao->totalvenc with recxx000->totalvenc replace temporao->totaldesc with recxx000->totaldesc replace temporao->valorliqui with recxx000->valorliqui replace temporao->saliapas with recxx000->saliapas replace temporao->bscalcfgts with recxx000->bscalcfgts replace temporao->fgts with recxx000->fgts replace temporao->bscalcirrf with recxx000->bscalcirrf replace temporao->salarbase with recxx000->salarbase ka=35 endif Next Select recxx000 skip if eof() exit endif Enddo id=code>id=code>Syspel BCC55,XHABOUR 1.2.1,DBF,FIVEWIN
  6. obriagdo pessoal por ter dado dica,,mais eu use strzero e mesmo assim eele arrebenta isso e grave ! Syspel BCC55,XHABOUR 1.2.1,DBF,FIVEWIN
  7. Eu uso cdx, harbour 1.21 bcc 5.82 Syspel BCC55,XHABOUR 1.2.1,DBF,FIVEWIN
  8. Estou criando index da tabela com quatro campos rec_mes,rec_ano,cod_rec,cod_empre tudo numérico, ele gera o Ãndice sem problema nenhum; Só que na tabela tenho vários registros duplicado;Então fiz um Do While para eliminar os registro duplicados, ele começa a fazer corretamente e no meio do caminho , ele perde a ordem do Ãndice tipo assim: em vez de estar corretamente ele esta fazendo assim de qualquer jeito com os registros duplicados Exemplo: rec_mes rec_ano cod_rec cod_empre 1 2011 1 1 1 2011 1 1 2 2011 1 1 1 2011 1 1 2 2011 1 1 O arquivo contem 19 mil registro pelo fato de estar duplicados tenho 4 gigas de memoraria no Computador Robson Syspel BCC55,XHABOUR 1.2.1,DBF,FIVEWIN
  9. Estou criando index da tabela com quatro campos rec_mes,rec_ano,cod_rec,cod_empre tudo numérico, ele gera o Ãndice sem problema nenhum; Só que na tabela tenho vários registros duplicado;Então fiz um Do While para eliminar os registro duplicados, ele começa a fazer corretamente e no meio do caminho , ele perde a ordem do Ãndice tipo assim: em vez de estar corretamente ele esta fazendo assim de qualquer jeito com os registros duplicados Exemplo: rec_mes rec_ano cod_rec cod_empre 1 2011 1 1 1 2011 1 1 2 2011 1 1 1 2011 1 1 2 2011 1 1 O arquivo contem 19 mil registro pelo fato de estar duplicados tenho 4 gigas de memoraria no Computador Robson Syspel BCC55,XHABOUR 1.2.1,DBF,FIVEWIN
  10. estou usando arquivo bat robson Syspel BCC55,XHABOUR 1.2.1,DBF,FIVEWIN
  11. o endereco que voce prostou esta faltando um arquivo bld_d32.bat onde eu acho ele ? obrigado robson Syspel BCC55,XHABOUR 1.2.1,DBF,FIVEWIN
  12. Na Hora de linkar da esse erro: xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406) Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/ Compiling 'global1.prg' and generating preprocessed output to 'global1.ppo'... Lines 12, Functions/Procedures 1 Generating C source output to 'global1.c'... Done. Compiling 'global1.C' and generating preprocessed output to 'global1.ppo'... 100 _stddef.h(54) Error E0030 Syntax error: "syntax error at 'UNSIGNED'" _stddef.h(73) Error E0030 Syntax error: "syntax error at 'INT'" _stddef.h(83) Error E0030 Syntax error: "syntax error at 'UNSIGNED'" _stddef.h(93) Error E0030 Syntax error: "syntax error at 'WCHAR_T'" 100 _stddef.h(102) Error E0030 Syntax error: "syntax error at 'WCHAR_T'" _stddef.h(109) Error E0030 Syntax error: "syntax error at 'LONG'" assert.h(38) Error E0030 Syntax error: "syntax error at '__CDECL'" assert.h(41) Error E0030 Syntax error: "syntax error at '__CDECL'" assert.h(43) Error E0030 Syntax error: "syntax error at '*'" 100 200 300 400 9 errors No code generated Syspel BCC55,XHABOUR 1.2.1,DBF,FIVEWIN
  13. Na Hora de linkar da esse erro: xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406) Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/ Compiling 'global1.prg' and generating preprocessed output to 'global1.ppo'... Lines 12, Functions/Procedures 1 Generating C source output to 'global1.c'... Done. Compiling 'global1.C' and generating preprocessed output to 'global1.ppo'... 100 _stddef.h(54) Error E0030 Syntax error: "syntax error at 'UNSIGNED'" _stddef.h(73) Error E0030 Syntax error: "syntax error at 'INT'" _stddef.h(83) Error E0030 Syntax error: "syntax error at 'UNSIGNED'" _stddef.h(93) Error E0030 Syntax error: "syntax error at 'WCHAR_T'" 100 _stddef.h(102) Error E0030 Syntax error: "syntax error at 'WCHAR_T'" _stddef.h(109) Error E0030 Syntax error: "syntax error at 'LONG'" assert.h(38) Error E0030 Syntax error: "syntax error at '__CDECL'" assert.h(41) Error E0030 Syntax error: "syntax error at '__CDECL'" assert.h(43) Error E0030 Syntax error: "syntax error at '*'" 100 200 300 400 9 errors No code generated Syspel BCC55,XHABOUR 1.2.1,DBF,FIVEWIN
  14. Como faço para compilar Dos no xharbour ? Syspel BCC55,XHABOUR 1.2.1,DBF,FIVEWIN
  15. Como faço para compilar Dos no xharbour ? Syspel BCC55,XHABOUR 1.2.1,DBF,FIVEWIN
  16. O valor total da nota:3163,60 Valor total dos Produtos:2378,32 Valor Total do IPI:350,11 Porcentagem de ipi do 1°produto :15 valor do produto:283,14 Porcentagem de ipi do 2°produto :15 valor do produto:840,48 Porcentagem de ipi do 3°produto :15 valor do produto:420,24 Porcentagem de ipi do 4°produto :15 valor do produto:66,30 Porcentagem de ipi do 5°produto :5 valor do produto:3,31 Porcentagem de ipi do 6°produto :15 valor do produto:115,22 Valor de ipi do 1°produto:42,47 Valor de ipi do 2°produto:126,07 Valor de ipi do 3°produto:63,04 Valor de ipi do 4°produto:3,31 Valor de ipi do 5°produto:115,22 não tem desconto,nem frete Syspel BCC55,XHABOUR 1.2.1,DBF,FIVEWIN
  17. Tenho uma nota com IPI, mas não esta vindo mais com a base de calculo,se eu consigo a base de calculo a porcentagem de IPI não bate com o Valor do IPI da nota Como Resolver isso? Editado por - syspel on 02/04/2012 15:50:44
  18. Tenho uma nota com IPI, mas não esta vindo mais com a base de calculo,se eu consigo a base de calculo a porcentagem de IPI não bate com o Valor do IPI da nota Como Resolver isso? Editado por - syspel on 02/04/2012 15:50:44
  19. segue link para download da função com erro da linha no windows 7 http://www.4shared.com/file/rUjwFam6/BB_online.html Syspel BCC55,XHABOUR 1.2.1,DBF,FIVEWIN
  20. nao e possivel ninguem sabe ? carambola Syspel BCC55,XHABOUR 1.2.1,DBF,FIVEWIN
  21. Nao consegui colocar a imagem porem segue o link da imagem abaixo: http://www.4shared.com/photo/4AAXbF5I/teste.html no windows XP aparece normal as teclas Cancela e Ok.Porem no windows 7 starter edition acontece isso de descer uma linha. Att Rafael Syspel BCC55,XHABOUR 1.2.1,DBF,FIVEWIN
  22. nao consigui colocar a imagem como faco ? rafael Syspel BCC55,XHABOUR 1.2.1,DBF,FIVEWIN
  23. pessaoal e com a dialog que o say dece rafael Syspel BCC55,XHABOUR 1.2.1,DBF,FIVEWIN
  24. QUANDO EU RODO MEU SISTEMA EM WINDOW 7 START ELE DECE UMA LINHA PARA BAIXO,ISTO SO ACONTENCE NO 7 ALQUEM SABE COMO RESOLVER ISSO ? OBRIGADO RAFAEL Syspel BCC55,XHABOUR 1.2.1,DBF,FIVEWIN
  25. QUANDO EU RODO MEU SISTEMA EM WINDOW 7 START ELE DECE UMA LINHA PARA BAIXO,ISTO SO ACONTENCE NO 7 ALQUEM SABE COMO RESOLVER ISSO ? OBRIGADO RAFAEL Syspel BCC55,XHABOUR 1.2.1,DBF,FIVEWIN
×
×
  • Create New...