Пример #1
0
        private void InserirItem()
        {
            //Verificar se o pedido tem conferencia processada
            object obj = new CamadaDados.Faturamento.Pedido.TCD_EntregaPedido().BuscarEscalar(
                new Utils.TpBusca[]
            {
                new Utils.TpBusca()
                {
                    vNM_Campo = "a.nr_pedido",
                    vOperador = "=",
                    vVL_Busca = (BS_Pedido.Current as TRegistro_Pedido).Nr_pedido.ToString()
                },
                new Utils.TpBusca()
                {
                    vNM_Campo = "isnull(a.st_registro, 'A')",
                    vOperador = "=",
                    vVL_Busca = "'P'"
                }
            }, "1");

            if (obj != null)
            {
                if (obj.ToString().Trim().Equals("1"))
                {
                    MessageBox.Show("Não é permitido adicionar item no pedido com conferência processada.",
                                    "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
                    return;
                }
            }
            using (TFLan_Itens_Faturamento Lan_Itens = new TFLan_Itens_Faturamento())
            {
                Lan_Itens.st_servico          = (BS_Pedido.Current as TRegistro_Pedido).St_servicobool;
                Lan_Itens.st_valoresfixos     = (BS_Pedido.Current as TRegistro_Pedido).St_valoresfixosbool;
                Lan_Itens.CD_TabelaPreco      = (BS_Pedido.Current as TRegistro_Pedido).Cd_tabelapreco;
                Lan_Itens.CD_Empresa          = CD_Empresa.Text;
                Lan_Itens.st_Commodities      = false;
                Lan_Itens.Cfg_pedido          = (BS_Pedido.Current as TRegistro_Pedido).CFG_Pedido;
                Lan_Itens.Comissionar_pedido  = (BS_Pedido.Current as TRegistro_Pedido).St_comissaovendedorbool;
                Lan_Itens.Comissionar_Produto = TCN_Pedido.Busca_Comissao_Vendedor(BS_Pedido.Current as TRegistro_Pedido).Trim().ToUpper().Equals("P");
                Lan_Itens.Pc_desconto         = (BS_Pedido.Current as TRegistro_Pedido).Pc_descgeral;

                Lan_Itens.pTp_movimento = (BS_Pedido.Current as TRegistro_Pedido).TP_Movimento;
                if (Lan_Itens.ShowDialog() == DialogResult.OK)
                {
                    if (Lan_Itens.rItem != null)
                    {
                        (BS_Pedido.Current as TRegistro_Pedido).Pedido_Itens.Add(Lan_Itens.rItem);
                        BS_Pedido.ResetCurrentItem();
                        this.TotalizarPedido();
                    }
                }
            };
        }
Пример #2
0
        private void ExcluirItem()
        {
            if (BS_Itens.Current != null)
            {
                //Verificar se o item tem conferencia processada
                object obj = new CamadaDados.Faturamento.Pedido.TCD_EntregaPedido().BuscarEscalar(
                    new Utils.TpBusca[]
                {
                    new Utils.TpBusca()
                    {
                        vNM_Campo = "a.nr_pedido",
                        vOperador = "=",
                        vVL_Busca = (BS_Itens.Current as TRegistro_LanPedido_Item).Nr_PedidoString
                    },
                    new Utils.TpBusca()
                    {
                        vNM_Campo = "a.cd_produto",
                        vOperador = "=",
                        vVL_Busca = "'" + (BS_Itens.Current as TRegistro_LanPedido_Item).Cd_produto.Trim() + "'"
                    },
                    new Utils.TpBusca()
                    {
                        vNM_Campo = "a.id_pedidoitem",
                        vOperador = "=",
                        vVL_Busca = (BS_Itens.Current as TRegistro_LanPedido_Item).Id_pedidoitem.ToString()
                    },
                    new Utils.TpBusca()
                    {
                        vNM_Campo = "isnull(a.st_registro, 'A')",
                        vOperador = "=",
                        vVL_Busca = "'P'"
                    }
                }, "1");
                if (obj != null)
                {
                    if (obj.ToString().Trim().Equals("1"))
                    {
                        MessageBox.Show("Não é permitido excluir item com conferência processada.", "Mensagem", MessageBoxButtons.OK,
                                        MessageBoxIcon.Information);
                        return;
                    }
                }
                if (MessageBox.Show("Deseja Realmente Excluir o item?", "Mensagem",
                                    MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1) ==
                    System.Windows.Forms.DialogResult.Yes)
                {
                    //Verificar se o item teve origem ordem compra
                    obj = new CamadaDados.Compra.Lancamento.TCD_OrdemCompra_X_PedItem().BuscarEscalar(
                        new Utils.TpBusca[]
                    {
                        new Utils.TpBusca()
                        {
                            vNM_Campo = "a.nr_pedido",
                            vOperador = "=",
                            vVL_Busca = (BS_Itens.Current as CamadaDados.Faturamento.Pedido.TRegistro_LanPedido_Item).Nr_PedidoString
                        },
                        new Utils.TpBusca()
                        {
                            vNM_Campo = "a.cd_produto",
                            vOperador = "=",
                            vVL_Busca = "'" + (BS_Itens.Current as CamadaDados.Faturamento.Pedido.TRegistro_LanPedido_Item).Cd_produto.Trim() + "'"
                        },
                        new Utils.TpBusca()
                        {
                            vNM_Campo = "a.id_pedidoitem",
                            vOperador = "=",
                            vVL_Busca = (BS_Itens.Current as CamadaDados.Faturamento.Pedido.TRegistro_LanPedido_Item).Id_pedidoitem.ToString()
                        }
                    }, "a.id_oc");
                    if (obj != null)
                    {
                        if (!(MessageBox.Show("Item do pedido foi gerado apartir da ordem de compra Nº " + obj.ToString().Trim() + ".\r\n" +
                                              "A exclusão do item ira abrir novamente a ordem de compra.\r\n" +
                                              "Confirma exclusão do item?", "Pergunta", MessageBoxButtons.YesNo, MessageBoxIcon.Question,
                                              MessageBoxDefaultButton.Button1) == DialogResult.Yes))
                        {
                            return;
                        }
                    }

                    (BS_Pedido.Current as TRegistro_Pedido).Deleta_Pedido_Itens.Add(BS_Itens.Current as TRegistro_LanPedido_Item);
                    BS_Itens.RemoveCurrent();
                    this.TotalizarPedido();
                }
            }
        }
Пример #3
0
        private void AlterarItem()
        {
            if (BS_Itens.Current != null)
            {
                using (TFLan_Itens_Faturamento Lan_Itens = new TFLan_Itens_Faturamento())
                {
                    //Verificar se o item tem conferencia processada
                    object obj = new CamadaDados.Faturamento.Pedido.TCD_EntregaPedido().BuscarEscalar(
                        new Utils.TpBusca[]
                    {
                        new Utils.TpBusca()
                        {
                            vNM_Campo = "a.nr_pedido",
                            vOperador = "=",
                            vVL_Busca = (BS_Itens.Current as TRegistro_LanPedido_Item).Nr_PedidoString
                        },
                        new Utils.TpBusca()
                        {
                            vNM_Campo = "a.cd_produto",
                            vOperador = "=",
                            vVL_Busca = "'" + (BS_Itens.Current as TRegistro_LanPedido_Item).Cd_produto.Trim() + "'"
                        },
                        new Utils.TpBusca()
                        {
                            vNM_Campo = "a.id_pedidoitem",
                            vOperador = "=",
                            vVL_Busca = (BS_Itens.Current as TRegistro_LanPedido_Item).Id_pedidoitem.ToString()
                        },
                        new Utils.TpBusca()
                        {
                            vNM_Campo = "isnull(a.st_registro, 'A')",
                            vOperador = "=",
                            vVL_Busca = "'P'"
                        }
                    }, "1");
                    if (obj != null)
                    {
                        if (obj.ToString().Trim().Equals("1"))
                        {
                            Lan_Itens.Quantidade.Enabled = false;
                        }
                    }
                    Lan_Itens.CD_Produto.Enabled = false;
                    Lan_Itens.BB_Produto.Enabled = false;

                    Lan_Itens.rItem               = BS_Itens.Current as TRegistro_LanPedido_Item;
                    Lan_Itens.st_alterar          = true;
                    Lan_Itens.st_servico          = (BS_Pedido.Current as TRegistro_Pedido).St_servicobool;
                    Lan_Itens.st_valoresfixos     = (BS_Pedido.Current as TRegistro_Pedido).St_valoresfixosbool;
                    Lan_Itens.CD_TabelaPreco      = (BS_Pedido.Current as TRegistro_Pedido).Cd_tabelapreco;
                    Lan_Itens.CD_Empresa          = CD_Empresa.Text;
                    Lan_Itens.Cfg_pedido          = (BS_Pedido.Current as TRegistro_Pedido).CFG_Pedido;
                    Lan_Itens.Comissionar_pedido  = (BS_Pedido.Current as TRegistro_Pedido).St_comissaovendedorbool;
                    Lan_Itens.Comissionar_Produto = TCN_Pedido.Busca_Comissao_Vendedor(BS_Pedido.Current as TRegistro_Pedido).Trim().ToUpper().Equals("P");

                    string _CD_Produto          = (BS_Itens.Current as TRegistro_LanPedido_Item).Cd_produto;
                    string _DS_Produto          = (BS_Itens.Current as TRegistro_LanPedido_Item).Ds_produto;
                    string _CD_Variedade        = (BS_Itens.Current as TRegistro_LanPedido_Item).Cd_variedade;
                    string _DS_Variedade        = (BS_Itens.Current as TRegistro_LanPedido_Item).Ds_variedade;
                    string _CD_Unidade          = (BS_Itens.Current as TRegistro_LanPedido_Item).Cd_unidade_valor;
                    string _DS_Unidade          = (BS_Itens.Current as TRegistro_LanPedido_Item).Ds_unidade_valor;
                    string _SG_UniQTD           = (BS_Itens.Current as TRegistro_LanPedido_Item).Sg_unidade_valor;
                    string _CD_Local            = (BS_Itens.Current as TRegistro_LanPedido_Item).Cd_local;
                    string _DS_Local            = (BS_Itens.Current as TRegistro_LanPedido_Item).Ds_local;
                    string _DS_Acondicionamento = (BS_Itens.Current as TRegistro_LanPedido_Item).Ds_acondicionamento;
                    string _DS_Observacao       = (BS_Itens.Current as TRegistro_LanPedido_Item).Ds_observacaoitem;

                    decimal _Quantidade      = (BS_Itens.Current as TRegistro_LanPedido_Item).Quantidade;
                    decimal _Vl_Unitario     = (BS_Itens.Current as TRegistro_LanPedido_Item).Vl_unitario;
                    decimal _Sub_Total       = (BS_Itens.Current as TRegistro_LanPedido_Item).Vl_subtotal;
                    decimal _Frete_Item      = (BS_Itens.Current as TRegistro_LanPedido_Item).Vl_freteitem;
                    decimal _Pc_ComissaoItem = (BS_Itens.Current as TRegistro_LanPedido_Item).Pc_comissao;
                    decimal _VL_Comissao     = (BS_Itens.Current as TRegistro_LanPedido_Item).Vl_comissao;
                    decimal _Pc_DescontoItem = (BS_Itens.Current as TRegistro_LanPedido_Item).Pc_desc;
                    decimal _VL_Desconto     = (BS_Itens.Current as TRegistro_LanPedido_Item).Vl_desc;
                    Lan_Itens.pTp_movimento = (BS_Pedido.Current as TRegistro_Pedido).TP_Movimento;
                    if (Lan_Itens.ShowDialog() == DialogResult.OK)
                    {
                        BS_Itens.ResetCurrentItem();
                        this.TotalizarPedido();
                    }
                    else
                    {
                        (BS_Itens.Current as TRegistro_LanPedido_Item).Cd_produto          = _CD_Produto;
                        (BS_Itens.Current as TRegistro_LanPedido_Item).Ds_produto          = _DS_Produto;
                        (BS_Itens.Current as TRegistro_LanPedido_Item).Cd_variedade        = _CD_Variedade;
                        (BS_Itens.Current as TRegistro_LanPedido_Item).Ds_variedade        = _DS_Variedade;
                        (BS_Itens.Current as TRegistro_LanPedido_Item).Cd_unidade_valor    = _CD_Unidade;
                        (BS_Itens.Current as TRegistro_LanPedido_Item).Ds_unidade_valor    = _DS_Unidade;
                        (BS_Itens.Current as TRegistro_LanPedido_Item).Sg_unidade_valor    = _SG_UniQTD;
                        (BS_Itens.Current as TRegistro_LanPedido_Item).Cd_local            = _CD_Local;
                        (BS_Itens.Current as TRegistro_LanPedido_Item).Ds_local            = _DS_Local;
                        (BS_Itens.Current as TRegistro_LanPedido_Item).Ds_acondicionamento = _DS_Acondicionamento;
                        (BS_Itens.Current as TRegistro_LanPedido_Item).Ds_observacaoitem   = _DS_Observacao;

                        (BS_Itens.Current as TRegistro_LanPedido_Item).Quantidade   = _Quantidade;
                        (BS_Itens.Current as TRegistro_LanPedido_Item).Vl_unitario  = _Vl_Unitario;
                        (BS_Itens.Current as TRegistro_LanPedido_Item).Vl_subtotal  = _Sub_Total;
                        (BS_Itens.Current as TRegistro_LanPedido_Item).Vl_freteitem = _Frete_Item;
                        (BS_Itens.Current as TRegistro_LanPedido_Item).Pc_comissao  = _Pc_ComissaoItem;
                        (BS_Itens.Current as TRegistro_LanPedido_Item).Vl_comissao  = _VL_Comissao;
                        (BS_Itens.Current as TRegistro_LanPedido_Item).Pc_desc      = _Pc_DescontoItem;
                        (BS_Itens.Current as TRegistro_LanPedido_Item).Vl_desc      = _VL_Desconto;
                    }
                };
            }
        }