Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Compras/PopUpVerFactura.aspx.vb

@@ -472,6 +472,13 @@ Partial Class PopUpVerFactura
             End If
         End If
 
+        'IMPRIME ENTREGAS POR REALIZAR
+        If UrlParametros("OP").ToString = "ENTREGAS" Then
+            If UrlParametros("CVETICK") IsNot Nothing And UrlParametros("USUARIOENTREGA") IsNot Nothing Then
+                ImprimeEntregasPorRealziar(UrlParametros("CVETICK").ToString, UrlParametros("USUARIOENTREGA").ToString)
+            End If
+        End If
+
     End Sub
 
     Private Function Parametros(Cadena As String) As Hashtable
@@ -3978,7 +3985,7 @@ Partial Class PopUpVerFactura
                     params.Add(New ReportParameter("CajaChica", "Caja chica: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString))
                     params.Add(New ReportParameter("observaciones", "Observaciones: " & ParamComprobacion.Rows(0)("Observaciones").ToString))
                     params.Add(New ReportParameter("folio", ParamComprobacion.Rows(0)("Folio").ToString))
-                    params.Add(New ReportParameter("fecha", ParamComprobacion.Rows(0)("FechaDocumento").ToString))
+                    params.Add(New ReportParameter("fecha", ParamComprobacion.Rows(0)("FechaDocumento").ToString.ToDate.ToShortDateString))
                     params.Add(New ReportParameter("importe", ParamComprobacion.Rows(0)("Importe").ToString))
                     params.Add(New ReportParameter("TotAbono", DtComprobacion.SUM("Abonado").ToString))
 
@@ -4162,7 +4169,23 @@ Partial Class PopUpVerFactura
         Else
             RegistraScript("alert('No hay un formato de factura predefinido,favor de comunicar a soporte tecnico')")
         End If
-    End Sub
+    End Sub
 #End Region
-
+
+#Region "OP = ENTREGAS - Entregas por realizar"
+    Public Sub ImprimeEntregasPorRealziar(pCveTick As String, pUsuarioEntregar As String)
+        Dim CveTick As Long = pCveTick.ToLong()
+        Dim ObjGeneral As New ClsGenerales
+        If ObjGeneral.GetEntregasPorRealizar(UsuarioActual.CveEmpresa, CveTick) Then
+            Dim DtPaqueteriasGuias As DataTable = ObjGeneral.DtResultados
+            Dim RepParams As New List(Of ReportParameter)
+            RepParams.Add(New ReportParameter("Fecha", DateTime.Today.ToString()))
+            RepParams.Add(New ReportParameter("AsignadoA", pUsuarioEntregar))
+            RepParams.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+
+            ImprimirPDF($"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntregasPorRealizar.rdlc", DtPaqueteriasGuias, RepParams, "Entregas por realizar", "PDF", RDSName:="DsInventarios")
+        End If
+    End Sub
+#End Region
+
 End Class

Compras/Proveedores.aspx

@@ -1944,7 +1944,7 @@
                                                 <div runat="server">
 
                                                     <asp:GridView ID="GvBancosCuentas" GridLines="None" BorderColor="#D3D3D3" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-sort="true" runat="server" 
-                                                        DataKeyNames="CveCuentaDeposito,BancoNombre,Sucursal,Cuenta,CLABE,SWIFT,Plaza,CIE,Referencia,RefCrediProveedor,CveMoneda,Estatus,Correo,BBVAAlias,EstatusPagoElectronico,EstatusPagoElectronicoGrupos,CveSATBanco" AutoGenerateColumns="False" 
+                                                        DataKeyNames="CveCuentaDeposito,BancoNombre,Sucursal,Cuenta,CLABE,SWIFT,Plaza,CIE,Referencia,RefCrediProveedor,CveMoneda,Estatus,Correo,BBVAAlias,EstatusPagoElectronico,EstatusPagoElectronicoGrupos,CveSATBanco,ConceptoCIE" AutoGenerateColumns="False" 
                                                         EmptyDataText="No se encontraron registros" ToolTip="Listado de Cuentas Bancarias">
 
                                                         <Columns>
@@ -3568,11 +3568,19 @@
                             <%--<ajax:FilteredTextBoxExtender ID="SoloNumeros3" runat="server" TargetControlID="TxtConvenioCIE" FilterType="Numbers" />--%>
                             <label for="<%= TxtConvenioCIE.ClientID.ToString()%>">CIE:</label>
                         </div>
+                        
                         <div class="form-group form-md-line-input input-iconright">
                             <asp:TextBox ID="TxtReferencia" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="20" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
                             <ajax:FilteredTextBoxExtender ID="SoloNumeros3" runat="server" TargetControlID="TxtReferencia" FilterType="UppercaseLetters,LowercaseLetters,Numbers" />
                             <label for="<%= TxtReferencia.ClientID.ToString()%>">Referencia:</label>
                         </div>
+
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:TextBox ID="TxtConceptoCIE" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="30" ></asp:TextBox>
+                            <ajax:FilteredTextBoxExtender ID="FilAlfanumerico" runat="server" TargetControlID="TxtConceptoCIE" FilterType="UppercaseLetters,LowercaseLetters,Numbers" />
+                            <label for="<%= TxtReferencia.ClientID.ToString()%>">Concepto CIE:</label>
+                        </div>
+
                         <div class="form-group form-md-line-input input-iconright">
                             <asp:TextBox ID="TxtRefCrediProveedor" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="5" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
                             <label for="<%= TxtRefCrediProveedor.ClientID.ToString()%>">Credito Proveedor:</label>

Compras/Proveedores.aspx.vb

@@ -3111,30 +3111,53 @@ Partial Class Compras_Proveedores
             End If
 
         Else
-
             'SI CIE TIENE ALGO DEBE TENER UNA LOGITUD MINIMA DE 5
             If TxtConvenioCIE.Text.Trim.Length <> 0 And TxtConvenioCIE.Text.Trim.Length < 5 Then
                 Alert("El Convenio CIE debe tener una longitud de al menos 5 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
                 Exit Sub
+            End If
+        End If
+
+
+
+        If ChkPagoElectronicoGrupos.Checked Then
+
+            If TxtConvenioCIE.Text.Trim.Length > 0 Then
+
+                If TxtConvenioCIE.Text.Trim.Length < 5 Then
+                    Alert("El campo CIE debe de tener una tamaño mininmo 5 caracteres.", TipoMensaje.MsgAdvertencia)
+                    Exit Sub
+                End If
+
+                If Not DdlSatBanco.SelectedValue.ToEntero > 0 Then
+                    Alert("Se debe de especificar el banco.")
+                    Exit Sub
+                End If
+
+
+
             End If
 
         End If
+
         Dim Estatus As Boolean
         If ChkEstatus.Checked = True Then Estatus = True Else Estatus = False
 
         AgregarCuentaBanco(TxtNombreBanco.Text.Trim, TxtNumeroSucursal.Text.Trim, TxtCLABE.Text.Trim, TxtSWIFT.Text.Trim, TxtPlaza.Text.Trim, TxtNumeroCuenta.Text.Trim, TxtConvenioCIE.Text.Trim, TxtReferencia.Text.Trim, TxtRefCrediProveedor.Text.Trim,
-                           DdlMoneda.SelectedValue.ToEntero, DdlMoneda.SelectedItem.Text, Estatus, TxtCorreoCuenta.Text.Trim, TxtBBVAAlias.Text, ChkPagoElectronico.Checked, ChkPagoElectronicoGrupos.Checked, DdlSatBanco.SelectedValue.ToEntero)
+                           DdlMoneda.SelectedValue.ToEntero, DdlMoneda.SelectedItem.Text, Estatus, TxtCorreoCuenta.Text.Trim, TxtBBVAAlias.Text, ChkPagoElectronico.Checked, ChkPagoElectronicoGrupos.Checked, DdlSatBanco.SelectedValue.ToEntero, TxtConceptoCIE.Text)
     End Sub
 
     Private Sub AgregarCuentaBanco(NombreBanco As String, NumeroSucursal As String, CLABE As String, SWIFT As String, Plaza As String, NumeroCuenta As String, ConvenioCIE As String, Referencia As String, RefCrediProveedor As String,
-                                   CveMoneda As Integer, Moneda As String, Estatus As Boolean, Correo As String, BBVAAlias As String, EstatusPagoElectronico As Boolean, EstatusPagoElectronicoGrupos As Boolean, CveSATBanco As Integer)
+                                   CveMoneda As Integer, Moneda As String, Estatus As Boolean, Correo As String, BBVAAlias As String, EstatusPagoElectronico As Boolean, EstatusPagoElectronicoGrupos As Boolean, CveSATBanco As Integer,
+                                   ConceptoCIE As String)
+
         Dim ObjCuentasBancos As New ClsGenerales
         If Modalidad = "A" Then
 
             If CveProveedor > 0 Then
 
                 If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, UsuarioActual.CveUsuario, CveMoneda, CveProveedor:=CveProveedor,
-                                                        Correo:=Correo, BBVAAlias:=BBVAAlias, EstatusPagoElectronico:=EstatusPagoElectronico, EstatusPagoElectronicoGrupos:=EstatusPagoElectronicoGrupos, CveSATBanco:=CveSATBanco) Then
+                                                        Correo:=Correo, BBVAAlias:=BBVAAlias, EstatusPagoElectronico:=EstatusPagoElectronico, EstatusPagoElectronicoGrupos:=EstatusPagoElectronicoGrupos, CveSATBanco:=CveSATBanco, ConceptoCIE:=ConceptoCIE) Then
                     DTCuentasBancos.Clear()
                     DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor)))
                     Alert("Cuenta Bancaria agregada con éxito.", TipoMensaje.MsgInformacion)
