cyclonet

Boa tarde a todos. Estamos procurando uma função que retorna tamanho original de campo numerico em arquivo .DBF Alguem sabe de alguma?? Ajudem por favor!!! Versão Fivewin 8.04 Niterói - RJ ------------------------- Equipe Desenvolvimento CYCLONET TECNOLÓGICA LTDA sistemas.cyclonet@gmail.com FWH11.09 Editado por - cyclonet on 14/12/2011 16:11:14

Boa tarde a todos. Estamos procurando uma função que retorna tamanho original de campo numerico em arquivo .DBF Alguem sabe de alguma?? Ajudem por favor!!! Versão Fivewin 8.04 Niterói - RJ ------------------------- Equipe Desenvolvimento CYCLONET TECNOLÓGICA LTDA sistemas.cyclonet@gmail.com FWH11.09 Editado por - cyclonet on 14/12/2011 16:11:14

Agradecemos pela ajuda. Problema resolvido!!! Niterói - RJ ------------------------- Equipe Desenvolvimento CYCLONET TECNOLÓGICA LTDA sistemas.cyclonet@gmail.com FWH11.09id=size4> Editado por - cyclonet on 27/10/2011 16:36:11

Caro Amigo - Theotokos Conseguimos solucionar a captura do peso graças a sua ajuda. O problema era tão simples, mas estava sendo como procurar agulha no palheiro. Acontece né. Agradecemos pela ajuda. Niterói - RJ ------------------------- Equipe Desenvolvimento CYCLONET TECNOLÓGICA LTDA sistemas.cyclonet@gmail.com FWH11.09

Theotokos Ainda não tive sucesso... Niterói - RJ ------------------------- Equipe Desenvolvimento CYCLONET TECNOLÓGICA LTDA sistemas.cyclonet@gmail.com FWH11.09

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=18678&start=30&hilit=referenced+from+HBCOMM%5CHBCOMM.LIB+COMM João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe Não achamos uma solução ainda. Niterói - RJ ------------------------- Equipe Desenvolvimento CYCLONET TECNOLÓGICA LTDA sistemas.cyclonet@gmail.com FWH11.09

