private static string modo = "N"; //NORMAL OU LISTA
public static void BTN_BUSCALISTA(string vnm_colunas, EditDefault edit, CamadaDados.TDataQuery vclasse, string vParamFixo)
{
modo = "L";
BTN_BUSCA(vnm_colunas, new EditDefault[] { edit }, vclasse, vParamFixo);
modo = "N";
}
public void adicionaMSGErro(string msg)
{
grid_Resultado.Visible = false;
tabPageResult.Controls.Clear();
EditDefault edit = new EditDefault();
edit.Text = msg;
edit.ReadOnly = true;
edit.Multiline = true;
edit.ForeColor = Color.Red;
edit.Dock = DockStyle.Fill;
tabPageResult.Controls.Add(edit);
DS_SQL.Focus();
}
private void ncm_Leave(object sender, EventArgs e)
{
if (!string.IsNullOrWhiteSpace(ncm.Text))
{
EditDefault cadNcm = new EditDefault();
cadNcm.Text = ncm.Text;
string vColunas = "a.ncm|=|'" + ncm.Text.Trim() + "'";
DataRow linha = UtilPesquisa.EDIT_LEAVE(vColunas, new EditDefault[] { ncm, ds_ncm },
new TCD_CadNCM());
if (linha == null)
{
if (cadNcm.Text.SoNumero().Trim().Length != 8)
{
MessageBox.Show("NCM incorreto!", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
InputBox ibp = new InputBox();
ibp.Text = "NCM";
string ds = ibp.ShowDialog();
if (string.IsNullOrEmpty(ds))
{
MessageBox.Show("Obrigatorio informar descrição NCM.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
try
{
CamadaNegocio.Fiscal.TCN_CadNCM.GravarNCM(
new CamadaDados.Fiscal.TRegistro_CadNCM()
{
NCM = cadNcm.Text,
Ds_NCM = ds
});
MessageBox.Show("NCM gravado com sucesso.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
ncm.Text = cadNcm.Text;
ds_ncm.Text = ds;
}
catch (Exception ex)
{
MessageBox.Show(ex.Message.Trim(), "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error);
return;
}
}
}
}
private void edtDs_cidade_KeyDown(object sender, KeyEventArgs e)
{
if (e.KeyCode.Equals(Keys.Enter) && edtDs_cidade.Text.Trim().Length.Equals(0))
{
EditDefault cd_cidade = new EditDefault();
cd_cidade.NM_Campo = "CD_CIDADE";
cd_cidade.NM_CampoBusca = "CD_CIDADE";
cd_cidade.NM_Param = "@P_CD_CIDADE";
string vColunas = "DS_Cidade|Nome Cidade|250;" +
"CD_Cidade|Cód. Cidade|100;" +
"Distrito|Distrito|200;" +
"a.UF|Sigla|60;" +
"b.DS_UF|Estado|100";
UtilPesquisa.BTN_BUSCA(vColunas,
new Componentes.EditDefault[] { cd_cidade, edtDs_cidade },
new TCD_CadCidade(),
string.Empty);
(bsClifor.Current as TRegistro_Clifor).cd_cidade = cd_cidade.Text;
}
}
private void BB_AdcLista_Click(object sender, EventArgs e)
{
EditDefault edit = new EditDefault();
edit.NM_CampoBusca = "CD_Produto";
string vColunas = "DS_Produto|Descrição Produto|350;" +
"CD_Produto|Cód. Produto|100;" +
"a.codigo_alternativo|Referencia|80;" +
"a.ds_tecnica|Descrição Tecnica|200;" +
"f.ds_Marca|Marca|100;" +
"b.ds_Unidade|Unidade|100;" +
"b.sigla_unidade|UND|80;" +
"c.ds_Grupo|Grupo|100;" +
"a.cd_condfiscal_produto|Cd. CondFiscal|80;" +
"d.ds_condfiscal_produto|Condição Fiscal|100";
string vParamFixo = "isnull(a.st_registro, 'A')|<>|'C'";
UtilPesquisa.BTN_BUSCALISTA(vColunas, edit, new TCD_CadProduto(), vParamFixo);
string s = edit.Text.Replace("(", "");
s = s.Replace(")", "");
s = s.Replace("'", "");
string[] vs = s.Split(',');
if (vs.Length > 0 && !string.IsNullOrEmpty(s))
{
foreach (string v in vs)
{
TpBusca[] tps = new TpBusca[0];
Estruturas.CriarParametro(ref tps, "a.cd_produto", v);
//Busca do valor unitario
object obj = new CamadaDados.Estoque.TCD_LanPrecoItem().BuscarEscalar(
new TpBusca[]
{
new TpBusca()
{
vNM_Campo = "a.cd_produto",
vOperador = "=",
vVL_Busca = v
},
new TpBusca()
{
vNM_Campo = "a.CD_TabelaPreco",
vOperador = "=",
vVL_Busca = "" + pCd_tabelapreco + ""
},
new TpBusca()
{
vNM_Campo = "a.cd_empresa",
vOperador = "=",
vVL_Busca = "" + pCd_empresa + ""
}
}, "a.vl_precovenda");
decimal value = decimal.Zero;
if (obj != null)
{
if (!string.IsNullOrEmpty(obj.ToString()))
{
value = Convert.ToDecimal(obj.ToString());
}
}
TRegistro_FichaTec tec = new TRegistro_FichaTec()
{
Id_projetostr = (bsFichaTec.Current as TRegistro_FichaTec).Id_projetostr,
Cd_produto = v.SoNumero(),
Ds_produto = new TCD_CadProduto().BuscarEscalar(tps, "a.ds_produto").ToString(),
Quantidade = 1,
Vl_unitario = value,
Vl_subtotal = value
};
lFicha.Add(tec);
}
DialogResult = DialogResult.OK;
}
}