@@ -3163,6 +3186,7 @@ Partial Class Compras_Proveedores
                 Row("Estatus") = "True"
                 Row("Correo") = Correo
                 Row("CveSATBanco") = CveSATBanco
+                Row("ConceptoCIE") = ConceptoCIE
 
                 TempDTCuentasBancos.Rows.Add(Row)
 
@@ -3177,7 +3201,8 @@ Partial Class Compras_Proveedores
             If CveProveedor > 0 Then
 
                 If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(CveCuentaBancaria)("CveCuentaDeposito").ToString.ToEntero, NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor,
-                                                           False, Estatus, CveMoneda, Correo:=Correo, BBVAAlias:=BBVAAlias, EstatusPagoElectronico:=EstatusPagoElectronico, EstatusPagoElectronicoGrupos:=EstatusPagoElectronicoGrupos, CveSATBanco:=CveSATBanco) Then
+                                                           False, Estatus, CveMoneda, Correo:=Correo, BBVAAlias:=BBVAAlias, EstatusPagoElectronico:=EstatusPagoElectronico, EstatusPagoElectronicoGrupos:=EstatusPagoElectronicoGrupos, CveSATBanco:=CveSATBanco,
+                                                           ConceptoCIE:=ConceptoCIE) Then
                     DTCuentasBancos.Clear()
                     DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor)))
                     Alert("Cuenta actualizada con éxito.", TipoMensaje.MsgInformacion)
