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

Bancos/PagoDeudor.aspx.cs

@@ -365,7 +365,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas
                         {
                             MsgError = "No se pudo insertar concepto de bancos complementaria";
                         }
-                        s
+                        
                         // BANCOS 
                         if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, TxtImportePrestamo.Text.ToDecimal(), Ref, CveConceptoContableBanco, Conc, IDCtaContableBancosPrestamo, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteMX: TxtImportePrestamo.Text.ToDecimal(), ImporteME: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero()))
                         {

Inventarios/EntregaAlmacen.aspx.vb

@@ -2491,7 +2491,7 @@ Partial Class Inventarios_EntregaAlmacen
                                     If TipoMovimiento = 2 AndAlso DtExistencias IsNot Nothing Then
                                         'CveSeccionAlmacen = DtExistencias.FiltroPrimeroValor("CveSeccionAlmacen", $"ISNULL(CveTipoAlmacenDevolucion,0) <> 26 AND CvePS = {Dr("CvePS")} AND CveUM = {Dr("CveUM").ToString().ToEntero()} AND Serie = '{Dr1("Serie").ToString()}'").ToString().ToEntero
 
-                                        PU = DtExistencias.FiltroPrimeroValor("PU", $"CveTipoAlmacenDevolucion <> 26 AND CvePS = {Dr("CvePS")} AND CveUM = {Dr("CveUM").ToString().ToEntero()} AND Serie = '{Dr1("Serie").ToString()}'").ToString().ToDecimal
+                                        PU = DtExistencias.FiltroPrimeroValor("PU", $"ISNULL(CveTipoAlmacenDevolucion,-1) <> 26 AND CvePS = {Dr("CvePS")} AND CveUM = {Dr("CveUM").ToString().ToEntero()} AND Serie = '{Dr1("Serie").ToString()}'").ToString().ToDecimal
                                     End If
 
                                     If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, 1, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), PU, Serie:=Dr1("Serie").ToString(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), CveVentaDetalleRemision:=Dr("CveVentaDetalleRemision").ToString().ToEntero(), FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString().ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1"), CveSeccionAlmacen:=-3) Then

Ventas/Clientes.aspx.vb

@@ -7462,64 +7462,89 @@ Partial Class Clientes
 
     Protected Sub ImprimirPagare(sender As Object, e As EventArgs) Handles BtnAgregarPagare.Click
         Dim memoryStreamDoc As New System.IO.MemoryStream
-        Dim objGemBoxDocument As New clsGemBoxDocument(linkDescargaPagare)
-        Dim Tags As New List(Of TagsDocumentos)
-        Dim ObjClientes As New ClsClientes
 
-        Dim monto As String = ""
+        If Not File.Exists(linkDescargaPagare) Then
-        Dim razonSocial As String = ""
+            Alert("No existe el formato", TipoMensaje.MsgAdvertencia)
-        Dim direccion As String = ""
-        Dim ciudad As String = ""
-        Dim Telefono As String = ""
-        Dim mesArray = New String() {"Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio", "Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre"}
-        Dim hoy As DateTime = DateTime.Now
-        Dim fechaConFormato As String = String.Format("{0} de {1} del {2}", hoy.Day, mesArray(hoy.Month), hoy.Year)
-
-        If ObjClientes.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
-            monto = ObjClientes.DtResultados.FiltroPrimeroValor("LimiteCredito").ToDouble.ToString("N")
-            razonSocial = ObjClientes.DtResultados.FiltroPrimeroValor("NombreComercial")
-            direccion = ObjClientes.DtResultados.FiltroPrimeroValor("Direccion")
-            ciudad = ObjClientes.DtResultados.FiltroPrimeroValor("Ciudad")
-            Telefono = ObjClientes.DtResultados.FiltroPrimeroValor("Telefono")
-        End If
-
-        Tags.Add(New TagsDocumentos("{Monto}", monto))
-        Tags.Add(New TagsDocumentos("{Fecha}", fechaConFormato))
-        Tags.Add(New TagsDocumentos("{FechaConFormato}", fechaConFormato))
-        Tags.Add(New TagsDocumentos("{CantidadLetra}", monto.ToDouble.Texto2Letras(1)))
-        Tags.Add(New TagsDocumentos("{RazonSocial}", razonSocial))
-        Tags.Add(New TagsDocumentos("{Direccion}", direccion))
-        Tags.Add(New TagsDocumentos("{Ciudad}", ciudad))
-        Tags.Add(New TagsDocumentos("{Telefono}", Telefono))
-        Tags.Add(New TagsDocumentos("{RazonSocialAval}", TxtAval.Text))
-        Tags.Add(New TagsDocumentos("{DireccionAval}", TxtDireccionAval.Text))
-        Tags.Add(New TagsDocumentos("{CiudadAval}", TxtCiudadAval.Text))
-        Tags.Add(New TagsDocumentos("{TelefonoAval}", TxtTelefonoAval.Text))
-        Tags.Add(New TagsDocumentos("{RepresentanteLegal}", TxtRepresentanteLegal.Text))
-
-
-
-        If Not ObjClientes.AddClientePagare(CveCliente, UsuarioActual.CveEmpresa, TxtAval.Text, TxtDireccionAval.Text) Then
-            Alert("no se pudo registrar el pagare")
             Exit Sub
         End If
 
