예제 #1
0
        public static void ProcessarOrdemCompra(List <TRegistro_Requisicao> val, BancoDados.TObjetoBanco banco)
        {
            bool           st_transacao   = false;
            TCD_Requisicao qtb_requisicao = new TCD_Requisicao();

            try
            {
                if (banco == null)
                {
                    st_transacao = qtb_requisicao.CriarBanco_Dados(true);
                }
                else
                {
                    qtb_requisicao.Banco_Dados = banco;
                }
                //Verificar se existe usuario de compra para o login corrente
                CamadaDados.Compra.TList_CadUsuarioCompra lUser =
                    TCN_CadUsuarioCompra.Busca(string.Empty,
                                               Utils.Parametros.pubLogin,
                                               false,
                                               false,
                                               false,
                                               true,
                                               1,
                                               string.Empty,
                                               qtb_requisicao.Banco_Dados);
                if (lUser.Count < 1)
                {
                    throw new Exception("Não existe usuario de compra configurado para o login " + Utils.Parametros.pubLogin.Trim());
                }
                val.ForEach(p =>
                {
                    //Para cada requisicao criar um objeto ordem compra
                    TRegistro_OrdemCompra rOc = new TRegistro_OrdemCompra();
                    rOc.Id_oc         = null;
                    rOc.Id_requisicao = p.Id_requisicao;
                    if (p.lCotacoes.Count > 0)
                    {
                        TRegistro_Cotacao rCot = p.lCotacoes.Find(v => v.St_registro.Trim().ToUpper().Equals("P"));
                        if (rCot != null)
                        {
                            rOc.Cd_empresa           = rCot.Cd_empresa;
                            rOc.Cd_fornecedor        = rCot.Cd_fornecedor;
                            rOc.Cd_endfornecedor     = rCot.Cd_endfornecedor;
                            rOc.Cd_condpgto          = rCot.Cd_condpgto;
                            rOc.Cd_moeda             = rCot.Cd_moeda;
                            rOc.Cd_portador          = rCot.Cd_portador;
                            rOc.Cd_transportadora    = rCot.Cd_transportadora;
                            rOc.Cd_endtransportadora = rCot.Cd_endtransportadora;
                            rOc.Tp_frete             = rCot.Tp_frete;
                            rOc.Vl_frete             = rCot.Vl_frete;
                            rOc.Prazo_entrega        = rCot.Prazo_entrega;
                            rOc.Quantidade           = p.Qtd_aprovada;
                            rOc.Vl_unitario          = rCot.Vl_unitario_cotado;
                            rOc.Dt_oc       = DateTime.Now;
                            rOc.St_registro = "A";
                        }
                    }
                    else if (p.lReqneg.Count > 0)
                    {
                        TRegistro_Requisicao_X_Negociacao rReqNeg = p.lReqneg.Find(v => v.St_registro.Trim().ToUpper().Equals("A"));
                        if (rReqNeg != null)
                        {
                            rOc.Cd_empresa                  = rReqNeg.Cd_empresa;
                            rOc.Cd_fornecedor               = rReqNeg.Cd_fornecedor;
                            rOc.Cd_endfornecedor            = rReqNeg.Cd_endfornecedor;
                            rOc.Cd_condpgto                 = rReqNeg.Cd_condpgto;
                            rOc.Cd_moeda                    = rReqNeg.Cd_moeda;
                            rOc.Cd_portador                 = rReqNeg.Cd_portador;
                            TRegistro_PrazoEntrega rEntrega = rReqNeg.lPrazoEntrega.Find(x => x.Cd_empresa.Trim().Equals(p.Cd_empresa.Trim()));
                            if (rEntrega != null)
                            {
                                rOc.Cd_transportadora    = rEntrega.Cd_transportadora;
                                rOc.Cd_endtransportadora = rEntrega.Cd_endtransportadora;
                                rOc.Tp_frete             = rEntrega.Tp_frete;
                                rOc.Prazo_entrega        = rEntrega.Prazo_entrega;
                            }
                            rOc.Quantidade  = p.Qtd_aprovada;
                            rOc.Vl_unitario = rReqNeg.Vl_unitario_negociado;
                            rOc.Dt_oc       = DateTime.Now;
                            rOc.St_registro = "A";
                        }
                    }
                    TCN_OrdemCompra.Gravar(rOc, qtb_requisicao.Banco_Dados);
                    //Alterar status da requisicao para ordem compra
                    p.St_requisicao       = "OC";
                    p.Cd_clifor_comprador = lUser[0].Cd_clifor_cmp;
                    AlterarRequisicao(p, qtb_requisicao.Banco_Dados);
                });
                if (st_transacao)
                {
                    qtb_requisicao.Banco_Dados.Commit_Tran();
                }
            }
            catch (Exception ex)
            {
                if (st_transacao)
                {
                    qtb_requisicao.Banco_Dados.RollBack_Tran();
                }
                throw new Exception("Erro processar ordem compra: " + ex.Message.Trim());
            }
            finally
            {
                if (st_transacao)
                {
                    qtb_requisicao.deletarBanco_Dados();
                }
            }
        }