@@ -3206,6 +3231,7 @@ Partial Class Compras_Proveedores
                 Row("Estatus") = Estatus
                 Row("Correo") = Correo
                 Row("CveSATBanco") = CveSATBanco
+                Row("ConceptoCIE") = ConceptoCIE
 
                 TempDTCuentasBancos.AcceptChanges()
                 Alert("Cuenta actualizada con éxito.", TipoMensaje.MsgInformacion)
@@ -3227,6 +3253,7 @@ Partial Class Compras_Proveedores
         TxtNumeroCuenta.Text = ""
         TxtConvenioCIE.Text = ""
         TxtReferencia.Text = ""
+        TxtConceptoCIE.Text = ""
         TxtRefCrediProveedor.Text = ""
         TxtCorreoCuenta.Text = ""
         TxtBBVAAlias.Text = ""
@@ -4691,6 +4718,7 @@ Partial Class Compras_Proveedores
         TxtPlaza.Text = ""
         TxtConvenioCIE.Text = ""
         TxtReferencia.Text = ""
+        TxtConceptoCIE.Text = ""
         TxtRefCrediProveedor.Text = ""
         DdlMoneda.SelectedIndex = 0
         TxtCorreoCuenta.Text = ""
@@ -4721,6 +4749,7 @@ Partial Class Compras_Proveedores
         TxtPlaza.Text = GvRow.DataKey("Plaza")
         TxtConvenioCIE.Text = GvRow.DataKey("CIE")
         TxtReferencia.Text = GvRow.DataKey("Referencia")
+        TxtConceptoCIE.Text = GvRow.DataKey("ConceptoCIE")
         TxtRefCrediProveedor.Text = GvRow.DataKey("RefCrediProveedor")
         TxtCorreoCuenta.Text = GvRow.DataKey("Correo")
         TxtBBVAAlias.Text = GvRow.DataKey("BBVAAlias")