janderson@atron

BigWings e Juliomar Marchetti Com os fontes atualizados fiz as alterações e seguindo as intruções o BigWings executei o ACBrInstall_Trunk2. Passei a informação do lote e importei no MGV e funcionou, agora é possivel informar o lote. O lote é informado no txt quando selecionado o modToledoMGV5, modToledoMGV6 e modToledoMGV7 no arquivo ITENSMGV.TXT Para mim funcionou, vou anexar o .pas com a alteração ACBrCargaBal.pas

Bom dia, Desculpe pela demora xD Vou testar fazer como vc disse e ver se da certo... obrigado Juliomar, atualizei mas o campo de lote não esta disponivel. Olhei nos fontes e foi adicionado a procedure PreencherToledoMGV7 e nela também nao tem como passar o lote. Esta assim stlArquivo.Add(LFIll(Produtos[i].Setor.Codigo, 2) + GetTipoProdutoToledo(Produtos[i].Tipo) + LFIll(Produtos[i].Codigo, 6) + LFIll(Produtos[i].ValorVenda, 6, 2) + LFIll(Produtos[i].Validade, 3) + RFIll(Produtos[i].Descricao, 50) + LFIll(Produtos[i].ObterCodigoInfoExtra(modToledoMGV6), 6)+ // codigo inf extra LFIll('0', 4)+ // codigo imagem LFIll(Produtos[i].Nutricional.Codigo,6)+ // codigo inf nutricional RFill(IntToStr(Produtos[i].ImpValidade), 1)+ // imprime data de validade RFill(IntToStr(Produtos[i].ImpEmbalagem), 1)+ // imprime data embalagem LFIll(Produtos[i].CodigoFornecedor, 4)+ // codigo fornecedor //LFIll('0', 4)+ // codigo fornecedor lFill('0', 12)+ // lote lFill('0', 11)+ // codigo especial LFIll('0', 1)+ // versao do preco LFIll('0', 4)+ // codigo do som LFIll(IntToStr(Produtos[i].CodigoTara),4)+ // codigo da tara //LFIll('0', 4)+ // codigo da tara LFIll(Produtos[i].CodigoFracionador, 4)+ // codigo da fracionador LFIll(Produtos[i].CodigoExtra1, 4)+ // Código do Campo Extra 1 LFIll(Produtos[i].CodigoExtra2, 4)+ // Código do Campo Extra 2 LFIll(Produtos[i].CodigoConservacao, 4)+ // Código da Conservação LFIll(Produtos[i].EAN13Fornecedor, 12) // EAN-13, quando utilizado Tipo de Produto EAN-13 ); a linha do campo lote lFill('0', 12)+ // lote igual na outra procedure PreencherToledo

Estou utilizando o componente ACBrCargaBal para gerar os arquivos par importar no software de balança, pra ser mais exato, estou utilizando o MGV6. Recentemente, recebi a solicitação de que seria preciso enviar junto as informações do produto o campo lote. Manul da toledo do layout de cadastro de itens: https://help.toledobrasil.com/mgv6/v1_6_/Html_Pages/arquivos_de_cadastro.html Nessa imagem, observei que na procedure PreencherToledo existe o campo do lote, mas nao consigo passar a informação que vai ai... Tentei então fazer a alteração no componente e adicionei no private o FLote: Smallint; e no public property Lote: Smallint read FLote write FLote; TACBrCargaBalItem = class private FValorVenda: Currency; FModeloEtiqueta: Smallint; FDescricao: String; FCodigo: Integer; FTipo: TACBrCargaBalTipoVenda; FValidade: Smallint; FLote: Smallint; FTipoValidade: TACBrCargaBalTipoValidade; FSetor: TACBrCargaBalSetor; FNutricional: TACBrCargaBalNutricional; FTara: TACBrCargaBalTaras; FFornecedor: TACBrCargaBalFornecedor; FFracionador: TACBrCargaBalFracionador; FConservacao: TACBrCargaBalConservacao; FCodigoTexto1: Integer; FCodigoTexto2: Integer; FCodigoTexto3: Integer; FCodigoInfoNutr: Integer; FCodigoTara: Integer; FCodigoFornecedor: Smallint; FCodigoFracionador: Smallint; FCodigoConservacao: Smallint; FImpValidade: Smallint; FImpEmbalagem: Smallint; FEAN13Fornecedor: string; FInformacaoExtra: TACBrCargaBalInformacaoExtra; FTeclado: TAcbrCargaBalTeclado; function ObterCodigoInfoExtra(AModelo : TACBrCargaBalModelo) : Integer; Public constructor Create; destructor Destroy; override; property Setor: TACBrCargaBalSetor read FSetor write FSetor; property ModeloEtiqueta: Smallint read FModeloEtiqueta write FModeloEtiqueta; property Tipo: TACBrCargaBalTipoVenda read FTipo write FTipo; property TipoValidade: TACBrCargaBalTipoValidade read FTipoValidade write FTipoValidade; property Codigo: Integer read FCodigo write FCodigo; property ValorVenda: Currency read FValorVenda write FValorVenda; property Validade: Smallint read FValidade write FValidade; property Lote: Smallint read FLote write FLote; property Descricao: String read FDescricao write FDescricao; property InformacaoExtra: TACBrCargaBalInformacaoExtra read FInformacaoExtra write FInformacaoExtra; property Teclado: TAcbrCargaBalTeclado read FTeclado write FTeclado; property Nutricional: TACBrCargaBalNutricional Read FNutricional Write FNutricional; property Tara: TACBrCargaBalTaras Read FTara Write FTara; property Fornecedor: TACBrCargaBalFornecedor Read FFornecedor Write FFornecedor; property Fracionador: TACBrCargaBalFracionador Read FFracionador Write FFracionador; property Conservacao: TACBrCargaBalConservacao Read FConservacao Write FConservacao; property CodigoTexto1: Integer read FCodigoTexto1 write FCodigoTexto1; property CodigoTexto2: Integer read FCodigoTexto2 write FCodigoTexto2; property CodigoTexto3: Integer read FCodigoTexto3 write FCodigoTexto3; property CodigoInfoNutr: Integer read FCodigoInfoNutr write FCodigoInfoNutr; property CodigoTara: Integer Read FCodigoTara Write FCodigoTara Default 0; property CodigoFornecedor: Smallint Read FCodigoFornecedor Write FCodigoFornecedor Default 0; property ImpValidade: Smallint Read FImpvalidade Write FImpvalidade Default 1; property ImpEmbalagem: Smallint Read FImpEmbalagem Write FImpEmbalagem Default 1; property CodigoFracionador: Smallint Read FCodigoFracionador Write FCodigoFracionador Default 0; property CodigoConservacao: Smallint Read FCodigoConservacao Write FCodigoConservacao Default 0; property EAN13Fornecedor: string read FEAN13Fornecedor write FEAN13Fornecedor; end; Na procedure PreencherToledo da primeira imagem, substitui onde estava lFill('0',12)+ // lote por lFill(Produtos[i].Lote, 12)+ // lote Mas, na hora de utilizar e passar o valor da property Lote me retorna o seguinte erro: Caso eu nao tente passar o valor, o projeto compila, mas caso passe, da erro. ACBrCargaBal.pas