Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
@@ -2237,6 +2237,11 @@ Partial Class Compras_Compras
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(577).ToString = "1" Then
|
||||
|
||||
'If UsuarioActual.CveRol = 1 Then
|
||||
' Alert("Ok funcionalidad 577")
|
||||
'End If
|
||||
|
||||
|
||||
If RetencionIVA = 0 And IVAOriginal > 0 Then
|
||||
For Each dRow As DataRow In TmpDT.Rows
|
||||
If dRow("CveTipoPS").ToString.ToEntero = 1 Then
|
||||
@@ -5828,9 +5833,15 @@ Partial Class Compras_Compras
|
||||
CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString.ToEntero
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
'Agregamos el Opuesto del 22 -> 15
|
||||
End If
|
||||
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(577).ToEntero = 1 Then
|
||||
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(578).ToEntero
|
||||
End If
|
||||
|
||||
|
||||
'Agregamos el Opuesto del 22 -> 15
|
||||
If importeMovimiento <> 0 Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 15, Concepto + If(tipoCambioActual > 1, $" TC: {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then
|
||||
ErrorPrepoliza = True
|
||||
@@ -8467,7 +8478,9 @@ Partial Class Compras_Compras
|
||||
If DdlRetIVAConcepto.Items.Count > 0 Then
|
||||
If DdlRetIVAConcepto.SelectedValue.ToEntero = 1 Then
|
||||
ImporteMovimiento = Math.Round(PorcentajePago * TxtRetIVA.Text.ToDecimal, 2)
|
||||
importeMN = ImporteMovimiento * tipoCambio
|
||||
importeMN = ImporteMovimiento * tipoCambio
|
||||
|
||||
|
||||
If CtaProveedorRetIVA > 0 Then
|
||||
IdCtaContable = CtaProveedorRetIVA
|
||||
CveCuenta = CveCuentaProveedorRetIVA
|
||||
@@ -8481,10 +8494,19 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(577).ToEntero = 1 Then
|
||||
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(578).ToEntero
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Case 183 'RetIVA x Acreditar Fletes P.F.
|
||||
If Not gvr.DataKey("TipoDocto").Contiene("NC", "DEV", "Ant") Then
|
||||
If DdlRetIVAConcepto.Items.Count > 0 Then
|
||||
@@ -16988,6 +17010,26 @@ Partial Class Compras_Compras
|
||||
CompruebaAgregar()
|
||||
GuardaAC()
|
||||
End If
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(577).ToString = "1" Then
|
||||
|
||||
'If UsuarioActual.CveRol = 1 Then
|
||||
' Alert($"Ok funcionalidad 577 RetencionIVA { RetencionIVA} IVAOriginal {IVAOriginal}")
|
||||
'End If
|
||||
|
||||
If RetencionIVA = 0 And IVAOriginal > 0 Then
|
||||
For Each dRow As DataRow In TmpDT.Rows
|
||||
If dRow("CveTipoPS").ToString.ToEntero = 1 Then
|
||||
tdIVA6.Visible = True
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
UpPS.Update()
|
||||
CargaGvPersonal()
|
||||
End Sub
|
||||
|
||||
@@ -1889,10 +1889,9 @@ Partial Class PopUpVerFactura
|
||||
params.Add(New ReportParameter("Fecha", Fecha)) 'TxtFecha.Text
|
||||
params.Add(New ReportParameter("NombreEntrego", Capturo)) 'UsuarioActual.Nombre
|
||||
params.Add(New ReportParameter("NombreAccion", Recibio)) 'TxtResponsable.Text
|
||||
params.Add(New ReportParameter("Accion", "Recibió")) 'Antes Trasladó
|
||||
params.Add(New ReportParameter("Accion", "RECIBE")) 'Antes Trasladó
|
||||
params.Add(New ReportParameter("Observaciones", Observaciones))
|
||||
|
||||
|
||||
Dim DTCliente As New DataTable
|
||||
Dim SBDireccionO As New StringBuilder()
|
||||
Dim SBDireccionD As New StringBuilder()
|
||||
@@ -2003,6 +2002,16 @@ Partial Class PopUpVerFactura
|
||||
|
||||
ImprimirPDF(String.Format(RutaFormato, UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Aviso de Traslado - {0}", Folio), RDSName:="DsInventarios")
|
||||
Else
|
||||
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
||||
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
||||
|
||||
If Imagen.Exists Then
|
||||
params.Add(New ReportParameter("LogoPath", logouri))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
params.Add(New ReportParameter("Origen", Almacen))
|
||||
params.Add(New ReportParameter("Destino", AlmacenDestino))
|
||||
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
||||
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
||||
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
||||
@@ -2042,6 +2051,17 @@ Partial Class PopUpVerFactura
|
||||
|
||||
ImprimirPDF(String.Format("{0}Formatos\Traslado.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Recepción de Traslado - {0}", Folio), RDSName:="DsInventarios")
|
||||
Else
|
||||
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
||||
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
||||
|
||||
If Imagen.Exists Then
|
||||
params.Add(New ReportParameter("LogoPath", logouri))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
params.Add(New ReportParameter("Origen", Almacen))
|
||||
params.Add(New ReportParameter("Destino", AlmacenDestino))
|
||||
|
||||
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
||||
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
||||
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
||||
|
||||
@@ -1533,11 +1533,12 @@ Partial Class Compras_Proveedores
|
||||
If ObjContaAC IsNot Nothing Then ObjContaAC.Commit()
|
||||
|
||||
'ACTUALIZAR GLOBAL
|
||||
If ObjProveedores.GetProveedores(ClsCompProveedores.TipoConsulta.ParaGlobalDT, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
|
||||
GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = ObjProveedores.DtResultados
|
||||
Else
|
||||
ErrorBancos = True
|
||||
End If
|
||||
'If ObjProveedores.GetProveedores(ClsCompProveedores.TipoConsulta.ParaGlobalDT, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
|
||||
GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = Nothing
|
||||
'Else
|
||||
' ErrorBancos = True
|
||||
'End If
|
||||
|
||||
Alert("El Proveedor se guardó correctamente. " & "<br />" & MsgCuentaContable, TipoMensaje.MsgInformacion, If(Request("CveFactura") Is Nothing, "document.location.href=""/Compras/CatProveedores.aspx""", "window.opener.location.href = window.opener.location.href; window.close();"))
|
||||
RecargaGlobalCuentasBancarias()
|
||||
End If
|
||||
@@ -1617,9 +1618,9 @@ Partial Class Compras_Proveedores
|
||||
|
||||
If tIdContaProveedor > 0 AndAlso CreoCuenta Then ObjProveedores.UpdateProveedorIdCuentaAC(CveProveedor, tIdContaProveedor)
|
||||
|
||||
If ObjProveedores.GetProveedores(ClsCompProveedores.TipoConsulta.ParaGlobalDT, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
|
||||
GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = ObjProveedores.DtResultados
|
||||
End If
|
||||
'If ObjProveedores.GetProveedores(ClsCompProveedores.TipoConsulta.ParaGlobalDT, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
|
||||
GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = Nothing
|
||||
'End If
|
||||
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
|
||||
|
||||
'HABILITA ENVIAR ACTIVACION AL PORTAL PROVEEDOR SI SE AGREGO CORREO
|
||||
|
||||
Reference in New Issue
Block a user