예제 #2
0
        public static void ProcessarPedido(List <TRegistro_OrdemCompra> val,
                                           string Cfg_pedido,
                                           CamadaDados.Financeiro.Duplicata.TRegistro_LanDuplicata rDup,
                                           byte[] anexo_pedido,
                                           BancoDados.TObjetoBanco banco)
        {
            bool            st_transacao = false;
            TCD_OrdemCompra qtb_oc       = new TCD_OrdemCompra();

            try
            {
                if (banco == null)
                {
                    st_transacao = qtb_oc.CriarBanco_Dados(true);
                }
                else
                {
                    qtb_oc.Banco_Dados = banco;
                }
                //Verificar se existe configuracao para gerar pedido
                TRegistro_Requisicao rReq = TCN_Requisicao.Buscar(val[0].Id_requisicaostr,
                                                                  string.Empty,
                                                                  string.Empty,
                                                                  string.Empty,
                                                                  string.Empty,
                                                                  string.Empty,
                                                                  string.Empty,
                                                                  string.Empty,
                                                                  false,
                                                                  false,
                                                                  false,
                                                                  "'E'",
                                                                  false,
                                                                  qtb_oc.Banco_Dados)[0];
                CamadaDados.Compra.TList_CFGCompra lCfg =
                    TCN_CFGCompra.Buscar(rReq.Cd_empresa,
                                         string.Empty,
                                         string.Empty,
                                         string.Empty,
                                         string.Empty,
                                         0,
                                         string.Empty,
                                         qtb_oc.Banco_Dados);
                if (lCfg.Count < 1)
                {
                    throw new Exception("Não existe configuração do modulo de compras para a empresa " + rReq.Cd_empresa.Trim());
                }
                if ((!lCfg[0].St_utilizarmoedaocbool) && lCfg[0].Cd_moeda.Trim().Equals(string.Empty))
                {
                    throw new Exception("Não existe moeda configurada para gerar o pedido.");
                }
                //Gravar pedido
                string retorno = CamadaNegocio.Faturamento.Pedido.TCN_Pedido.Grava_Pedido(
                    new CamadaDados.Faturamento.Pedido.TRegistro_Pedido()
                {
                    CD_Empresa          = rReq.Cd_empresa,
                    CD_CondPGTO         = val[0].Cd_condpgto,
                    DT_Pedido           = DateTime.Now,
                    TP_Movimento        = "E",
                    CFG_Pedido          = string.IsNullOrEmpty(Cfg_pedido) ? lCfg[0].Cfg_pedidocompra : Cfg_pedido,
                    CD_Clifor           = val[0].Cd_fornecedor,
                    CD_Endereco         = val[0].Cd_endfornecedor,
                    ST_Pedido           = "F",
                    ST_Registro         = "A",
                    Cd_moeda            = lCfg[0].St_utilizarmoedaocbool ? val[0].Cd_moeda : lCfg[0].Cd_moeda,
                    CD_TRANSPORTADORA   = val[0].Cd_transportadora,
                    CD_ENDERECOTRANSP   = val[0].Cd_endtransportadora,
                    Tp_frete            = val[0].Tp_frete,
                    Vl_frete            = val.Sum(p => p.Vl_frete),
                    Cd_clifor_comprador = rReq.Cd_clifor_comprador,
                    Anexo_compra        = anexo_pedido
                }, qtb_oc.Banco_Dados);
                //grava duplicata
                object st_dup = new CamadaDados.Faturamento.Cadastros.TCD_CadCFGPedido().BuscarEscalar(
                    null, "a.st_gerarfin");
                if (st_dup != null && rDup != null)
                {
                    if (st_dup.Equals("S"))
                    {
                        rDup.Nr_pedido = Convert.ToDecimal(retorno.ToString());

                        rDup.Nr_docto = rDup.Nr_pedido.ToString();
                        string rtn = CamadaNegocio.Financeiro.Duplicata.TCN_LanDuplicata.GravarDuplicata(rDup, false, qtb_oc.Banco_Dados);

                        CamadaDados.Faturamento.Pedido.TRegistro_LanPedido_X_Duplicata reg = new CamadaDados.Faturamento.Pedido.TRegistro_LanPedido_X_Duplicata();
                        reg.Cd_empresa = lCfg[0].Cd_empresa;
                        reg.Nr_pedido  = rDup.Nr_pedido;
                        reg.Nr_lancto  = Convert.ToDecimal(CamadaDados.TDataQuery.getPubVariavel(rtn, "@P_NR_LANCTO"));
                        CamadaNegocio.Faturamento.Pedido.TCN_LanPedido_X_Duplicata.Gravar(reg, qtb_oc.Banco_Dados);
                    }
                }

                //Gravar itens do pedido
                val.ForEach(p =>
                {
                    //Buscar unidade do produto para gravar no pedido
                    object obj = new CamadaDados.Estoque.Cadastros.TCD_CadProduto(qtb_oc.Banco_Dados).BuscarEscalar(
                        new Utils.TpBusca[]
                    {
                        new Utils.TpBusca()
                        {
                            vNM_Campo = "a.cd_produto",
                            vOperador = "=",
                            vVL_Busca = "'" + p.Cd_produto.Trim() + "'"
                        }
                    }, "a.cd_unidade");
                    if (obj == null)
                    {
                        throw new Exception("Não foi possivel localizar produto " + p.Cd_produto.Trim() + " no cadastro de produto.");
                    }
                    if (obj.ToString().Trim().Equals(string.Empty))
                    {
                        throw new Exception("Não existe unidade cadastrada para o produto " + p.Cd_produto.Trim() + ".");
                    }
                    string ret_item = CamadaNegocio.Faturamento.Pedido.TCN_LanPedido_Item.GravaPedido_Item(
                        new CamadaDados.Faturamento.Pedido.TRegistro_LanPedido_Item()
                    {
                        Cd_Empresa        = rReq.Cd_empresa,
                        Cd_local          = !string.IsNullOrEmpty(rReq.Cd_local) ? rReq.Cd_local : lCfg[0].Cd_local,
                        Cd_produto        = p.Cd_produto,
                        Nr_pedido         = Convert.ToDecimal(retorno),
                        Cd_unidade_est    = obj.ToString(),
                        Cd_unidade_valor  = obj.ToString(),
                        Quantidade        = p.Quantidade,
                        Vl_unitario       = p.Vl_unitConvertido,
                        Vl_subtotal       = p.Vl_Convertido,
                        Ds_observacaoitem = p.ObsRequisicao
                    }, qtb_oc.Banco_Dados);
                    //Alterar status da OC para F - Faturada
                    p.St_registro = "F";
                    TCN_OrdemCompra.Gravar(p, qtb_oc.Banco_Dados);
                    //Gravar OC X Pedido
                    TCN_OrdemCompra_X_PedItem.GravarOC_X_PedItem(
                        new TRegistro_OrdemCompra_X_PedItem()
                    {
                        Cd_produto    = p.Cd_produto,
                        Id_oc         = p.Id_oc,
                        Id_pedidoitem = Convert.ToDecimal(CamadaDados.TDataQuery.getPubVariavel(ret_item, "@P_ID_PEDIDOITEM")),
                        Nr_pedido     = Convert.ToDecimal(CamadaDados.TDataQuery.getPubVariavel(ret_item, "@P_NR_PEDIDO"))
                    }, qtb_oc.Banco_Dados);
                    p.Nr_pedido = Convert.ToDecimal(CamadaDados.TDataQuery.getPubVariavel(ret_item, "@P_NR_PEDIDO"));
                });
                if (st_transacao)
                {
                    qtb_oc.Banco_Dados.Commit_Tran();
                }
            }
            catch (Exception ex)
            {
                if (st_transacao)
                {
                    qtb_oc.Banco_Dados.RollBack_Tran();
                }
                throw new Exception("Erro processar pedido: " + ex.Message.Trim());
            }
            finally
            {
                if (st_transacao)
                {
                    qtb_oc.deletarBanco_Dados();
                }
            }
        }