public override int buscarRegistros()
{
TList_Moeda lista = TCN_CadMoeda.Buscar(cd_moeda.Text,
ds_moeda_singular.Text,
ds_moeda_plural.Text,
sigla.Text,
0,
string.Empty,
null);
if (lista != null)
{
if (lista.Count > 0)
{
this.Lista = lista;
bsMoeda.DataSource = lista;
}
else
if ((vTP_Modo == TTpModo.tm_Standby) || (vTP_Modo == TTpModo.tm_busca))
{
bsMoeda.Clear();
}
return(lista.Count);
}
else
{
return(0);
}
}
private void gMoeda_ColumnHeaderMouseClick(object sender, DataGridViewCellMouseEventArgs e)
{
if (gMoeda.Columns[e.ColumnIndex].SortMode == DataGridViewColumnSortMode.NotSortable)
{
return;
}
if (bsMoeda.Count < 1)
{
return;
}
PropertyDescriptorCollection lP = TypeDescriptor.GetProperties(new TRegistro_Moeda());
TList_Moeda lComparer;
SortOrder direcao = SortOrder.None;
if ((gMoeda.Columns[e.ColumnIndex].HeaderCell.SortGlyphDirection == SortOrder.None) ||
(gMoeda.Columns[e.ColumnIndex].HeaderCell.SortGlyphDirection == SortOrder.Descending))
{
lComparer = new TList_Moeda(lP.Find(gMoeda.Columns[e.ColumnIndex].DataPropertyName, true), SortOrder.Ascending);
foreach (DataGridViewColumn c in gMoeda.Columns)
{
c.HeaderCell.SortGlyphDirection = SortOrder.None;
}
direcao = SortOrder.Ascending;
}
else
{
lComparer = new TList_Moeda(lP.Find(gMoeda.Columns[e.ColumnIndex].DataPropertyName, true), SortOrder.Descending);
foreach (DataGridViewColumn c in gMoeda.Columns)
{
c.HeaderCell.SortGlyphDirection = SortOrder.None;
}
direcao = SortOrder.Descending;
}
(bsMoeda.List as TList_Moeda).Sort(lComparer);
bsMoeda.ResetBindings(false);
gMoeda.Columns[e.ColumnIndex].HeaderCell.SortGlyphDirection = direcao;
}
private void afterGrava()
{
if (vl_contrato.Value == decimal.Zero)
{
MessageBox.Show("Obrigatório informar valor do contrato!", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
if (bsParcelas.Count == 0)
{
MessageBox.Show("Não existe parcelas no Contrato!", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
if ((bsContratoFin.Current as CamadaDados.Financeiro.Contrato.TRegistro_ContratoFin).Nr_lancto == null)
{
try
{
if (string.IsNullOrEmpty(cd_historico.Text))
{
MessageBox.Show("Obrigatório informar Historico para Gerar Duplicata!", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
if (string.IsNullOrEmpty(tp_duplicata.Text))
{
MessageBox.Show("Obrigatório informar tipo de duplicata para Gerar Duplicata!", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
if (string.IsNullOrEmpty(tp_docto.Text))
{
MessageBox.Show("Obrigatório informar tipo de documento para Gerar Duplicata!", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
TRegistro_LanDuplicata rDup = new TRegistro_LanDuplicata();
rDup.Cd_empresa = cd_empresa.Text;
rDup.Cd_historico = cd_historico.Text;
rDup.Tp_doctostring = tp_docto.Text;
rDup.Tp_duplicata = tp_duplicata.Text;
rDup.Cd_clifor = CD_Clifor.Text;
rDup.Cd_endereco = CD_Endereco.Text;
rDup.Cd_juro = cd_juro.Text;
//Buscar Moeda Padrao
TList_Moeda tabela = CamadaNegocio.ConfigGer.TCN_CadParamGer_X_Empresa.BuscarMoedaPadrao((bsContratoFin.Current as CamadaDados.Financeiro.Contrato.TRegistro_ContratoFin).Cd_empresa, null);
if (tabela != null)
{
if (tabela.Count > 0)
{
rDup.Cd_moeda = tabela[0].Cd_moeda;
rDup.Ds_moeda = tabela[0].Ds_moeda_singular;
rDup.Sigla_moeda = tabela[0].Sigla;
}
}
rDup.Cd_condpgto = cd_condpgto.Text;
rDup.Nr_docto = NR_ContratoOrigem.Text;
rDup.Vl_documento = (bsContratoFin.Current as CamadaDados.Financeiro.Contrato.TRegistro_ContratoFin).lParc.Sum(p => p.Vl_parcProvisao);
rDup.Vl_documento_padrao = vl_contrato.Value;
rDup.Dt_emissao = CamadaDados.UtilData.Data_Servidor();
rDup.Qt_parcelas = bsParcelas.Count;
decimal cd_parcela = 1;
(bsContratoFin.Current as CamadaDados.Financeiro.Contrato.TRegistro_ContratoFin).lParc.ForEach(v =>
rDup.Parcelas.Add(new TRegistro_LanParcela()
{
Cd_parcela = cd_parcela++,
Dt_vencto = v.Dt_venctoProvisao,
Vl_parcela = v.Vl_parcProvisao,
Vl_parcela_padrao = v.Vl_parcProvisao
}));
(bsContratoFin.Current as CamadaDados.Financeiro.Contrato.TRegistro_ContratoFin).lDup.Add(rDup);
}
catch (Exception ex)
{ MessageBox.Show(ex.Message.Trim(), "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error); }
}
this.DialogResult = DialogResult.OK;
}
public static void GerarPedidoCarga(ref CamadaDados.Faturamento.Pedido.TRegistro_Pedido rPed,
CamadaDados.Faturamento.Entrega.TRegistro_CargaAvulsa rCarga,
CamadaDados.Diversos.TRegistro_CfgEmpresa rParam)
{
if (!string.IsNullOrEmpty(rParam.CFG_PedRemCargaAvulsa))
{
if (rPed == null)
{
rPed = new CamadaDados.Faturamento.Pedido.TRegistro_Pedido();
rPed.CD_Empresa = rCarga.Cd_empresa;
rPed.DT_Pedido = DateTime.Now;
rPed.CFG_Pedido = rParam.CFG_PedRemCargaAvulsa;
rPed.TP_Movimento = "S"; //Pedido de saida
rPed.ST_Pedido = "F"; //Pedido fechado
rPed.ST_Registro = "F"; //Pedido fechado
rPed.CD_Clifor = rParam.Cd_clifor;
rPed.CD_Endereco = rParam.Cd_endereco;
//Buscar Moeda Padrao
TList_Moeda tabela =
CamadaNegocio.ConfigGer.TCN_CadParamGer_X_Empresa.BuscarMoedaPadrao(rCarga.Cd_empresa, null);
if (tabela != null)
{
if (tabela.Count > 0)
{
rPed.Cd_moeda = tabela[0].Cd_moeda;
}
}
}
//Buscar Local Arm
object LocalArm = new CamadaDados.Estoque.Cadastros.TCD_CadLocalArm_X_Empresa().BuscarEscalar(
new TpBusca[]
{
new TpBusca()
{
vNM_Campo = "a.cd_empresa",
vOperador = "=",
vVL_Busca = "'" + rCarga.Cd_empresa.Trim() + "'"
}
}, "a.CD_Local");
if (LocalArm == null)
{
throw new Exception("Não existe Local de armazenagem configurado para Empresa" + rCarga.Cd_empresa.Trim() + "!");
}
for (int i = 0; i < rCarga.lItens.Count; i++)
{
//Buscar Preço
decimal vl_preco = CamadaNegocio.Estoque.Cadastros.TCN_LanPrecoItem.Busca_ConsultaPreco(rCarga.Cd_empresa,
rCarga.lItens[i].Cd_produto,
rParam.Cd_tabelapreco,
null);
CamadaDados.Faturamento.Pedido.TRegistro_LanPedido_Item reg = new CamadaDados.Faturamento.Pedido.TRegistro_LanPedido_Item();
reg.Cd_Empresa = rCarga.lItens[i].Cd_empresa;
reg.Cd_local = LocalArm.ToString();
reg.Cd_produto = rCarga.lItens[i].Cd_produto;
reg.Ds_produto = rCarga.lItens[i].Ds_produto;
reg.Cd_unidade_est = rCarga.lItens[i].Cd_unidade;
reg.Quantidade = rCarga.lItens[i].Quantidade;
reg.Vl_unitario = vl_preco;
reg.Vl_subtotal = vl_preco * rCarga.lItens[i].Quantidade;
rPed.Pedido_Itens.Add(reg);
}
}
else
{
throw new Exception("Não existe configuracao para emitir pedido de remessa para a Empresa " + rCarga.Cd_empresa);
}
}
private void GerarDup()
{
if (bsLocTerceiro.Current != null)
{
if ((bsLocTerceiro.Current as TRegistro_LocTerceiro).St_permutabool)
{
MessageBox.Show("Não é possível gerar financeiro de contrato que possui permuta!", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
if (!(bsLocTerceiro.Current as TRegistro_LocTerceiro).St_registro.Trim().ToUpper().Equals("C"))
{
using (Financeiro.TFLanDuplicata fDuplicata = new Financeiro.TFLanDuplicata())
{
fDuplicata.vCd_empresa = (bsLocTerceiro.Current as TRegistro_LocTerceiro).Cd_empresa;
fDuplicata.vNm_empresa = (bsLocTerceiro.Current as TRegistro_LocTerceiro).Nm_empresa;
fDuplicata.vCd_clifor = (bsLocTerceiro.Current as TRegistro_LocTerceiro).Cd_fornecedor;
fDuplicata.vNm_clifor = (bsLocTerceiro.Current as TRegistro_LocTerceiro).Nm_fornecedor;
fDuplicata.vCd_endereco = (bsLocTerceiro.Current as TRegistro_LocTerceiro).Cd_endereco;
fDuplicata.vDs_endereco = (bsLocTerceiro.Current as TRegistro_LocTerceiro).Ds_endereco;
//Buscar Moeda Padrao
TList_Moeda tabela =
CamadaNegocio.ConfigGer.TCN_CadParamGer_X_Empresa.BuscarMoedaPadrao((bsLocTerceiro.Current as TRegistro_LocTerceiro).Cd_empresa, null);
if (tabela != null)
{
if (tabela.Count > 0)
{
fDuplicata.vCd_moeda = tabela[0].Cd_moeda;
fDuplicata.vDs_moeda = tabela[0].Cd_moeda;
}
}
fDuplicata.vTp_mov = "P";
fDuplicata.vVl_documento = (bsLocTerceiro.Current as TRegistro_LocTerceiro).Vl_contrato;
fDuplicata.vDt_emissao = CamadaDados.UtilData.Data_Servidor().ToString("dd/MM/yyyy");
fDuplicata.vSt_finPed = true;
if (fDuplicata.ShowDialog() == DialogResult.OK)
{
try
{
(bsLocTerceiro.Current as TRegistro_LocTerceiro).lDup.Add(
fDuplicata.dsDuplicata.Current as CamadaDados.Financeiro.Duplicata.TRegistro_LanDuplicata);
CamadaNegocio.Locacao.TCN_LocTerceiro.GravaDuplicata(bsLocTerceiro.Current as TRegistro_LocTerceiro, null);
afterBusca();
}
catch (Exception ex)
{
MessageBox.Show(ex.Message.Trim(), "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error);
}
}
else
{
MessageBox.Show("Obrigatorio informar Financeiro para Gerar Duplicata!", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
}
}
else
{
MessageBox.Show("Não é possivel Gerar Duplicata em Pedido Cancelado!", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
}
}