Seguem a baixo as funções - A primeira função utiliza a P05.DLL Não está capturando o peso está retornando vazio - Já a segunda função utiliza a HBCOMM.LIB (que foi incorporada ao projeto), apresenta erro na compilação: >Executando: ILINK32 @B32.BC >Turbo Incremental Link 5.65 Copyright © 1997-2002 Borland >Error: Unresolved external 'std::_String_base::_Xran() >const' referenced from HBCOMM\HBCOMM.LIB|COMM >Error: Unresolved external 'std::_String_base::_Xlen() >const' referenced from HBCOMM\HBCOMM.LIB|COMM >#include "FiveWin.ch" STATIC xDllB *----------------------------------------------------------- FUNCTION Le_Peso_1() LOCAL retorno LOCAL Peso := Space(5) IF ! FILE(".\DLL\P05.DLL") MSGINFO("O Arquivo P05.DLL não foi encontrado, solicite a Empresa Desenvolvedora","Atenção" ) RETURN( 1 ) ENDIF xDllB := LoadLibrary( ".\DLL\P05.DLL" ) RETORNO:= ABREPORTA( 1, 2, 0, 2 ) ? RETORNO If Retorno # 1 RETORNO := FECHAPORTA() FreeLibrary( xDllb ) If MsgNoYes( "O Sistema Não Conseguiu Ler o Peso da Balança." + CRLF + ; "Retire o produto da balança e coloque novamente para nova leitura."+ CRLF + ; "Deseja Digitar o Peso do Produto?","Erro na Leitura da Balança" ) oget_quantidade:setfocus() oget_quantidade:refresh() Else RETURN( 0 ) Endif Endif Retorno := PegaPeso( "COM1", @Peso, " " ) xQtd := val(peso) xQtd := Round(xQtd/1000,3) If xQtd <= 0 If MsgNoYes( "O Sistema Não Conseguiu Ler o Peso da Balança." + CRLF + ; "Retire o produto da balança e coloque novamente para nova leitura."+ CRLF + ; "Deseja Digitar o Peso do Produto?","Erro na Leitura da Balança" ) oget_quantidade:setfocus() oget_quantidade:refresh() Else Peso := Space(5) Retorno := PegaPeso( 0, @Peso, "c:\" ) xQtd := val(peso) IF xQtd = 0 xQtd := 1 ENDIF Endif Endif Retorno := FechaPorta() FreeLibrary( xDllb ) Return( xQtd ) ******************************************************************************** FUNCTION Le_Peso_2() NHANDLE:=Init_Port("COM1",9600,8,0,1,8000) OutBufClr(NHANDLE) // Limpa o Buffer de Saida OUTCHR(NHANDLE,CHR(5)) SysWait(0.3) Bytes := InbufSize(NHANDLE) DADOS=SPACE(20) Buffer := InChr( NHANDLE, Bytes, @DADOS) //LER BUFFER DE ENTRADA DA BALANCA UnInt_Port(nHandle) dados=alltrim(dados) QTDE=val(substr(dados,2,5))/1000 IF QTDE=0 PU=1 VLU:=TRANSFORM(PU,"@E 9999.99") oget_quantidade:setfocus() oget_quantidade:refresh() ENDIF RETURN QTDE * Declaração abaixo serve para a 1a. Função DLL32 FUNCTION AbrePorta( Porta AS LONG, BaudRate AS LONG, DataBits AS LONG, Paridade AS LONG ) AS LONG PASCAL lib xDllb DLL32 FUNCTION PegaPeso( OpcaoEscrita AS LONG, Peso AS STRING, Diretorio AS STRING ) AS LONG PASCAL lib xDllb DLL32 FUNCTION FechaPorta() AS LONG PASCAL lib xDllb Agradeceria se alguem ajudasse!!! Niterói - RJ ------------------------- Equipe Desenvolvimento CYCLONET TECNOLÓGICA LTDA sistemas.cyclonet@gmail.com FWH11.09 Editado por - cyclonet on 27/10/2011 16:34:36

Seguem a baixo as funções - A primeira função utiliza a P05.DLL Não está capturando o peso está retornando vazio - Já a segunda função utiliza a HBCOMM.LIB (que foi incorporada ao projeto), apresenta erro na compilação: >Executando: ILINK32 @B32.BC >Turbo Incremental Link 5.65 Copyright © 1997-2002 Borland >Error: Unresolved external 'std::_String_base::_Xran() >const' referenced from HBCOMM\HBCOMM.LIB|COMM >Error: Unresolved external 'std::_String_base::_Xlen() >const' referenced from HBCOMM\HBCOMM.LIB|COMM >#include "FiveWin.ch" STATIC xDllB *----------------------------------------------------------- FUNCTION Le_Peso_1() LOCAL retorno LOCAL Peso := Space(5) IF ! FILE(".\DLL\P05.DLL") MSGINFO("O Arquivo P05.DLL não foi encontrado, solicite a Empresa Desenvolvedora","Atenção" ) RETURN( 1 ) ENDIF xDllB := LoadLibrary( ".\DLL\P05.DLL" ) RETORNO:= ABREPORTA( 1, 2, 0, 2 ) ? RETORNO If Retorno # 1 RETORNO := FECHAPORTA() FreeLibrary( xDllb ) If MsgNoYes( "O Sistema Não Conseguiu Ler o Peso da Balança." + CRLF + ; "Retire o produto da balança e coloque novamente para nova leitura."+ CRLF + ; "Deseja Digitar o Peso do Produto?","Erro na Leitura da Balança" ) oget_quantidade:setfocus() oget_quantidade:refresh() Else RETURN( 0 ) Endif Endif Retorno := PegaPeso( "COM1", @Peso, " " ) xQtd := val(peso) xQtd := Round(xQtd/1000,3) If xQtd <= 0 If MsgNoYes( "O Sistema Não Conseguiu Ler o Peso da Balança." + CRLF + ; "Retire o produto da balança e coloque novamente para nova leitura."+ CRLF + ; "Deseja Digitar o Peso do Produto?","Erro na Leitura da Balança" ) oget_quantidade:setfocus() oget_quantidade:refresh() Else Peso := Space(5) Retorno := PegaPeso( 0, @Peso, "c:\" ) xQtd := val(peso) IF xQtd = 0 xQtd := 1 ENDIF Endif Endif Retorno := FechaPorta() FreeLibrary( xDllb ) Return( xQtd ) ******************************************************************************** FUNCTION Le_Peso_2() NHANDLE:=Init_Port("COM1",9600,8,0,1,8000) OutBufClr(NHANDLE) // Limpa o Buffer de Saida OUTCHR(NHANDLE,CHR(5)) SysWait(0.3) Bytes := InbufSize(NHANDLE) DADOS=SPACE(20) Buffer := InChr( NHANDLE, Bytes, @DADOS) //LER BUFFER DE ENTRADA DA BALANCA UnInt_Port(nHandle) dados=alltrim(dados) QTDE=val(substr(dados,2,5))/1000 IF QTDE=0 PU=1 VLU:=TRANSFORM(PU,"@E 9999.99") oget_quantidade:setfocus() oget_quantidade:refresh() ENDIF RETURN QTDE * Declaração abaixo serve para a 1a. Função DLL32 FUNCTION AbrePorta( Porta AS LONG, BaudRate AS LONG, DataBits AS LONG, Paridade AS LONG ) AS LONG PASCAL lib xDllb DLL32 FUNCTION PegaPeso( OpcaoEscrita AS LONG, Peso AS STRING, Diretorio AS STRING ) AS LONG PASCAL lib xDllb DLL32 FUNCTION FechaPorta() AS LONG PASCAL lib xDllb Agradeceria se alguem ajudasse!!! Niterói - RJ ------------------------- Equipe Desenvolvimento CYCLONET TECNOLÓGICA LTDA sistemas.cyclonet@gmail.com FWH11.09 Editado por - cyclonet on 27/10/2011 16:34:36

