2 using System.Collections.Generic;
7 using System.ComponentModel;
8 using System.ComponentModel.DataAnnotations;
22 using System.Windows.Forms;
24 namespace Sage.ES.S50.Fabricacion.Negocio.Mantes
32 private ewMante mantePrincipal = null;
40 public Visual.UserControls.manteProduccionPartes usercontrolTabManteBase = null;
48 public Negocio.Clases.ProduccionPartes ManteTRelproduccionPartes = null;
62 this._Mante = _mantePrincipal;
65 Negocio.Clases.ProduccionPartes mtrelproduccionPartes =
new Negocio.Clases.ProduccionPartes();
66 this.ManteTRelproduccionPartes = mtrelproduccionPartes;
68 mtrelproduccionPartes._AlbaranProduccion = (Negocio.Documentos.AlbaranProduccion)this._Mante;
70 this._Mante._AddManteTRel(mtrelproduccionPartes);
90 #region Código generado por el asistente de componentes. No borrar. 95 #endregion Código generado por el asistente de componentes. No borrar. 104 bool llOk = base._Load();
108 string whereclause = GetWhereClause();
111 if (!
string.IsNullOrWhiteSpace(sql))
113 DataTable result =
new DataTable();
114 llOk = DB.SQLExec(sql, ref result);
116 if (llOk && result.Rows.Count > 0)
126 if (usercontrolTabManteBase != null)
128 usercontrolTabManteBase._Binding();
130 if (ManteTRelproduccionPartes._AlbaranProduccion._Acabado || ManteTRelproduccionPartes._AlbaranProduccion._Traspasado)
132 usercontrolTabManteBase._BloquearControles(
true);
136 usercontrolTabManteBase._BloquearControles(
false);
149 public override bool _New(
string tcCodigo =
"")
151 bool llOk = base._New(tcCodigo);
155 if (usercontrolTabManteBase != null)
157 usercontrolTabManteBase._Binding();
158 usercontrolTabManteBase._BloquearControles(
true);
171 bool llOk = base._Save();
176 string whereclause = GetWhereClause();
187 if (!
string.IsNullOrWhiteSpace(sql))
189 llOk = DB.SQLExec(sql);
207 string lcSql =
" UPDATE " + DB.SQLDatabase(
"GESTION",
"D_PARTES") +
208 " SET tipo_alb = '0', albaran = '', articulo = ''" +
209 " WHERE numero = " + DB.SQLString(toItem._Numero) +
210 " AND empresa = " + DB.SQLString(toItem._Empresa) +
211 " AND linea = " + DB.SQLString(toItem._Linea);
215 ManteTRelproduccionPartes._Clear();
227 if (usercontrolTabManteBase != null)
229 usercontrolTabManteBase._BloquearControles(tlReadOnly);
239 private bool _lConPartes = Convert.ToBoolean(EW_GLOBAL._GetVariable(
"wl_PCostes"));
247 private Visual.UserControls.btBrowPartesCostes _btBrowseProduc =
new Visual.UserControls.btBrowPartesCostes();
255 : base(_formMante, toAddon)
257 #region Código generado por el asistente de componentes. No borrar. 263 if (extensionMante == null)
269 if (((Visual.Forms.frmAlbaranProduccion)_formMante)._EstadoDocumento !=
EstadosDocumento.NoHayDocumento)
285 _Configurar_Documento();
287 extensionMante.
_Load();
294 private void _Configurar_Documento()
310 private void MantegridLinies_Resize(
object sender, EventArgs e)
316 private void MantegridPartes__Row_New_Before(ref
bool tlOk,
bool tlInsert =
false)
318 if (
string.IsNullOrEmpty(((Documentos.AlbaranProduccion)extensionMante.
_Mante)._Articulo.ToString().Trim()))
325 Visual.Forms.frmPartesCostesPendientes formPartesCostesPendientes =
new Visual.Forms.frmPartesCostesPendientes();
326 formPartesCostesPendientes._TipoPartes = Documentos.PartesCostes.TipoAlb.Produccion;
327 DialogResult res = formPartesCostesPendientes.ShowDialog();
329 if (res == DialogResult.OK)
331 foreach (Documentos.PartesCostes.PartesCostesDetalle.Linia linia in formPartesCostesPendientes.lstSeleccionadas)
334 string lcSql =
" UPDATE " + DB.SQLDatabase(
"GESTION",
"D_PARTES") +
335 " SET tipo_alb = '1', albaran = " + DB.SQLString(((Documentos.AlbaranProduccion)extensionMante.
_Mante)._Numero) +
", articulo = " + DB.SQLString(((Documentos.AlbaranProduccion)extensionMante.
_Mante)._Articulo) +
336 " WHERE numero = " + DB.SQLString(linia._Numero) +
337 " AND empresa = " + DB.SQLString(linia._Empresa) +
338 " AND linea = " + DB.SQLString(linia._Linea);
347 ((Documentos.AlbaranProduccion)extensionMante.
_Mante)._Load();
348 ((Documentos.AlbaranProduccion)extensionMante.
_Mante)._Refresh();
357 private void _MantegridParte_CellClick(
object sender, DataGridViewCellEventArgs e)
372 bool lbTipoCalculo = CalculoTipoCoste(valor);
387 private bool CalculoTipoCoste(
string lcCodigo)
389 bool lbCalculo = Convert.ToBoolean(DB.SQLValor(
"TIPO_COST",
"CODIGO", lcCodigo,
"CALCULO",
"GESTION"));
396 #endregion Código generado por el asistente de componentes. No borrar. ewgrid _Grid
Proporciona acceso al control DataGrid
PE-93426 Interficie para los módulos de la aplicación
Extensión para el mantenimiento de clientes
Clase de negocio base para mantenimientos
Nueva interficie madre de IMantes y de la que colgara ewMante. Propiedades: _Codigo, _Nombre, _Error_Message. Metodos: _New, Save, _Delete, _Load, _Existe_Registro, _Clonar
ExtensionProduccionPartes(FormMante toForm)
Inicializa una nueva instancia de la clase y asigna objetos
Visual.UserControls.manteProduccionPartes usercontrolTabManteBase
Referencia al UserControl asociado a esta clase
override void _Bloquear_Controles(bool tlReadOnly)
Bloquear controles de las extensiones de los mantes
Object _Grid
ewgrid o Mantegrid enlazado a Items
void _BloquearControles(bool tlReadOnly)
Método para bloquear los controles del UserControl
Clase para tabla relacionada
manteProduccionPartes()
Inicializa un nueva instancia de la clase
override bool _Delete()
Eliminar el registro actual
ExtensionProduccionPartes()
Inicializa una nueva instancia de la clase
Definir la estructura de las líneas Heredo de ewDocVentaLin para poder usar la clase de ExtensionesVe...
override bool _Save()
Guardar el registro actual
_Row_New_Before_Handler _Row_New_Before
Se dispara antes de insertar una nueva fila
AlbaranProduccion _AlbaranProduccion
override bool _Load()
Se dispara cuando se cargan los datos en el mantenimiento principal
IMante _Mante
Referencia al mantenimiento original
Clase base para las extensiones de documentos base
TipoExecute
Tipos de ejecución de los métodos
Negocio.Clases.ProduccionPartes ManteTRelproduccionPartes
Instancia del ManteTRel de serv_mat
sage.ew.objetos.UserControls.Mantegrid mantegridPartes
Objeto de Negocio asociado al usercontrol
Dictionary< string, ewCampoTRel > _ListDefCampos
Lista de las definiciones de campos
override bool _New(string tcCodigo="")
Se dispara cuando se va crea un nuevo registro
ExtensionProduccionPartes(sage.ew.interficies.IMante _mantePrincipal)
Inicializa una nueva instancia de la clase