| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
oneshotbr
Colaborador
Registrado: Quarta-Feira, 6 de Mai de 2009
Mensagens: 1948
Localização: Taubaté - SP
|
 Enviada: Qua Fev 19, 2014 2:45 pm Assunto: Carga em balanças acbrBal RESOLVIDO |
 |
|
Boa tarde galera,
Estou precisando dar carga em balança com meu sistema para isso eu usaria o componente acbrBal?
Eu procurei material na internet e não achei nada.
_________________
AMD Phenom II X4 960T 3.00 GHz - 8 GB DDR III - HD 1000 GB SATA - GeForce GTX 650 TI GDDR 5 - Monitor 21,5" Full HD - Kubuntu 14.04 + Windows 7 Professional x64.
Editado pela última vez por oneshotbr em Qui Mar 20, 2014 9:20 am, num total de 1 vez |
|
| Voltar ao Topo |
|
 |
Ghost_Rider
Colaborador
Registrado: Segunda-Feira, 6 de Outubro de 2003
Mensagens: 4437
|
| Enviada: Qua Fev 19, 2014 6:41 pm Assunto: |
|
|
| Eu particularmente uso os softwares das próprias balanças, nada contra o acbr, mas acho mais simples... |
|
| Voltar ao Topo |
|
|
oneshotbr
Colaborador
Registrado: Quarta-Feira, 6 de Mai de 2009
Mensagens: 1948
Localização: Taubaté - SP
|
| Enviada: Qua Fev 19, 2014 7:48 pm Assunto: |
|
|
| Citação: | | Eu particularmente uso os softwares das próprias balanças, nada contra o acbr, mas acho mais simples... |
Ghost_rider,
Dai você faz uma importação para cada balança certo? É só gerar o .txt e depois importar com o software da balança.
_________________
AMD Phenom II X4 960T 3.00 GHz - 8 GB DDR III - HD 1000 GB SATA - GeForce GTX 650 TI GDDR 5 - Monitor 21,5" Full HD - Kubuntu 14.04 + Windows 7 Professional x64. |
|
| Voltar ao Topo |
|
|
Ghost_Rider
Colaborador
Registrado: Segunda-Feira, 6 de Outubro de 2003
Mensagens: 4437
|
| Enviada: Qui Fev 20, 2014 8:22 am Assunto: |
|
|
| Sim...bem simples |
|
| Voltar ao Topo |
|
|
oneshotbr
Colaborador
Registrado: Quarta-Feira, 6 de Mai de 2009
Mensagens: 1948
Localização: Taubaté - SP
|
| Enviada: Qui Fev 20, 2014 9:52 am Assunto: |
|
|
Vou dar uma pesquisada então!
Parece que o acbrBal não é para exportação!
Eu preciso exportar só para filizola e toledo.
_________________
AMD Phenom II X4 960T 3.00 GHz - 8 GB DDR III - HD 1000 GB SATA - GeForce GTX 650 TI GDDR 5 - Monitor 21,5" Full HD - Kubuntu 14.04 + Windows 7 Professional x64. |
|
| Voltar ao Topo |
|
|
oneshotbr
Colaborador
Registrado: Quarta-Feira, 6 de Mai de 2009
Mensagens: 1948
Localização: Taubaté - SP
|
| Enviada: Qui Fev 20, 2014 9:57 am Assunto: |
|
|
Ghost_rider,
Onde acho o que eu preciso gerar no meu txt? Campos e colunas para a exportação para o programa smart?
_________________
AMD Phenom II X4 960T 3.00 GHz - 8 GB DDR III - HD 1000 GB SATA - GeForce GTX 650 TI GDDR 5 - Monitor 21,5" Full HD - Kubuntu 14.04 + Windows 7 Professional x64. |
|
| Voltar ao Topo |
|
|
oneshotbr
Colaborador
Registrado: Quarta-Feira, 6 de Mai de 2009
Mensagens: 1948
Localização: Taubaté - SP
|
| Enviada: Qui Fev 20, 2014 1:23 pm Assunto: |
|
|
Consegui exportar usando o acbrCargaBal.
Mas o smart aceita a importação só que ele parece não listar meus produtos.
| Código: | if cbModelo.Text = '' then
begin
ShowMessage('Selecione um modelo de balança.');
abort;
end
else
begin
try
ACBrCargaBal1.Modelo := TACBrCargaBalModelo(cbModelo.ItemIndex);
// adição dos itens que serão gerados no arquivo
dsProdutos.DataSet.First;
ACBrCargaBal1.Produtos.Clear;
while not dsProdutos.DataSet.Eof do
begin
if dsProdutos.DataSet.FieldByName('EXPORTARBALANCA').AsString = 'S' then
begin
with ACBrCargaBal1.Produtos.New do
begin
ModeloEtiqueta := 1;
Tipo := tpvPeso;
Codigo := I;
Descricao := Format(dsProdutos.DataSet.FieldByName('NOME').AsString, [I]);
ValorVenda := dsProdutos.DataSet.FieldByName('PRECO').AsFloat;
Validade := 15;
Tecla := 0;
Receita := Format(dsProdutos.DataSet.FieldByName('NOME').AsString, [I]);
Setor.Codigo := 1;
Setor.Descricao := 'GERAL';
Nutricional.Codigo:=I;
Nutricional.Qtd :=1;
Nutricional.UndPorcao := tpGramas;
Nutricional.PartInteira :=1;
Nutricional.PartDecimal:= tpPara12;
Nutricional.MedCaseira := tpColherSopa;
Nutricional.ValorEnergetico := 20;
Nutricional.Carboidrato := 2;
Nutricional.Proteina := 3;
Nutricional.GorduraTotal:= 4;
Nutricional.GorduraSaturada:=5;
Nutricional.GorduraTrans := 6;
Nutricional.Fibra := 7;
Nutricional.Sodio :=8;
dsProdutos.DataSet.Next;
end
end
else
dsProdutos.DataSet.Next;
end;
ACBrCargaBal1.GerarArquivos(edtDiretorio.Text);
ShowMessage('Arquivo gerado com sucesso!');
Close;
except
on E: Exception do
begin
// todo erro do componente levanta uma excessão
ShowMessage('Ocorreu o seguinte erro:' + sLineBreak + E.Message);
end;
end;
end; |
_________________
AMD Phenom II X4 960T 3.00 GHz - 8 GB DDR III - HD 1000 GB SATA - GeForce GTX 650 TI GDDR 5 - Monitor 21,5" Full HD - Kubuntu 14.04 + Windows 7 Professional x64. |
|
| Voltar ao Topo |
|
|
mauricio2055
Novato
Registrado: Sexta-Feira, 19 de Fevereiro de 2021
Mensagens: 2
|
| Enviada: Sex Fev 19, 2021 4:28 pm Assunto: Resolveu ? |
|
|
| oneshotbr escreveu: | Consegui exportar usando o acbrCargaBal.
Mas o smart aceita a importação só que ele parece não listar meus produtos.
| Código: | if cbModelo.Text = '' then
begin
ShowMessage('Selecione um modelo de balança.');
abort;
end
else
begin
try
ACBrCargaBal1.Modelo := TACBrCargaBalModelo(cbModelo.ItemIndex);
// adição dos itens que serão gerados no arquivo
dsProdutos.DataSet.First;
ACBrCargaBal1.Produtos.Clear;
while not dsProdutos.DataSet.Eof do
begin
if dsProdutos.DataSet.FieldByName('EXPORTARBALANCA').AsString = 'S' then
begin
with ACBrCargaBal1.Produtos.New do
begin
ModeloEtiqueta := 1;
Tipo := tpvPeso;
Codigo := I;
Descricao := Format(dsProdutos.DataSet.FieldByName('NOME').AsString, [I]);
ValorVenda := dsProdutos.DataSet.FieldByName('PRECO').AsFloat;
Validade := 15;
Tecla := 0;
Receita := Format(dsProdutos.DataSet.FieldByName('NOME').AsString, [I]);
Setor.Codigo := 1;
Setor.Descricao := 'GERAL';
Nutricional.Codigo:=I;
Nutricional.Qtd :=1;
Nutricional.UndPorcao := tpGramas;
Nutricional.PartInteira :=1;
Nutricional.PartDecimal:= tpPara12;
Nutricional.MedCaseira := tpColherSopa;
Nutricional.ValorEnergetico := 20;
Nutricional.Carboidrato := 2;
Nutricional.Proteina := 3;
Nutricional.GorduraTotal:= 4;
Nutricional.GorduraSaturada:=5;
Nutricional.GorduraTrans := 6;
Nutricional.Fibra := 7;
Nutricional.Sodio :=8;
dsProdutos.DataSet.Next;
end
end
else
dsProdutos.DataSet.Next;
end;
ACBrCargaBal1.GerarArquivos(edtDiretorio.Text);
ShowMessage('Arquivo gerado com sucesso!');
Close;
except
on E: Exception do
begin
// todo erro do componente levanta uma excessão
ShowMessage('Ocorreu o seguinte erro:' + sLineBreak + E.Message);
end;
end;
end; |
|
|
|
| Voltar ao Topo |
|
|
mauricio2055
Novato
Registrado: Sexta-Feira, 19 de Fevereiro de 2021
Mensagens: 2
|
| Enviada: Sex Fev 19, 2021 4:28 pm Assunto: Resolveu ? |
|
|
| oneshotbr escreveu: | Consegui exportar usando o acbrCargaBal.
Mas o smart aceita a importação só que ele parece não listar meus produtos.
| Código: | if cbModelo.Text = '' then
begin
ShowMessage('Selecione um modelo de balança.');
abort;
end
else
begin
try
ACBrCargaBal1.Modelo := TACBrCargaBalModelo(cbModelo.ItemIndex);
// adição dos itens que serão gerados no arquivo
dsProdutos.DataSet.First;
ACBrCargaBal1.Produtos.Clear;
while not dsProdutos.DataSet.Eof do
begin
if dsProdutos.DataSet.FieldByName('EXPORTARBALANCA').AsString = 'S' then
begin
with ACBrCargaBal1.Produtos.New do
begin
ModeloEtiqueta := 1;
Tipo := tpvPeso;
Codigo := I;
Descricao := Format(dsProdutos.DataSet.FieldByName('NOME').AsString, [I]);
ValorVenda := dsProdutos.DataSet.FieldByName('PRECO').AsFloat;
Validade := 15;
Tecla := 0;
Receita := Format(dsProdutos.DataSet.FieldByName('NOME').AsString, [I]);
Setor.Codigo := 1;
Setor.Descricao := 'GERAL';
Nutricional.Codigo:=I;
Nutricional.Qtd :=1;
Nutricional.UndPorcao := tpGramas;
Nutricional.PartInteira :=1;
Nutricional.PartDecimal:= tpPara12;
Nutricional.MedCaseira := tpColherSopa;
Nutricional.ValorEnergetico := 20;
Nutricional.Carboidrato := 2;
Nutricional.Proteina := 3;
Nutricional.GorduraTotal:= 4;
Nutricional.GorduraSaturada:=5;
Nutricional.GorduraTrans := 6;
Nutricional.Fibra := 7;
Nutricional.Sodio :=8;
dsProdutos.DataSet.Next;
end
end
else
dsProdutos.DataSet.Next;
end;
ACBrCargaBal1.GerarArquivos(edtDiretorio.Text);
ShowMessage('Arquivo gerado com sucesso!');
Close;
except
on E: Exception do
begin
// todo erro do componente levanta uma excessão
ShowMessage('Ocorreu o seguinte erro:' + sLineBreak + E.Message);
end;
end;
end; |
|
|
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
