Luiz Arruda (ICO) Posted July 1, 2011 Report Share Posted July 1, 2011 Boa Tarde a todos Pessoal.. preciso URGENTE de um cadastro de bandeija com código de barras, tipo a de frios que a gente vê no S.mercado a coisa tá pegando tanto que preciso disto para Terca-feira, é um pequeno sistema que vai ter no máximo 4 ou 5 Functions, é bem simples mesmo senão não pegaria com tão pouco tempo, só que nem o PRG de abertura iniciei ainda. Vou passar o final de semana no ralo.. Se alguém puder ajudar pra eu ir adiantando agradeço.. Desde já obrigado Abraços.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | TWT: @ico_Luiz FiveWin 9.04 [x]Harbour PellesC Bcc Ws Para saber o que vem pela frente, fale com quem está voltando Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted July 1, 2011 Author Report Share Posted July 1, 2011 Boa Tarde a todos Pessoal.. preciso URGENTE de um cadastro de bandeija com código de barras, tipo a de frios que a gente vê no S.mercado a coisa tá pegando tanto que preciso disto para Terca-feira, é um pequeno sistema que vai ter no máximo 4 ou 5 Functions, é bem simples mesmo senão não pegaria com tão pouco tempo, só que nem o PRG de abertura iniciei ainda. Vou passar o final de semana no ralo.. Se alguém puder ajudar pra eu ir adiantando agradeço.. Desde já obrigado Abraços.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | TWT: @ico_Luiz FiveWin 9.04 [x]Harbour PellesC Bcc Ws Para saber o que vem pela frente, fale com quem está voltando Quote Link to comment Share on other sites More sharing options...
kapiaba Posted July 1, 2011 Report Share Posted July 1, 2011 Carissimo, eu acho, mas não tenho certeza, que você precisa de uma BALANÇA FILIZOLA, que pesa e já solta o código de barras do produto. igual a secção de carnes/pães do um supermercado. Não precisa conexão com o cumputador. Pesa e solta o código... uma sugestão. 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 Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted July 1, 2011 Author Report Share Posted July 1, 2011 Certo.. é que a dona do "negócio" quer cadastrar o que vai sair usando o código de barra emitido, logo o sistema que vai controlar isso tem que bater com o da balança, por isso que nem sei por onde começar. Se não tiver jeito ligo pra ela e digo "impossivel" Inté mais... Luiz Arruda Corumbá-MS ico.corumba@gmail.com | TWT: @ico_Luiz FiveWin 9.04 [x]Harbour PellesC Bcc Ws Para saber o que vem pela frente, fale com quem está voltando Quote Link to comment Share on other sites More sharing options...
kapiaba Posted July 1, 2011 Report Share Posted July 1, 2011 Me de uma email, que eu envio um link para voce baixar meu programa, e ver como é meu cadastro de produtos. 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 Quote Link to comment Share on other sites More sharing options...
SAOliveira Posted July 1, 2011 Report Share Posted July 1, 2011 Nada ÃmpossÃvel. Se for realmente como acougue/hoti/padaria/etc de supermercado que vai pesando e etiquetando, tem que ter uma balança que emita as referidas etiquetas. No caixa, o sistema le o codigo de barras do produto. "Me interessa o futuro porque é o lugar onde vou passar o resto da minha vida." Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted July 1, 2011 Author Report Share Posted July 1, 2011 Sergio.. me explica uma coisa ; A dona vai pesar as bandeijas e emitir as etiquetas, no BD dela vai ficar registrados as saidas dos produtos, ela vai pregar as etiquetas nestas bandeijas, ao chegar lá no Supermercado para entrega-las, o leitor deles vai ler o código de barra normalmente ? Abraços.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | TWT: @ico_Luiz FiveWin 9.04 [x]Harbour PellesC Bcc Ws Para saber o que vem pela frente, fale com quem está voltando Editado por - ico on 01/07/2011 15:26:18 Quote Link to comment Share on other sites More sharing options...
Luisão Posted July 1, 2011 Report Share Posted July 1, 2011 Luiz, não sei como você vai fazer como balança. Aqui lemos o peso de uma balança através de um TXT gerado por ela e depois imprimimos a etiqueta numa impressora térmica. Temos também impressão de código de barras para controle de lotes. O que você pode fazer é baixar a fonte 3_OF_9_BARCODE e usar ela via TPrinter mesmo. Codifica como você desejar, por exemplo *COD|PESO*. Se não me engano, sem colocar o asterisco no texto, as barras não aparecem. Espero que ajude. Luis Fernando Jr. (Luisão) Leme/SP -- FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY luis.fernando.majr@gmail.com juninho_luisao@hotmail.com (só msn) Skype luis.fernando.jr http://www.luisfernandojr.com Quote Link to comment Share on other sites More sharing options...
sambomb Posted July 1, 2011 Report Share Posted July 1, 2011 Existe o arquivo de configuração da balança onde você exporta os arquivos, qual balança que é? Filizola ou Toledo? RCA Sistemas - Itaocara - RJ Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted July 1, 2011 Author Report Share Posted July 1, 2011 citação:Existe o arquivo de configuração da balança onde você exporta os arquivos, qual balança que é? Filizola ou Toledo? RCA Sistemas - Itaocara - RJ id=quote>id=quote>Xiii agora pegou.. vou correr atrás das informações juntar tudo depois posto.. É que o contador da pessoa veio até aqui no escritorio (foi meu cliente muitos anos quando eu programa comercialmente)id=size1> comentou espiculou, explicou e eu não perguntei "detalhes", disse a ele que entraria em contato amanha 02/07 p/ dar uma posição se faria ou não, eles estão com um projeto em Delphi de outra pessoa só que o outro programador disse demoraria pelo menos 30 dias, e como é simples, ela precisa p/ quarta-feira, logo na terca-feira o programa tem que estar instalado. Mais se vai ser complicado, peço mais prazo ao invés de fazer algo na correria e depois dar errado. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | TWT: @ico_Luiz FiveWin 9.04 [x]Harbour PellesC Bcc Ws Para saber o que vem pela frente, fale com quem está voltando Editado por - ico on 01/07/2011 16:28:34 Quote Link to comment Share on other sites More sharing options...
SAOliveira Posted July 1, 2011 Report Share Posted July 1, 2011 Xiiii!!! tem boi na linha. Explica direito. 1 - Seu cliente vai vender para mercados, produto que ele embala/fabrica. 2 - Ele é o mercado que vai pesar o produto, tipo no açougue, e cliente põe no carrinho e vai para o caixa pagar. Se a opção for 1, tem que requerer na EAN Brasil (acho) o código de barras de envazador/fabricante. O codigo de barras EAN13 é construido assim. Ex.: 789 12345 1234 1 Onde: 789 = Produzido no brasil para benda interna 12345 = codigo de fornecedor fornecido pela EAN Brasil 1234 = código do produto 1 = Digito verificador, automatico na maioria dos leitores. **--** Função para calcular o digito verificador. PRIVATE num:= Subs(StrZero(Val(Variavel),13),1,12) PRIVATE xDig:=Subs(StrZero(Val(Variavel),13),13,1) PRIVATE digito:= {0}, t, dig_ver, par, impar, x, y FOR T = 1 TO 12 AAdd(digito, Val(SubStr(num, 12 - t + 1, 1))) NEXT par:= digito[12] + digito[10] + digito[ 8] + digito[6] + digito[4] + digito[2] impar:= digito[13] + digito[11] + digito[9] + digito[7] + digito[5] + digito[3] x:= par * 3 + impar y := Int(x / 10) * 10 IF(Int(x / 10) != x / 10) y:= (Int(x / 10) + 1) * 10 ENDIF p_digver:= y - x IF(Str(p_DigVer,1) # xDig) MsgStop("Código de barras inválido.","..:: Atenção ::..") RETURN(.f.) ENDIF Endifid=code>id=code> "Me interessa o futuro porque é o lugar onde vou passar o resto da minha vida." Editado por - S.A.Oliveira on 01/07/2011 17:05:18 Quote Link to comment Share on other sites More sharing options...
sambomb Posted July 1, 2011 Report Share Posted July 1, 2011 Pelo que eu vi aqui nas minhas rotinas, parte do código de barra da balança é o código que vc exporta, e parte é o peso (ou unidades) identificado na balança.. RCA Sistemas - Itaocara - RJ Quote Link to comment Share on other sites More sharing options...
crisvam Posted July 3, 2011 Report Share Posted July 3, 2011 citação:Boa Tarde a todos Pessoal.. preciso URGENTE de um cadastro de bandeija com código de barras, tipo a de frios que a gente vê no S.mercado a coisa tá pegando tanto que preciso disto para Terca-feira, é um pequeno sistema que vai ter no máximo 4 ou 5 Functions, é bem simples mesmo senão não pegaria com tão pouco tempo, só que nem o PRG de abertura iniciei ainda. Vou passar o final de semana no ralo.. Se alguém puder ajudar pra eu ir adiantando agradeço.. Desde já obrigado Abraços.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | TWT: @ico_Luiz FiveWin 9.04 [x]Harbour PellesC Bcc Ws Para saber o que vem pela frente, fale com quem está voltando id=quote>id=quote>Veja se ajuda http://www.linhabase.com.br/biblioteca/publicacoes/gtin-para-nota-fiscal-eletronica/index.html Crisvam - xHarbour_FWH_10.11 - Whorkshop Quote Link to comment Share on other sites More sharing options...
Ariston Santos Posted July 3, 2011 Report Share Posted July 3, 2011 Mesmo que atrasado, vou tentar ajudar, isto é, se é que eu entendi sua necessidade. Se seu objetivo é fazer com que seu aplicativo “entenda†o código de barras impresso pela balança, leve em consideração o seguinte: 1º - O código da balança é composto de informações como: a) Código identificador de “item in storeâ€, geralmente é o número â€2â€; Código do produto na balança com 4 a 5 posições, dependendo da balança; c) Preço ou peso do produto, dependendo da balança; d) DÃgito verificador EAN-13 (Um número calculado conforme norma). Assim sendo, para o código abaixo podemos ter as seguintes possibilidades: Código 200020000500X a) O primeiro dÃgito sempre será identificador de “item in storeâ€. Você pode se basear neste item para determinar que o código é da balança, pois os demais códigos no padrão EAN-13 geralmente iniciam com um número maior ou igual a “7â€; Os seis dÃgitos seguintes “000200†correspondem ao código do produto na balança, que pode ser 2, 20 ou 200, dependendo da balança. Se For 2, ou 20, você deve ignorar o zero adicional. c) Os cinco dÃgitos seguintes “00500†podem ser o preço (R$ 5,00 – Cinco reais) ou o peso (0,500g – quinhentos gramas), dependendo da balança. Confirme isso observando a etiqueta impressa. d) O último número “X†é código verificador. Você deve criar uma tela de configuração em seu programa para gravar as definições da balança, tipo: De quantos dÃgitos o número do item é composto no código: [___] O código vem com o [_] Preço / [X] Peso do produto. Então, subtraia o número do item do código e faça uma busca na sua base de dados. Pegue o peso para determinar o preço, ou o preço para determinar o peso. No meu sistema, a codificação está assim: // Procurar o código da balança cCdBal := "200020000500X" nLenCdb := 4 // Suponhamos que o número do produto contenha 4 dÃgitos lRetBal := 1 // 1=Código de barras contém o peso; 2=Contem o preço lBalanca := .F. // Não encontrei o número ainda IF ChecarEAN13(cCdBal) // Tem que ser EAN-13 IF nLenCdb < 3 MsgStop("A etiqueta não está configurada corretamente nas configurações gerais!","Atenção!...") RETURN .F. ENDIF cDgInic := LEFT(cCdBal,1) IF cDgInic = "1" .OR. cDgInic = "2" // Tem que iniciar com 1 ou 2 PRODUTOS->(DBSETORDER(5)) // No meu caso, tenho um campo especÃfico para salvar o número da balança IF ! PRODUTOS->(DBSEEK(STRZERO(VAL(SUBSTR(cCdBal,2,nLenCdb)),6))) MsgAlert("CÓDIGO NÃO ENCONTRADO!","ATENÇÃO") RETURN .F. ENDIF lBalanca := .T. // Encontrei o número da balança ENDIF ENDIF mQtd := 1 // Por padrão, a quantidade é 1 nPre := 5.00 // Temos que pegar o preço do produto no banco de dados nTot := nPre * mQtd // Total IF lBalanca IF lRetBal = 1 // mQtd := ((1000/nPre) * (VAL(SUBSTR(cCdBal,7,6)) / 100) ) / 1000 // E achar o preço pelo peso ELSEIF lRetBal = 2 mQtd := VAL(SUBSTR(cCdBal,8,5)) / 1000 // Obter a quantidade do código nTot := nPre * mQtd // Determinar o total ENDIF ENDIF // Daqui pra frente, processo os dados obtidos como desejar... *------------------------( Testar se o código é EAN-13 )----------------------* FUNCTION ChecarEAN13(oCod) LOCAL lConfere := .F. IF VAL(oCod) < 1000000000000; RETURN .F.; ENDIF nCod := LEFT(oCod,12) Twk:=0 For Twi:=Len(nCod) To 1 Step -1 Twj := Val(Subs(nCod, Twi, 1)) If (Mod(Len(nCod) - Twi, 2) == 0) Twj := Twj * 3 EndIf Twk := Twk + Twj Next Twk := Mod(10 - Mod(Twk,10), 10) IF STR(Twk,1) = RIGHT(oCod,1) lConfere := .T. ELSE lConfere := .F. ENDIF RETURN(lConfere) id=code>id=code> Conheça o Pacote Fivewin em http://www.arsoft-ap.com.br - "Leia a BÃblia diariamente" Editado por - j_arist on 03/07/2011 22:28:48 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.