SMS - Entrega almacén. con lotes
This commit is contained in:
rakcsle
@@ -6394,7 +6394,7 @@ Partial Class PopUpVerFactura
|
||||
Else
|
||||
params.Add(New ReportParameter("Fecha", Fecha.ToShortDateString))
|
||||
End If
|
||||
If UsuarioActual.CveEmpresa.Contiene(119, 141) Then
|
||||
If UsuarioActual.CveEmpresa.Contiene(119, 141, 193, 195, 197, 189) Then
|
||||
params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(drp("CveUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre")))
|
||||
End If
|
||||
If UsuarioActual.CveEmpresa.Contiene(140, 141) Then
|
||||
|
||||
@@ -1488,6 +1488,295 @@
|
||||
</TablixCell>
|
||||
</TablixCells>
|
||||
</TablixRow>
|
||||
<TablixRow>
|
||||
<Height>2.44729cm</Height>
|
||||
<TablixCells>
|
||||
<TablixCell>
|
||||
<CellContents>
|
||||
<Textbox Name="UsuarioRegistro1">
|
||||
<CanGrow>true</CanGrow>
|
||||
<KeepTogether>true</KeepTogether>
|
||||
<Paragraphs>
|
||||
<Paragraph>
|
||||
<TextRuns>
|
||||
<TextRun>
|
||||
<Value>Usuario Registró:</Value>
|
||||
<Style>
|
||||
<FontFamily>calibri</FontFamily>
|
||||
<FontSize>9pt</FontSize>
|
||||
<FontWeight>Bold</FontWeight>
|
||||
</Style>
|
||||
</TextRun>
|
||||
</TextRuns>
|
||||
<Style>
|
||||
<TextAlign>Center</TextAlign>
|
||||
</Style>
|
||||
</Paragraph>
|
||||
<Paragraph>
|
||||
<TextRuns>
|
||||
<TextRun>
|
||||
<Value>=Fields!NombreUsuario.Value</Value>
|
||||
<Style>
|
||||
<FontFamily>calibri</FontFamily>
|
||||
<FontSize>9pt</FontSize>
|
||||
</Style>
|
||||
</TextRun>
|
||||
</TextRuns>
|
||||
<Style>
|
||||
<TextAlign>Center</TextAlign>
|
||||
</Style>
|
||||
</Paragraph>
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>UsuarioRegistro1</rd:DefaultName>
|
||||
<Visibility>
|
||||
<Hidden>=IIF(IsNothing(Parameters!UsuarioRegistro.Value) OR LEN(CStr(Parameters!UsuarioRegistro.Value)) = 0, True, False)</Hidden>
|
||||
</Visibility>
|
||||
<Style>
|
||||
<Border>
|
||||
<Style>None</Style>
|
||||
</Border>
|
||||
<VerticalAlign>Bottom</VerticalAlign>
|
||||
<PaddingLeft>1pt</PaddingLeft>
|
||||
<PaddingRight>1pt</PaddingRight>
|
||||
<PaddingTop>1pt</PaddingTop>
|
||||
<PaddingBottom>1pt</PaddingBottom>
|
||||
</Style>
|
||||
</Textbox>
|
||||
<ColSpan>3</ColSpan>
|
||||
</CellContents>
|
||||
</TablixCell>
|
||||
<TablixCell />
|
||||
<TablixCell />
|
||||
<TablixCell>
|
||||
<CellContents>
|
||||
<Textbox Name="Textbox13">
|
||||
<CanGrow>true</CanGrow>
|
||||
<KeepTogether>true</KeepTogether>
|
||||
<Paragraphs>
|
||||
<Paragraph>
|
||||
<TextRuns>
|
||||
<TextRun>
|
||||
<Value />
|
||||
<Style>
|
||||
<FontFamily>calibri</FontFamily>
|
||||
<FontSize>8pt</FontSize>
|
||||
</Style>
|
||||
</TextRun>
|
||||
</TextRuns>
|
||||
<Style />
|
||||
</Paragraph>
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>Textbox13</rd:DefaultName>
|
||||
<Visibility>
|
||||
<Hidden>=IIF(IsNothing(Parameters!UsuarioRegistro.Value) OR LEN(CStr(Parameters!UsuarioRegistro.Value)) = 0, True, False)</Hidden>
|
||||
</Visibility>
|
||||
<Style>
|
||||
<Border>
|
||||
<Style>None</Style>
|
||||
</Border>
|
||||
<PaddingLeft>1pt</PaddingLeft>
|
||||
<PaddingRight>1pt</PaddingRight>
|
||||
<PaddingTop>1pt</PaddingTop>
|
||||
<PaddingBottom>1pt</PaddingBottom>
|
||||
</Style>
|
||||
</Textbox>
|
||||
</CellContents>
|
||||
</TablixCell>
|
||||
<TablixCell>
|
||||
<CellContents>
|
||||
<Textbox Name="Textbox15">
|
||||
<CanGrow>true</CanGrow>
|
||||
<KeepTogether>true</KeepTogether>
|
||||
<Paragraphs>
|
||||
<Paragraph>
|
||||
<TextRuns>
|
||||
<TextRun>
|
||||
<Value />
|
||||
<Style>
|
||||
<FontFamily>calibri</FontFamily>
|
||||
<FontSize>8pt</FontSize>
|
||||
</Style>
|
||||
</TextRun>
|
||||
</TextRuns>
|
||||
<Style />
|
||||
</Paragraph>
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>Textbox15</rd:DefaultName>
|
||||
<Visibility>
|
||||
<Hidden>=IIF(IsNothing(Parameters!UsuarioRegistro.Value) OR LEN(CStr(Parameters!UsuarioRegistro.Value)) = 0, True, False)</Hidden>
|
||||
</Visibility>
|
||||
<Style>
|
||||
<Border>
|
||||
<Style>None</Style>
|
||||
</Border>
|
||||
<PaddingLeft>1pt</PaddingLeft>
|
||||
<PaddingRight>1pt</PaddingRight>
|
||||
<PaddingTop>1pt</PaddingTop>
|
||||
<PaddingBottom>1pt</PaddingBottom>
|
||||
</Style>
|
||||
</Textbox>
|
||||
</CellContents>
|
||||
</TablixCell>
|
||||
<TablixCell>
|
||||
<CellContents>
|
||||
<Textbox Name="Textbox16">
|
||||
<CanGrow>true</CanGrow>
|
||||
<KeepTogether>true</KeepTogether>
|
||||
<Paragraphs>
|
||||
<Paragraph>
|
||||
<TextRuns>
|
||||
<TextRun>
|
||||
<Value />
|
||||
<Style>
|
||||
<FontFamily>calibri</FontFamily>
|
||||
<FontSize>8pt</FontSize>
|
||||
</Style>
|
||||
</TextRun>
|
||||
</TextRuns>
|
||||
<Style />
|
||||
</Paragraph>
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>Textbox16</rd:DefaultName>
|
||||
<Visibility>
|
||||
<Hidden>=IIF(IsNothing(Parameters!UsuarioRegistro.Value) OR LEN(CStr(Parameters!UsuarioRegistro.Value)) = 0, True, False)</Hidden>
|
||||
</Visibility>
|
||||
<Style>
|
||||
<Border>
|
||||
<Style>None</Style>
|
||||
</Border>
|
||||
<PaddingLeft>1pt</PaddingLeft>
|
||||
<PaddingRight>1pt</PaddingRight>
|
||||
<PaddingTop>1pt</PaddingTop>
|
||||
<PaddingBottom>1pt</PaddingBottom>
|
||||
</Style>
|
||||
</Textbox>
|
||||
</CellContents>
|
||||
</TablixCell>
|
||||
<TablixCell>
|
||||
<CellContents>
|
||||
<Textbox Name="Textbox18">
|
||||
<CanGrow>true</CanGrow>
|
||||
<KeepTogether>true</KeepTogether>
|
||||
<Paragraphs>
|
||||
<Paragraph>
|
||||
<TextRuns>
|
||||
<TextRun>
|
||||
<Value />
|
||||
<Style>
|
||||
<FontFamily>calibri</FontFamily>
|
||||
<FontSize>8pt</FontSize>
|
||||
<FontWeight>Bold</FontWeight>
|
||||
</Style>
|
||||
</TextRun>
|
||||
</TextRuns>
|
||||
<Style>
|
||||
<TextAlign>Right</TextAlign>
|
||||
</Style>
|
||||
</Paragraph>
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>Textbox18</rd:DefaultName>
|
||||
<Visibility>
|
||||
<Hidden>=IIF(IsNothing(Parameters!UsuarioRegistro.Value) OR LEN(CStr(Parameters!UsuarioRegistro.Value)) = 0, True, False)</Hidden>
|
||||
</Visibility>
|
||||
<Style>
|
||||
<Border>
|
||||
<Style>None</Style>
|
||||
</Border>
|
||||
<TopBorder>
|
||||
<Color>Black</Color>
|
||||
<Style>Solid</Style>
|
||||
<Width>1pt</Width>
|
||||
</TopBorder>
|
||||
<PaddingLeft>1pt</PaddingLeft>
|
||||
<PaddingRight>1pt</PaddingRight>
|
||||
<PaddingTop>1pt</PaddingTop>
|
||||
<PaddingBottom>1pt</PaddingBottom>
|
||||
</Style>
|
||||
</Textbox>
|
||||
</CellContents>
|
||||
</TablixCell>
|
||||
<TablixCell>
|
||||
<CellContents>
|
||||
<Textbox Name="Textbox19">
|
||||
<CanGrow>true</CanGrow>
|
||||
<KeepTogether>true</KeepTogether>
|
||||
<Paragraphs>
|
||||
<Paragraph>
|
||||
<TextRuns>
|
||||
<TextRun>
|
||||
<Value />
|
||||
<Style>
|
||||
<FontFamily>calibri</FontFamily>
|
||||
<FontSize>8pt</FontSize>
|
||||
</Style>
|
||||
</TextRun>
|
||||
</TextRuns>
|
||||
<Style>
|
||||
<TextAlign>Right</TextAlign>
|
||||
</Style>
|
||||
</Paragraph>
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>Textbox19</rd:DefaultName>
|
||||
<Visibility>
|
||||
<Hidden>=IIF(IsNothing(Parameters!UsuarioRegistro.Value) OR LEN(CStr(Parameters!UsuarioRegistro.Value)) = 0, True, False)</Hidden>
|
||||
</Visibility>
|
||||
<Style>
|
||||
<Border>
|
||||
<Style>None</Style>
|
||||
</Border>
|
||||
<TopBorder>
|
||||
<Style>Solid</Style>
|
||||
</TopBorder>
|
||||
<PaddingLeft>1pt</PaddingLeft>
|
||||
<PaddingRight>1pt</PaddingRight>
|
||||
<PaddingTop>1pt</PaddingTop>
|
||||
<PaddingBottom>1pt</PaddingBottom>
|
||||
</Style>
|
||||
</Textbox>
|
||||
</CellContents>
|
||||
</TablixCell>
|
||||
<TablixCell>
|
||||
<CellContents>
|
||||
<Textbox Name="Textbox20">
|
||||
<CanGrow>true</CanGrow>
|
||||
<KeepTogether>true</KeepTogether>
|
||||
<Paragraphs>
|
||||
<Paragraph>
|
||||
<TextRuns>
|
||||
<TextRun>
|
||||
<Value />
|
||||
<Style>
|
||||
<FontFamily>calibri</FontFamily>
|
||||
<FontSize>8pt</FontSize>
|
||||
</Style>
|
||||
</TextRun>
|
||||
</TextRuns>
|
||||
<Style>
|
||||
<TextAlign>Right</TextAlign>
|
||||
</Style>
|
||||
</Paragraph>
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>Textbox20</rd:DefaultName>
|
||||
<Visibility>
|
||||
<Hidden>=IIF(IsNothing(Parameters!UsuarioRegistro.Value) OR LEN(CStr(Parameters!UsuarioRegistro.Value)) = 0, True, False)</Hidden>
|
||||
</Visibility>
|
||||
<Style>
|
||||
<Border>
|
||||
<Style>None</Style>
|
||||
</Border>
|
||||
<TopBorder>
|
||||
<Style>Solid</Style>
|
||||
</TopBorder>
|
||||
<PaddingLeft>1pt</PaddingLeft>
|
||||
<PaddingRight>1pt</PaddingRight>
|
||||
<PaddingTop>1pt</PaddingTop>
|
||||
<PaddingBottom>1pt</PaddingBottom>
|
||||
</Style>
|
||||
</Textbox>
|
||||
</CellContents>
|
||||
</TablixCell>
|
||||
</TablixCells>
|
||||
</TablixRow>
|
||||
</TablixRows>
|
||||
</TablixBody>
|
||||
<TablixColumnHierarchy>
|
||||
@@ -1548,6 +1837,9 @@
|
||||
<TablixMember>
|
||||
<KeepWithGroup>Before</KeepWithGroup>
|
||||
</TablixMember>
|
||||
<TablixMember>
|
||||
<KeepWithGroup>Before</KeepWithGroup>
|
||||
</TablixMember>
|
||||
</TablixMembers>
|
||||
</TablixMember>
|
||||
</TablixMembers>
|
||||
@@ -1559,7 +1851,7 @@
|
||||
<ResetPageNumber>true</ResetPageNumber>
|
||||
</PageBreak>
|
||||
<Top>0.05076cm</Top>
|
||||
<Height>3.18542cm</Height>
|
||||
<Height>5.63271cm</Height>
|
||||
<Width>19.38789cm</Width>
|
||||
<Style>
|
||||
<Border>
|
||||
@@ -1596,7 +1888,7 @@
|
||||
</Style>
|
||||
</Textbox>
|
||||
</ReportItems>
|
||||
<Height>3.59805cm</Height>
|
||||
<Height>5.68347cm</Height>
|
||||
<Style />
|
||||
</Body>
|
||||
<Width>19.38791cm</Width>
|
||||
|
||||
@@ -1028,7 +1028,7 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
CargaGvDatos()
|
||||
|
||||
End Sub
|
||||
Private Sub CargaGvDatos(Optional CveAlmacen As Integer = -1)
|
||||
Private Sub CargaGvDatos(Optional RecargaVenta As Boolean = True)
|
||||
|
||||
If DtDatos IsNot Nothing Then
|
||||
|
||||
@@ -1057,7 +1057,7 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
'GvDatos.Columns(9).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) <> "", UsuarioActual.Empresa.Funcionalidad(147), "")
|
||||
|
||||
'SugerirFecha()
|
||||
If DdlAlmacen.SelectedValue.ToEntero > 0 And CveVentaSurtir > 0 Then
|
||||
If RecargaVenta AndAlso DdlAlmacen.SelectedValue.ToEntero > 0 And CveVentaSurtir > 0 Then
|
||||
CargaVentaPorSurtir(CveVentaSurtir, CveAlmacen:=DdlAlmacen.SelectedValue.ToEntero, CveOS:=CveOSSurtir)
|
||||
|
||||
If CargaBitacora Then
|
||||
@@ -4182,7 +4182,12 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
Next
|
||||
DtDatos.AcceptChanges()
|
||||
|
||||
CargaGvDatos()
|
||||
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
|
||||
CargaGvDatos(False)
|
||||
Else
|
||||
CargaGvDatos(True)
|
||||
End If
|
||||
|
||||
|
||||
index2 = 0
|
||||
For Each Row As DataRow In DtDatos.Rows
|
||||
@@ -4328,8 +4333,8 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
End Sub
|
||||
|
||||
Private Sub RecargaporAlmacenes()
|
||||
If DdlAlmacen.SelectedValue <> "-1" Then
|
||||
CargaGvDatos(DdlAlmacen.SelectedValue.ToEntero)
|
||||
If DdlAlmacen.SelectedValue <> "-1" AndAlso Not (UsuarioActual.Empresa.Funcionalidad(578) = "1") Then
|
||||
CargaGvDatos()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -146,9 +146,13 @@
|
||||
<asp:GridView ID="GvM" runat="server" ShowHeader="True" EmptyDataText="Aún no hay registros." AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False"
|
||||
ShowHeaderWhenEmpty="false" CssClass="table table-advance table-GvM Widthall" GridLines="None">
|
||||
<Columns>
|
||||
|
||||
<asp:HyperLinkField HeaderText="Fecha" ItemStyle-Width="75px" DataTextField="FechaMovto" ItemStyle-CssClass="Texto" DataNavigateUrlFields="CveMovimiento" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" />
|
||||
<asp:BoundField HeaderText="Almacen" DataField="Almacen" />
|
||||
<asp:HyperLinkField HeaderText="Folio" ItemStyle-Width="100px" DataTextField="Folio" ItemStyle-CssClass="Texto" DataNavigateUrlFields="CveMovimiento" ItemStyle-HorizontalAlign="Right" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" />
|
||||
<asp:BoundField HeaderText="Concepto" DataField="Concepto" />
|
||||
<asp:HyperLinkField HeaderText="Folio" ItemStyle-Width="50px" DataTextField="Folio" ItemStyle-CssClass="Texto" DataNavigateUrlFields="CveMovimiento" ItemStyle-HorizontalAlign="Right" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" />
|
||||
|
||||
<asp:BoundField HeaderText="Folio Doc." DataField="FolioDocto" />
|
||||
<asp:BoundField HeaderText="Activo Fijo" DataField="CodigoAF" ItemStyle-HorizontalAlign="Left" Visible="false" />
|
||||
<asp:BoundField HeaderText="SubProyecto" DataField="SubProyecto" ItemStyle-HorizontalAlign="Left" Visible="false" />
|
||||
<asp:BoundField HeaderText="Entradas" ItemStyle-Width="75px" DataField="Entradas" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right"/>
|
||||
|
||||
@@ -85,9 +85,12 @@ Partial Class Inventarios_RepExistenciasCostos
|
||||
End Sub
|
||||
Private Sub CargaPermisos()
|
||||
Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
|
||||
GvM.Columns(6).Visible = TienePermisoImportes
|
||||
'GvM.Columns(6).Visible = TienePermisoImportes
|
||||
'GvM.Columns(8).Visible = TienePermisoImportes
|
||||
'GvM.Columns(10).Visible = TienePermisoImportes
|
||||
GvM.Columns(8).Visible = TienePermisoImportes
|
||||
GvM.Columns(10).Visible = TienePermisoImportes
|
||||
GvM.Columns(11).Visible = TienePermisoImportes
|
||||
|
||||
End Sub
|
||||
Public Sub CargaCombos()
|
||||
@@ -214,9 +217,9 @@ Partial Class Inventarios_RepExistenciasCostos
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
Dim TienePermisoImportes = UsuarioActual.TienePermisoProceso(201)
|
||||
e.Row.Cells(6).Visible = TienePermisoImportes
|
||||
e.Row.Cells(8).Visible = TienePermisoImportes
|
||||
e.Row.Cells(10).Visible = TienePermisoImportes
|
||||
e.Row.Cells(12).Visible = TienePermisoImportes
|
||||
|
||||
Select Case e.Row.DBCampo("Orden").ToEntero
|
||||
Case 10
|
||||
@@ -226,18 +229,19 @@ Partial Class Inventarios_RepExistenciasCostos
|
||||
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
|
||||
e.Row.Cells(0).ColumnSpan = 3
|
||||
e.Row.Cells(1).Visible = False
|
||||
e.Row.Cells(2).Visible = False
|
||||
|
||||
e.Row.Cells(5).Text = ""
|
||||
e.Row.Cells(6).Text = ""
|
||||
e.Row.Cells(3).Visible = False
|
||||
|
||||
e.Row.Cells(7).Text = ""
|
||||
e.Row.Cells(8).Text = ""
|
||||
e.Row.Cells(9).Text = ""
|
||||
e.Row.Cells(10).Text = ""
|
||||
e.Row.Cells(11).Text = ""
|
||||
e.Row.Cells(12).Text = ""
|
||||
Case 15
|
||||
If e.Row.DBCampo("CveMovimiento").ToString.ToEntero <= 0 Then
|
||||
e.Row.Cells(0).Text = e.Row.DBCampo("FechaMovto")
|
||||
e.Row.Cells(2).Text = ""
|
||||
e.Row.Cells(3).Text = ""
|
||||
End If
|
||||
Case 20
|
||||
e.Row.CssClass = "SubTotales"
|
||||
@@ -246,18 +250,18 @@ Partial Class Inventarios_RepExistenciasCostos
|
||||
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
|
||||
e.Row.Cells(0).ColumnSpan = 3
|
||||
e.Row.Cells(1).Visible = False
|
||||
e.Row.Cells(2).Visible = False
|
||||
e.Row.Cells(3).Visible = False
|
||||
|
||||
e.Row.Cells(9).Text = e.Row.DBCampo("ExistenciaTotal").ToDouble().ToString("#,####.####")
|
||||
e.Row.Cells(10).Text = e.Row.DBCampo("ValorTotal").FormatoNumero
|
||||
e.Row.Cells(11).Text = e.Row.DBCampo("ExistenciaTotal").ToDouble().ToString("#,####.####")
|
||||
e.Row.Cells(12).Text = e.Row.DBCampo("ValorTotal").FormatoNumero
|
||||
End Select
|
||||
|
||||
|
||||
End If
|
||||
End Sub
|
||||
Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
|
||||
GvM.Columns(3).Visible = ChkActivoFijo.Checked
|
||||
GvM.Columns(4).Visible = ChkSubProyecto.Checked
|
||||
GvM.Columns(5).Visible = ChkActivoFijo.Checked
|
||||
GvM.Columns(6).Visible = ChkSubProyecto.Checked
|
||||
UPPEquiv.Update()
|
||||
End Sub
|
||||
|
||||
@@ -308,169 +312,7 @@ Partial Class Inventarios_RepExistenciasCostos
|
||||
#End Region
|
||||
|
||||
|
||||
'#Region "UNIFICAR PS"
|
||||
' Protected Sub BtnCargaPS_Click(sender As Object, e As EventArgs)
|
||||
' CargaPS()
|
||||
' End Sub
|
||||
' Private Sub CargaPS()
|
||||
' Dim DtPS As DataTable = GlobalDTProductosServicios(UsuarioActual.CveEmpresa)
|
||||
|
||||
' DdlPSPrimario.Items.Clear()
|
||||
' DdlPSUnificado.Items.Clear()
|
||||
' DdlPSPrimario.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
' DdlPSUnificado.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
' DdlPSPrimario.DataSource = DtPS
|
||||
' DdlPSUnificado.DataSource = DtPS
|
||||
' DdlPSPrimario.DataBind()
|
||||
' DdlPSUnificado.DataBind()
|
||||
' DtPS.Dispose()
|
||||
' End Sub
|
||||
' Protected Sub BtnUnificarPS_Click(sender As Object, e As EventArgs)
|
||||
' If DdlPSPrimario.SelectedValue = DdlPSUnificado.SelectedValue Then
|
||||
' Alert("El Producto/Servicio a unificar no puede ser el mismo al primario. Por favor verifique y vuelva a intetar.", TipoMensaje.MsgAdvertencia)
|
||||
' Exit Sub
|
||||
' End If
|
||||
|
||||
' 'Dim ObjPS As New ClsProductosServicios()
|
||||
|
||||
' 'If ObjPS.UnificarPS(DdlPSPrimario.SelectedValue.ToEntero, DdlPSUnificado.SelectedValue.ToEntero) Then
|
||||
' ' Alert("El Producto/Servicio Fue unificado correctamente.", TipoMensaje.MsgInformacion)
|
||||
|
||||
' ' RegistraScript("$get('DivUnificarPS').style.display='none';")
|
||||
' ' DdlPSPrimario.SelectedValue = "-1"
|
||||
' ' DdlPSUnificado.SelectedValue = "-1"
|
||||
' ' 'CargaPS()
|
||||
' 'Else
|
||||
' ' Alert("Ocurrió un error al unificar el Producto/Servicio. Por favor vuelta a intentar.", TipoMensaje.MsgError)
|
||||
' 'End If
|
||||
|
||||
' 'ObjPS.Dispose()
|
||||
|
||||
' Dim CveMovimientoSalida = 0
|
||||
' Dim CveMovimientoEntrada = 0
|
||||
' Dim Existencia As Double
|
||||
|
||||
' Dim IDPoliza As Integer = 0
|
||||
' Dim Folio = 0
|
||||
' Dim Fecha As Date = NowADS() 'TxtFecha.Text.ToDate
|
||||
|
||||
' Dim TieneError = False
|
||||
' Dim TextoError = ""
|
||||
' Dim ObjInventario As New ClsInventarios
|
||||
' ObjInventario.IniciaTransacSQL()
|
||||
|
||||
' Dim DtAlmacenes As New DataTable
|
||||
|
||||
' If ObjInventario.GetAlmacenes() Then
|
||||
' DtAlmacenes = ObjInventario.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
|
||||
' Else
|
||||
' TieneError = True
|
||||
' End If
|
||||
|
||||
|
||||
|
||||
' If Not TieneError Then
|
||||
' Dim CvePSPrimario = 0
|
||||
' Dim CveUMPrimario = 0
|
||||
' Dim CvePSUnificado = 0
|
||||
' Dim CveUMUnificado = 0
|
||||
' Dim DTPS1 As DataTable = GlobalDTProductosServicios(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CvePS = {0}", DdlPSPrimario.SelectedValue.ToEntero))
|
||||
' Dim DTPS2 As DataTable = GlobalDTProductosServicios(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CvePS = {0}", DdlPSUnificado.SelectedValue.ToEntero))
|
||||
|
||||
' For Each dr As DataRow In DtAlmacenes.Rows
|
||||
' CvePSPrimario = DTPS1.Rows(0)("CvePS").ToString.ToEntero
|
||||
' CveUMPrimario = DTPS1.Rows(0)("CveUM").ToString.ToEntero
|
||||
' CvePSUnificado = DTPS2.Rows(0)("CvePS").ToString.ToEntero
|
||||
' CveUMUnificado = DTPS2.Rows(0)("CveUM").ToString.ToEntero
|
||||
|
||||
|
||||
' 'VALIDA LA EXISTENCIA
|
||||
' Existencia = ObjInventario.GetExistenciasPS(CvePSUnificado, CveUMUnificado, UsuarioActual.CveEmpresa, dr("CveAlmacen").ToString.ToEntero)
|
||||
|
||||
|
||||
' 'REGISTRA LA SALIDA Y ENTRADA (TRASPASO)
|
||||
' If Existencia > 0 Then
|
||||
|
||||
' 'AGREGAMOS LA SALIDA
|
||||
' Folio = ObjInventario.GetFolioSiguiente(3, UsuarioActual.CveEmpresa)
|
||||
' CveMovimientoSalida = ObjInventario.AddMovimiento(dr("CveAlmacen").ToString.ToEntero, 3, 1, Fecha, Folio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1)
|
||||
|
||||
' If CveMovimientoSalida > 0 Then
|
||||
' If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Existencia, CveUMUnificado, CvePSUnificado, 0, -1) Then
|
||||
' TieneError = True
|
||||
' TextoError = "Ocurrió un error al guardar los movimientos de salida"
|
||||
' Exit For
|
||||
' End If
|
||||
' Else
|
||||
' TieneError = True
|
||||
' TextoError = "No se pudo generar el movimiento de salida correctamente"
|
||||
' Exit For
|
||||
' End If
|
||||
|
||||
|
||||
' 'AGREGAMOS LA ENTRADA
|
||||
' Folio = ObjInventario.GetFolioSiguiente(2, UsuarioActual.CveEmpresa)
|
||||
' CveMovimientoEntrada = ObjInventario.AddMovimiento(1, 2, 1, Fecha, Folio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1)
|
||||
|
||||
' If CveMovimientoEntrada > 0 Then
|
||||
|
||||
' If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
|
||||
|
||||
' For Each dr2 As DataRow In ObjInventario.DtResultados.Rows
|
||||
' If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, dr2("Cantidad").ToString.ToDouble, dr2("CveUM").ToString.ToEntero, CvePSPrimario, dr2("PU").ToString.ToDouble, -1) Then
|
||||
' TieneError = True
|
||||
' TextoError = "Ocurrió un error al guardar los movimientos de entrada"
|
||||
' Exit For
|
||||
' End If
|
||||
' Next
|
||||
|
||||
' If TieneError Then Exit For
|
||||
' Else
|
||||
' Exit For
|
||||
' TextoError = "Ocurrió un error al guardar los movimientos de entrada"
|
||||
' End If
|
||||
|
||||
' Else
|
||||
' TieneError = True
|
||||
' TextoError = "No se pudo generar el movimiento de entrada correctamente"
|
||||
' Exit For
|
||||
' End If
|
||||
|
||||
' End If
|
||||
|
||||
' Next
|
||||
' DTPS1.Dispose()
|
||||
' DTPS2.Dispose()
|
||||
' End If
|
||||
|
||||
|
||||
' If Not TieneError Then
|
||||
' ObjInventario.Commit()
|
||||
' Alert("El producto se ha unificado correctamente.", TipoMensaje.MsgInformacion)
|
||||
' CargaPS()
|
||||
' Else
|
||||
' ObjInventario.RollBack()
|
||||
' Alert(TextoError, TipoMensaje.MsgError)
|
||||
' End If
|
||||
|
||||
' ObjInventario.Dispose()
|
||||
' End Sub
|
||||
|
||||
' Private Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClasificacion.SelectedIndexChanged
|
||||
' If DdlClasificacion.SelectedValue = "-1" Then
|
||||
' ddlProducto.DataSource = TmpPS
|
||||
' Else
|
||||
' If isWhitFamily() Then
|
||||
' ddlProducto.DataSource = TmpPS.FiltraParametros(String.Format("CveSubFamilia={0}", DdlClasificacion.SelectedValue), "PS")
|
||||
' Else
|
||||
' ddlProducto.DataSource = TmpPS.FiltraParametros(String.Format("CveClasificacion={0}", DdlClasificacion.SelectedValue), "PS")
|
||||
' End If
|
||||
' End If
|
||||
' ddlProducto.Items.Clear()
|
||||
' ddlProducto.DataBind()
|
||||
' ddlProducto.Items.Insert(0, New ListItem("----", "-1"))
|
||||
' End Sub
|
||||
' #End Region
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
@@ -5465,10 +5465,10 @@ Partial Class OC_OC
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub EnviaCorreoSolicitudAnticipo(CveEvento As Integer, ImporteAnticipo As Decimal, CveUsuaioCorreo As Integer)
|
||||
Private Sub EnviaCorreoSolicitudAnticipo(CveEvento As Integer, ImporteAnticipo As Decimal, CveUsuarioCorreo As Integer)
|
||||
Dim Param As New List(Of String)
|
||||
|
||||
Dim DtPara As DataTable = GlobalDTUsuarios(CveUsuaioCorreo, CveEmpresaActual)
|
||||
Dim DtPara As DataTable = GlobalDTUsuarios(CveUsuarioCorreo, CveEmpresaActual)
|
||||
|
||||
'If DdlMetodoPago.SelectedValue.ToEntero = 0 Then
|
||||
|
||||
|
||||
Reference in New Issue
Block a user