Merge branch 'master' of http://192.168.10.111:8383/SIG

Bancos/PagoElectronico.aspx.vb

@@ -798,9 +798,14 @@ Partial Class Bancos_PagoElectronico
         '''''' LLENADO HEADER
         Dim convenio As String = DTPendienteActual(0)("ConvenioPagoElectronico").ToString
         'Campos #1-4 del Header
-        HeaderTexto = String.Format("H{0}{1}GRUPO01   ", convenio.PadLeft(9, PadCeros), DateTime.Now().ToString("yyyy-MM-dd"))
+        HeaderTexto = String.Format("H{0}{1}GRUPO01   ", convenio.PadLeft(9, PadCeros), DateTime.Now().ToString("yyyy-MM-dd"))
-        'Campo #5 del Header
+        'Campo #5 del Header
-        HeaderTexto &= String.Format("{0}{1}", UsuarioActual.Usuario, DateTime.Now().ToString("yyyyMMdd")).PadRight(20)
+
+        Dim IdentificadoUsuario As String = UsuarioActual.Usuario.Replace(" ", "").Replace(".", "").Replace("@", "").Replace("/", "").ToUpper.Trim
+        IdentificadoUsuario = If(IdentificadoUsuario.Length > 12, IdentificadoUsuario.Substring(0, 12), IdentificadoUsuario)
+        ' Dim Identificado As String = String.Format("{0}{1}", UsuarioActual.Usuario, DateTime.Now().ToString("yyyyMMdd")))
+
+        HeaderTexto &= String.Format("{0}{1}", IdentificadoUsuario, DateTime.Now().ToString("yyyyMMdd")).PadRight(20)
         'Campos #6-8 del Header
         HeaderTexto &= String.Format("00").PadRight(586)
         Dim HeaderLength = HeaderTexto.Length

Bancos/ProveedoresAbonar.aspx.vb

@@ -2298,7 +2298,12 @@ Partial Class Bancos_ProveedoresAbonar
                 End If
 
                 DdlCuentaDeposito.DataBind()
-                DdlCuentaDeposito.SelectedIndex = 1
+
+
+                If DdlCuentaDeposito.Items.Count > 1 Then
+                    DdlCuentaDeposito.SelectedIndex = 1
+                End If
+
             End If
 
         End If

LogTimbrado.txt

@@ -16,3 +16,7 @@
  .. PAC: 4 - Verificado : (6) 6 Certificado : (384) 390 Armado: (27) 417 Genera: (390) 807 Timbrado: (2271) 3078 Guardado: (219) 3297 Actualizado: (902) 4199  ..01/10/2019:12:27 a. m.
 
  .. PAC: 4 - Verificado : (0) 0 Certificado : (204) 204 Armado: (1) 205 Genera: (249) 454 Timbrado: (431) 885  ..01/10/2019:12:27 a. m.
+
+ .. PAC: 2 - Verificado : (32764) 32764 Armado: (660) 33424 Guardado: (445) 33869 Timbrado: (156762) 190631  ..06/11/2019:09:39 a. m.
+
+ .. PAC: 2 - Verificado : (2018) 2018 Armado: (96902) 98920 Guardado: (312) 99232 Timbrado: (1201) 100433  ..06/11/2019:09:41 a. m.

OS/OrdenesServicios.aspx.vb

@@ -1037,7 +1037,7 @@ Partial Class OS_OrdenesServicios
                     Dim Cantidad As Integer = Row("Cantidad").ToString.ToEntero
                     Dim Archivo As New System.IO.FileInfo(String.Format("{0}OS\Temp\{1}", UsuarioActual.Empresa.Ruta, Row("Archivo").ToString))
 
-                    CveOsDetalle = ObjOrdenServicio.AddOrdenesServiciosDetalle(ObjOrdenServicio.CveOS, CvePS, Cantidad, -1, -1, Observaciones, False, SeFacturara, False, CveCuentaEquipo, "-1", "-1", "-1", ComentarioTecnico, UsuarioActual.CveUsuario, Archivo:=Archivo.Name)
+                    CveOsDetalle = ObjOrdenServicio.AddOrdenesServiciosDetalle(ObjOrdenServicio.CveOS, CvePS, Cantidad, -1, -1, Observaciones, False, True, False, CveCuentaEquipo, "-1", "-1", "-1", ComentarioTecnico, UsuarioActual.CveUsuario, Archivo:=Archivo.Name)
 
                     If CveOsDetalle > 0 Then
                         If Archivo.Name <> "-1" AndAlso Archivo.Exists Then
@@ -1300,8 +1300,8 @@ Partial Class OS_OrdenesServicios
             Row.FCLinkButton("imgEstatus").CssClass = "btn btn-circle btn-sm green"
         Else
             Row.FCLinkButton("imgEstatus").Enabled = False
-            'TmpDT.Rows(Row.RowIndex)("Estatus") = "False"
+            TmpDT.Rows(Row.RowIndex)("Estatus") = "False"
-            'Row.FCLinkButton("imgEstatus").CssClass = "btn btn-circle btn-sm red"
+            Row.FCLinkButton("imgEstatus").CssClass = "btn btn-circle btn-sm red"
         End If
     End Sub
     Private Sub BtnAddGvDetalle_Click(sender As Object, e As EventArgs) Handles BtnAddGvDetalle.Click
@@ -2265,9 +2265,16 @@ Partial Class OS_OrdenesServicios
                 TieneError = True
             End If
 
+            'SI OCURRIO UN ERROR EN LA EXISTENCIA RECARGAMOS EL GRID PARA COLOREAR LOS DETALLES CON ERROR
+            If ErrorExistencia Then
+                Alert("Ocurrió un error en la existencia", TipoMensaje.MsgError)
+                TieneError = True
+            End If
+
             If Not TieneError Then
                 Dim ObjOS As New ClsOS
-                For Each Row As DataRow In TmpDTMaterialesDetalle.Rows
+                Dim MaterialesDetalleNuevos As DataTable = TmpDTMaterialesDetalle.FiltraParametros("CveMaterial = -1")
+                For Each Row As DataRow In MaterialesDetalleNuevos.Rows
                     Dim CveUM As Integer = Row("CveUM").ToString.ToEntero
                     Dim CvePS As Integer = Row("CvePS").ToString.ToEntero
                     Dim Cantidad As Integer = Row("Cantidad").ToString.ToEntero
@@ -2287,13 +2294,6 @@ Partial Class OS_OrdenesServicios
                 ObjOS.Dispose()
             End If
 
-
-            'SI OCURRIO UN ERROR EN LA EXISTENCIA RECARGAMOS EL GRID PARA COLOREAR LOS DETALLES CON ERROR
-            If ErrorExistencia Then
-                Alert("Ocurrió un error en la existencia", TipoMensaje.MsgError)
-                TieneError = True
-            End If
-
             If Not TieneError Then
                 ObjInventario.Commit()
                 Alert($"El Traspaso se guardó correctamente con el folio #: <b>{Folio}</b>.", TipoMensaje.MsgInformacion, $"document.location.href=""/Inventarios/TrasladoSolicitud.aspx?CveTraspasoSolicitud={CveTraspasoSolicitud}""")