Pesquisar na Comunidade

Existem fontes do ACBr em Visual Basic ou somente em Delphy ? As DLL's funcionam bem com Visual Basic 6 ?

Bom dia Venho por esse poste pedir por gentileza ajuda pois sou iniciante, estou com um problema para gerar uma etiqueta no padrão GS1. Pois não encontro as instruções para gerar os código em EAN-128 ou GS1-128 na linguagem PPLA. Apenas conseguir encontrar no manuais de programação CODE 128 que não segue o padrão da GS1. Se alguém tiver um exemplo ou manusear o meu código que vou deixar abaixo agradeço. Os código de barra estão destacados em vermelho. Print #1, "1X1100007530010L224003" Print #1, "4X1100004530231L003300" Print #1, "421100704600200" & "TOTAL TARE/TARA TOTAL:" Print #1, "421100706700200" & "0,44Kg" Print #1, "421100704600190" & "BOX TARE/TARA DA CAIXA:" Print #1, "421100706700190" & "0,00Kg" Print #1, "421100704600180" & "PACKAGING TARE/TARA EMBALAGEM:" Print #1, "421100706700180" & "0,44Kg" Print #1, "1X1100004530166L003300" Print #1, "421100704600155" & "SSCC-CODIGO DE SERIE DA UNIDADE LOGISTICA" Print #1, "421100704600165" & "78989372600000047" Print #1, "1X1100004530141L003300" Print #1, "421100704600130" & "PROCESSO#/Nº REGISTRO PROCESSADOR" Print #1, "421100704600140" & "0760582" Print #1, "1X1100004530116L003300" Print #1, "421100706300105" & "NOME DO PRODUTO" Print #1, "421100706300115" & "AGUA DE COCO VERDE" Print #1, "1X1100006230093L023003" Print #1, "421100704600105" & "GROSS WEIGHT(kg)/PESO BRUTO" Print #1, "421100704600115" & "4,35Kg" Print #1, "1X1100004530091L003300" Print #1, "421100705800080" & "PROD DATE/DATA DE PROD." Print #1, "421100705800090" & "01/06/2016" Print #1, "1X1100005730068L023003" Print #1, "421100704600080" & "BATH/LOTE" Print #1, "421100704600090" & "b1c1" Print #1, "1X1100004530066L003300" Print #1, "421100706300055" & "VAR.COUNT/QUANT.VAR." Print #1, "421100706300065" & "12" Print #1, "1X1100006230043L023003" Print #1, "421100704600055" & "SELL BY/DATA DE VALIDADE" Print #1, "421100704600065" & "28/11/2016" Print #1, "1X1100004530041L003300" Print #1, "421100705800025" & "NET WEIGHT(KG)/PESO LIQUIDO" Print #1, "431100705800040" & "3,96KG" Print #1, "1X1100005730011L030003" Print #1, "421100704600025" & "GTIN" Print #1, "421100704600035" & "97898357410018" Print #1, "1X1100004530010L003300" Print #1, "1X1100004500010L224003" Print #1, "4e6310000300120C" & "0197898357410018310200039633020004353012" Print #1, "421100700700130" & "(01)97898357410018(3102)000396(3302)000435(30)12" Print #1, "4e6210000200240" & "15161128111606017030076058210b1c1" Print #1, "421100701050250" & "(15)161128(11)160601(7030)0760582(10)b1c1" Print #1, "4e7408000800340C" & "00078989372600000047" Print #1, "421100701550350" & "(00)078989372600000047" Print #1, "442200705500300" & "CAIXA" Print #1, "421100705500340" & "340/000000000505050" Obrigado por enquanto.

Boa tarde. Iniciei a poucos dias o estudo sobre comunicação via socket de uma aplicação .net com o ACbrMonitorPlus, porém estou travado. Fiz testes com o acesso via arquivo de texto e tudo correu bem, porém via socket estou tendo dificuldades. Olhei os exemplos de código e aparentemente estou no caminho correto, consigo conectar ao ACbrMonitorPlus mas o comando não é enviado. Abaixo o código simplificado que estou usando atualmente: Dim Retorno As String = "" Dim tcpClient As New TcpClient() tcpClient.Connect("localhost", 3434) Dim networkStream As NetworkStream = tcpClient.GetStream Dim sendBytes As Byte() = System.Text.Encoding.ASCII.GetBytes("SAT.ATIVAR") networkStream.Write(sendBytes, 0, sendBytes.Length) networkStream.Flush() Dim ReceiveBytes(tcpClient.ReceiveBufferSize) As Byte networkStream.Read(ReceiveBytes, 0, CInt(tcpClient.ReceiveBufferSize)) ' exibe os dados recebidos do host no console Dim returndata As String = System.Text.Encoding.ASCII.GetString(ReceiveBytes) MsgBox(("Host retornou : " + returndata)) Desculpem se pareço um pouco leigo, é que relamente por enquanto estou nesse nível, obrigado pela compreensão.

Pessoal, Estou tentando fazer a comunicação via TCP no ACBRMonitorPlus e não está funcionando. Alguém tem algum funcionando? em VB6. Abracos