private void TFDT_Vencto_PreVenda_Load(object sender, EventArgs e) { Icon = Utils.ResourcesUtils.TecnoAliance_ICO; pDados.set_FormatZero(); bsPreVenda.DataSource = new CamadaDados.Faturamento.PDV.TList_PreVenda() { rprevenda }; vl_venda.Value = (bsPreVenda.Current as CamadaDados.Faturamento.PDV.TRegistro_PreVenda).lItens.Sum(p => p.Vl_subtotal + p.Vl_frete + p.Vl_acrescimo - p.Vl_desconto); vl_juro_fin.Value = (bsPreVenda.Current as CamadaDados.Faturamento.PDV.TRegistro_PreVenda).lItens.Sum(p => p.Vl_juro_fin); vl_devcred.Value = (bsPreVenda.Current as CamadaDados.Faturamento.PDV.TRegistro_PreVenda).Vl_devcred; vl_total.Value = (bsPreVenda.Current as CamadaDados.Faturamento.PDV.TRegistro_PreVenda).DT_Vencto.Sum(p => p.Vl_parcela); if (BS_PARCELAS.Count > 0) { BB_CondPGTO.Select(); } //Buscar solicitação p/ alterar Dt.Vencto if (!string.IsNullOrEmpty(CD_CondPGTO.Text)) { object obj = new CamadaDados.Financeiro.Cadastros.TCD_CadCondPgto().BuscarEscalar( new Utils.TpBusca[] { new Utils.TpBusca() { vNM_Campo = "a.CD_CondPGTO", vOperador = "=", vVL_Busca = "'" + CD_CondPGTO.Text.Trim() + "'" } }, "a.ST_SolicitarDTVencto"); if (obj != null) { if (obj.ToString().Equals("S")) { dt_vencto.Enabled = true; diasvencimento.Enabled = true; } } } //Verificar se Parcelas é a cartão if (St_cartao) { gDt_vencto.Visible = false; rgVencto.Visible = false; parcelasCartao.Location = new Point(6, 41); } else { gId_parcela.Visible = false; } }
private void TFDuplicataPDV_Load(object sender, EventArgs e) { this.Icon = Utils.ResourcesUtils.TecnoAliance_ICO; //Preencher Cond. Pagamento CamadaDados.Financeiro.Cadastros.TList_CadCondPgto lCond = new CamadaDados.Financeiro.Cadastros.TCD_CadCondPgto().Select( new Utils.TpBusca[] { new Utils.TpBusca() { vNM_Campo = "a.qt_parcelas", vOperador = ">", vVL_Busca = "0" } }, 0, string.Empty); cbCondPgto.DataSource = lCond.OrderBy(p => p.Qt_parcelas).ToList(); cbCondPgto.DisplayMember = "ds_condpgto"; cbCondPgto.ValueMember = "cd_condpgto"; //Preencher Config. Boleto CamadaDados.Financeiro.Cadastros.TList_CadCFGBanco lCfgBoleto = CamadaNegocio.Financeiro.Cadastros.TCN_CadCFGBanco.Buscar(string.Empty, string.Empty, rDup.Cd_empresa, string.Empty, string.Empty, string.Empty, "A", string.Empty, 0, null); cbBoleto.DataSource = lCfgBoleto; cbBoleto.DisplayMember = "ds_config"; cbBoleto.ValueMember = "id_config"; bsDuplicata.DataSource = new CamadaDados.Financeiro.Duplicata.TList_RegLanDuplicata() { rDup }; bsDuplicata.ResetCurrentItem(); cbBoleto.Enabled = !rDup.Id_configBoleto.HasValue; }
private void bbBuscar_Click(object sender, EventArgs e) { if (bsDespesas.Current != null) { if (panelDados2.validarCampoObrigatorio()) { if (tp_pagamento.SelectedIndex.Equals(0) && string.IsNullOrWhiteSpace(cd_fornecedor.Text)) { MessageBox.Show("Obrigatório informar fornecedor para tipo de pagamento selecionado.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information); cd_fornecedor.Focus(); return; } else if (tp_pagamento.SelectedIndex.Equals(1) && string.IsNullOrWhiteSpace(cd_funcionario.Text)) { MessageBox.Show("Obrigatório informar funcionário para tipo de pagamento selecionado.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information); cd_funcionario.Focus(); return; } (bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).Cd_empresa = vCd_Empresa; (bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).Id_orcamentostr = vId_Orcamento; (bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).Nr_versaostr = vNr_Versao; //Buscar config abast CamadaDados.Empreendimento.Cadastro.TList_CadCFGEmpreendimento lCfg = CamadaNegocio.Empreendimento.Cadastro.TCN_CadCFGEmpreendimento.Busca((bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).Cd_empresa, string.Empty, null); if (lCfg.Count > 0) { if (string.IsNullOrEmpty(lCfg[0].tp_dup)) { MessageBox.Show("Não existe Tp.duplicata na CFG.empreendimento cadastrada!", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information); return; } } else { MessageBox.Show("Não existe CFG.empreendimento cadastrado para a empresa informada!", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information); return; } //Despesa de funcionário com abatimento de adiantamento if (tp_pagamento.SelectedIndex.Equals(1)) { //Buscar conf. adiantamento CamadaDados.Financeiro.Cadastros.TList_ConfigAdto lCnfAdto = CamadaNegocio.Financeiro.Cadastros.TCN_CadConfigAdto.Buscar(vCd_Empresa, string.Empty, string.Empty, string.Empty, string.Empty, 0, string.Empty, null); if (lCnfAdto.Count.Equals(0)) { MessageBox.Show("Não existe CFG.adiantamento cadastrado para a empresa informada!", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information); return; } CamadaDados.Financeiro.Duplicata.TRegistro_LanDuplicata rDup = new CamadaDados.Financeiro.Duplicata.TRegistro_LanDuplicata(); rDup.Cd_empresa = vCd_Empresa; rDup.Cd_clifor = cd_funcionario.Text; object lEndClifor = new CamadaDados.Financeiro.Cadastros.TCD_CadEndereco().BuscarEscalar(new Utils.TpBusca[] { new Utils.TpBusca() { vNM_Campo = "a.cd_clifor", vOperador = "=", vVL_Busca = "'" + rDup.Cd_clifor.Trim() + "'" } }, "a.cd_endereco"); if (!lEndClifor.Equals(null)) { rDup.Cd_endereco = lEndClifor.ToString().Trim(); } rDup.Tp_docto = 2; //Duplicata rDup.Tp_duplicata = "01"; rDup.Tp_mov = lCnfAdto[0].Tp_mov_ADTO_C; rDup.Cd_historico = rDup.Cd_historico_Dup = vCd_Historico = lCnfAdto[0].Cd_historico_ADTO_C; rDup.Cd_portador = lCnfAdto[0].CD_Portador; rDup.Dt_emissao = (bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).Dt_execucao; rDup.Vl_documento = (bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).vl_executado; rDup.Nr_docto = (bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).Nr_docto; DataTable rCond = new CamadaDados.Financeiro.Cadastros.TCD_CadCondPgto().Buscar(null, 1); rDup.Cd_condpgto = rCond.Rows[0].ItemArray[0].ToString(); rDup.Cd_moeda = rCond.Rows[0].ItemArray[5].ToString(); rDup.Cd_juro = rCond.Rows[0].ItemArray[9].ToString(); rDup.Qt_parcelas = 0; DataTable cd_contager = new CamadaDados.Financeiro.Cadastros.TCD_CadContaGer().Buscar(null, 1); if (cd_contager != null) { rDup.Cd_contager = cd_contager.Rows[0].ItemArray[0].ToString(); } rDup.Parcelas.Add(new CamadaDados.Financeiro.Duplicata.TRegistro_LanParcela() { Vl_parcela = rDup.Vl_documento, Dt_vencto = rDup.Dt_emissao, Cd_parcela = 1 }); rDup.lCred.AddRange(CamadaNegocio.Financeiro.Adiantamento.TCN_LanAdiantamento.Buscar(string.Empty, rDup.Cd_empresa, rDup.Cd_clifor, string.Empty, "'C'", string.Empty, decimal.Zero, string.Empty, string.Empty, decimal.Zero, decimal.Zero, false, false, true, string.Empty, false, false, string.Empty, string.Empty, 0, string.Empty, null)); if (rDup.lCred.Count.Equals(0)) { MessageBox.Show("Funcionário não possui adiantamento quitado para efetuar o débito de saldo.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information); return; } //Validar saldo a devolver do funcionário rDup.lCred.ForEach(p => { if (rDup.Vl_documento <= p.Vl_total_devolver) { rDup.cVl_adiantamento = rDup.Vl_documento; } }); if (rDup.cVl_adiantamento.Equals(0)) { MessageBox.Show("Crédito do funcionário é menor do que o valor da despesa."); return; } (bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).rDuplicata = rDup; } else { //Procedimento para despesa da empresa using (Financeiro.TFLanDuplicata fDup = new Financeiro.TFLanDuplicata()) { fDup.vCd_empresa = vCd_Empresa; fDup.vNm_empresa = vNm_empresa; fDup.vCd_clifor = tp_pagamento.SelectedIndex.Equals(1) ? cd_funcionario.Text : cd_fornecedor.Text; fDup.vNm_clifor = tp_pagamento.SelectedIndex.Equals(1) ? nm_funcionario.Text : nm_fornecedor.Text; //Buscar endereco CamadaDados.Financeiro.Cadastros.TList_CadEndereco lEnd = CamadaNegocio.Financeiro.Cadastros.TCN_CadEndereco.Buscar(fDup.vCd_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, 1, null); if (lEnd.Count > 0) { fDup.vCd_endereco = lEnd[0].Cd_endereco; fDup.vDs_endereco = lEnd[0].Ds_endereco; } if (lCfg.Count > 0) { if (string.IsNullOrEmpty(lCfg[0].tp_dup)) { MessageBox.Show("Não existe Tp.duplicata na CFG.empreendimento cadastrada!", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information); return; } fDup.vTp_docto = lCfg[0].tp_docto; fDup.vDs_tpdocto = lCfg[0].ds_docto; fDup.vTp_duplicata = string.Empty; fDup.vDs_tpduplicata = string.Empty; fDup.vTp_mov = "P"; fDup.vDt_emissao = (bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).Dt_execucaostr; fDup.vVl_documento = (bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).vl_executado; fDup.vNr_docto = (bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).Nr_docto; fDup.St_bloquearccusto = true; if (fDup.ShowDialog() == DialogResult.OK) { if (fDup.dsDuplicata.Count > 0) { (bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).rDuplicata = fDup.dsDuplicata.Current as CamadaDados.Financeiro.Duplicata.TRegistro_LanDuplicata; } vCd_Historico = fDup.vCd_historico; } } else { MessageBox.Show("Não existe configuração frota para lançar duplicata!", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information); return; } } } if (CamadaNegocio.ConfigGer.TCN_CadParamGer.BuscaVL_Bool("CRESULTADO_EMPRESA", vCd_Empresa, null).Trim().ToUpper().Equals("S")) { //Verificar se historico possui centro resultado cadastrado object obj = new CamadaDados.Financeiro.Cadastros.TCD_CadHistorico().BuscarEscalar( new Utils.TpBusca[] { new Utils.TpBusca() { vNM_Campo = "a.cd_historico", vOperador = "=", vVL_Busca = "'" + vCd_Historico.Trim() + "'" } }, "a.cd_centroresult"); if (obj == null ? false : !string.IsNullOrEmpty(obj.ToString())) { (bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).lCCusto.Add( new CamadaDados.Financeiro.CCustoLan.TRegistro_LanCCustoLancto() { Cd_empresa = vCd_Empresa, Cd_centroresult = obj.ToString(), Vl_lancto = (bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).vl_executado, Dt_lancto = (bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).Dt_execucao, Tp_registro = "A" }); } else { using (Financeiro.TFRateioCResultado fRateio = new Financeiro.TFRateioCResultado()) { fRateio.vVl_Documento = (bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).vl_executado; fRateio.Tp_mov = "P"; fRateio.Dt_movimento = (bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).Dt_execucao; if (fRateio.ShowDialog() == DialogResult.OK) { (bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).lCCusto = fRateio.lCResultado; } else { return; } } } } try { CamadaNegocio.Empreendimento.TCN_ExecDespesas.Gravar(bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas, null); MessageBox.Show("Despesa gravada com sucesso.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information); this.DialogResult = DialogResult.OK; } catch (Exception ex) { MessageBox.Show(ex.Message.Trim(), "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error); } } } }
private void ImprimirCheques() { //Verificar se a condicao pagamento e a vista e se o portador movimenta cheque CamadaDados.Financeiro.Cadastros.TList_CfgFolhaPagamento lFolha = CamadaNegocio.Financeiro.Cadastros.TCN_CfgFolhaPagamento.Buscar((bsFolhaPgto.Current as CamadaDados.Financeiro.Folha_Pagamento.TRegistro_FolhaPagamento).Cd_empresa, string.Empty, string.Empty, string.Empty, string.Empty, string.Empty, string.Empty, null); if (lFolha.Count > 0) { object obj = new CamadaDados.Financeiro.Cadastros.TCD_CadCondPgto().BuscarEscalar( new Utils.TpBusca[] { new Utils.TpBusca() { vNM_Campo = "a.cd_condpgto", vOperador = "=", vVL_Busca = "'" + lFolha[0].Cd_condpgto.Trim() + "'" } }, "a.qt_parcelas"); if (obj == null ? false : obj.ToString().Trim().Equals("0")) { obj = new CamadaDados.Financeiro.Cadastros.TCD_CadPortador().BuscarEscalar( new Utils.TpBusca[] { new Utils.TpBusca() { vNM_Campo = "cd_portador", vOperador = "=", vVL_Busca = "'" + lFolha[0].Cd_portador.Trim() + "'" } }, "st_controletitulo"); if (obj == null ? false : obj.ToString().Trim().ToUpper().Equals("S")) { //Buscar lista de cheques amarradas ao lote de folha CamadaDados.Financeiro.Titulo.TList_RegLanTitulo lCheques = new CamadaDados.Financeiro.Titulo.TCD_LanTitulo().Select( new Utils.TpBusca[] { new Utils.TpBusca() { vNM_Campo = string.Empty, vOperador = "exists", vVL_Busca = "(select 1 from tb_fin_titulo_x_caixa x " + "inner join tb_fin_caixa y " + "on x.cd_contager = y.cd_contager " + "and x.cd_lanctocaixa = y.cd_lanctocaixa " + "inner join tb_fin_liquidacao z " + "on y.cd_contager = z.cd_contager " + "and y.cd_lanctocaixa = z.cd_lanctocaixa " + "inner join tb_fin_parcela w " + "on z.cd_empresa = w.cd_empresa " + "and z.nr_lancto = w.nr_lancto " + "inner join tb_fin_folha_x_funcionarios folha " + "on w.cd_empresa = folha.cd_empresa " + "and w.nr_lancto = folha.nr_lancto " + "where a.cd_empresa = x.cd_empresa " + "and a.cd_banco = x.cd_banco " + "and a.nr_lanctocheque = x.nr_lanctocheque " + "and x.tp_lancto = 'OR' " + "and folha.id_folha = " + (bsFolhaPgto.Current as CamadaDados.Financeiro.Folha_Pagamento.TRegistro_FolhaPagamento).Id_folha.Value.ToString() + ")" } }, 0, string.Empty, "a.nr_cheque"); if (lCheques.Count > 0) { if (MessageBox.Show("Imprimir cheques emitidos?", "Pergunta", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1) == DialogResult.Yes) { try { CamadaNegocio.Financeiro.Titulo.TCN_LanTitulo.ImprimirCheque(lCheques); } catch (Exception ex) { MessageBox.Show(ex.Message.Trim(), "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error); } } } } } } }