private void bsLoteSemente_PositionChanged(object sender, EventArgs e)
{
quantidade.Value = (Tp_mov.Trim().ToUpper().Equals("S") ?
(bsLoteSemente.Current as CamadaDados.Sementes.TRegistro_LoteSemente).Qtd_saldo :
((bsLoteSemente.Current as CamadaDados.Sementes.TRegistro_LoteSemente).Qtd_vendida -
(bsLoteSemente.Current as CamadaDados.Sementes.TRegistro_LoteSemente).Qtd_DevVenda));
}
private void quantidade_ValueChanged(object sender, EventArgs e)
{
if (quantidade.Value > 0)
{
if (bsLoteSemente.Current != null)
{
if ((Tp_mov.Trim().ToUpper().Equals("S") ?
(bsLoteSemente.Current as CamadaDados.Sementes.TRegistro_LoteSemente).Qtd_saldo :
((bsLoteSemente.Current as CamadaDados.Sementes.TRegistro_LoteSemente).Qtd_vendida -
(bsLoteSemente.Current as CamadaDados.Sementes.TRegistro_LoteSemente).Qtd_DevVenda)) < quantidade.Value)
{
quantidade.Value = (Tp_mov.Trim().ToUpper().Equals("S") ?
(bsLoteSemente.Current as CamadaDados.Sementes.TRegistro_LoteSemente).Qtd_saldo:
((bsLoteSemente.Current as CamadaDados.Sementes.TRegistro_LoteSemente).Qtd_vendida -
(bsLoteSemente.Current as CamadaDados.Sementes.TRegistro_LoteSemente).Qtd_DevVenda));
}
if (quantidade.Value > qtd_saldo.Value)
{
quantidade.Value = qtd_saldo.Value;
}
}
else
{
quantidade.Value = quantidade.Minimum;
}
}
}
private void TFListaCheques_Load(object sender, EventArgs e)
{
this.Icon = Utils.ResourcesUtils.TecnoAliance_ICO;
pFiltro.set_FormatZero();
if (!string.IsNullOrEmpty(Cd_empresa))
{
cd_empresa.Text = Cd_empresa;
cd_empresa.Enabled = false;
BB_Empresa.Enabled = false;
}
if (Tp_mov.Trim().ToUpper().Equals("P") || Tp_mov.Trim().ToUpper().Equals("R"))
{
RB_TpTitulo_Emitidos.Checked = Tp_mov.Trim().ToUpper().Equals("P");
RB_TpTitulo_Recebidos.Checked = Tp_mov.Trim().ToUpper().Equals("R");
RB_TpTitulo_Recebidos.Enabled = false;
RB_TpTitulo_Emitidos.Enabled = false;
}
}
private bool BuscarNfOrigemLote()
{
//Verificar se ja nao foi amarrado a origem do lote
if (CamadaNegocio.ConfigGer.TCN_CadParamGer.BuscaVL_Bool("APONT_PRODUCAO_SEMENTE", Cd_empresa.Trim(), null).Trim().ToUpper().Equals("S") &&
Tp_mov.Trim().ToUpper().Equals("S"))
{
using (TFPedidoItemSemente fNfOrigem = new TFPedidoItemSemente())
{
fNfOrigem.Cd_empresa = (bsLoteSemente.Current as CamadaDados.Sementes.TRegistro_LoteSemente).Cd_empresa;
fNfOrigem.Cd_amostra = (bsLoteSemente.Current as CamadaDados.Sementes.TRegistro_LoteSemente).Cd_amostra;
fNfOrigem.Qtd_lote = CamadaNegocio.Estoque.Cadastros.TCN_CadConvUnidade.ConvertUnid(
(bsLoteSemente.Current as CamadaDados.Sementes.TRegistro_LoteSemente).Cd_unidade,
(bsLoteSemente.Current as CamadaDados.Sementes.TRegistro_LoteSemente).Cd_unidamostra,
quantidade.Value,
3,
null);
if (fNfOrigem.ShowDialog() == DialogResult.OK)
{
if (fNfOrigem.lNfItem != null)
{
fNfOrigem.lNfItem.ForEach(p =>
{
p.Id_lote = (bsLoteSemente.Current as CamadaDados.Sementes.TRegistro_LoteSemente).Id_lote;
lLoteNfOrigem.Add(p);
});
return(true);
}
else
{
return(false);
}
}
else
{
return(false);
}
}
}
else
{
return(true);
}
}
private void TFListaHistoricos_Load(object sender, EventArgs e)
{
this.Icon = Utils.ResourcesUtils.TecnoAliance_ICO;
//Buscar listagem de historicos
Utils.TpBusca[] filtro = new Utils.TpBusca[2];
filtro[0].vNM_Campo = "isnull(a.cd_grupocf, '')";
filtro[0].vOperador = "=";
filtro[0].vVL_Busca = "''";
filtro[1].vNM_Campo = "isnull(a.st_registro, 'A')";
filtro[1].vOperador = "<>";
filtro[1].vVL_Busca = "'C'";
if (!string.IsNullOrEmpty(Tp_mov))
{
Array.Resize(ref filtro, filtro.Length + 1);
filtro[filtro.Length - 1].vNM_Campo = "a.tp_mov";
filtro[filtro.Length - 1].vOperador = "=";
filtro[filtro.Length - 1].vVL_Busca = "'" + Tp_mov.Trim() + "'";
}
bsHistorico.DataSource = new CamadaDados.Financeiro.Cadastros.TCD_CadHistorico().Select(filtro, 0, string.Empty);
}
private void InserirLote()
{
if (bsLoteSemente.Current != null)
{
if (quantidade.Value > 0)
{
//Montar observacao
string obs = string.Empty;
bool st_folhar = new CamadaDados.Estoque.Cadastros.TCD_CadProduto().ProdutoFolhares((bsLoteSemente.Current as CamadaDados.Sementes.TRegistro_LoteSemente).Cd_produto);
if (!string.IsNullOrEmpty((bsLoteSemente.Current as CamadaDados.Sementes.TRegistro_LoteSemente).Renasem))
{
obs += (st_folhar ? "Registro: " : "Renasem:") + (bsLoteSemente.Current as CamadaDados.Sementes.TRegistro_LoteSemente).Renasem.Trim() + " ";
}
//Formulação
if (!string.IsNullOrEmpty((bsLoteSemente.Current as CamadaDados.Sementes.TRegistro_LoteSemente).Ds_formulacao))
{
obs += "Formulação: " + (bsLoteSemente.Current as CamadaDados.Sementes.TRegistro_LoteSemente).Ds_formulacao.Trim() + " ";
}
//Lote
if (!string.IsNullOrEmpty((bsLoteSemente.Current as CamadaDados.Sementes.TRegistro_LoteSemente).Nr_lote))
{
obs += "Lote:" + (bsLoteSemente.Current as CamadaDados.Sementes.TRegistro_LoteSemente).Nr_lote.Trim() + " ";
}
//Atestado
if (!string.IsNullOrEmpty((bsLoteSemente.Current as CamadaDados.Sementes.TRegistro_LoteSemente).Cd_atestado))
{
obs += "Atest.:" + (bsLoteSemente.Current as CamadaDados.Sementes.TRegistro_LoteSemente).Cd_atestado.Trim() + " ";
}
//Certificado
if (!string.IsNullOrEmpty((bsLoteSemente.Current as CamadaDados.Sementes.TRegistro_LoteSemente).Cd_certificado))
{
obs += "Cert.:" + (bsLoteSemente.Current as CamadaDados.Sementes.TRegistro_LoteSemente).Cd_certificado.Trim() + " ";
}
//% Germinação
if ((bsLoteSemente.Current as CamadaDados.Sementes.TRegistro_LoteSemente).Pc_germinacao > decimal.Zero)
{
obs += "%Germ.:" + (bsLoteSemente.Current as CamadaDados.Sementes.TRegistro_LoteSemente).Pc_germinacao.ToString("N2", new System.Globalization.CultureInfo("pt-BR", true));
}
//% Pureza
if ((bsLoteSemente.Current as CamadaDados.Sementes.TRegistro_LoteSemente).Pc_pureza > decimal.Zero)
{
obs += "%Pureza:" + (bsLoteSemente.Current as CamadaDados.Sementes.TRegistro_LoteSemente).Pc_pureza.ToString("N2", new System.Globalization.CultureInfo("pt-BR", true));
}
//Nº Conformidade
if (!string.IsNullOrEmpty((bsLoteSemente.Current as CamadaDados.Sementes.TRegistro_LoteSemente).Conformidade))
{
obs += "Conformidade:" + (bsLoteSemente.Current as CamadaDados.Sementes.TRegistro_LoteSemente).Conformidade.Trim() + " ";
}
//Val.Germ
if ((bsLoteSemente.Current as CamadaDados.Sementes.TRegistro_LoteSemente).Dt_valgerminacao.HasValue)
{
obs += "Val.Germ:" + (bsLoteSemente.Current as CamadaDados.Sementes.TRegistro_LoteSemente).Dt_valgerminacaostr + " ";
}
//Quantidade
obs += "Qtde " + (bsLoteSemente.Current as CamadaDados.Sementes.TRegistro_LoteSemente).Sigla_unidade.Trim() + ":" + quantidade.Value.ToString("N0", new System.Globalization.CultureInfo("pt-BR", true));
//Verificar se o item ja existe na lista
int index = ItenExiste();
if (index >= 0)
{
//Excluir registro atual
bsLoteNf.RemoveAt(index);
}
decimal?id_formula = null;
if ((bsLoteSemente.Current as CamadaDados.Sementes.TRegistro_LoteSemente).Tp_lote.Trim().ToUpper().Equals("P"))
{
if (CamadaNegocio.ConfigGer.TCN_CadParamGer.BuscaVL_Bool("APONT_PRODUCAO_SEMENTE", Cd_empresa.Trim(), null).Trim().ToUpper().Equals("S"))
{
if (Tp_mov.Trim().ToUpper().Equals("E"))
{
using (TFFormulaEstornoSemente fFormula = new TFFormulaEstornoSemente())
{
fFormula.rSemente = (bsLoteSemente.Current as CamadaDados.Sementes.TRegistro_LoteSemente);
if (fFormula.ShowDialog() == DialogResult.OK)
{
id_formula = fFormula.rSemente.Id_formestorno;
}
}
}
}
if (!BuscarNfOrigemLote())
{
MessageBox.Show("Obrigatorio informar origem do produto.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
}
bsLoteNf.Add(
new CamadaDados.Sementes.TRegistro_LoteSemente_X_NFItem()
{
Cd_empresa = Cd_empresa,
Cd_produto = Cd_produto,
Ds_produto = Ds_produto,
Id_lote = (bsLoteSemente.Current as CamadaDados.Sementes.TRegistro_LoteSemente).Id_lote,
Quantidade = quantidade.Value,
Sigla_unidade = (bsLoteSemente.Current as CamadaDados.Sementes.TRegistro_LoteSemente).Sigla_unidade,
Tp_movimento = St_devolucao ? "D" : "V",
Ds_obsNfItem = obs,
Id_formestorno = id_formula
});
qtd_totallote.Value = SomarLote();
}
else
{
MessageBox.Show("Necessario informar quantidade para adicionar a lista.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
}
}
else
{
MessageBox.Show("Necessario selecionar lote para adicionar a lista.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
}
qtd_totallote.Value = SomarLote();
bsLoteSemente.MoveNext();
}
private void TFSaldoLoteSemente_Load(object sender, EventArgs e)
{
Utils.ShapeGrid.RestoreShape(this, gLoteSemente);
Utils.ShapeGrid.RestoreShape(this, gGridNf);
if (!string.IsNullOrEmpty(Utils.Parametros.pubCultura))
{
Idioma.TIdioma.AjustaCultura(this);
}
Icon = Utils.ResourcesUtils.TecnoAliance_ICO;
pDadosLote.set_FormatZero();
qtd_totalnf.Value = Qtd_nota;
rbVenda.Checked = !St_devolucao;
rbDevVenda.Checked = St_devolucao;
rbDevVenda.Text = St_devolucao ? Tp_mov.Trim().ToUpper().Equals("E") ? "Devolução Venda" : "Devolução Compra" : "Devolução";
//Buscar lista de lotes disponiveis
//Empresa
TpBusca[] filtro = new TpBusca[3];
filtro[0].vNM_Campo = "a.cd_empresa";
filtro[0].vOperador = "=";
filtro[0].vVL_Busca = "'" + Cd_empresa.Trim() + "'";
//Produto
filtro[1].vNM_Campo = "a.cd_produto";
filtro[1].vOperador = "=";
filtro[1].vVL_Busca = "'" + Cd_produto.Trim() + "'";
//Lote Aprovado
filtro[2].vNM_Campo = "isnull(a.st_registro, 'A')";
filtro[2].vOperador = "=";
filtro[2].vVL_Busca = "'P'";
if (St_devolucao && Tp_mov.Trim().ToUpper().Equals("S"))
{
Array.Resize(ref filtro, filtro.Length + 1);
filtro[filtro.Length - 1].vNM_Campo = "a.tp_lote";
filtro[filtro.Length - 1].vOperador = "=";
filtro[filtro.Length - 1].vVL_Busca = "'T'";
}
if (Tp_mov.Trim().ToUpper().Equals("S") && !St_devolucao)
{
Array.Resize(ref filtro, filtro.Length + 2);
//Lote a vencer
filtro[filtro.Length - 2].vNM_Campo = "CONVERT(DATETIME,FLOOR(CONVERT(NUMERIC(30,10),a.dt_valgerminacao)))";
filtro[filtro.Length - 2].vOperador = ">=";
filtro[filtro.Length - 2].vVL_Busca = "CONVERT(DATETIME,FLOOR(CONVERT(NUMERIC(30,10),getdate())))";
//Lote com saldo
filtro[filtro.Length - 1].vNM_Campo = "((isnull(dbo.F_CONVERTE_UNID(f.cd_unidade, d.cd_unidade, a.qtd_lote), a.qtd_lote) - " +
//Notas Vendas
"isnull((select sum(isnull(x.quantidade, 0)) " +
" from tb_sem_lotesemente_x_nfitem x " +
" inner join tb_fat_notafiscal_item y " +
" on x.cd_empresa = y.cd_empresa " +
" and x.nr_lanctofiscal = y.nr_lanctofiscal " +
" and x.id_nfitem = y.id_nfitem " +
" inner join tb_fat_notafiscal z " +
" on y.cd_empresa = z.cd_empresa " +
" and y.nr_lanctofiscal = z.nr_lanctofiscal " +
" inner join tb_fat_notafiscal_cmi cmi " +
" on z.cd_empresa = cmi.cd_empresa " +
" and z.nr_lanctofiscal = cmi.nr_lanctofiscal " +
" where z.tp_movimento = 'S' " +
" and x.tp_movimento = 'D' " +
" and isnull(cmi.st_devolucao, 'N') = 'S' " +
" and isnull(z.st_registro, 'A') <> 'C' " +
" and x.id_lote = a.id_lote), 0)) - " +
//Devolucao Compra
"(isnull((select sum(isnull(x.quantidade, 0)) " +
" from tb_sem_lotesemente_x_nfitem x " +
" inner join tb_fat_notafiscal_item y " +
" on x.cd_empresa = y.cd_empresa " +
" and x.nr_lanctofiscal = y.nr_lanctofiscal " +
" and x.id_nfitem = y.id_nfitem " +
" inner join tb_fat_notafiscal z " +
" on y.cd_empresa = z.cd_empresa " +
" and y.nr_lanctofiscal = z.nr_lanctofiscal " +
" inner join tb_fat_notafiscal_cmi cmi " +
" on z.cd_empresa = cmi.cd_empresa " +
" and z.nr_lanctofiscal = cmi.nr_lanctofiscal " +
" where z.tp_movimento = 'S' " +
" and isnull(z.st_registro, 'A') <> 'C' " +
" and x.tp_movimento = 'V' " +
" and isnull(cmi.st_devolucao, 'N') <> 'S' " +
" and x.id_lote = a.id_lote ), 0) - " +
//Devolucao Venda
"isnull((select sum(isnull(x.quantidade, 0)) " +
" from tb_sem_lotesemente_x_nfitem x " +
" inner join tb_fat_notafiscal_item y " +
" on x.cd_empresa = y.cd_empresa " +
" and x.nr_lanctofiscal = y.nr_lanctofiscal " +
" and x.id_nfitem = y.id_nfitem " +
" inner join tb_fat_notafiscal z " +
" on y.cd_empresa = z.cd_empresa " +
" and y.nr_lanctofiscal = z.nr_lanctofiscal " +
" inner join tb_fat_notafiscal_cmi cmi " +
" on z.cd_empresa = cmi.cd_empresa " +
" and z.nr_lanctofiscal = cmi.nr_lanctofiscal " +
" where z.tp_movimento = 'E' " +
" and x.tp_movimento = 'D' " +
" and isnull(cmi.st_devolucao, 'N') = 'S' " +
" and isnull(z.st_registro, 'A') <> 'C' " +
" and x.id_lote = a.id_lote), 0))) ";
filtro[filtro.Length - 1].vOperador = ">";
filtro[filtro.Length - 1].vVL_Busca = "0";
}
bsLoteSemente.DataSource = new CamadaDados.Sementes.TCD_LoteSemente().Select(filtro, 0, string.Empty);
}