+        Dim objGemBoxDocument As New clsGemBoxDocument(linkDescargaPagare)
+        Dim Tags As New List(Of TagsDocumentos)
+
+        Dim ObjClientes As New ClsClientes
+        Dim TieneError As Boolean = False
+
+        Try
+            Dim monto As String = ""
+            Dim razonSocial As String = ""
+            Dim direccion As String = ""
+            Dim colonia As String = ""
+            Dim noInt As String = ""
+            Dim noExt As String = ""
+            Dim ciudad As String = ""
+            Dim estado As String = ""
+            Dim Telefono As String = ""
+            Dim mesArray = New String() {"Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio", "Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre"}
+            Dim hoy As DateTime = DateTime.Now
+            Dim fechaConFormato As String = String.Format("{0} de {1} del {2}", hoy.Day, mesArray(hoy.Month), hoy.Year)
+
+            If ObjClientes.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
+                monto = ObjClientes.DtResultados.FiltroPrimeroValor("LimiteCredito").ToDouble.ToString("N")
+                razonSocial = ObjClientes.DtResultados.FiltroPrimeroValor("NombreComercial")
+                direccion = ObjClientes.DtResultados.FiltroPrimeroValor("Direccion")
+                colonia = ObjClientes.DtResultados.FiltroPrimeroValor("Colonia")
+                noInt = ObjClientes.DtResultados.FiltroPrimeroValor("NoInt")
+                noExt = ObjClientes.DtResultados.FiltroPrimeroValor("NoExt")
+                ciudad = ObjClientes.DtResultados.FiltroPrimeroValor("Ciudad")
+                estado = ObjClientes.DtResultados.FiltroPrimeroValor("Estado")
+                Telefono = ObjClientes.DtResultados.FiltroPrimeroValor("Telefono")
+            End If
+
+            Tags.Add(New TagsDocumentos("{Monto}", monto))
+            Tags.Add(New TagsDocumentos("{Fecha}", fechaConFormato))
+            Tags.Add(New TagsDocumentos("{FechaConFormato}", fechaConFormato))
+            Tags.Add(New TagsDocumentos("{CantidadLetra}", monto.ToDouble.Texto2Letras(1)))
+            Tags.Add(New TagsDocumentos("{RazonSocial}", razonSocial))
+            Tags.Add(New TagsDocumentos("{Direccion}", String.Format("{0} #{1} {2}, COL.{3}", direccion, noInt, noExt, colonia).ToUpper()))
+            Tags.Add(New TagsDocumentos("{Ciudad}", String.Format("{0}, {1}", ciudad, estado).ToUpper()))
+            Tags.Add(New TagsDocumentos("{Telefono}", Telefono))
+            Tags.Add(New TagsDocumentos("{RazonSocialAval}", TxtAval.Text))
+            Tags.Add(New TagsDocumentos("{DireccionAval}", TxtDireccionAval.Text))
+            Tags.Add(New TagsDocumentos("{CiudadAval}", TxtCiudadAval.Text))
+            Tags.Add(New TagsDocumentos("{TelefonoAval}", TxtTelefonoAval.Text))
+            Tags.Add(New TagsDocumentos("{RepresentanteLegal}", TxtRepresentanteLegal.Text))
+
+            If Not ObjClientes.AddClientePagare(CveCliente, UsuarioActual.CveEmpresa, TxtAval.Text, TxtDireccionAval.Text) Then
+                Alert("no se pudo registrar el pagare")
+                TieneError = True
+            End If
+
+            If Not TieneError Then
+                Alert("Pagaré registrado con exito")
+            End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al registrar el pagare", ex)
+        End Try
+        ObjClientes.Dispose()
+
         'objGemBoxDocument.AgregarImagen(RutaLogo, 61.0, 53.0)
         RegistraScript("$('#ModalDivPagare').modal('hide')")
-        Alert("Pagaré registrado con exito")
 
-        objGemBoxDocument.SustituirTags(Tags)
+        If Not TieneError Then
-        objGemBoxDocument.GuardarStream()
+            objGemBoxDocument.SustituirTags(Tags)
-        Dim memoryStream As New System.IO.MemoryStream(objGemBoxDocument.GetBytesDocumento())
+            objGemBoxDocument.GuardarStream()
-        objGemBoxDocument.Dispose()
+            Dim memoryStream As New System.IO.MemoryStream(objGemBoxDocument.GetBytesDocumento())
-        ObjClientes.Dispose()
+            objGemBoxDocument.Dispose()
-        Response.Clear()
+
-        Response.ContentType = "application/text"
+            Response.Clear()
-        Response.AddHeader("content-disposition", "attachment;filename=pagare.docx")
+            Response.ContentType = "application/text"
-        Response.Buffer = True
+            Response.AddHeader("content-disposition", "attachment;filename=pagare.docx")
-        memoryStream.WriteTo(Response.OutputStream)
+            Response.Buffer = True
-        Response.End()
+            memoryStream.WriteTo(Response.OutputStream)
-        memoryStream.Dispose()
+            Response.End()
+            memoryStream.Dispose()
+        End If
+
 
     End Sub