Jump to content
Fivewin Brasil

sunset

Membros
 View Profile  See their activity

  • Posts

    346

  • Joined

  • Last visited

  • Days Won

    2

 Content Type 

Everything posted by sunset

  1. sunset
    Amigos em Algumas sintax uso o comando copy file ... to ... mas agora nao funciona se voce souberem outra maneira de copiar um arquivo de um lugar para o outro agradeço Marcio Tullio marcio@inteligence.com.br Clipper 5.2e, Fw 2.4 , Blinker 7.0. @say - xDevStudio xHarbour 1.2 João Pessoa - Paraiba inteligence.suporte@hotmail.com
  2. sunset
    Amigos em Algumas sintax uso o comando copy file ... to ... mas agora nao funciona se voce souberem outra maneira de copiar um arquivo de um lugar para o outro agradeço Marcio Tullio marcio@inteligence.com.br Clipper 5.2e, Fw 2.4 , Blinker 7.0. @say - xDevStudio xHarbour 1.2 João Pessoa - Paraiba inteligence.suporte@hotmail.com
  3. sunset
    Vlw cara deu certo a maneira q eu queria era a segunda so nao estava sabendo como fazer agora tudo certo REDEFINE DYNAMIC SAY VAR cText ID 4004 OF oDlg ; HORIZONTAL SCROLL WRAP ; RIGHT SHADED ; FONT oFont Marcio Tullio marcio@inteligence.com.br Clipper 5.2e, Fw 2.4 , Blinker 7.0. @say - xDevStudio xHarbour 1.2 João Pessoa - Paraiba inteligence.suporte@hotmail.com
  4. sunset
    Amigos estou precisando de uma classe que me permita usar um say passando , como se fosse uma animação " ->->->-> mensagem passando ..." ja usei a dsay mas ela so se move ^ para cima ao mais obrigado Marcio Tullio marcio@inteligence.com.br Clipper 5.2e, Fw 2.4 , Blinker 7.0. @say - xDevStudio xHarbour 1.2 João Pessoa - Paraiba inteligence.suporte@hotmail.com
  5. sunset
    Amigos estou precisando de uma classe que me permita usar um say passando , como se fosse uma animação " ->->->-> mensagem passando ..." ja usei a dsay mas ela so se move ^ para cima ao mais obrigado Marcio Tullio marcio@inteligence.com.br Clipper 5.2e, Fw 2.4 , Blinker 7.0. @say - xDevStudio xHarbour 1.2 João Pessoa - Paraiba inteligence.suporte@hotmail.com
  6. sunset
    Tentei mandar nos seus email mas retornaram ve neste TXT a sua estrutura para C190 nao existe voce ta confudindo com C170 da uma olhada. C100|0|1|FO000891|55|00|1|000045671|32111205038925000145550010000456711185519615|29122011|10012012|5014,02|0|0,00|0|5014,02|9|0,00|0,00|0,00|5014,02|601,68|0|0|0,00|82,73|381,07|0,00|0,00| |C170|001|023953||2279,10000|MT|5014,02|0,00|0|000|2102|01|5014,02|12,00|601,68|0|0|0|0|||0,00|0,00|0,00|50|5014,02|1,65|0,00|0,0000|82,73|50|5014,02|7,60|0,00|0,0000|381,07|| |C190|000|2102|12,00|5014,02|5014,02|601,68|0,00|0,00|0,00|0,00|000001| a combinação e essa. Marcio Tullio marcio@inteligence.com.br Clipper 5.2e, Fw 2.4 , Blinker 7.0. @say - xDevStudio xHarbour 1.2 João Pessoa - Paraiba inteligence.suporte@hotmail.com
  7. sunset
    Amigos o erro abaixo é exibido quando esse codigo é executado : // isso sao definiçoes depois de usar o redefine do xbrowse ( antes do activate da dialog) AEval( oLbxPed2:aCols, { |o| o:cEditPicture := '99,999.99', ; o:nFooterType := AGGR_SUM, ; o:bOnChange := { || oLbxPed2:MakeTotals(),oLbxPed2:RefreshFooters() } }, 2 ) oLbxPed2:Product:cFooter := 'Total' oLbxPed2:nStretchCol := 1 oLbxPed2:MakeTotals() Tamanho: ********* bytes Maximo de arquivos abertos: ( SetHandleCount() ) 0 Ocorreu erro em: 25/05/2012, 16:09:46 Descricao: Erro BASE/1070 Argument error: == Args: [ 1] = L .T. [ 2] = C PRODUCT ================= CHAMADA DE TXBRWCOLUMN:SAMECOLAS(8791) CHAMADA DE (b)TXBRWCOLUMN:TXBRWCOLUMN(8471) CHAMADA DE TXBRWCOLUMN:__OPEXACTEQUAL(0) CHAMADA DE (b)TXBROWSE:OCOL(1836) CHAMADA DE ASCAN(0) CHAMADA DE TXBROWSE:OCOL(1836) CHAMADA DE TXBROWSE:PRODUCT(7693) -//-----------------------------------------------//- Se alguem poder dá uma luz sobre no samples no prg xbgrpsum.prg tem o exemplo , compilei e funciona ... Marcio Tullio marcio@inteligence.com.br Clipper 5.2e, Fw 2.4 , Blinker 7.0. @say - xDevStudio xHarbour 1.2 João Pessoa - Paraiba inteligence.suporte@hotmail.com
  8. sunset
    Amigos o erro abaixo é exibido quando esse codigo é executado : // isso sao definiçoes depois de usar o redefine do xbrowse ( antes do activate da dialog) AEval( oLbxPed2:aCols, { |o| o:cEditPicture := '99,999.99', ; o:nFooterType := AGGR_SUM, ; o:bOnChange := { || oLbxPed2:MakeTotals(),oLbxPed2:RefreshFooters() } }, 2 ) oLbxPed2:Product:cFooter := 'Total' oLbxPed2:nStretchCol := 1 oLbxPed2:MakeTotals() Tamanho: ********* bytes Maximo de arquivos abertos: ( SetHandleCount() ) 0 Ocorreu erro em: 25/05/2012, 16:09:46 Descricao: Erro BASE/1070 Argument error: == Args: [ 1] = L .T. [ 2] = C PRODUCT ================= CHAMADA DE TXBRWCOLUMN:SAMECOLAS(8791) CHAMADA DE (b)TXBRWCOLUMN:TXBRWCOLUMN(8471) CHAMADA DE TXBRWCOLUMN:__OPEXACTEQUAL(0) CHAMADA DE (b)TXBROWSE:OCOL(1836) CHAMADA DE ASCAN(0) CHAMADA DE TXBROWSE:OCOL(1836) CHAMADA DE TXBROWSE:PRODUCT(7693) -//-----------------------------------------------//- Se alguem poder dá uma luz sobre no samples no prg xbgrpsum.prg tem o exemplo , compilei e funciona ... Marcio Tullio marcio@inteligence.com.br Clipper 5.2e, Fw 2.4 , Blinker 7.0. @say - xDevStudio xHarbour 1.2 João Pessoa - Paraiba inteligence.suporte@hotmail.com
  9. sunset
    Vamos começar novamente , na sua 1 mensagem voce destacou em AZUL falando que ele estava errado o motivo do item destacado esta errado e que o registro C170 deveria esta C190 , agora existem outros erros naquele mesmo erro que voce mostrou a linha 4928 esta com o item daquela nota fiscal sem o registro dela no 0200 que e o registro dos itens. vou mandar no teu email um TXT completo para voce poder avaliar. Marcio Tullio marcio@inteligence.com.br Clipper 5.2e, Fw 2.4 , Blinker 7.0. @say - xDevStudio xHarbour 1.2 João Pessoa - Paraiba inteligence.suporte@hotmail.com
  10. sunset
    A maioria dos dados , voce tem que guarda em BD não vai existir no MFD , e melhor sempre voce gerar os TXT baseado no banco de dados , principalmente guarda isso em BD , os valores da Red.Z Cupom e Itens dos cupons. Atualmente um contador não vai conseguir montar esse arquivo se não for originado do sistema , o grande volume de informação somente um bom sistema que tenha todos os dados necessarios vai conseguir gerar um arquivo satisfatoriamente. Marcio Tullio marcio@inteligence.com.br Clipper 5.2e, Fw 2.4 , Blinker 7.0. @say - xDevStudio xHarbour 1.2 João Pessoa - Paraiba inteligence.suporte@hotmail.com
  11. sunset
    o registro que voce quer gerar e o C190 |C190|000|2102|12,00|5014,02|5014,02|601,68|0,00|0,00|0,00|0,00|000001| Marcio Tullio marcio@inteligence.com.br Clipper 5.2e, Fw 2.4 , Blinker 7.0. @say - xDevStudio xHarbour 1.2 João Pessoa - Paraiba inteligence.suporte@hotmail.com
  12. sunset
    Obrigadooo a todos , as explicações trouxeram luz aqui ` nao era bem o q esperava mas deu para entender . Marcio Tullio marcio@inteligence.com.br Clipper 5.2e, Fw 2.4 , Blinker 7.0. @say - xDevStudio xHarbour 1.2 João Pessoa - Paraiba inteligence.suporte@hotmail.com
  13. sunset
    Vlw cara testei mas assim ele precisaria somar a variavel , queria tentar somar os dados exibidos naquele Browser ... Marcio Tullio marcio@inteligence.com.br Clipper 5.2e, Fw 2.4 , Blinker 7.0. @say - xDevStudio xHarbour 1.2 João Pessoa - Paraiba inteligence.suporte@hotmail.com
  14. sunset
    Amigos preciso fazer a soma da coluna de um browse , vasculhei na internet e nao encontrei nada que desse resultado encontrei esse codigo mas tambem nao serviu oLbxPed2:MakeTotals(oLbxPed2:aCols[3]) oLbxPed2:MakeTotals(oLbxPed2:aCols[4]) oLbxPed2:MakeTotals(oLbxPed2:aCols[5]) oLbxPed2:nFooterHeight := 20 // Altura del footer oLbxPed2:nFooterLines := 1 // Número de líneas en el footer oLbxPed2:lFooter := (.T.) // Sí queremos línea de footer ou no On init da dialog oLbxPed2:MakeTotals() oLbxPed2:refresh() Qualquer ajuda agradeço ... Marcio Tullio marcio@inteligence.com.br Clipper 5.2e, Fw 2.4 , Blinker 7.0. @say - xDevStudio xHarbour 1.2 João Pessoa - Paraiba inteligence.suporte@hotmail.com
  15. sunset
    Amigos preciso fazer a soma da coluna de um browse , vasculhei na internet e nao encontrei nada que desse resultado encontrei esse codigo mas tambem nao serviu oLbxPed2:MakeTotals(oLbxPed2:aCols[3]) oLbxPed2:MakeTotals(oLbxPed2:aCols[4]) oLbxPed2:MakeTotals(oLbxPed2:aCols[5]) oLbxPed2:nFooterHeight := 20 // Altura del footer oLbxPed2:nFooterLines := 1 // Número de líneas en el footer oLbxPed2:lFooter := (.T.) // Sí queremos línea de footer ou no On init da dialog oLbxPed2:MakeTotals() oLbxPed2:refresh() Qualquer ajuda agradeço ... Marcio Tullio marcio@inteligence.com.br Clipper 5.2e, Fw 2.4 , Blinker 7.0. @say - xDevStudio xHarbour 1.2 João Pessoa - Paraiba inteligence.suporte@hotmail.com
  16. sunset
    Ola pessoal , vi pelo forum essa solução para os boletos e resolvi testar , ao incluir no projeto o prg exemplo e o prg do oleauto a funçao THROW( oError ) indica erro , de acordo com o xDev , nao encontrei soluçao ao meu ver , depois de trocar para funçao e recompilar meu projeto Erro Informado pelo xDev : Executando: harbour.exe "C:\Des\mStar\oleauto.prg" /q /o"c:\des\mstar\obj\oleauto.c" /A /M /N xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406) Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/ oleauto.prg(79) Error E0008 Redefinition of predefined function THROW: 'THROW' 1 error Obs : a Dll ja esta sendo chamada na abertuda do Exe Obrigado . Marcio Tullio marcio@inteligence.com.br Clipper 5.2e, Fw 2.4 , Blinker 7.0. @say - xDevStudio xHarbour 1.2 João Pessoa - Paraiba inteligence.suporte@hotmail.com
  17. sunset
    Ola pessoal , vi pelo forum essa solução para os boletos e resolvi testar , ao incluir no projeto o prg exemplo e o prg do oleauto a funçao THROW( oError ) indica erro , de acordo com o xDev , nao encontrei soluçao ao meu ver , depois de trocar para funçao e recompilar meu projeto Erro Informado pelo xDev : Executando: harbour.exe "C:\Des\mStar\oleauto.prg" /q /o"c:\des\mstar\obj\oleauto.c" /A /M /N xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406) Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/ oleauto.prg(79) Error E0008 Redefinition of predefined function THROW: 'THROW' 1 error Obs : a Dll ja esta sendo chamada na abertuda do Exe Obrigado . Marcio Tullio marcio@inteligence.com.br Clipper 5.2e, Fw 2.4 , Blinker 7.0. @say - xDevStudio xHarbour 1.2 João Pessoa - Paraiba inteligence.suporte@hotmail.com
  18. sunset
    no sistema e para criar um botão , não e para usar a tecla BARRA DE ESPAÇO não. tudo no sistema e para criação de botão onde tiver tecla de função com exceção da F9 Calculadora e F8 Calendario. Marcio Tullio marcio@inteligence.com.br Clipper 5.2e, Fw 2.4 , Blinker 7.0. @say - xDevStudio xHarbour 1.2 João Pessoa - Paraiba inteligence.suporte@hotmail.com
  19. sunset
    Obrigado Francisco , Serviu bem !!! implementei junto com algo q ja tinha pensado foi na mosca Marcio Tullio marcio@inteligence.com.br Clipper 5.2e, Fw 2.4 , Blinker 7.0. @say - xDevStudio xHarbour 1.2 João Pessoa - Paraiba inteligence.suporte@hotmail.com
  20. sunset
    Bom dia Alguem tem alguma dica de como posso fazer a leitura do TXT do SPED , tenho um sistema Fiscal que faz a leitura do TXT do SINTEGRA e TXT gerado pelo ECF com PAF , mas alguns clientes so disponibilizão o TXT do SPED pro contador e ja tentei varias coisas , mas estou sem ideias para fazer a leitura , pelo formato que os dados são gravados sem tamanho definido e separados pelo PIPE "|" , estou perdido existe algo para facilitar o meu trabalho que não estou conseguindo enxergar. Estou recorrendo a ajuda dos Universarios, Monges ou seja no desespero por alguma solução que até agora não me ocorreu. Grato a qualquer alma bondosa desse planeta que me ajude. HELP HELP. Marcio Tullio marcio@inteligence.com.br Clipper 5.2e, Fw 2.4 , Blinker 7.0. @say - xDevStudio xHarbour 1.2 João Pessoa - Paraiba inteligence.suporte@hotmail.com
  21. sunset
    Bom dia Alguem tem alguma dica de como posso fazer a leitura do TXT do SPED , tenho um sistema Fiscal que faz a leitura do TXT do SINTEGRA e TXT gerado pelo ECF com PAF , mas alguns clientes so disponibilizão o TXT do SPED pro contador e ja tentei varias coisas , mas estou sem ideias para fazer a leitura , pelo formato que os dados são gravados sem tamanho definido e separados pelo PIPE "|" , estou perdido existe algo para facilitar o meu trabalho que não estou conseguindo enxergar. Estou recorrendo a ajuda dos Universarios, Monges ou seja no desespero por alguma solução que até agora não me ocorreu. Grato a qualquer alma bondosa desse planeta que me ajude. HELP HELP. Marcio Tullio marcio@inteligence.com.br Clipper 5.2e, Fw 2.4 , Blinker 7.0. @say - xDevStudio xHarbour 1.2 João Pessoa - Paraiba inteligence.suporte@hotmail.com
  22. sunset
    Desculpa a demora tava fora , o meu tablet comprei o Acer este modelo aqui para mim. http://produto.mercadolivre.com.br/MLB-226877912-tablet-acer-iconia-tab-w500-windows-bluetooth-teclado-hdmi-_JM mas o cliente comprou este modelo aqui. http://produto.mercadolivre.com.br/MLB-231809315-novo-tablet-10-pol-windows-7-tela-capacitiva-sedex-gratis-_JM agora tem um monte no mercado livre , inclusive alguns modelos com boot windows e android , mas o que alguns colegas falaram e verdade voce nao consegue instalar um windows e um tablet que antes tinha Android não , se ele for ARM no processador. segue video do TABLET da CCE com Windows no site da americanas ta vendendo por 999,00 Marcio Tullio marcio@inteligence.com.br Clipper 5.2e, Fw 2.4 , Blinker 7.0. @say - xDevStudio xHarbour 1.2 João Pessoa - Paraiba inteligence.suporte@hotmail.com Editado por - sunset on 09/04/2012 15:48:43
  23. sunset
    Tambem passei por isso recentemente , mas graças a Deus fui em um restaurante e vi um garçon usando um Tablet de 7" ching ling , mas o detalhe era que o tablet tava com windows 7, pedi o dono do restaurante para da uma olhada e ficou muito bom o cara redimencionou a tela de pedido e ficou usando tanto local como em rede, pelo WIFI do aparelho , desta forma comprei um fiz a mesma coisa com a telas do sistema , e ate coloquei XP para ficar mais rapido , ficou show de bola e ate os modens 3G funcionam , e voce ainda tem a opção de usar o TS do windows 2003 caso queira acessar direto. No meu caso o convecimento foi facil porque ele ainda nao possuia os equipamento e gostou da ideia do TABLET , mas não são todos que vão aderir facilmente. Marcio Tullio marcio@inteligence.com.br Clipper 5.2e, Fw 2.4 , Blinker 7.0. @say - xDevStudio xHarbour 1.2 João Pessoa - Paraiba inteligence.suporte@hotmail.com
  24. sunset
    Pessoal Uso uma funçao do para pegar dados do cpf ou cnpj do site da receita , mas ela esta exibindo erros de consulto , começei a testa-la mas nao consegui ver algum erro , se alguem passou pela mesma situação e poder compartilhar agradeço tReceitaFederal - Nome da classe //----------------------------------------------------------------------------// #include "Fivewin.ch" #include "ReceitaFederal.ch" //----------------------------------------------------------------------------// Function Main() Local oSrv Connect ReceitaFederal oSrv // Consulta CPF If ( oSrv:Consulta( RFCPF, "37596753876" ) ) ? "ok",oSrv:GetFileName( RFCPF ) Else ?"Erro na Consulta" EndIf // Consulta CNPJ If ( oSrv:Consulta( RFCGC, "09497803000178" ) ) ? "ok",oSrv:GetFileName( RFCGC ) Else ? "Erro na Consulta" EndIf oSrv:Finalize() Return Nil Marcio Tullio marcio@inteligence.com.br Clipper 5.2e, Fw 2.4 , Blinker 7.0. @say - xDevStudio xHarbour 1.2 João Pessoa - Paraiba inteligence.suporte@hotmail.com
  25. sunset
    Pessoal Uso uma funçao do para pegar dados do cpf ou cnpj do site da receita , mas ela esta exibindo erros de consulto , começei a testa-la mas nao consegui ver algum erro , se alguem passou pela mesma situação e poder compartilhar agradeço tReceitaFederal - Nome da classe //----------------------------------------------------------------------------// #include "Fivewin.ch" #include "ReceitaFederal.ch" //----------------------------------------------------------------------------// Function Main() Local oSrv Connect ReceitaFederal oSrv // Consulta CPF If ( oSrv:Consulta( RFCPF, "37596753876" ) ) ? "ok",oSrv:GetFileName( RFCPF ) Else ?"Erro na Consulta" EndIf // Consulta CNPJ If ( oSrv:Consulta( RFCGC, "09497803000178" ) ) ? "ok",oSrv:GetFileName( RFCGC ) Else ? "Erro na Consulta" EndIf oSrv:Finalize() Return Nil Marcio Tullio marcio@inteligence.com.br Clipper 5.2e, Fw 2.4 , Blinker 7.0. @say - xDevStudio xHarbour 1.2 João Pessoa - Paraiba inteligence.suporte@hotmail.com
×
×
  • Create New...