private void TFOrcamentoProjeto_Load(object sender, EventArgs e)
{
this.Icon = Utils.ResourcesUtils.TecnoAliance_ICO;
pDados.set_FormatZero();
if (this.rorcamento != null)
{
bsOrcamento.DataSource = new CamadaDados.Faturamento.Orcamento.TList_Orcamento()
{
this.rorcamento
};
tslTotal.Text = rorcamento.lItens.Sum(p => p.Vl_subtotalliq).ToString("N2", new System.Globalization.CultureInfo("pt-BR"));
CD_Empresa.Focus();
}
else
{
bsOrcamento.AddNew();
(bsOrcamento.Current as CamadaDados.Faturamento.Orcamento.TRegistro_Orcamento).St_orcprojeto = "S";
CD_Empresa.Focus();
//Buscar vendedor do login
CamadaDados.Financeiro.Cadastros.TList_CadClifor lVend =
CamadaNegocio.Financeiro.Cadastros.TCN_CadClifor.BuscaVendedor(string.Empty,
Utils.Parametros.pubLogin,
null);
if (lVend.Count > 0)
{
CD_CompVend.Text = lVend[0].Cd_clifor;
NM_CompVend.Text = lVend[0].Nm_clifor;
}
}
}
private void BuscarVendedor()
{
CamadaDados.Financeiro.Cadastros.TList_CadClifor lVend =
CamadaNegocio.Financeiro.Cadastros.TCN_CadClifor.BuscaVendedor(string.Empty,
(string.IsNullOrEmpty(pLogin) ? Utils.Parametros.pubLogin : pLogin),
null);
if (lVend.Count > 0)
{
cd_vendedor.Text = lVend[0].Cd_clifor;
nm_vendedor.Text = lVend[0].Nm_clifor;
}
}
public static void Imprime_Duplicata(bool Altera_relatorio,
List <CamadaDados.Financeiro.Duplicata.TRegistro_LanParcela> lParc,
CamadaDados.Diversos.TList_CadEmpresa lEmpresa,
CamadaDados.Financeiro.Cadastros.TList_CadClifor lSacado,
bool St_imprimir,
bool St_visualizar,
bool St_exportpdf,
string Path_exportpdf,
bool St_enviaremail,
List <string> Destinatarios,
string Titulo,
string Mensagem)
{
FormRelPadrao.Relatorio Relatorio = new FormRelPadrao.Relatorio();
Relatorio.Altera_Relatorio = Altera_relatorio;
System.Windows.Forms.BindingSource Bin = new System.Windows.Forms.BindingSource();
Bin.DataSource = lParc;
Relatorio.DTS_Relatorio = Bin;
Relatorio.Nome_Relatorio = "TFDuplicata";
Relatorio.NM_Classe = "TFDuplicata";
Relatorio.Modulo = "FIN";
Relatorio.Parametros_Relatorio.Add("IMAGEM_RELATORIO", CamadaNegocio.ConfigGer.TCN_CadParamGer.BuscaVlImagem("IMAGEM_RELATORIO", string.Empty, null));
System.Windows.Forms.BindingSource bsEmpresa = new System.Windows.Forms.BindingSource();
bsEmpresa.DataSource = lEmpresa;
System.Windows.Forms.BindingSource bsSacado = new System.Windows.Forms.BindingSource();
bsSacado.DataSource = lSacado;
Relatorio.Adiciona_DataSource("DTS_EMPRESA", bsEmpresa);
Relatorio.Adiciona_DataSource("DTS_SACADO", bsSacado);
Relatorio.Gera_Relatorio(string.Empty,
St_imprimir,
St_visualizar,
St_enviaremail,
St_exportpdf,
Path_exportpdf,
Destinatarios,
null,
Titulo,
Mensagem);
}
private void bb_renovar_Click(object sender, EventArgs e)
{
//Buscar dados clifor
CamadaDados.Financeiro.Cadastros.TList_CadClifor lClifor =
CamadaNegocio.Financeiro.Cadastros.TCN_CadClifor.Busca_Clifor(rDados.Cd_clifor,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
false,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
1,
null);
if (lClifor.Count > 0)
{
lClifor[0].lEndereco = CamadaNegocio.Financeiro.Cadastros.TCN_CadEndereco.Buscar(lClifor[0].Cd_clifor,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
0,
null);
lClifor[0].lContato = CamadaNegocio.Financeiro.Cadastros.TCN_CadContatoCliFor.Buscar(string.Empty,
lClifor[0].Cd_clifor,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
false,
false,
false,
string.Empty,
0,
null);
lClifor[0].lDadosBanc = CamadaNegocio.Financeiro.Cadastros.TCN_CadDados_Bancarios_Clifor.Busca(lClifor[0].Cd_clifor,
string.Empty,
string.Empty,
string.Empty,
null);
using (Financeiro.Cadastros.TFClifor fClifor = new Financeiro.Cadastros.TFClifor())
{
fClifor.Text = "Renovando Cadastro Cliente/Fornecedor";
fClifor.rClifor = lClifor[0];
if (fClifor.ShowDialog() == DialogResult.OK)
{
if (fClifor.rClifor != null)
{
try
{
fClifor.rClifor.Dt_renovacaocadastro = CamadaDados.UtilData.Data_Servidor();
fClifor.rClifor.Loginrenovacao = Utils.Parametros.pubLogin;
CamadaNegocio.Financeiro.Cadastros.TCN_CadClifor.Gravar(fClifor.rClifor, null);
st_renovarcadastro.Checked = false;
dt_renovacaocadastro.Text = fClifor.rClifor.Dt_renovacaocadastrostr;
bb_renovar.Enabled = false;
MessageBox.Show("Cadastro renovado com sucesso.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
bool st_bloqfin = (vl_limitecredito.Value > decimal.Zero) && ((vl_limitecredito.Value - vl_debitoaberto.Value) < vl_financeiro.Value);
bool st_bloqdeb = st_bloq_debitovencido.Checked && vl_debitovencido.Value > decimal.Zero;
if ((!st_bloqfin) && (!st_bloqdeb) && (!st_bloqavulso.Checked))
{
this.St_desbloqueado = true;
this.DialogResult = DialogResult.OK;
}
}
catch (Exception ex)
{
MessageBox.Show(ex.Message.Trim(), "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error);
}
}
}
}
}
}
private void bb_consultar_Click(object sender, EventArgs e)
{
if (string.IsNullOrEmpty(cnpj.Text.SoNumero()) &&
string.IsNullOrEmpty(cpf.Text.SoNumero()))
{
MessageBox.Show("Obrigatorio informar CNPJ ou CPF para realizar consulta.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
if (uf.SelectedIndex < 0)
{
MessageBox.Show("Obrigatorio informar UF para realizar consulta.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
uf.Focus();
return;
}
try
{
//Verificar se o cliente nao existe na base de dados
CamadaDados.Financeiro.Cadastros.TList_CadClifor lClifor =
CamadaNegocio.Financeiro.Cadastros.TCN_CadClifor.Busca_Clifor(string.Empty,
string.Empty,
string.Empty,
cnpj.Text,
cpf.Text,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
false,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
1,
null);
if (lClifor.Count > 0)
{
rclifor = lClifor[0];
rclifor.lEndereco = CamadaNegocio.Financeiro.Cadastros.TCN_CadEndereco.Buscar(rclifor.Cd_clifor,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
0,
null);
}
else
{
rclifor = ConsultaCad.TConsultaCad2.ConsultaCadClifor(cnpj.Text, cpf.Text, uf.Text, rCfgNfe);
}
DialogResult = DialogResult.OK;
}
catch (Exception ex)
{ MessageBox.Show("Não foi possivel consultar CNPJ na base da SEFAZ.\r\n" +
"Realize o cadastro manualmente ou tente nova consulta mais tarde.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Error); }
}
private void ImprimirDuplicata()
{
if (BS_Duplicata.Current != null)
{
//Buscar parcela
TList_RegLanDuplicata lDup =
TCN_LanDuplicata.Busca((BS_Duplicata.Current as TRegistro_LanDuplicata).Cd_empresa,
(BS_Duplicata.Current as TRegistro_LanDuplicata).Nr_lancto.ToString(),
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
false,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
false,
0,
string.Empty,
null);
lDup[0].Parcelas =
new TCD_LanParcela().Select(
new Utils.TpBusca[]
{
new Utils.TpBusca()
{
vNM_Campo = "a.cd_empresa",
vOperador = "=",
vVL_Busca = "'" + lDup[0].Cd_empresa.Trim() + "'"
},
new Utils.TpBusca()
{
vNM_Campo = "a.nr_lancto",
vOperador = "=",
vVL_Busca = "" + lDup[0].Nr_lancto + ""
}
}, 0, string.Empty, string.Empty, string.Empty);
if (lDup.Count > 0)
{
using (FormRelPadrao.TFGerenciadorImpressao fImp = new FormRelPadrao.TFGerenciadorImpressao())
{
//Buscar dados Empresa
CamadaDados.Diversos.TList_CadEmpresa lEmpresa =
CamadaNegocio.Diversos.TCN_CadEmpresa.Busca(lDup[0].Cd_empresa,
string.Empty,
string.Empty,
null);
//Buscar dados do sacado
CamadaDados.Financeiro.Cadastros.TList_CadClifor lSacado =
CamadaNegocio.Financeiro.Cadastros.TCN_CadClifor.Busca_Clifor(lDup[0].Cd_clifor,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
false,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
0,
null);
//Buscar endereco sacado
if (lSacado.Count > 0)
{
lSacado[0].lEndereco =
CamadaNegocio.Financeiro.Cadastros.TCN_CadEndereco.Buscar(lDup[0].Cd_clifor,
lDup[0].Cd_endereco,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
0,
null);
}
fImp.St_enabled_enviaremail = true;
fImp.pCd_clifor = lDup[0].Cd_clifor;
fImp.pMensagem = "DUPLICATAS DO DOCUMENTO Nº" + lDup[0].Nr_docto;
if ((fImp.ShowDialog() == DialogResult.OK) || (fImp.pSt_enviaremail))
{
TCN_LayoutDuplicata.Imprime_Duplicata(Altera_Relatorio,
lDup[0].Parcelas,
lEmpresa,
lSacado,
fImp.pSt_imprimir,
fImp.pSt_visualizar,
fImp.pSt_exportPdf,
fImp.Path_exportPdf,
fImp.pSt_enviaremail,
fImp.pDestinatarios,
"DUPLICATAS(S) DO DOCUMENTO Nº " + lDup[0].Nr_docto,
fImp.pDs_mensagem);
Altera_Relatorio = false;
}
}
}
}
}