Adicionamos a LIB que voce nos enviou e Compilamos e é apresentado o seguinte erro: Executando: ILINK32 @B32.BC Turbo Incremental Link 5.65 Copyright © 1997-2002 Borland Error: Unresolved external 'std::_String_base::_Xran() const' referenced from HBCOMM\HBCOMM.LIB|COMM Error: Unresolved external 'std::_String_base::_Xlen() const' referenced from HBCOMM\HBCOMM.LIB|COMM Faz ideia do que esteja causando esse conflito ?? -------------------------- Equipe Desenvolvimento CYCLONET TECNOLÓGICA LTDA sistemas.cyclonet@gmail.com

Boa tarde a todos. Qual o compilador usado na versão do Xharbour 11.09 e FIVEWIN H11.09 ?? Editado por - cyclonet on 27/10/2011 14:06:43 Editado por - cyclonet on 27/10/2011 16:37:25

Boa tarde a todos. Qual o compilador usado na versão do Xharbour 11.09 e FIVEWIN H11.09 ?? Editado por - cyclonet on 27/10/2011 14:06:43 Editado por - cyclonet on 27/10/2011 16:37:25

Prezado, A responsabilidade e total da Empresa, seja o arquivo gerado pelo Contador ou pela Empresa, porém, se a Empresa possui software onde controla entrada(Compras) e saídas(vendas) de mercadoria, porque não gerar o arquivo SPED automaticamente, evitando re-trabalho. Já temos em nossos sistemas a geração do SPED, caso pudermos ajudar, nos colocamos a sua disposição.

Pessoal, a coisa é bem complexa mesmo, concordo em tudo com nosso amigo edmarfrazao, acrescentando ainda, que o cliente deve ter total confiança no sistema dele, independente do seu Contador, este deverá apenas conferir. Já passei por tudo isto, e oriento a quem for desenvolver neste sentido que deverá aprender leis tributárias, contabilidade e tudo que irá envolver no processo destas rotinas. Meus sistemas geram arquivos para o SPED EFD, ECD Pis/Cofins e digo, haja saco. Abraços a todos. Ah, desculpe não me apresentei, entrei a pouco tempo na comunidade e espero contribuir com meus conhecimentos.