private void InformarValor(string portador)
{
if (lPortador.Count > 0)
{
if (Math.Round(pVl_receber, 2) > Math.Round(lPortador.Sum(p => p.Vl_pagtoPDV), 2))
{
if (portador.ToUpper().Trim().Equals("CH"))//Cheque
{
using (Financeiro.TFLanListaCheques fListaCheques = new Financeiro.TFLanListaCheques())
{
fListaCheques.Tp_mov = "R";
fListaCheques.Cd_empresa = pCd_empresa;
fListaCheques.St_pdv = true;
//Buscar Config PDV Empresa
CamadaDados.Faturamento.Cadastros.TList_CFGCupomFiscal lCfg =
CamadaNegocio.Faturamento.Cadastros.TCN_CFGCupomFiscal.Buscar(pCd_empresa, null);
if (lCfg.Count > 0)
{
fListaCheques.Cd_contager = lCfg[0].Cd_contaoperacional;
fListaCheques.Ds_contager = lCfg[0].Ds_contaoperacional;
}
fListaCheques.Cd_clifor = pCd_clifor;
fListaCheques.Cd_historico = rCfg.Cd_historicocaixa;
fListaCheques.Ds_historico = rCfg.Ds_historicocaixa;
fListaCheques.Cd_portador = lPortador.Find(p => p.St_controletitulobool).Cd_portador;
fListaCheques.Ds_portador = lPortador.Find(p => p.St_controletitulobool).Ds_portador;
fListaCheques.Nm_clifor = pNm_clifor;
fListaCheques.Dt_emissao = CamadaDados.UtilData.Data_Servidor();
fListaCheques.Vl_totaltitulo = pVl_receber - lPortador.Sum(p => p.Vl_pagtoPDV);
fListaCheques.St_bloquearTroco = St_ReprocessaFin;
if (fListaCheques.ShowDialog() == DialogResult.OK)
{
lPortador.Find(p => p.St_controletitulobool).lCheque = fListaCheques.lCheques;
lPortador.Find(p => p.St_controletitulobool).Vl_pagtoPDV +=
fListaCheques.lCheques.Sum(p => p.Vl_titulo);
CalcularTroco(portador);
ConfirmarFin();
}
else
{
MessageBox.Show("Cheque não foi lançado... Liquidação não será efetivada! ");
return;
}
}
}
else if (portador.ToUpper().Trim().Equals("CC"))//Cartao Credito
{
//Buscar dados fatura cartao credito
using (TFLanCartaoPDV fCartao = new TFLanCartaoPDV())
{
fCartao.pCd_empresa = pCd_empresa;
fCartao.D_C = "C";
fCartao.Vl_saldofaturar = pVl_receber - lPortador.Sum(p => p.Vl_pagtoPDV);
fCartao.St_bloquearTroco = St_ReprocessaFin;
if (fCartao.ShowDialog() == DialogResult.OK)
{
fCartao.lFatura.ForEach(p => lPortador.Find(x => x.St_cartaocreditobool).lFatura.Add(p));
lPortador.Find(p => p.St_cartaocreditobool).Vl_pagtoPDV += fCartao.lFatura.Sum(p => p.Vl_fatura);
CalcularTroco(portador);
ConfirmarFin();
}
}
}
else if (portador.ToUpper().Trim().Equals("CD"))//Cartao Debito
{
//Buscar dados fatura cartao credito
using (TFLanCartaoPDV fCartao = new TFLanCartaoPDV())
{
fCartao.pCd_empresa = pCd_empresa;
fCartao.D_C = "D";
fCartao.Vl_saldofaturar = pVl_receber - lPortador.Sum(p => p.Vl_pagtoPDV);
fCartao.St_bloquearTroco = St_ReprocessaFin;
if (fCartao.ShowDialog() == DialogResult.OK)
{
fCartao.lFatura.ForEach(p => lPortador.Find(x => x.St_cartaocreditobool).lFatura.Add(p));
lPortador.Find(p => p.St_cartaocreditobool).Vl_pagtoPDV += fCartao.lFatura.Sum(p => p.Vl_fatura);
CalcularTroco(portador);
ConfirmarFin();
}
}
}
else if (portador.ToUpper().Trim().Equals("DU"))//Duplicata
{
//Buscar portador duplicata
CamadaDados.Financeiro.Cadastros.TList_CadPortador lDup =
new CamadaDados.Financeiro.Cadastros.TCD_CadPortador().Select(
new Utils.TpBusca[]
{
new Utils.TpBusca()
{
vNM_Campo = "isnull(a.tp_portadorPDV, '')",
vOperador = "=",
vVL_Busca = "'P'"
}
}, 1, string.Empty, string.Empty);
if (lDup.Count.Equals(0))
{
MessageBox.Show("Não existe portador duplicata configurado no sistema.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
if (string.IsNullOrEmpty(pCd_clifor))
{
MessageBox.Show("Não é permitido venda a prazo sem identificar cliente.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
//Abrir tela Duplicata
if (pCd_clifor == rCfg.Cd_clifor)
{
Componentes.EditDefault CD_Clifor = new Componentes.EditDefault();
CD_Clifor.NM_Campo = "CD_Clifor";
CD_Clifor.NM_CampoBusca = "CD_Clifor";
DataRowView linha = FormBusca.UtilPesquisa.BTN_BuscaClifor(new Componentes.EditDefault[] { CD_Clifor }, string.Empty);
if (linha != null)
{
pCd_clifor = linha["cd_clifor"].ToString();
pNm_clifor = linha["Nm_clifor"].ToString();
}
else
{
MessageBox.Show("Obrigatório informar cliente para gerar duplicata!", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
}
//Verificar credito
CamadaDados.Financeiro.Duplicata.TRegistro_DadosBloqueio rDados =
new CamadaDados.Financeiro.Duplicata.TRegistro_DadosBloqueio();
if (CamadaNegocio.Financeiro.Duplicata.TCN_DadosBloqueio.VerificarBloqueioCredito(pCd_clifor,
pVl_receber - lPortador.Sum(p => p.Vl_pagtoPDV),
true,
ref rDados,
null))
{
using (Financeiro.TFLan_BloqueioCredito fBloq = new Financeiro.TFLan_BloqueioCredito())
{
fBloq.rDados = rDados;
fBloq.Vl_fatura = pVl_receber - lPortador.Sum(p => p.Vl_pagtoPDV);
fBloq.ShowDialog();
if (!fBloq.St_desbloqueado)
{
MessageBox.Show("Não é permitido realizar venda para cliente com restrição crédito.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
}
}
//Abrir tela Duplicata
CamadaDados.Financeiro.Duplicata.TRegistro_LanDuplicata rDup = new CamadaDados.Financeiro.Duplicata.TRegistro_LanDuplicata();
rDup.Cd_empresa = pCd_empresa;
rDup.Nm_empresa = pNm_empresa;
rDup.Cd_clifor = pCd_clifor;
rDup.Nm_clifor = pNm_clifor;
//Buscar cond pagamento
CamadaDados.Financeiro.Cadastros.TList_CadCondPgto lCond =
CamadaNegocio.Financeiro.Cadastros.TCN_CadCondPgto.Buscar(string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
1,
decimal.Zero,
string.Empty,
string.Empty,
1,
string.Empty,
null);
if (lCond.Count > 0)
{
rDup.Cd_condpgto = lCond[0].Cd_condpgto;
rDup.Qt_parcelas = lCond[0].Qt_parcelas;
rDup.Qt_dias_desdobro = lCond[0].Qt_diasdesdobro;
}
//Buscar endereco clifor
if (!string.IsNullOrEmpty(pCd_clifor))
{
CamadaDados.Financeiro.Cadastros.TList_CadEndereco lEnd =
CamadaNegocio.Financeiro.Cadastros.TCN_CadEndereco.Buscar(pCd_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)
{
pCd_endereco = rDup.Cd_endereco = lEnd[0].Cd_endereco;
pDs_endereco = rDup.Ds_endereco = lEnd[0].Ds_endereco;
}
}
rDup.Tp_docto = rCfg.Tp_docto;
rDup.Ds_tpdocto = rCfg.Ds_tpdocto;
rDup.Tp_duplicata = rCfg.Tp_duplicata;
rDup.Ds_tpduplicata = rCfg.Ds_tpduplicata;
rDup.Tp_mov = "R";
rDup.Cd_historico = rCfg.Cd_historico;
rDup.Ds_historico = rCfg.Ds_historico;
//Buscar Moeda Padrao
CamadaDados.Financeiro.Cadastros.TList_Moeda tabela =
CamadaNegocio.ConfigGer.TCN_CadParamGer_X_Empresa.BuscarMoedaPadrao(pCd_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.Id_configBoleto = rCfg.Id_config;
rDup.Nr_docto = "PDC123";//pNr_cupom; //Numero Cupom
rDup.Dt_emissaostring = CamadaDados.UtilData.Data_Servidor().ToString("dd/MM/yyyy");
rDup.Vl_documento = pVl_receber - lPortador.Sum(p => p.Vl_pagtoPDV);
rDup.Vl_documento_padrao = pVl_receber - lPortador.Sum(p => p.Vl_pagtoPDV);
rDup.Parcelas.Add(new CamadaDados.Financeiro.Duplicata.TRegistro_LanParcela()
{
Cd_parcela = 1,
Dt_vencto = lCond.Count > 0 ? rDup.Dt_emissao.Value.AddDays(double.Parse(lCond[0].Qt_diasdesdobro.ToString())) : rDup.Dt_emissao,
Vl_parcela = pVl_receber - lPortador.Sum(p => p.Vl_pagtoPDV),
Vl_parcela_padrao = pVl_receber - lPortador.Sum(p => p.Vl_pagtoPDV)
});
lPortador.Find(p => p.Tp_portadorpdv.ToUpper().Equals("P")).lDup.Add(rDup);
lPortador.Find(p => p.Tp_portadorpdv.ToUpper().Equals("P")).Vl_pagtoPDV = rDup.Vl_documento_padrao;
ConfirmarFin();
}
else if (portador.ToUpper().Trim().Equals("DV"))//Devolucao Credito
{
//Devolucao de credito
using (Financeiro.TFSaldoCreditos fSaldo = new Financeiro.TFSaldoCreditos())
{
fSaldo.Cd_empresa = pCd_empresa;
fSaldo.Cd_clifor = pCd_clifor;
fSaldo.Vl_financeiro = pVl_receber - lPortador.Sum(p => p.Vl_pagtoPDV);
fSaldo.Tp_mov = "'R'";
if (fSaldo.ShowDialog() == DialogResult.OK)
{
if (fSaldo.lSaldo != null)
{
lPortador.Find(p => p.St_devcreditobool).lCred = fSaldo.lSaldo;
lPortador.Find(p => p.St_devcreditobool).Vl_pagtoPDV =
fSaldo.lSaldo.Sum(p => p.Vl_processar);
CalcularTroco(portador);
ConfirmarFin();
}
}
else
{
return;
}
}
}
else
{
//Portador Dinheiro
using (Componentes.TFQuantidade fQtde = new Componentes.TFQuantidade())
{
fQtde.Casas_decimais = 2;
fQtde.Vl_default = pVl_receber - lPortador.Sum(p => p.Vl_pagtoPDV);
fQtde.Vl_saldo = St_ReprocessaFin ? pVl_receber - lPortador.Sum(p => p.Vl_pagtoPDV) : decimal.Zero;
fQtde.Ds_label = "Valor Recebido";
if (fQtde.ShowDialog() == DialogResult.OK)
{
lPortador.Find(p => !p.St_devcreditobool &&
!p.St_entregafuturabool &&
!p.St_controletitulobool &&
!p.St_cartaocreditobool &&
!p.St_cartafretebool &&
!p.Tp_portadorpdv.Equals("P")).Vl_pagtoPDV += fQtde.Quantidade;
CalcularTroco(portador);
ConfirmarFin();
}
}
}
}
else
{
MessageBox.Show("Não existe mais saldo para receber.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
}
}
}
public static string Gravar(TRegistro_CartaFrete val, TObjetoBanco banco)
{
bool st_transacao = false;
TCD_CartaFrete qtb_cf = new TCD_CartaFrete();
try
{
if (banco == null)
{
st_transacao = qtb_cf.CriarBanco_Dados(true);
}
else
{
qtb_cf.Banco_Dados = banco;
}
//Buscar config carta frete posto
CamadaDados.PostoCombustivel.Cadastros.TList_CfgPosto lCfg =
CamadaNegocio.PostoCombustivel.Cadastros.TCN_CfgPosto.Buscar(val.Cd_empresa, qtb_cf.Banco_Dados);
if (lCfg.Count.Equals(0))
{
throw new Exception("Não existe configuração para a empresa " + val.Cd_empresa.Trim());
}
if (string.IsNullOrEmpty(lCfg[0].Tp_duplicata))
{
throw new Exception("Não existe tipo duplicata configurado para a empresa " + val.Cd_empresa.Trim());
}
if (!lCfg[0].Tp_docto.HasValue)
{
throw new Exception("Não existe tipo documento configurado para a empresa " + val.Cd_empresa.Trim());
}
//Buscar condicao pagamento
CamadaDados.Financeiro.Cadastros.TList_CadCondPgto lCond =
CamadaNegocio.Financeiro.Cadastros.TCN_CadCondPgto.Buscar(string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
1,
decimal.Zero,
string.Empty,
string.Empty,
1,
string.Empty,
qtb_cf.Banco_Dados);
if (lCond.Count.Equals(0))
{
throw new Exception("Não existe condição pagamento cadastrado com quantidade parcela igual 1");
}
//Criar duplicata
CamadaDados.Financeiro.Duplicata.TRegistro_LanDuplicata rDup = new CamadaDados.Financeiro.Duplicata.TRegistro_LanDuplicata();
rDup.Cd_empresa = val.Cd_empresa;
rDup.Cd_historico = lCfg[0].Cd_historico;
rDup.Tp_docto = lCfg[0].Tp_docto;
rDup.Tp_duplicata = lCfg[0].Tp_duplicata;
rDup.Cd_clifor = string.IsNullOrEmpty(val.Cd_unidpagadora) ? val.Cd_transportadora : val.Cd_unidpagadora;
rDup.Cd_endereco = string.IsNullOrEmpty(val.Cd_unidpagadora) ? val.Cd_enderecotransp : val.Cd_endunidpagadora;
rDup.Cd_juro = lCond[0].Cd_juro;
rDup.Cd_moeda = lCond[0].Cd_moeda;
rDup.Cd_condpgto = lCond[0].Cd_condpgto;
rDup.Nr_docto = "CARTAF" + val.Nr_cartafrete;
rDup.Vl_documento = val.Vl_documento;
rDup.Vl_documento_padrao = val.Vl_documento;
rDup.Dt_emissao = CamadaDados.UtilData.Data_Servidor();
rDup.Qt_parcelas = 1;
rDup.Qt_dias_desdobro = lCond[0].Qt_diasdesdobro;
rDup.St_comentrada = lCond[0].St_comentrada;
rDup.Tp_juro = lCond[0].Tp_juro;
rDup.Pc_jurodiario_atrazo = lCond[0].Pc_jurodiario_atrazo;
//Cotacao
rDup.DupCotacao = new CamadaDados.Financeiro.Duplicata.TRegistro_DuplicataCotacao()
{
Cd_moedaresult = CamadaNegocio.ConfigGer.TCN_CadParamGer.BuscaVL_String_Empresa("CD_MOEDA_PADRAO", rDup.Cd_empresa, qtb_cf.Banco_Dados)
};
//Parcela
rDup.Parcelas.Add(new CamadaDados.Financeiro.Duplicata.TRegistro_LanParcela()
{
Cd_empresa = val.Cd_empresa,
Cd_parcela = 1,
Dt_vencto = val.Dt_vencimento,
Vl_parcela = val.Vl_documento,
Vl_parcela_padrao = val.Vl_documento
});
CamadaNegocio.Financeiro.Duplicata.TCN_LanDuplicata.GravarDuplicata(rDup, false, qtb_cf.Banco_Dados);
val.Nr_lancto = rDup.Nr_lancto;
val.Id_cartafretestr = CamadaDados.TDataQuery.getPubVariavel(qtb_cf.Gravar(val), "@P_ID_CARTAFRETE");
if (st_transacao)
{
qtb_cf.Banco_Dados.Commit_Tran();
}
return(val.Id_cartafretestr);
}
catch (Exception ex)
{
if (st_transacao)
{
qtb_cf.Banco_Dados.RollBack_Tran();
}
throw new Exception("Erro gravar carta frete: " + ex.Message.Trim());
}
finally
{
if (st_transacao)
{
qtb_cf.deletarBanco_Dados();
}
}
}
