diff --git a/.gitignore b/.gitignore index 9f8cee2fb..dc964f860 100644 --- a/.gitignore +++ b/.gitignore @@ -274,4 +274,7 @@ __pycache__/ /App_WebReferences/WSRDLC /wwwSIGGIT.rar /Front +/PortalCliente/ePagos/ + +vwd.webinfo /Bin.rar diff --git a/AF/OrdenTrabajo.aspx b/AF/OrdenTrabajo.aspx index 2725753e6..d11bfb317 100644 --- a/AF/OrdenTrabajo.aspx +++ b/AF/OrdenTrabajo.aspx @@ -231,7 +231,8 @@ @@ -243,6 +244,12 @@ + + + + + + @@ -265,7 +272,8 @@ + OnRowDataBound="GvActividades_RowDataBound" + DataKeyNames="CveOrdenTrabajoActividad,CveActividad,Terminado" GridLines="None"> @@ -275,16 +283,18 @@ - - + + + + + - - + - - + <%-- + --%> @@ -301,12 +311,13 @@
-
+
@@ -318,9 +329,9 @@ - + - + @@ -333,6 +344,41 @@ + + + + + + + + + + + +
Condiciones Operativas
SiNoND
+ + + + + + + + + + + + + + + + + + + + + + + diff --git a/AF/OrdenTrabajo.aspx.vb b/AF/OrdenTrabajo.aspx.vb index 7eb814f2b..17c74f7c4 100644 --- a/AF/OrdenTrabajo.aspx.vb +++ b/AF/OrdenTrabajo.aspx.vb @@ -37,6 +37,7 @@ Partial Class AF_OrdenTrabajo If Request("CveOrdenTrabajo") IsNot Nothing Then CveOrdenTrabajo = Request("CveOrdenTrabajo").ToEntero Tab.Visible = True + CargaDatos() End If CargaCombos() @@ -106,7 +107,9 @@ Partial Class AF_OrdenTrabajo Private Sub CargaDatos() - + CargaMaterial() + CargaActividades() + CargaCheckList() End Sub @@ -369,4 +372,102 @@ Partial Class AF_OrdenTrabajo End Sub + + + Private Sub CargaMaterial() + + Dim ObjAF As New ClsAF + + If ObjAF.GetOrdenesTrabajoMateriales(CveOrdenTrabajo, UsuarioActual.CveEmpresa) Then + GvMaterial.DataSource = ObjAF.DtResultados + Else + GvMaterial.DataSource = Nothing + End If + + ObjAF.Dispose() + + GvMaterial.DataBind() + UpGvMaterial.Update() + + End Sub + + Private Sub CargaActividades() + + Dim ObjAF As New ClsAF + + + If ObjAF.GetOrdenesTrabajoActividades(CveOrdenTrabajo, UsuarioActual.CveEmpresa) Then + GvActividades.DataSource = ObjAF.DtResultados + Else + GvActividades.DataSource = Nothing + End If + + ObjAF.Dispose() + + GvActividades.DataBind() + UpGvActividades.Update() + + + End Sub + + Private Sub CargaCheckList() + + Dim ObjAF As New ClsAF + + + If ObjAF.GetOrdenesTrabajoCheckList(CveOrdenTrabajo, UsuarioActual.CveEmpresa) Then + + + GvCheckList.DataSource = ObjAF.DtResultados + Else + GvCheckList.DataSource = Nothing + End If + + ObjAF.Dispose() + + GvCheckList.DataBind() + UpGvCheckList.Update() + + End Sub + + Protected Sub GvMaterial_RowDataBound(sender As Object, e As GridViewRowEventArgs) + + End Sub + Protected Sub GvActividades_RowDataBound(sender As Object, e As GridViewRowEventArgs) + + End Sub + Protected Sub GvCheckList_RowDataBound(sender As Object, e As GridViewRowEventArgs) + + If e.Row.RowType = DataControlRowType.DataRow Then + + Dim Chk As CheckBox = e.Row.FCCheckBox("Chk") + Dim RDLSINOND As RadioButtonList = e.Row.FCRadioButtonList("RDLSINOND") + Dim TxtObservaciones As TextBox = e.Row.FCTextBox("TxtObservaciones") + + If e.Row.DataKey("CveOrdenTrabajoCheckList").ToEntero = 0 Then + + e.Row.FCLiteral("LtlNROW").Text = e.Row.DataKey("CheckListActividadGrupo").ToString + + e.Row.Attributes.Add("style", "background-color:#DDD") + + Chk.Visible = False + RDLSINOND.Visible = False + TxtObservaciones.Visible = False + Else + + If Boolean.Parse(e.Row.DataKey("Terminado")) Then + Chk.Checked = True + Else + Chk.Checked = False + End If + + End If + + + + + + End If + + End Sub End Class diff --git a/AF/TipoOrdenTrabajo.aspx.vb b/AF/TipoOrdenTrabajo.aspx.vb index cebcd7af4..ee6e23080 100644 --- a/AF/TipoOrdenTrabajo.aspx.vb +++ b/AF/TipoOrdenTrabajo.aspx.vb @@ -303,12 +303,15 @@ Partial Class AF_TipoOrdenTrabajo If e.Row.RowType = DataControlRowType.DataRow Then Dim Chk As CheckBox = e.Row.FCCheckBox("Chk") + If e.Row.DataKey("CveCheckListActividad").ToEntero = 0 Then e.Row.FCLiteral("LtlNROW").Text = e.Row.DataKey("CheckListActividadGrupo").ToString - Chk.Visible = False e.Row.Attributes.Add("style", "background-color:#DDD") + Chk.Visible = False + + End If diff --git a/App_Code/ClsAF.vb b/App_Code/ClsAF.vb index b9df20682..09c6e2dce 100644 --- a/App_Code/ClsAF.vb +++ b/App_Code/ClsAF.vb @@ -4279,6 +4279,82 @@ Public Class ClsAF + + Public Function GetOrdenesTrabajoMateriales(CveOrdenTrabajo As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_AF_OrdenesTrabajoMaterialesGet") + + With SqlAdapter.SelectCommand.Parameters + + .Add("@CveOrdenTrabajo", SqlDbType.Int).Value = CveOrdenTrabajo + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + + End With + + Try + SqlAdapter.Fill(Data) + + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los materiales", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + + End Function + + Public Function GetOrdenesTrabajoActividades(CveOrdenTrabajo As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_AF_OrdenesTrabajoActividadesGet") + + With SqlAdapter.SelectCommand.Parameters + + .Add("@CveOrdenTrabajo", SqlDbType.Int).Value = CveOrdenTrabajo + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + + End With + + Try + SqlAdapter.Fill(Data) + + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener las actividades", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + + End Function + + Public Function GetOrdenesTrabajoCheckList(CveOrdenTrabajo As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_AF_OrdenesTrabajoCheckListGet") + + With SqlAdapter.SelectCommand.Parameters + + .Add("@CveOrdenTrabajo", SqlDbType.Int).Value = CveOrdenTrabajo + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + + End With + + Try + SqlAdapter.Fill(Data) + + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el check list", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + + End Function + #End Region #End Region diff --git a/App_Code/ClsGPS.vb b/App_Code/ClsGPS.vb index 4f24d2b76..d19cb9541 100644 --- a/App_Code/ClsGPS.vb +++ b/App_Code/ClsGPS.vb @@ -5466,6 +5466,108 @@ Public Class ClsGPS End Function +#End Region + +#Region "K I M B E R L Y - C L A R K" + Public Function AddKimberlyClarkTracking(Dominio As String, Codigo As String, Serie As String, CveDispositivo As Integer, CveUsuarioIngreso As Integer, CveCliente As Integer, CveEmpresa As Integer) As Integer + Dim retorno As Integer = -1 + DataAdapter("PA_GPS_KimberlyClarkTrackingAdd", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@Dominio", SqlDbType.VarChar).Value = Dominio + .Add("@Codigo", SqlDbType.VarChar).Value = Codigo + .Add("@Serie", SqlDbType.VarChar).Value = Serie + .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo + .Add("@CveUsuarioIngreso", SqlDbType.Int).Value = CveUsuarioIngreso + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveKimberlyClarkTracking", SqlDbType.Int).Direction = ParameterDirection.Output + End With + + Try + SqlAdapter.Fill(Data) + retorno = SqlAdapter.SelectCommand.Parameters("@CveKimberlyClarkTracking").Value.ToString.ToEntero + Catch ex As Exception + OnError("Ocurrió un error al agregar un tracking.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return retorno + End Function + + Public Function UpdateKimberlyClarkTrackingEstatus(CveKimberlyClarkTracking As Integer, CveEstatus As Boolean, CveUsuarioModifico As Integer) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_GPS_KimberlyClarkTrackingUpdate", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveKimberlyClarkTracking", SqlDbType.Int).Value = CveKimberlyClarkTracking + .Add("@CveEstatus", SqlDbType.Bit).Value = CveEstatus + .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico + End With + + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar un tracking.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return retorno + End Function + + Public Function GetKimberlyClarkTracking(CveKimberlyClarkTracking As Integer, CveDispositivo As Integer, CveEstatus As Integer, CveCliente As Integer, CveEmpresa As Integer, Optional FechaI As DateTime = ModExtensiones.MinFecha, Optional FechaF As DateTime = ModExtensiones.MaxFecha) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_GPS_KimberlyClarkTrackingGet", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveKimberlyClarkTracking", SqlDbType.Int).Value = CveKimberlyClarkTracking + .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo + .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@FechaI", SqlDbType.DateTime).Value = FechaI + .Add("@FechaF", SqlDbType.DateTime).Value = FechaF + End With + + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener un tracking.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return retorno + End Function + + Public Function GetKimberlyClarkTrackingDatos(CveKimberlyClarkTracking As Integer) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_GPS_KimberlyClarkTrackingGet", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveKimberlyClarkTracking", SqlDbType.Int).Value = CveKimberlyClarkTracking + End With + + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los datos de un tracking.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return retorno + End Function + + Public Function RemoveKimberlyClarkTracking(CveKimberlyClarkTracking As Integer) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_GPS_KimberlyClarkTrackingRemove", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveKimberlyClarkTracking", SqlDbType.Int).Value = CveKimberlyClarkTracking + End With + + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar un tracking.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return retorno + End Function #End Region Protected Sub addParameters(name As String, tipo As SqlDbType, valor As Object) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 1be72d541..35bf0d9b8 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -4460,7 +4460,7 @@ Public Class ClsPaginas PaginaDict.Add("/GPS/Shipments.aspx".ToUpper(), 673) PaginaDict.Add("/GPS/RepGastos.aspx".ToUpper(), 685) PaginaDict.Add("/GPS/RecursoConfiableTracking.aspx".ToUpper(), 692) - + PaginaDict.Add("/GPS/KimberlyClarkTracking.aspx".ToUpper(), -1) #End Region 'INVENTARIOS #Region "Inventarios" diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index b29e7d852..1ea810334 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -4889,6 +4889,8 @@ Namespace Modelos CveEstatus = 12 Case "Com" CveEstatus = 9 + Case "Ped", "DPe" + CveEstatus = 14 End Select If CveEstatus.Contiene(4, 5) Then diff --git a/App_WebReferences/WSKimberlyClark/Reference.svcmap b/App_WebReferences/WSKimberlyClark/Reference.svcmap new file mode 100644 index 000000000..e8edb1371 --- /dev/null +++ b/App_WebReferences/WSKimberlyClark/Reference.svcmap @@ -0,0 +1,31 @@ + + + + false + true + + false + false + false + + + true + Auto + true + true + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/App_WebReferences/WSKimberlyClark/Service.disco b/App_WebReferences/WSKimberlyClark/Service.disco new file mode 100644 index 000000000..f7c20e50e --- /dev/null +++ b/App_WebReferences/WSKimberlyClark/Service.disco @@ -0,0 +1,6 @@ + + + + + + \ No newline at end of file diff --git a/App_WebReferences/WSKimberlyClark/Service.wsdl b/App_WebReferences/WSKimberlyClark/Service.wsdl new file mode 100644 index 000000000..926141c97 --- /dev/null +++ b/App_WebReferences/WSKimberlyClark/Service.wsdl @@ -0,0 +1,1435 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Autenticacion necesaria para la operacion por parte de los prestadores + + + + + Cierre de sesion explicito por parte del prestador + + + + + Inserta un evento, reconoce el prestador por medio del login previo + + + + + Loguea e inserta multiples eventos en modo batch + + + + + Loguea e inserta un evento + + + + + Loguea e inserta un evento indicando ademas de incorporar los sensores + + + + + + + + + Retorna el primer comando de la lista + + + + + Indica que el comando ya fue procesado + + + + + Metodo para informar el estado del comando, retorna verdadero su fue insertado correctamente + + + + + Metodo para el cambio de clave, retorna verdadero si la clave es realmente cambiada. + + + + + Loguea cambia la clave, retorna verdadero si la clave es realmente cambiada. + + + + + Realiza el login y retorna el primer comando de la lista + + + + + Realiza el login y finaliza un comando + + + + + Realiza el login y actualiza el estado de un comando en proceso + + + + + Realiza el login y retorna el primer comando de la lista + + + + + + + Autenticacion necesaria para la operacion por parte de los prestadores + + + + + Cierre de sesion explicito por parte del prestador + + + + + Inserta un evento, reconoce el prestador por medio del login previo + + + + + Loguea e inserta un evento + + + + + + + + + Retorna el primer comando de la lista + + + + + Indica que el comando ya fue procesado + + + + + Metodo para informar el estado del comando, retorna verdadero su fue insertado correctamente + + + + + Metodo para el cambio de clave, retorna verdadero si la clave es realmente cambiada. + + + + + Loguea cambia la clave, retorna verdadero si la clave es realmente cambiada. + + + + + Realiza el login y retorna el primer comando de la lista + + + + + Realiza el login y finaliza un comando + + + + + Realiza el login y actualiza el estado de un comando en proceso + + + + + Realiza el login y retorna el primer comando de la lista + + + + + + + Autenticacion necesaria para la operacion por parte de los prestadores + + + + + Cierre de sesion explicito por parte del prestador + + + + + Inserta un evento, reconoce el prestador por medio del login previo + + + + + Loguea e inserta un evento + + + + + + + + + Retorna el primer comando de la lista + + + + + Indica que el comando ya fue procesado + + + + + Metodo para informar el estado del comando, retorna verdadero su fue insertado correctamente + + + + + Metodo para el cambio de clave, retorna verdadero si la clave es realmente cambiada. + + + + + Loguea cambia la clave, retorna verdadero si la clave es realmente cambiada. + + + + + Realiza el login y retorna el primer comando de la lista + + + + + Realiza el login y finaliza un comando + + + + + Realiza el login y actualiza el estado de un comando en proceso + + + + + Realiza el login y retorna el primer comando de la lista + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/App_WebReferences/WSKimberlyClark/configuration.svcinfo b/App_WebReferences/WSKimberlyClark/configuration.svcinfo new file mode 100644 index 000000000..210b37bc7 --- /dev/null +++ b/App_WebReferences/WSKimberlyClark/configuration.svcinfo @@ -0,0 +1,13 @@ + + + + + + + + + + + + + \ No newline at end of file diff --git a/App_WebReferences/WSKimberlyClark/configuration91.svcinfo b/App_WebReferences/WSKimberlyClark/configuration91.svcinfo new file mode 100644 index 000000000..291b32d20 --- /dev/null +++ b/App_WebReferences/WSKimberlyClark/configuration91.svcinfo @@ -0,0 +1,549 @@ + + + + + + + ServiceSoap + + + + + + + + + + + + + + + + + + + + + StrongWildcard + + + + + + 65536 + + + + + + + + + System.ServiceModel.Configuration.XmlDictionaryReaderQuotasElement + + + 0 + + + 0 + + + 0 + + + 0 + + + 0 + + + System.Text.UTF8Encoding + + + Buffered + + + + + + Text + + + System.ServiceModel.Configuration.BasicHttpSecurityElement + + + Transport + + + System.ServiceModel.Configuration.HttpTransportSecurityElement + + + None + + + None + + + System.Security.Authentication.ExtendedProtection.Configuration.ExtendedProtectionPolicyElement + + + Never + + + TransportSelected + + + (Collection) + + + + + + System.ServiceModel.Configuration.BasicHttpMessageSecurityElement + + + UserName + + + Default + + + + + + + ServiceSoap1 + + + + + + + + + + + + + + + + + + + + + StrongWildcard + + + + + + 65536 + + + + + + + + + System.ServiceModel.Configuration.XmlDictionaryReaderQuotasElement + + + 0 + + + 0 + + + 0 + + + 0 + + + 0 + + + System.Text.UTF8Encoding + + + Buffered + + + + + + Text + + + System.ServiceModel.Configuration.BasicHttpSecurityElement + + + None + + + System.ServiceModel.Configuration.HttpTransportSecurityElement + + + None + + + None + + + System.Security.Authentication.ExtendedProtection.Configuration.ExtendedProtectionPolicyElement + + + Never + + + TransportSelected + + + (Collection) + + + + + + System.ServiceModel.Configuration.BasicHttpMessageSecurityElement + + + UserName + + + Default + + + + + + + ServiceSoap12 + + + + + + + + + + + + + + + System.ServiceModel.Configuration.TextMessageEncodingElement + + + 64 + + + 16 + + + Soap12 + + + System.ServiceModel.Configuration.XmlDictionaryReaderQuotasElement + + + 0 + + + 0 + + + 0 + + + 0 + + + 0 + + + System.Text.UTF8Encoding + + + System.ServiceModel.Configuration.HttpsTransportElement + + + False + + + 524288 + + + 65536 + + + False + + + 00:00:00 + + + Anonymous + + + False + + + True + + + StrongWildcard + + + True + + + 65536 + + + 0 + + + System.ServiceModel.Configuration.HttpMessageHandlerFactoryElement + + + (Collection) + + + + + + + + + Anonymous + + + + + + Buffered + + + False + + + True + + + System.Security.Authentication.ExtendedProtection.Configuration.ExtendedProtectionPolicyElement + + + Never + + + TransportSelected + + + (Collection) + + + System.ServiceModel.Configuration.WebSocketTransportSettingsElement + + + Never + + + False + + + 00:00:00 + + + + + + False + + + 0 + + + False + + + + + + + + + https://unigis2.unisolutions.com.ar/HUB/UNIGIS/MAPI/SOAP/GPS/Service.asmx + + + + + + basicHttpBinding + + + ServiceSoap + + + WSKimberlyClark.ServiceSoap + + + System.ServiceModel.Configuration.AddressHeaderCollectionElement + + + <Header /> + + + System.ServiceModel.Configuration.IdentityElement + + + System.ServiceModel.Configuration.UserPrincipalNameElement + + + + + + System.ServiceModel.Configuration.ServicePrincipalNameElement + + + + + + System.ServiceModel.Configuration.DnsElement + + + + + + System.ServiceModel.Configuration.RsaElement + + + + + + System.ServiceModel.Configuration.CertificateElement + + + + + + System.ServiceModel.Configuration.CertificateReferenceElement + + + My + + + LocalMachine + + + FindBySubjectDistinguishedName + + + + + + False + + + ServiceSoap + + + + + + + + + + + + + https://unigis2.unisolutions.com.ar/HUB/UNIGIS/MAPI/SOAP/GPS/Service.asmx + + + + + + customBinding + + + ServiceSoap12 + + + WSKimberlyClark.ServiceSoap + + + System.ServiceModel.Configuration.AddressHeaderCollectionElement + + + <Header /> + + + System.ServiceModel.Configuration.IdentityElement + + + System.ServiceModel.Configuration.UserPrincipalNameElement + + + + + + System.ServiceModel.Configuration.ServicePrincipalNameElement + + + + + + System.ServiceModel.Configuration.DnsElement + + + + + + System.ServiceModel.Configuration.RsaElement + + + + + + System.ServiceModel.Configuration.CertificateElement + + + + + + System.ServiceModel.Configuration.CertificateReferenceElement + + + My + + + LocalMachine + + + FindBySubjectDistinguishedName + + + + + + False + + + ServiceSoap12 + + + + + + + + + + + \ No newline at end of file diff --git a/Ashx/GenerarPDFFactura.ashx b/Ashx/GenerarPDFFactura.ashx index d97b1c057..2e8cbae2d 100644 --- a/Ashx/GenerarPDFFactura.ashx +++ b/Ashx/GenerarPDFFactura.ashx @@ -22,12 +22,11 @@ Public Class GenerarPDFFactura : Implements IHttpHandler Public ReadOnly Property EsProduccion As Boolean Get - Return False - 'If IsNothing(System.Configuration.ConfigurationManager.AppSettings("EsProduccion")) Then - ' Return False - 'Else - ' Return (System.Configuration.ConfigurationManager.AppSettings("EsProduccion").ToString() = "1") - 'End If + If IsNothing(System.Configuration.ConfigurationManager.AppSettings("EsProduccion")) Then + Return False + Else + Return (System.Configuration.ConfigurationManager.AppSettings("EsProduccion").ToString() = "1") + End If End Get End Property @@ -160,7 +159,7 @@ Public Class GenerarPDFFactura : Implements IHttpHandler Dim objxml As XmlSatCFDI = XmlSatCFDI.readXML(RutaXml) - Dim rutaReporte As String = "\Empresas\Grales\Formatos\FacturaSALI.rdlc" + Dim rutaReporte As String = "Empresas\Grales\Formatos\FacturaSALI.rdlc" Dim QR As ClbNegBICFDv3_2.ClsNegCBBGenerar = New ClbNegBICFDv3_2.ClsNegCBBGenerar() Dim cQr As Byte() = QR.GenerarCBBBytes(objxml.emisor.Rfc, objxml.receptor.Rfc, objxml.comprobante.Total, objxml.complemento.UUID) @@ -199,6 +198,7 @@ Public Class GenerarPDFFactura : Implements IHttpHandler parametros.Add(New ReportParameter("complemento_SelloSAT", objxml.complemento.SelloSAT)) parametros.Add(New ReportParameter("complemento_UUID", objxml.complemento.UUID)) parametros.Add(New ReportParameter("complemento_CadenaOriginal", objxml.complemento.CadenaOriginal)) + parametros.Add(New ReportParameter("Observaciones", datos.Factura.Observaciones)) Dim ds As New List(Of ReportDataSource) @@ -222,34 +222,30 @@ Public Class GenerarPDFFactura : Implements IHttpHandler ltotales.Add(New utilValores("Total", objxml.comprobante.Total.ToString("N2"))) rdsTotales.Name = "dsTotales" - rdsTotales.Value = ltotales + rdsTotales.Value = ltotales.QueryToDataTable(True) ds.Add(rdsTotales) Dim rds2 As ReportDataSource = New ReportDataSource() Dim limagenes As List(Of utilImage) = New List(Of utilImage)() limagenes.Add(New utilImage(cQr)) rds2.Name = "dsImagenes" - rds2.Value = limagenes + rds2.Value = limagenes.QueryToDataTable(True) ds.Add(rds2) Dim rdsrelacionados As ReportDataSource = New ReportDataSource() rdsrelacionados.Name = "dsRelacionados" - rdsrelacionados.Value = objxml.cFDIRelacionados + rdsrelacionados.Value = objxml.cFDIRelacionados.QueryToDataTable(True) ds.Add(rdsrelacionados) Dim rds1 As ReportDataSource = New ReportDataSource() rds1.Name = "dsConceptos" - rds1.Value = objxml.GetConceptosforpdf() + rds1.Value = objxml.GetConceptosforpdf().QueryToDataTable(True) ds.Add(rds1) - Try - bytes = StreamPDF(context, rutaReporte, ds, parametros) + bytes = StreamPDF(context, rutaReporte, ds, parametros) - System.IO.File.Delete(RutaXml) - Catch ex As Exception - - End Try + System.IO.File.Delete(RutaXml) Return bytes @@ -269,8 +265,8 @@ Public Class GenerarPDFFactura : Implements IHttpHandler If EsProduccion Then - Dim CveUsuario As Integer = -1 - Dim CveEmpresa As Integer = -1 + Dim CveUsuario As Integer = 100 + Dim CveEmpresa As Integer = 1 Dim wsreport As New WSRDLC.WebServiceSoapClient Dim params As New List(Of WSRDLC.ReportParameter) @@ -285,12 +281,14 @@ Public Class GenerarPDFFactura : Implements IHttpHandler dt.TableName = rpds.Name ds.Tables.Add(dt) Next + For Each rpds As ReportParameter In Parametros Dim param As New WSRDLC.ReportParameter param.Name = rpds.Name param.Values = {rpds.Values(0)} params.Add(param) Next + Bytes = wsreport.StreamPDFBytes(RutaReporte, ds, params.ToArray(), NombreArchivo, Formato, CveEmpresa, CveUsuario) wsreport = Nothing params = Nothing diff --git a/Bancos/RepIE.aspx.vb b/Bancos/RepIE.aspx.vb index 86d45e51d..9abca51fc 100644 --- a/Bancos/RepIE.aspx.vb +++ b/Bancos/RepIE.aspx.vb @@ -159,7 +159,7 @@ Partial Class Bancos_RepIE If ChkTotalizar.Checked Then Dim SaldoDolares = DtDatos.SUM("Importe", "CveMoneda = 2") * GlobalTipoCambio(Now) - SaldoTotal.Text = (DtDatos.SUM("Importe") + SaldoDolares).ToString.FormatoNumero + SaldoTotal.Text = DtDatos.SUM("ImporteMN").ToString.FormatoNumero '(DtDatos.SUM("Importe") + SaldoDolares).ToString.FormatoNumero LtlSaldo.Text = DtDatos.SUM("Importe", "CveMoneda = 1").ToString.FormatoNumero LtlSaldoDolares.Text = DtDatos.SUM("Importe", "CveMoneda = 2").ToString.FormatoNumero DivIndicador.Visible = True diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 62d1d7386..d096c8df3 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1353,7 +1353,7 @@ Partial Class Compras_Compras ''End If 'Carga Compra - If UsuarioActual.Empresa.Funcionalidad(123).ToEntero > 0 And Not UsuarioActual.TienePermisoProceso(156) Then + If UsuarioActual.Empresa.Funcionalidad(123) <> "" And Not UsuarioActual.TienePermisoProceso(156) Then If Not ValidaCierrePeriodo() Then Alert("El periodo de la compra actual ya se encuentra cerrado. No podra registrar la compra.", TipoMensaje.MsgAdvertencia) BtnGuardar.Visible = False @@ -14224,7 +14224,7 @@ Partial Class Compras_Compras Protected Sub BtnRefacturacionVer_Click(sender As Object, e As EventArgs) Handles BtnRefacturacionVer.Click Dim Opcion As Integer = 1 - If UsuarioActual.CveEmpresa.Contiene(119, 72) Then Opcion = 2 + If UsuarioActual.CveEmpresa.Contiene(119, 72, 1) Then Opcion = 2 Dim ObjCompras As New ClsCompras diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 9fd43424e..20e4db652 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -4040,7 +4040,7 @@ Partial Class PopUpVerFactura Dim Mov As New ClsContabilidad If Mov.GetPrePolizasDetalle(-1, CveIE) Then - dtMovs = Mov.DtResultados.FiltraParametros("CveConceptoContable IN (17,2,312)") + dtMovs = Mov.DtResultados.FiltraParametros("CveConceptoContable IN (17,2,308,309,312)") If Not UsuarioActual.CveEmpresa.Contiene(13, 83) Then 'CONVIERTO A PESOS CUANDO SE PAGA CON PESOS FACTURAS DE DOLARES diff --git a/Contabilidad2/RepAnexoCatalogoMensual.aspx b/Contabilidad2/RepAnexoCatalogoMensual.aspx index f3d2ca979..a70a7a99c 100644 --- a/Contabilidad2/RepAnexoCatalogoMensual.aspx +++ b/Contabilidad2/RepAnexoCatalogoMensual.aspx @@ -93,6 +93,19 @@ + +
  • Trimestre Cuatrimestre: + + NO + Trimestre + Cuatrimestre + +
    • + + + + +
    @@ -110,6 +123,7 @@ + @@ -121,6 +135,7 @@
    +
    Nombre
    @@ -129,6 +144,7 @@     + @@ -136,24 +152,39 @@ + + + + + + + + + + + + + + + @@ -163,6 +194,11 @@ + + + + + diff --git a/Contabilidad2/RepAnexoCatalogoMensual.aspx.vb b/Contabilidad2/RepAnexoCatalogoMensual.aspx.vb index 30d1ab0c7..3b39e2b22 100644 --- a/Contabilidad2/RepAnexoCatalogoMensual.aspx.vb +++ b/Contabilidad2/RepAnexoCatalogoMensual.aspx.vb @@ -33,6 +33,10 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual ViewState("listaCampos") = value End Set End Property + + + + #End Region Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load @@ -52,12 +56,13 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual listacolores.Add("#999999") listacolores.Add("#000000") listacolores.Add("#FF0F00") - Dim EjercicioParametro, SubProyectoParametro, DivisorParametro, Periodo As Integer + Dim EjercicioParametro, SubProyectoParametro, DivisorParametro, Periodo, TRCU As Integer CveCuenta = IfNull(Request("CveCuenta"), "-1").ToString.ToEntero EjercicioParametro = IfNull(Request("Ejercicio"), "-1").ToString.ToEntero SubProyectoParametro = IfNull(Request("CveSubProyecto"), "-1").ToString.ToEntero DivisorParametro = IfNull(Request("Divisor"), "-1").ToString.ToEntero Periodo = IfNull(Request("Periodo"), "-1").ToString.ToEntero + TRCU = IfNull(Request("TRCU"), "-1").ToString.ToEntero InicializaValores() @@ -65,6 +70,9 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual DdlSubProyecto.SelectedValueExist(SubProyectoParametro.ToString) DdlDivisor.SelectedValueExist(DivisorParametro.ToString) DdlPeriodo.SelectedValueExist(Periodo) + DdlTri.SelectedValueExist(TRCU) + + CargaDatos() End If @@ -110,6 +118,48 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual GvMensual2.DataSource = Nothing End If GvMensual2.DataBind() + + + + If DdlTri.SelectedValue.ToEntero = 0 Then + + GvMensual2.Columns(9).Visible = False + GvMensual2.Columns(20).Visible = False + GvMensual2.Columns(31).Visible = False + GvMensual2.Columns(41).Visible = False + + GvMensual2.Columns(13).Visible = False + GvMensual2.Columns(27).Visible = False + GvMensual2.Columns(42).Visible = False + + ElseIf DdlTri.SelectedValue.ToEntero = 1 Then + + + GvMensual2.Columns(9).Visible = True + GvMensual2.Columns(20).Visible = True + GvMensual2.Columns(31).Visible = True + GvMensual2.Columns(41).Visible = True + + GvMensual2.Columns(13).Visible = False + GvMensual2.Columns(27).Visible = False + GvMensual2.Columns(42).Visible = False + + ElseIf DdlTri.SelectedValue.ToEntero = 2 Then + + GvMensual2.Columns(9).Visible = False + GvMensual2.Columns(20).Visible = False + GvMensual2.Columns(31).Visible = False + GvMensual2.Columns(41).Visible = False + + GvMensual2.Columns(13).Visible = True + GvMensual2.Columns(27).Visible = True + GvMensual2.Columns(42).Visible = True + + End If + + + + UpMensual.Update() If GvMensual2.Rows.Count > 0 Then diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx b/Contabilidad2/RepEstadoResultadosHorizontal.aspx index 72902bbe7..a7a002b70 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx @@ -97,8 +97,17 @@ - + + +
    + + NO + Trimestre + Cuatrimestre + +
    + @@ -253,24 +262,48 @@ + + + + + + + + + + + + + + + + + + + + + + + + @@ -283,12 +316,29 @@ + + + + + + + + + + + + + + + + + @@ -307,6 +357,21 @@ + + + + + + + + + + + + + + + <%-- @@ -329,11 +394,12 @@

    - + + - <%----%> + @@ -344,7 +410,7 @@ - + @@ -362,12 +428,27 @@ + + + + + + + + + + + + + + + @@ -380,6 +461,14 @@ + + + + + + + + @@ -392,12 +481,29 @@ + + + + + + + + + + + + + + + + + @@ -416,6 +522,22 @@ + + + + + + + + + + + + + + + + <%-- @@ -452,7 +574,7 @@ - + @@ -470,12 +592,27 @@ + + + + + + + + + + + + + + + @@ -488,6 +625,14 @@ + + + + + + + + @@ -500,12 +645,29 @@ + + + + + + + + + + + + + + + + + @@ -524,6 +686,22 @@ + + + + + + + + + + + + + + + + diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb index 6a3715717..39d6dcf25 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb @@ -361,6 +361,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal LiDivisorDdl.Visible = True LiDivisorLbl.Visible = True + + LblTri.Visible = False + DVTri.Visible = False End If If Tab.ActiveTabIndex = 1 Then @@ -382,6 +385,10 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal DdlPeriodo.SelectedValueExist(12) + LblTri.Visible = True + DVTri.Visible = True + + End If If Tab.ActiveTabIndex = 2 Then @@ -403,6 +410,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal LiDivisorDdl.Visible = True LiDivisorLbl.Visible = True + LblTri.Visible = False + DVTri.Visible = False + End If If Tab.ActiveTabIndex = 3 Then @@ -420,6 +430,10 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal LiDivisorDdl.Visible = True LiDivisorLbl.Visible = True + + LblTri.Visible = False + DVTri.Visible = False + End If UpFiltros.Update() @@ -752,6 +766,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal End Sub Private Sub CargaGridsMesH() + DtIngresosMesH = DtDatosMesH.FiltraParametros("Tipo ='H' ") DtGastosMesH = DtDatosMesH.FiltraParametros("Tipo ='G' ") DTTotalesMesH = DtDatosMesH.Clone() @@ -778,7 +793,17 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Row.Item("Septiembre") = DtIngresosMesH.SUM("Septiembre", "NOT CtaMayor in (3,4)") Row.Item("Octubre") = DtIngresosMesH.SUM("Octubre", "NOT CtaMayor in (3,4)") Row.Item("Noviembre") = DtIngresosMesH.SUM("Noviembre", "NOT CtaMayor in (3,4)") - Row.Item("Diciembre") = DtIngresosMesH.SUM("Diciembre", "NOT CtaMayor in (3,4)") + Row.Item("Diciembre") = DtIngresosMesH.SUM("Diciembre", "NOT CtaMayor in (3,4)") + + Row.Item("Tri1") = DtIngresosMesH.SUM("Tri1", "NOT CtaMayor in (3,4)") + Row.Item("Tri2") = DtIngresosMesH.SUM("Tri2", "NOT CtaMayor in (3,4)") + Row.Item("Tri3") = DtIngresosMesH.SUM("Tri3", "NOT CtaMayor in (3,4)") + Row.Item("Tri4") = DtIngresosMesH.SUM("Tri4", "NOT CtaMayor in (3,4)") + + Row.Item("Cua1") = DtIngresosMesH.SUM("Cua1", "NOT CtaMayor in (3,4)") + Row.Item("Cua2") = DtIngresosMesH.SUM("Cua2", "NOT CtaMayor in (3,4)") + Row.Item("Cua3") = DtIngresosMesH.SUM("Cua3", "NOT CtaMayor in (3,4)") + Row.Item("Nombre") = "TOTAL INGRESOS" Row.Item("ImporteActual") = TotalActual.ToString @@ -786,6 +811,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Row.Item("ImporteAcumulado") = TotalAnterior.ToString Row.Item("PorcentajeAcumulado") = "100.00" Row.Item("CtaMayor") = -1 + DtIngresosMesH.Rows.Add(Row) Else Row.Item("Nombre") = "TOTAL INGRESOS " @@ -822,6 +848,15 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Row.Item("Noviembre") = DtGastosMesH.SUM("Noviembre", "NOT CtaMayor in (3,4)") Row.Item("Diciembre") = DtGastosMesH.SUM("Diciembre", "NOT CtaMayor in (3,4)") + Row.Item("Tri1") = DtGastosMesH.SUM("Tri1", "NOT CtaMayor in (3,4)") + Row.Item("Tri2") = DtGastosMesH.SUM("Tri2", "NOT CtaMayor in (3,4)") + Row.Item("Tri3") = DtGastosMesH.SUM("Tri3", "NOT CtaMayor in (3,4)") + Row.Item("Tri4") = DtGastosMesH.SUM("Tri4", "NOT CtaMayor in (3,4)") + + Row.Item("Cua1") = DtGastosMesH.SUM("Cua1", "NOT CtaMayor in (3,4)") + Row.Item("Cua2") = DtGastosMesH.SUM("Cua2", "NOT CtaMayor in (3,4)") + Row.Item("Cua3") = DtGastosMesH.SUM("Cua3", "NOT CtaMayor in (3,4)") + Row.Item("Nombre") = "TOTAL GASTOS" Row.Item("ImporteActual") = TotalActual Row.Item("PorcentajeActual") = If(T1 > 0, (TotalActual * 100 / T1).ToString, "0").FormatoNumero @@ -852,7 +887,16 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Row.Item("Septiembre") = DtIngresosMesH.SUM("Septiembre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Septiembre", "NOT CtaMayor in (-1,3,4)") Row.Item("Octubre") = DtIngresosMesH.SUM("Octubre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Octubre", "NOT CtaMayor in (-1,3,4)") Row.Item("Noviembre") = DtIngresosMesH.SUM("Noviembre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Noviembre", "NOT CtaMayor in (-1,3,4)") - Row.Item("Diciembre") = DtIngresosMesH.SUM("Diciembre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Diciembre", "NOT CtaMayor in (-1,3,4)") + Row.Item("Diciembre") = DtIngresosMesH.SUM("Diciembre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Diciembre", "NOT CtaMayor in (-1,3,4)") + + Row.Item("Tri1") = DtIngresosMesH.SUM("Tri1", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Tri1", "NOT CtaMayor in (-1,3,4)") + Row.Item("Tri2") = DtIngresosMesH.SUM("Tri2", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Tri2", "NOT CtaMayor in (-1,3,4)") + Row.Item("Tri3") = DtIngresosMesH.SUM("Tri3", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Tri3", "NOT CtaMayor in (-1,3,4)") + Row.Item("Tri4") = DtIngresosMesH.SUM("Tri4", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Tri4", "NOT CtaMayor in (-1,3,4)") + + Row.Item("Cua1") = DtIngresosMesH.SUM("Cua1", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Cua1", "NOT CtaMayor in (-1,3,4)") + Row.Item("Cua2") = DtIngresosMesH.SUM("Cua2", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Cua2", "NOT CtaMayor in (-1,3,4)") + Row.Item("Cua3") = DtIngresosMesH.SUM("Cua3", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Cua3", "NOT CtaMayor in (-1,3,4)") Row.Item("Nombre") = "Resultados del Ejercicio:" 'Row.Item("ImporteActual") = TotalActual.ToString @@ -874,6 +918,100 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal GvTotalesMesH.DataSource = DTTotalesMesH GvTotalesMesH.DataBind() + + If DdlTri.SelectedValue.ToEntero = 0 Then 'ocultar trimestre cuatrimestre + + GvIngresosMesH.Columns(4).Visible = False + GvIngresosMesH.Columns(9).Visible = False + GvIngresosMesH.Columns(14).Visible = False + GvIngresosMesH.Columns(18).Visible = False + + GvGastosMesH.Columns(4).Visible = False + GvGastosMesH.Columns(9).Visible = False + GvGastosMesH.Columns(14).Visible = False + GvGastosMesH.Columns(18).Visible = False + + GvTotalesMesH.Columns(4).Visible = False + GvTotalesMesH.Columns(9).Visible = False + GvTotalesMesH.Columns(14).Visible = False + GvTotalesMesH.Columns(18).Visible = False + + GvIngresosMesH.Columns(6).Visible = False + GvIngresosMesH.Columns(12).Visible = False + GvIngresosMesH.Columns(19).Visible = False + + GvGastosMesH.Columns(6).Visible = False + GvGastosMesH.Columns(12).Visible = False + GvGastosMesH.Columns(19).Visible = False + + GvTotalesMesH.Columns(6).Visible = False + GvTotalesMesH.Columns(12).Visible = False + GvTotalesMesH.Columns(19).Visible = False + + + ElseIf DdlTri.SelectedValue.ToEntero = 1 Then 'Mostrar Trimestre + + + GvIngresosMesH.Columns(4).Visible = True + GvIngresosMesH.Columns(9).Visible = True + GvIngresosMesH.Columns(14).Visible = True + GvIngresosMesH.Columns(18).Visible = True + + GvGastosMesH.Columns(4).Visible = True + GvGastosMesH.Columns(9).Visible = True + GvGastosMesH.Columns(14).Visible = True + GvGastosMesH.Columns(18).Visible = True + + GvTotalesMesH.Columns(4).Visible = True + GvTotalesMesH.Columns(9).Visible = True + GvTotalesMesH.Columns(14).Visible = True + GvTotalesMesH.Columns(18).Visible = True + + GvIngresosMesH.Columns(6).Visible = False + GvIngresosMesH.Columns(12).Visible = False + GvIngresosMesH.Columns(19).Visible = False + + GvGastosMesH.Columns(6).Visible = False + GvGastosMesH.Columns(12).Visible = False + GvGastosMesH.Columns(19).Visible = False + + GvTotalesMesH.Columns(6).Visible = False + GvTotalesMesH.Columns(12).Visible = False + GvTotalesMesH.Columns(19).Visible = False + + ElseIf DdlTri.SelectedValue.ToEntero = 2 Then 'Mostrar Cuatrimestre + + GvIngresosMesH.Columns(4).Visible = False + GvIngresosMesH.Columns(9).Visible = False + GvIngresosMesH.Columns(14).Visible = False + GvIngresosMesH.Columns(18).Visible = False + + GvGastosMesH.Columns(4).Visible = False + GvGastosMesH.Columns(9).Visible = False + GvGastosMesH.Columns(14).Visible = False + GvGastosMesH.Columns(18).Visible = False + + GvTotalesMesH.Columns(4).Visible = False + GvTotalesMesH.Columns(9).Visible = False + GvTotalesMesH.Columns(14).Visible = False + GvTotalesMesH.Columns(18).Visible = False + + + GvIngresosMesH.Columns(6).Visible = True + GvIngresosMesH.Columns(12).Visible = True + GvIngresosMesH.Columns(19).Visible = True + + GvGastosMesH.Columns(6).Visible = True + GvGastosMesH.Columns(12).Visible = True + GvGastosMesH.Columns(19).Visible = True + + GvTotalesMesH.Columns(6).Visible = True + GvTotalesMesH.Columns(12).Visible = True + GvTotalesMesH.Columns(19).Visible = True + + End If + + UpDatosMesH.Update() End Sub @@ -895,7 +1033,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal 'e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensualHorizontal.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&FF=31/12/{DdlEjercicio.SelectedValue}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1" - e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}" + e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}&TRCU={DdlTri.SelectedValue}" e.Row.FCHyperLink("HLEnero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/01/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) e.Row.FCHyperLink("HLFebrero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/02/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/02/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) @@ -910,6 +1048,15 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal e.Row.FCHyperLink("HLNoviembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/11/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/11/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) e.Row.FCHyperLink("HLDiciembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/12/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) + e.Row.FCHyperLink("HLTri1").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/03/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) + e.Row.FCHyperLink("HLTri2").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/06/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/04/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) + e.Row.FCHyperLink("HLTri3").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/09/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/07/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) + e.Row.FCHyperLink("HLTri4").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/10/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) + + e.Row.FCHyperLink("HLCua1").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/04/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) + e.Row.FCHyperLink("HLCua2").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/08/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/05/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) + e.Row.FCHyperLink("HLCua3").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/09/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) + ' e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString) @@ -994,7 +1141,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero 'e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensualHorizontal.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&FF=31/12/{DdlEjercicio.SelectedValue}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1" - e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}" + e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}&TRCU={DdlTri.SelectedValue}" e.Row.FCHyperLink("HLEnero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/01/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) e.Row.FCHyperLink("HLFebrero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/02/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/02/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) @@ -1009,6 +1156,15 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal e.Row.FCHyperLink("HLNoviembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/11/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/11/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) e.Row.FCHyperLink("HLDiciembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/12/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) + e.Row.FCHyperLink("HLTri1").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/03/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) + e.Row.FCHyperLink("HLTri2").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/06/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/04/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) + e.Row.FCHyperLink("HLTri3").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/09/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/07/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) + e.Row.FCHyperLink("HLTri4").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/10/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) + + e.Row.FCHyperLink("HLCua1").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/04/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) + e.Row.FCHyperLink("HLCua2").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/08/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/05/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) + e.Row.FCHyperLink("HLCua3").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/09/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) + 'e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString) e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}" diff --git a/GPS/KimberlyClarkTracking.aspx b/GPS/KimberlyClarkTracking.aspx new file mode 100644 index 000000000..8f0b88a4d --- /dev/null +++ b/GPS/KimberlyClarkTracking.aspx @@ -0,0 +1,163 @@ +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="KimberlyClarkTracking.aspx.vb" Inherits="GPS_KimberlyClarkTracking" %> + + + + + + + Integración Kimberly-Clark + + + + + + +
  • + +
    • +     +     +     + + + + + +
    +
    +
    + +
    +
    +
      +
    • Vehículo: + + +
      • +
    • Estatus: + + + + + +
      • +
    • Fecha Inicio: +
      + +
      +
      • +
    • Fecha Fin: +
      + +
      +
      • +
    +
    +
    +
    +     +     +
    +
    +
    +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    +
    + +     + + \ No newline at end of file diff --git a/GPS/KimberlyClarkTracking.aspx.vb b/GPS/KimberlyClarkTracking.aspx.vb new file mode 100644 index 000000000..ae1a4122d --- /dev/null +++ b/GPS/KimberlyClarkTracking.aspx.vb @@ -0,0 +1,143 @@ +Option Strict On +Option Explicit On + +Imports System.Data +Imports System.IO +Imports System.Net +Imports Extensiones +Imports Microsoft.Reporting.WebForms +Imports Newtonsoft.Json.Linq +Imports System.Linq +Imports System.Net.Http + +Partial Class GPS_KimberlyClarkTracking + Inherits ClsPaginas + + Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load + If Not Page.IsPostBack Then + CargaDatos() + End If + End Sub + Private Sub CargaDatos() + CargaDispositivos() + CargaTracking() + End Sub + Public Sub CargaDispositivos() + Dim DtDispositivos As DataTable = GlobalDTDispositivosUsuarios(UsuarioActual.CveCliente, UsuarioActual.CveUsuario).FiltraParametros("Estatus = 1") + + DdlDispositivoFiltro.DataSource = DtDispositivos + DdlDispositivoFiltro.DataBind() + DdlDispositivoFiltro.Items.Insert(0, New ListItem("Todos", "-1")) + + DdlDispositivo.DataSource = DtDispositivos + DdlDispositivo.DataBind() + DdlDispositivo.Items.Insert(0, New ListItem("Seleccione", "-1")) + + UpAgregar.Update() + End Sub + Private Sub CargaTracking() + Dim FechaI As DateTime = If(IsDate(txtFechaI.Text), txtFechaI.Text.ToDateTime(), MinFecha) + Dim FechaF As DateTime = If(IsDate(txtFechaF.Text), txtFechaF.Text.ToDateTime(), MaxFecha) + + Dim ObjGPS As New ClsGPS + If ObjGPS.GetKimberlyClarkTracking(-1, DdlDispositivoFiltro.SelectedValue.ToEntero(), DdlEstatus.SelectedValue.ToEntero(), UsuarioActual.CveCliente, UsuarioActual.CveEmpresa, FechaI, FechaF) Then + GvDatos.DataSource = ObjGPS.DtResultados + End If + ObjGPS.Dispose() + + GvDatos.DataBind() + UpDatos.Update() + End Sub + Protected Sub LnkAgregarTracking_Click(sender As Object, e As EventArgs) + RegistraScript("$('#DivAgregar').modal('show');") + End Sub + + Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) + CargaTracking() + End Sub + Protected Sub LnkCambiarEstatus_Click(sender As Object, e As EventArgs) + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + + Dim CveKimberlyClarkTracking As Integer = GvRow.DataKey("CveKimberlyClarkTracking").ToEntero() + Dim Estatus As Boolean = CBool(GvRow.DataKey("CveEstatus").ToEntero()) + + Dim ObjGPS As New ClsGPS + If ObjGPS.UpdateKimberlyClarkTrackingEstatus(CveKimberlyClarkTracking, Not Estatus, UsuarioActual.CveUsuario) Then + Alert("El tracking fue desactivado correctamente") + Else + Alert("Ocurrió un error al actualizar el estatus", TipoMensaje.MsgError) + End If + ObjGPS.Dispose() + + CargaDatos() + End Sub + Protected Sub GvDatos_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + + Dim CveKimberlyClarkTracking As Integer = GvRow.DataKey("CveKimberlyClarkTracking").ToEntero() + + Dim ObjGPS As New ClsGPS + If ObjGPS.RemoveKimberlyClarkTracking(CveKimberlyClarkTracking) Then + Alert("El tracking fue eliminado") + Else + Alert("Ocurrió un error al actualizar el estatus", TipoMensaje.MsgError) + End If + ObjGPS.Dispose() + + CargaDatos() + End Sub + + Protected Sub BtnAgregar_Click(sender As Object, e As EventArgs) + Dim Dominio As String = TxtDominio.Text.Trim() + Dim Codigo As String = TxtCodigo.Text.Trim() + Dim Serie As String = TxtSerie.Text.Trim() + Dim CveDispositivo As Integer = DdlDispositivo.SelectedValue.ToEntero() + + Dim ObjGPS As New ClsGPS + Dim CveKimberlyClarkTracking As Integer = ObjGPS.AddKimberlyClarkTracking(Dominio, Codigo, Serie, CveDispositivo, UsuarioActual.CveUsuario, UsuarioActual.CveCliente, UsuarioActual.CveEmpresa) + If CveKimberlyClarkTracking > 0 Then + Alert("El tracking fue agregado correctamente") + Else + Alert("Ocurrió un error el tracking", TipoMensaje.MsgError) + End If + ObjGPS.Dispose() + + CargaDatos() + RegistraScript("$('#DivAgregar').modal('hide');") + End Sub + Protected Sub LnkEnviarPosicion_Click(sender As Object, e As EventArgs) + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + + Dim CveDispositivo As Integer = GvRow.DataKey("CveDispositivo").ToEntero() + Dim Dominio As String = GvRow.DataKey("Dominio") + Dim Serie As String = GvRow.DataKey("Serie") + Dim Codigo As String = GvRow.DataKey("Codigo") + Dim Lat As Double = 0 + Dim Lng As Double = 0 + Dim Velocidad As Double = 0 + Dim FechaEvento As DateTime = Nothing + + Using ObjGPS As New ClsGPS + If ObjGPS.UltimaPosicionEquipoGet(CveDispositivo, MinFecha, MaxFecha) AndAlso ObjGPS.DtResultados.Rows.Count > 0 Then + Lat = ObjGPS.DtResultados.Rows(0)("Lat").ToString().ToDouble() + Lng = ObjGPS.DtResultados.Rows(0)("Lng").ToString().ToDouble() + FechaEvento = ObjGPS.DtResultados.Rows(0)("FechaTrama").ToString().ToDateTime() + Velocidad = ObjGPS.DtResultados.Rows(0)("SPD").ToString().ToDouble() + End If + End Using + + Try + Dim WS = New WSKimberlyClark.ServiceSoapClient() + + Dim Retorno = WS.LoginYInsertarEvento("USUARIO", "CONTRASEÑA", Dominio, Serie, Codigo, Lat, Lng, 0, Velocidad, FechaEvento, FechaEvento) + If Retorno > 0 Then + Alert("El evento se envió correctamente") + Else + Alert("No se envió el evento", TipoMensaje.MsgAdvertencia) + End If + Catch ex As Exception + OnError("Ocurrió un error al enviar la posición", ex) + End Try + + End Sub +End Class diff --git a/General/PopUpPaqueteriasGuias.aspx b/General/PopUpPaqueteriasGuias.aspx index 3d8060faf..f1de891ee 100644 --- a/General/PopUpPaqueteriasGuias.aspx +++ b/General/PopUpPaqueteriasGuias.aspx @@ -208,7 +208,7 @@ - Poliza de Seguro: + Póliza de Seguro: diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index 396b7a045..6d6e99153 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -1612,13 +1612,17 @@ Partial Class Inventarios_EntregaAlmacen End If If EsDevolucionVenta = 1 Or TipoDocto.Contiene({"Ped"}) Then - For Each Gvr As GridViewRow In GvDatos.Rows - If Not Gvr.FCCheckBox("cbInv").Checked Or (Gvr.FCCheckBox("cbInv").Checked AndAlso Gvr.FCTextBox("TbCantidadF").Text.ToDecimal <> Gvr.DataKey("CantidadC").ToString.ToDecimal) Then - Alert("Es necesario surtir todos los productos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) - RegistraScript("playsonidito('142608__autistic-lucario__error.wav')") - Exit Sub - End If - Next + If Not (EsDevolucionVenta = 1 And TipoDocto.Contiene("Rem")) Then ' condicion si hay una devolucion de remision, no verifique la totalidad surtido + For Each Gvr As GridViewRow In GvDatos.Rows + If Not Gvr.FCCheckBox("cbInv").Checked Or (Gvr.FCCheckBox("cbInv").Checked AndAlso Gvr.FCTextBox("TbCantidadF").Text.ToDecimal <> Gvr.DataKey("CantidadC").ToString.ToDecimal) Then + Alert("Es necesario surtir todos los productos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) + RegistraScript("playsonidito('142608__autistic-lucario__error.wav')") + Exit Sub + End If + Next + + End If + End If @@ -2304,7 +2308,7 @@ Partial Class Inventarios_EntregaAlmacen CantidadPendientePorSalir = CantidadPendientePorSalir - CantidadEntradaSinCosto End If 'si el alamcen del que salio, es el mismo que entra, no hay traspasos. - If CveAlmacenTraspasoDestino = DdlAlmacen.SelectedValue.ToEntero Then CveAlmacenTraspasoDestino = 0 + If CveAlmacenTraspasoDestino = DdlAlmacen.SelectedValue.ToEntero And TipoDocto <> "Rem" Then CveAlmacenTraspasoDestino = 0 If Not ErrorMovInv AndAlso CantidadPendientePorSalir > 0 Then Dim ConceptoMovimiento = 3 @@ -2810,7 +2814,7 @@ Partial Class Inventarios_EntregaAlmacen Dim Fecha As Date = TxtFecha.Text.ToDate ' If(TipoMovimiento <> 1, TxtFecha.Text.ToDate, ObjVentas.DtResultados(0)("Fecha").ToString.ToDate) Dim CveCliente As Integer = ObjVentas.DtResultados(0)("CveCliente").ToString.ToEntero Dim ClienteNombre As String = ObjVentas.DtResultados(0)("ClienteNombre").ToString - Dim Serie As String = ObjVentas.DtResultados(0)("Serie").ToString + Dim Serie As String = ObjVentas.DtResultados(0)("SerieFolio").ToString Dim TotalCosto As Decimal = DtCostos.SUMD("Total").RoundSQL() Dim TotalCostoAcumulado As Decimal = 0 Dim cont As Integer = 1 diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb index 52bc3b4d5..fb0d561d4 100644 --- a/Inventarios/RecepcionUsados.aspx.vb +++ b/Inventarios/RecepcionUsados.aspx.vb @@ -2075,6 +2075,8 @@ Partial Class Inventarios_RecepcionUsados Me.ObjRemisionNC.DescripcionContrato = "" Me.ObjRemisionNC.CveCorte = -1 Me.ObjRemisionNC.TipoDocumento = "Remisión" + 'NUM 1- CARGO 2- BONIFICACION + Me.ObjRemisionNC.Num1 = 1 Me.ObjRemisionNC.Alfa1 = "" Me.ObjRemisionNC.Alfa2 = "" Me.ObjRemisionNC.Alfa3 = "" diff --git a/Inventarios/ResguardoMaterial.aspx.vb b/Inventarios/ResguardoMaterial.aspx.vb index e3cfa6f5d..460a99f76 100644 --- a/Inventarios/ResguardoMaterial.aspx.vb +++ b/Inventarios/ResguardoMaterial.aspx.vb @@ -127,6 +127,7 @@ Partial Class Inventarios_ResguardoMaterial Try Dim CvePersonal As Integer = Request.QueryString("CvePersonal").ToString.ToEntero OcultarControles(CvePersonal) + TxtFecha.Enabled = False Catch ex As Exception End Try @@ -140,7 +141,8 @@ Partial Class Inventarios_ResguardoMaterial Private Sub OcultarControles(CvePersonal As Integer) - DdlPersonal.ddl.SelectedValueExist(CvePersonal) + DdlPersonal.SelectedValue = CvePersonal.ToString() + DdlPersonal.SelectedText = GlobalDTRHPersonal(UsuarioActual.CveEmpresa, CvePersonal).FiltroPrimeroValor("NombreCompleto") DdlPersonal.Enabled = False DVTipo.Visible = False End Sub @@ -931,10 +933,11 @@ Partial Class Inventarios_ResguardoMaterial If Not TieneError Then Dim Msg As New StringBuilder If Concepto = 23 Then - Msg.AppendFormat("
    Resguardo con Folio: {1}", CveMovimientoSalida, FolioSalida) + 'FolioEntrada + Msg.AppendFormat("
    Resguardo con Folio: {1}", CveMovimientoSalida, FolioEntrada) Msg.AppendFormat("
    Imprimir Resguardo ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoSalida))) - Msg.AppendFormat("


    El Movimiento de control se registro con el Folio: {1}", CveMovimientoEntrada, FolioEntrada) + Msg.AppendFormat("


    El Movimiento de control se registro con el Folio: {1}", CveMovimientoEntrada, FolioSalida) Else Msg.AppendFormat("
    Liberación de Resguardo con Folio: {1}", CveMovimientoEntrada, FolioEntrada) Msg.AppendFormat("
    Imprimir liberación de Resguardo ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoEntrada))) diff --git a/PortalCliente/PortalCliente.aspx b/PortalCliente/PortalCliente.aspx index cf82c513a..979c91a51 100644 --- a/PortalCliente/PortalCliente.aspx +++ b/PortalCliente/PortalCliente.aspx @@ -309,7 +309,7 @@ - + Factura @@ -1882,15 +1882,40 @@

    Confirmación de Pago

    -
    - -
    - + +
    +
    + # + +
    - -
    +
    +
    +
    + +
    +
    + # + +
    +
    +
    +
    +
    + +
    +
    + # + +
    +
    +
    +
    +
    + +
    $ @@ -1900,18 +1925,28 @@
    +

    - *El pago incluye facturas en dolares. Las cuales se calcularon con el TC del día $ - + *El pago incluye facturas en dolares. Las cuales se calcularon con el TC del día $

    +
    +
    + +
    +
    + @ + +
    +
    +
    +
    -
    diff --git a/PortalCliente/PortalCliente.aspx.vb b/PortalCliente/PortalCliente.aspx.vb index c2dd24273..4a162581a 100644 --- a/PortalCliente/PortalCliente.aspx.vb +++ b/PortalCliente/PortalCliente.aspx.vb @@ -564,9 +564,13 @@ Partial Class Ventas_PortalCliente DtPagos.Columns.Add("TCVenta", GetType(Decimal)) DtPagos.Columns.Add("ImporteVenta", GetType(Decimal)) DtPagos.Columns.Add("IVA", GetType(Decimal)) + DtPagos.Columns.Add("PorcentajeIVA", GetType(Decimal)) DtPagos.Columns.Add("RetIVA", GetType(Decimal)) - DtPagos.Columns.Add("RetISR", GetType(Decimal)) + DtPagos.Columns.Add("PorcentajeRetIVA", GetType(Decimal)) + DtPagos.Columns.Add("RetISR", GetType(Decimal)) + DtPagos.Columns.Add("PorcentajeRetISR", GetType(Decimal)) DtPagos.Columns.Add("IEPS", GetType(Decimal)) + DtPagos.Columns.Add("PorcentajeIEPS", GetType(Decimal)) DtPagos.Columns.Add("TCPago", GetType(Decimal)) DtPagos.Columns.Add("ImportePago", GetType(Decimal)) DtPagos.Columns.Add("ImportePagoMX", GetType(Decimal)) @@ -584,11 +588,14 @@ Partial Class Ventas_PortalCliente Dr("CveMoneda") = Gvr.DataKey("CveMoneda").ToEntero Dr("TCVenta") = Gvr.DataKey("TipoCambio").ToDecimal Dr("ImporteVenta") = Gvr.DataKey("Original").ToDecimal - Dr("IVA") = Gvr.DataKey("IVA").ToDecimal + Dr("IVA") = Gvr.DataKey("IVA").ToDecimal + Dr("PorcentajeIVA") = Gvr.DataKey("PorcentajeIVA").ToDecimal Dr("RetIVA") = Gvr.DataKey("RetIVA").ToDecimal - Dr("RetISR") = Gvr.DataKey("RetISR").ToDecimal - Dr("IEPS") = Gvr.DataKey("IEPS").ToDecimal - + Dr("PorcentajeRetIVA") = Gvr.DataKey("PorcentajeRetIVA").ToDecimal + Dr("RetISR") = Gvr.DataKey("RetISR").ToDecimal + Dr("PorcentajeRetISR") = Gvr.DataKey("PorcentajeRetISR").ToDecimal + Dr("IEPS") = Gvr.DataKey("IEPS").ToDecimal + Dr("PorcentajeIEPS") = Gvr.DataKey("PorcentajeIEPS").ToDecimal Dr("TCPago") = If(Gvr.DataKey("CveMoneda").ToEntero = 1, 1, TCPago) Dr("ImportePago") = Gvr.DataKey("Saldo").ToDecimal If Gvr.DataKey("CveMoneda").ToEntero > 1 Then @@ -615,10 +622,14 @@ Partial Class Ventas_PortalCliente DivPagoDolares.Visible = False End If - LbFactura.Text = Facturas.Substring(0, Facturas.Length - 2) + 'LbFactura.Text = Facturas.Substring(0, Facturas.Length - 2) TxtImporte.Text = DtPagos.SUM("ImportePagoMX").FormatoNumero(2) RVTxtImporte.MaximumValue = DtPagos.SUM("ImportePagoMX").FormatoNumero(2) + TxtConcepto.Text = "Pago de facturas" + TxtReferencia.Text = CveCliente.ToString + TxtNombreCompleto.Text = LtlCliente.Text + RegistraScript("$('#ModalProsePago').modal()") UpProsePago.Update() @@ -644,11 +655,11 @@ Partial Class Ventas_PortalCliente End Select Dim myNameValueCollection As New NameValueCollection() - Dim Nombre = LimpiaTextoSoloLetras(LtlCliente.Text) - Dim Facturas = LimpiaTextoSoloLetrasNumeros(LbFactura.Text.Replace(",", " ")) + Dim Nombre = LimpiaTextoSoloLetras(TxtNombreCompleto.Text) + myNameValueCollection.Add("nom", Nombre.Substring(0, If(Nombre.Length > 200, 200, Nombre.Length))) - myNameValueCollection.Add("con", $"Pago de facturas {Facturas.Substring(0, If(Facturas.Length > 180, 180, Facturas.Length))}") - myNameValueCollection.Add("ref", CveCliente.ToString) + myNameValueCollection.Add("con", TxtConcepto.Text) + myNameValueCollection.Add("ref", TxtReferencia.Text) myNameValueCollection.Add("imp", TxtImporte.Text) myNameValueCollection.Add("ema", UsuarioActual.Usuario) ' myNameValueCollection.Add("urlOk", $"{Request.Url.GetLeftPart(UriPartial.Authority)}/PortalCliente/PortalCliente.aspx?okpp=1&p={Parametro}") @@ -746,7 +757,7 @@ Partial Class Ventas_PortalCliente ' PREPOLIZA Dim CvePlantillaPoliza = 11 Dim FechaMovimiento As Date = Now - Dim Concepto = "" + Dim Concepto = "Prosepago" Dim DtConceptos As New DataTable Dim CveMonedaPago = 1 @@ -764,9 +775,13 @@ Partial Class Ventas_PortalCliente Dim CveMonedaVenta = 1 Dim TCVenta = 0.0D Dim IVAVenta = 0.0D - Dim RetIVAVenta = 0.0D + Dim PorcentajeIVA = 0.0D + Dim RetIVAVenta = 0.0D + Dim PorcentajeRetIVA = 0.0D Dim RetISRVenta = 0.0D - Dim IEPSVenta = 0.0D + Dim PorcentajeRetISR = 0.0D + Dim IEPSVenta = 0.0D + Dim PorcentajeIEPS = 0.0D Dim TCPago = 0.0D Dim PorcentajePago = 0.0D Dim ImportePago = 0.0D @@ -774,6 +789,7 @@ Partial Class Ventas_PortalCliente Dim TCGeneral = 0.0D Dim TCFluctuacion = 0.0D Dim CveProveedorContabilizar = -1 + Dim PorcentajeImpuesto As Decimal = 0 Dim CvePrePoliza = ObjConta.AddPrePolizas("PortalCliente/Pago-Prosepago", CvePlantillaPoliza, TxtImporte.Text.Trim.ToDecimal, TxtImporte.Text.Trim.ToDecimal, CveMonedaPago, FechaMovimiento, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) @@ -795,6 +811,7 @@ Partial Class Ventas_PortalCliente importeMX = 0 IdCtaContable = 0 CveCuenta = 0 + PorcentajeImpuesto = 0 ConceptoMovimiento = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, LtlCliente.Text, DrPago("Factura").ToString, DrPago("Factura").ToString) 'VALORES DE LA VENTA Referencia = DrPago("Factura").ToString @@ -802,18 +819,22 @@ Partial Class Ventas_PortalCliente CveVenta = DrPago("CveVenta").ToString.ToEntero CveMonedaVenta = DrPago("CveMoneda").ToString.ToEntero TCVenta = DrPago("TCVenta").ToString.ToDecimal - IVAVenta = DrPago("IVA").ToString.ToDecimal - RetIVAVenta = DrPago("RetIVA").ToString.ToDecimal - RetISRVenta = DrPago("RetISR").ToString.ToDecimal - IEPSVenta = DrPago("IEPS").ToString.ToDecimal + IVAVenta = DrPago("IVA").ToString.ToDecimal + PorcentajeIVA = DrPago("PorcentajeIVA").ToString.ToDecimal + RetIVAVenta = DrPago("RetIVA").ToString.ToDecimal + PorcentajeRetIVA = DrPago("PorcentajeRetIVA").ToString.ToDecimal + RetISRVenta = DrPago("RetISR").ToString.ToDecimal + PorcentajeRetISR = DrPago("PorcentajeRetISR").ToString.ToDecimal + IEPSVenta = DrPago("IEPS").ToString.ToDecimal + PorcentajeIEPS = DrPago("PorcentajeIEPS").ToString.ToDecimal TCPago = DrPago("TCPago").ToString.ToDecimal ImportePago = DrPago("ImportePago").ToString.ToDecimal ImportePagoMX = DrPago("ImportePagoMX").ToString.ToDecimal PorcentajePago = DrPago("ImportePago").ToString.ToDecimal / DrPago("ImporteVenta").ToString.ToDecimal 'EL IMPORTE PAGO ES EL IMPORTE QUE SE PAGÓ EN LA MONEDA ORIGINAL DE LA VENTA - TCFluctuacion = If(UsuarioActual.Empresa.Funcionalidad(159) = "1", TCVenta, TCPago) - - - 'CONFIGURACION POR CONCEPTO DE PREPOLIZA + TCFluctuacion = If(UsuarioActual.Empresa.Funcionalidad(159) = "1", TCVenta, TCPago) + + + 'CONFIGURACION POR CONCEPTO DE PREPOLIZA Select Case ConceptoContable Case 2 'PAGO CLIENTE ImporteMovimiento = ImportePago.RoundSQL() @@ -854,6 +875,7 @@ Partial Class Ventas_PortalCliente ImporteMovimiento = IVAVenta * PorcentajePago importeMX = ImporteMovimiento * TCVenta End If + PorcentajeImpuesto = PorcentajeIVA ImporteMovimiento = ImporteMovimiento.RoundSQL() importeMX = importeMX.RoundSQL() @@ -871,6 +893,7 @@ Partial Class Ventas_PortalCliente ImporteMovimiento = IVAVenta * PorcentajePago importeMX = ImporteMovimiento * TCFluctuacion End If + PorcentajeImpuesto = PorcentajeIVA ImporteMovimiento = ImporteMovimiento.RoundSQL() importeMX = importeMX.RoundSQL() @@ -888,6 +911,7 @@ Partial Class Ventas_PortalCliente ImporteMovimiento = RetIVAVenta * PorcentajePago importeMX = ImporteMovimiento * TCVenta End If + PorcentajeImpuesto = PorcentajeRetIVA ImporteMovimiento = ImporteMovimiento.RoundSQL() importeMX = importeMX.RoundSQL() @@ -920,6 +944,7 @@ Partial Class Ventas_PortalCliente ImporteMovimiento = RetIVAVenta * PorcentajePago importeMX = ImporteMovimiento * TCFluctuacion End If + PorcentajeImpuesto = PorcentajeRetIVA ImporteMovimiento = ImporteMovimiento.RoundSQL() importeMX = importeMX.RoundSQL() @@ -953,6 +978,7 @@ Partial Class Ventas_PortalCliente ImporteMovimiento = RetISRVenta * PorcentajePago importeMX = ImporteMovimiento * TCVenta End If + PorcentajeImpuesto = PorcentajeRetISR ImporteMovimiento = ImporteMovimiento.RoundSQL() importeMX = importeMX.RoundSQL() @@ -986,6 +1012,7 @@ Partial Class Ventas_PortalCliente ImporteMovimiento = RetIVAVenta * PorcentajePago importeMX = ImporteMovimiento * TCFluctuacion End If + PorcentajeImpuesto = PorcentajeRetISR ImporteMovimiento = ImporteMovimiento.RoundSQL() importeMX = importeMX.RoundSQL() @@ -1019,6 +1046,7 @@ Partial Class Ventas_PortalCliente ImporteMovimiento = IEPSVenta * PorcentajePago importeMX = ImporteMovimiento * TCVenta End If + PorcentajeImpuesto = PorcentajeIEPS ImporteMovimiento = ImporteMovimiento.RoundSQL() importeMX = importeMX.RoundSQL() @@ -1035,7 +1063,8 @@ Partial Class Ventas_PortalCliente ElseIf CveMonedaVenta = 2 Then ImporteMovimiento = IEPSVenta * PorcentajePago importeMX = ImporteMovimiento * TCFluctuacion - End If + End If + PorcentajeImpuesto = PorcentajeIEPS ImporteMovimiento = ImporteMovimiento.RoundSQL() importeMX = importeMX.RoundSQL() @@ -1081,7 +1110,7 @@ Partial Class Ventas_PortalCliente 'AGREGA PREPOLIZA DETALLE If ImporteMovimiento <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, Referencia, ConceptoContable, ConceptoMovimiento, FechaMovimiento, IdCtaContable, -1, -1, CveVenta, -1, CveSubProyecto, CveCliente, CveProveedorContabilizar, ImporteMX:=importeMX, CveCuenta:=CveCuenta, TipoCambio:=TCGeneral) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, Referencia, ConceptoContable, ConceptoMovimiento, FechaMovimiento, IdCtaContable, -1, -1, CveVenta, -1, CveSubProyecto, CveCliente, CveProveedorContabilizar, ImporteMX:=importeMX, CveCuenta:=CveCuenta, TipoCambio:=TCGeneral, PorcentajeImpuesto:=PorcentajeImpuesto) Then TieneError = True MensajeError.Append("No se pudo insertar el detalle de la póliza
    ") Exit For @@ -3438,7 +3467,7 @@ Partial Class Ventas_PortalCliente End Sub Private Sub EnviarCorreoPedido(ObjFactura As Modelos.Factura) - Dim Hilo As New System.Threading.Thread(Sub() MandaMails(UsuarioActual, ObjFactura.CveVenta, True, ObjFactura, "")) + Dim Hilo As New System.Threading.Thread(Sub() MandaMails(UsuarioActual, ObjFactura.CveVenta, True, ObjFactura)) Hilo.Start() End Sub diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 25ab45b50..428706e48 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -4200,7 +4200,7 @@ diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index d2e4de5ff..59800645b 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -3948,6 +3948,10 @@ Partial Class Clientes If DtCxCFact2 IsNot Nothing AndAlso DtCxCFact2.Rows.Count > 0 Then Dim dr As DataRow = DtCxCFact2.Rows(0) Dim lista = New List(Of CrystalParametro) + Dim SaldoDisponible As String = "0.00" + If TxtLimiteCredito.Text.ToDouble > 0 Then + SaldoDisponible = (TxtLimiteCredito.Text.ToDouble - DtCxCFact2.SUM("Saldo", "Tipo = 'Act'").ToString.ToDouble).FormatoNumero + End If lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa)) lista.Add(New CrystalParametro("TipoCuentas", DdlTipoCuentasCxC.SelectedItem.Text)) lista.Add(New CrystalParametro("NombreCliente", LtlCliente.Text)) @@ -3961,7 +3965,7 @@ Partial Class Clientes lista.Add(New CrystalParametro("ClienteTelefono", TxtTelefono.Text)) lista.Add(New CrystalParametro("DiasCredito", TxtPlazoCobranza.Text)) lista.Add(New CrystalParametro("LimiteCredito", TxtLimiteCredito.Text)) - lista.Add(New CrystalParametro("SaldoDisponible", (TxtLimiteCredito.Text.ToDouble - DtCxCFact2(0)("Saldo").ToString.ToDouble).FormatoNumero)) + lista.Add(New CrystalParametro("SaldoDisponible", SaldoDisponible)) lista.Add(New CrystalParametro("SaldoIngDolares", SaldoIngDolares.FormatoNumero)) lista.Add(New CrystalParametro("SaldoIngPesos", SaldoIngPesos.FormatoNumero)) @@ -3971,9 +3975,7 @@ Partial Class Clientes lista.Add(New CrystalParametro("TotalAnt", TotalAnt.FormatoNumero)) lista.Add(New CrystalParametro("ContaIng", ContaIng)) lista.Add(New CrystalParametro("ContaAnt", ContaAnt)) - - - + If Imagen.Exists Then lista.Add(New CrystalParametro("LogoPath", logouri)) Else @@ -9321,6 +9323,7 @@ Partial Class Clientes Dim SubTotal As Decimal = 0D Dim IVA As Decimal = 0D + Dim CveSubProyecto As Integer = -1 For Each GvRow As GridViewRow In GvAcum.Rows If Tipo = 1 Then @@ -9332,6 +9335,8 @@ Partial Class Clientes SubTotal = SubTotal + GvRow.DataKey("ImporteBonificacion").ToDecimal End If End If + + CveSubProyecto = GvRow.DataKey("CveSubProyecto").ToEntero Next Dim CvePS As Integer = UsuarioActual.Empresa.Funcionalidad(534).ToEntero 'CvePS Distruibuidor Bonificación Nota @@ -9453,7 +9458,8 @@ Partial Class Clientes ObjFactura.Alfa2 = "" ObjFactura.Alfa3 = "" - ObjFactura.Num1 = 0 + 'NUM 1- CARGO 2- BONIFICACION + ObjFactura.Num1 = Tipo ObjFactura.Num2 = 0 ObjFactura.Num3 = 0 @@ -9503,7 +9509,7 @@ Partial Class Clientes ObjFactura.SetCliente() ''SUCURSAL - + ObjFactura.CveSubProyecto = CveSubProyecto ObjFactura.SetSubProyectoMatriz(Me) ObjFactura.SetSubProyecto(Me) ObjFactura.ClienteSucursal = New Modelos.SucursalModel diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 029f871b0..cb5ec3879 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -3016,53 +3016,7 @@ - - + diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 56ab2f9d3..122b2b6c1 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -1710,30 +1710,30 @@ Partial Class Ventas #End Region -#Region "AuxiliarConta" - Property CvePrePolizaNegativa As Integer - Get - If ViewState("CvePrePolizaNegativa") Is Nothing Then - Return -1 - Else - Return ViewState("CvePrePolizaNegativa").ToString.ToEntero - End If + '#Region "AuxiliarConta" + ' Property CvePrePolizaNegativa As Integer + ' Get + ' If ViewState("CvePrePolizaNegativa") Is Nothing Then + ' Return -1 + ' Else + ' Return ViewState("CvePrePolizaNegativa").ToString.ToEntero + ' End If - End Get - Set(value As Integer) - ViewState("CvePrePolizaNegativa") = value - End Set - End Property + ' End Get + ' Set(value As Integer) + ' ViewState("CvePrePolizaNegativa") = value + ' End Set + ' End Property - Private Property DTDatos As DataTable - Get - Return CType(ViewState("DTDatos"), DataTable) - End Get - Set(value As DataTable) - ViewState("DTDatos") = value - End Set - End Property -#End Region + ' Private Property DTDatos As DataTable + ' Get + ' Return CType(ViewState("DTDatos"), DataTable) + ' End Get + ' Set(value As DataTable) + ' ViewState("DTDatos") = value + ' End Set + ' End Property + '#End Region #Region " A C U M U L A D O R E S" @@ -2214,6 +2214,7 @@ Partial Class Ventas If DdlTipoComprobante.SelectedValue.Contiene("Ped", "PeC") Then TrAlmacenAsignado.Visible = True + TrAlmacenOrigen.Visible = True End If Dim CveAlmacenDestino As Integer = DtContratos.FiltroPrimeroValor("CveAlmacenDestino", $"CveContrato = {If(DdlContratosModal.Items.Count > 0, DdlContratosModal.SelectedValue, "0")}").ToEntero() @@ -2232,6 +2233,7 @@ Partial Class Ventas Else RequiereAlmacenDestino = False TrAlmacenAsignado.Visible = False + TrAlmacenOrigen.Visible = False End If 'ENVIO DE FACTURA @@ -2244,11 +2246,12 @@ Partial Class Ventas 'Modalidad Contrato If Request("CveContrato") IsNot Nothing AndAlso IsNumeric(Request("CveContrato")) AndAlso Request("CveContrato").ToEntero() > 0 AndAlso Request("Tipo") IsNot Nothing AndAlso IsNumeric(Request("Tipo")) AndAlso Request("Tipo").Contiene("0", "1") Then - TrAlmacenOrigen.Visible = False + If DdlTipoComprobante.SelectedValue.Contiene("Ped", "PeC") Then TrAlmacenAsignado.Visible = True - + TrAlmacenOrigen.Visible = True End If + UPCondicionesPago.Visible = False RequiereAlmacenDestino = True CveContrato = Request("CveContrato").ToEntero() @@ -2477,7 +2480,9 @@ Partial Class Ventas CargaFletes() CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyectoHeader, LblSubProyecto, AplicaTodos:="") + DdlSubProyecto.SelectedValueExist(DdlSubProyectoDatos.SelectedValue) CargarCentrosDeCosto(DdlProyectoPyME, DdlSubProyectoPyME, LblProyectoPyME, LblSubProyectoPyME, AplicaTodos:="") + DdlProyectoPyME.SelectedValueExist(DdlSubProyectoDatos.SelectedValue) BrSubProyecto.Visible = DdlProyecto.Visible divProyectoPyME.Visible = DdlProyecto.Visible @@ -3014,11 +3019,28 @@ Partial Class Ventas DdlAlmacenAsignado.DataBind() End If + Dim CveAlmacenOrigen As Integer = DrContrato("CveAlmacenOrigen").ToString().ToEntero() + + If CveAlmacenOrigen > 0 Then + 'TrAlmacenOrigen.Visible = True + + DdlAlmacenOrigen.Items.Clear() + DdlAlmacenOrigen.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1, CveAlmacen:=CveAlmacenOrigen) '.FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()}") + DdlAlmacenOrigen.DataBind() + DdlAlmacenOrigen.SelectedValueExist(CveAlmacenOrigen.ToString()) + + End If + If DdlTipoComprobante.SelectedValue.Contiene("Ped", "PeC") Then DdlAlmacenAsignado.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()}") DdlAlmacenAsignado.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlAlmacenAsignado.SelectedValueExist(CveAlmacenDestino.ToString()) DdlAlmacenAsignado.DataBind() + + DdlAlmacenOrigen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()}") + DdlAlmacenOrigen.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlAlmacenOrigen.SelectedValueExist(CveAlmacenOrigen.ToString()) + DdlAlmacenOrigen.DataBind() End If UpParametros.Update() @@ -3272,7 +3294,10 @@ Partial Class Ventas DdlAlmacenAsignado.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()} {If(DdlTipoComprobante.SelectedValue = "Ped", "", "AND CveTipoAlmacen IN (4,10)")}") DdlAlmacenAsignado.DataBind() DdlAlmacenAsignado.Enabled = True + TrAlmacenAsignado.Visible = True + TrAlmacenOrigen.Visible = True + TrTipoPedido.Visible = True TrObs.InnerText = "No. Serie" SpObs.InnerText = "Contrato" @@ -4078,6 +4103,8 @@ Partial Class Ventas DdlSubProyectoDatos.Items.Insert(0, New ListItem("Seleccione", "-1")) End If DdlSubProyectoDatos.SelectedValueExistInsert(DbRowVenta("CveSubProyecto").ToString(), DbRowVenta("SubProyecto").ToString()) + DdlSubProyecto.SelectedValueExist(DbRowVenta("CveSubProyecto").ToString()) + CargarAlmacenes() If DdlSubProyectoCobranza.Items.Count = 0 Then @@ -7353,16 +7380,20 @@ Partial Class Ventas If ObjContr.GetContratos(CveContrato, UsuarioActual.CveEmpresa) Then If ObjContr.DtResultados.Rows.Count > 0 Then - ' si es flexible que notifique el monto maximo, si no lo es que notifique el porcentaje alcanzado... flexible = 2, no flexible = 1 - Dim PorcentajeAvance As Double = ObjContr.DtResultados.Rows(0)("ContratoAvance").ToString().ToDouble + + 'SI ES FLEXIBLE QUE NOTIFIQUE EL MONTO MAXIMO, SI NO LO ES QUE NOTIFIQUE EL PORCENTAJE ALCANZADO... FLEXIBLE = 2, NO FLEXIBLE = 1 If ObjContr.DtResultados.Rows(0)("ModalidadDetalle").ToString() = "1" Then + Dim PorcentajeAvance As Double = ObjContr.DtResultados.Rows(0)("ContratoAvance").ToString().ToDouble If PorcentajeAvance >= 100 Then EnviarNotificacionAvance(ObjContr.DtResultados.Rows(0)("NumeroContrato").ToString(), ObjContr.DtResultados.Rows(0)("DescripcionContrato").ToString(), ObjContr.DtResultados.Rows(0)("ContratoTipo").ToString(), ObjContr.DtResultados.Rows(0)("NombreComercial").ToString(), ObjContr.DtResultados.Rows(0)("CorreoVendedor").ToString()) End If Else Dim MontoMaximo As Double = ObjContr.DtResultados.Rows(0)("ImporteMax").ToString().ToDouble + Dim Avance As Double = ObjContr.DtResultados.Rows(0)("Avance").ToString().ToDouble + + Dim PorcentajeAvance As Double = (Avance / MontoMaximo) * 100 If PorcentajeAvance >= 100 And MontoMaximo > 0 Then EnviarNotificacionAvance(ObjContr.DtResultados.Rows(0)("NumeroContrato").ToString(), ObjContr.DtResultados.Rows(0)("DescripcionContrato").ToString(), ObjContr.DtResultados.Rows(0)("ContratoTipo").ToString(), ObjContr.DtResultados.Rows(0)("NombreComercial").ToString(), ObjContr.DtResultados.Rows(0)("CorreoVendedor").ToString(), MontoMaximo) @@ -7550,7 +7581,6 @@ Partial Class Ventas End If End Sub - Private Sub CreaObjetosVentaAmortizacion(ObjVentas As ClsVentas, FolioFiscalRelacionado As String, CveAnticipoPadre As Integer, Optional CveVentasPadre As Integer = -1, Optional NCDescuento As Boolean = False) ObjFacturaDevolucion = New Modelos.Factura @@ -12239,7 +12269,9 @@ Partial Class Ventas End If If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then - DdlTipoAmortizacionAnticipo.Items.Add(New ListItem("Amortización anticipo sobre factura en cero", "3")) + If Not DdlTipoAmortizacionAnticipo.Items.Cast(Of ListItem).Any(Function(x) x.Value = "3") Then + DdlTipoAmortizacionAnticipo.Items.Add(New ListItem("Amortización anticipo sobre factura en cero", "3")) + End If End If If UsuarioActual.Empresa.Funcionalidad(343) = "1" Then @@ -13098,6 +13130,7 @@ Partial Class Ventas If DdlTipoComprobante.SelectedValue = "Rem" Then DdlTipoComprobante.Enabled = False TrAlmacenAsignado.Visible = False + TrAlmacenOrigen.Visible = False UpParametros.Update() End If @@ -14192,6 +14225,7 @@ Partial Class Ventas 'REINICIALIZA VALORES DE ENTREGA POR ADELANTADO RequiereAlmacenDestino = False TrAlmacenAsignado.Visible = False + TrAlmacenOrigen.Visible = False If DdlTipoComprobante.SelectedValue = "Cot" And UsuarioActual.Empresa.Funcionalidad(135) = "1" Then Alert("Se ocupa una autorización.", TipoMensaje.MsgAdvertencia) @@ -14283,10 +14317,21 @@ Partial Class Ventas DdlAlmacenAsignado.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()} AND CveTipoAlmacen IN (10)") DdlAlmacenAsignado.DataBind() End If + + Dim CveAlmacenOrigen As Integer = DtContratos.FiltroPrimeroValor("CveAlmacenOrigen", $"CveContrato = {If(DdlContratosModal.Items.Count > 0, DdlContratosModal.SelectedValue, "0")}").ToEntero() + + If CveAlmacenOrigen > 0 Then + DdlAlmacenOrigen.Items.Clear() + DdlAlmacenOrigen.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1, CveAlmacen:=CveAlmacenOrigen) '.FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()}") + DdlAlmacenOrigen.DataBind() + DdlAlmacenOrigen.SelectedValueExist(CveAlmacenOrigen.ToString()) + End If + UpParametros.Update() Else RequiereAlmacenDestino = False TrAlmacenAsignado.Visible = False + TrAlmacenOrigen.Visible = False End If 'ENVIO DE FACTURA @@ -18708,6 +18753,11 @@ Partial Class Ventas If ObjInv.GetInv_Mov(CveVenta, UsuarioActual.CveEmpresa) Then If ObjInv.DtResultados.Rows.Count > 0 Then CargaGVInv(ObjInv.DtResultados) + Else + 'si es la empresa 119, Candado, no permiter refacturar, si no se ha surtido, para que cancele la factura mejor. + If UsuarioActual.CveEmpresa = 119 AndAlso LkRefacturacion.Visible AndAlso ObjInv.DtResultados.Rows.Count = 0 Then + LkRefacturacion.Visible = False + End If End If End If ObjInv.Dispose() @@ -26165,7 +26215,7 @@ Partial Class Ventas Private Sub CargaAuxiliarClienteCxC(CveCliente As Integer, CveVenta As Integer) Dim ObjMovtos As New ClsMovimientos() If ObjMovtos.GetCxCClienteAuxiliar(CveCliente, CveVenta) Then - DTDatos = ObjMovtos.DtResultados + ' DTDatos = ObjMovtos.DtResultados GVAuxiliar.DataSource = ObjMovtos.DtResultados Else GVAuxiliar.DataSource = Nothing @@ -26174,48 +26224,48 @@ Partial Class Ventas GVAuxiliar.DataBind() End Sub - Protected Sub BtnCancelarAux_Click(sender As Object, e As EventArgs) - AgregaPolizaNegativo(CvePrePolizaNegativa) - End Sub + ''Protected Sub BtnCancelarAux_Click(sender As Object, e As EventArgs) + '' 'AgregaPolizaNegativo(CvePrePolizaNegativa) + ''End Sub - Private Sub AgregaPolizaNegativo(CvePrePoliza As Integer) + ''Private Sub AgregaPolizaNegativo(CvePrePoliza As Integer) - Dim ObjContabilidad As New ClsContabilidad - Dim TieneError As Boolean = False - ObjContabilidad.IniciaTransacSQL() + '' Dim ObjContabilidad As New ClsContabilidad + '' Dim TieneError As Boolean = False + '' ObjContabilidad.IniciaTransacSQL() - Dim CvePrePolizaNueva As Integer = ObjContabilidad.AddPrePolizasNegativa(CvePrePoliza, UsuarioActual.CveUsuario, TxtConceptoCancelacion.Text, UsuarioActual.CveEmpresa, TxtFechaCancelacion.Text.ToDate) + '' Dim CvePrePolizaNueva As Integer = ObjContabilidad.AddPrePolizasNegativa(CvePrePoliza, UsuarioActual.CveUsuario, TxtConceptoCancelacion.Text, UsuarioActual.CveEmpresa, TxtFechaCancelacion.Text.ToDate) - If Not CvePrePolizaNueva > 0 Then + '' If Not CvePrePolizaNueva > 0 Then - TieneError = True - End If + '' TieneError = True + '' End If - If Not TieneError Then + '' If Not TieneError Then - ObjContabilidad.Commit() - Dim Str As New StringBuilder - Str.Append("Se agrego la póliza de cancelación correctamente.
    ") - RegistraScript(" $('#DivCancelar').modal('hide'); ") - If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then - If ObjContabilidad.ContabilizarPrePoliza(CvePrePolizaNueva, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then - Str.AppendFormat("Ver Poliza", ObjContabilidad.ContaIdPoliza) + '' ObjContabilidad.Commit() + '' Dim Str As New StringBuilder + '' Str.Append("Se agrego la póliza de cancelación correctamente.
    ") + '' RegistraScript(" $('#DivCancelar').modal('hide'); ") + '' If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then + '' If ObjContabilidad.ContabilizarPrePoliza(CvePrePolizaNueva, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then + '' Str.AppendFormat("Ver Poliza", ObjContabilidad.ContaIdPoliza) - End If - End If - Alert(Str.ToString) - Else - ObjContabilidad.RollBack() + '' End If + '' End If + '' Alert(Str.ToString) + '' Else + '' ObjContabilidad.RollBack() - End If + '' End If - ObjContabilidad.Dispose() - CargarSaldoAuxiliar(CveCliente) + '' ObjContabilidad.Dispose() + '' CargarSaldoAuxiliar(CveCliente) - End Sub + ''End Sub Protected Sub GVAuxiliar_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAuxiliar.RowDataBound