From 531b270a003e3c242eaa134ec6b2113677e1eb79 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Sat, 16 Sep 2023 10:55:41 -0700 Subject: [PATCH 01/41] --- Compras/PopUpVerFactura.aspx.vb | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 0ec2f8250..d1a70d945 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -386,7 +386,7 @@ Partial Class PopUpVerFactura '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" Dim rutardlc = "Formatos\RepAgroInventarioDiario.rdlc" If EnviarCorrreo Then - Dim para As String = "caudillo.90d@gmail.com" + Dim para As String = "" Dim dtCorreos As DataTable = New DataTable() Using objnom As New ClsCGame @@ -394,8 +394,10 @@ Partial Class PopUpVerFactura dtCorreos = objnom.DtResultados End If End Using + Dim coma As String = "" For Each row As DataRow In dtCorreos.Rows - para = String.Format("{0},{1}", para, row("Correo")) + para = String.Format("{0}{2}{1}", para, row("Correo"), coma) + coma = "," Next Dim archivoBinario As Byte() = StreamPDF(rutardlc, lrds, params, "Inventario", formato) From ff3c1a139dd8644b127473ac91abafd6c655fb69 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 19 Sep 2023 22:06:31 -0700 Subject: [PATCH 02/41] - metodo pedimento en ventas --- App_Code/ClsInventarios.vb | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index c31d7663f..862c9858e 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -6063,6 +6063,25 @@ Public Class ClsInventarios Return Retorno End Function + Public Function GetVentasPedimento(CveVenta As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_VentasPedimentosGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al consultar los productos por serie.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + #Region " IDisposable Support " ' IDisposable Protected Overridable Sub Dispose(ByVal disposing As Boolean) From dd4cbc02b4a71179699b640d09f3696136ef097b Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 20 Sep 2023 12:08:01 -0700 Subject: [PATCH 03/41] -- formato pedimento --- Compras/Compras.aspx | 81 +- Compras/Compras.aspx.vb | 2382 +++++++++++++++++++-------------------- 2 files changed, 1194 insertions(+), 1269 deletions(-) diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 98d818134..9104bd152 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -4,9 +4,9 @@ -
  • + <%--
  • -
    • + --%>     @@ -62,9 +62,9 @@ -
  • + <%--
  • Contabilizar -
    • + --%>
  • Pagar
    • @@ -502,7 +502,7 @@ - <%----%> + <%----%> @@ -2516,13 +2516,13 @@
    - +
    +
    Observaciones Generales: 
    -
    @@ -3433,57 +3433,7 @@
    - - - +