diff --git a/App_Code/ClsAcumuladores.vb b/App_Code/ClsAcumuladores.vb index c243c6058..29e08b635 100644 --- a/App_Code/ClsAcumuladores.vb +++ b/App_Code/ClsAcumuladores.vb @@ -758,11 +758,12 @@ Public Class ClsAcumuladores End Try Return Retorno End Function - Public Function GetGarantiasPolizaVirtual(CveVenta As Integer) As Boolean + Public Function GetGarantiasPolizaVirtual(CveVenta As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False SqlDataAdapter("PA_Acum_GarantiasPolizaVirtualGet") With SqlAdapter.SelectCommand.Parameters .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try SqlAdapter.Fill(Data) diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 40e4e3811..e79fadb0c 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -907,8 +907,10 @@ - - + + + Deglose 6% + <%----%> <%-- diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index d654889be..8fea41205 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1025,10 +1025,17 @@ Partial Class Compras_Compras Set(value As Double) ViewState("SubTotal2Original") = value End Set - End Property + End Property + Private Property IVAOriginal As Double - Get - Return ViewState("IVAOriginal").ToString.ToDouble + Get + + If ViewState("IVAOriginal") Is Nothing Then + Return 0 + Else + Return ViewState("IVAOriginal").ToString.ToDouble + End If + End Get Set(value As Double) ViewState("IVAOriginal") = value @@ -2087,8 +2094,12 @@ Partial Class Compras_Compras End If DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4")) - DdlRetIVAConcepto.Items.Add(New ListItem("Ret IVA Servicios", "5")) - + + If UsuarioActual.Empresa.Funcionalidad(577).ToEntero = 1 Then + DdlRetIVAConcepto.Items.Add(New ListItem("Ret IVA Servicios", "5")) + End If + + End If @@ -2237,15 +2248,15 @@ 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 - tdIVA6.Visible = True + + 'comentado para reubicar el boton + 'tdIVA6.Visible = True + + Exit For End If Next @@ -17024,8 +17035,9 @@ Partial Class Compras_Compras 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 + If dRow("CveTipoPS").ToString.ToEntero = 1 Then + 'Comnetado para reubicar el boton + 'tdIVA6.Visible = True Exit For End If Next @@ -19305,7 +19317,7 @@ Partial Class Compras_Compras DdlRetIVAConcepto.SelectedValueExist("5") - LblRetIVA.Text = "0.06%" + LblRetIVA.Text = "6.0%" RetencionIVA = TmpDT.SUMD("RetIVA") TxtRetIVA.Text = RetencionIVA.ToString("###,###,###.00") diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index bf1189f9b..9ad938988 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -2815,6 +2815,9 @@ Partial Class Compras_eFacturas CveProveedor = gvRow.DataKey("CveProveedor").ToEntero Dim ObjCompras As New ClsCompras + + Dim TieneRegistros As Boolean = False + If ObjCompras.GetCompararComplementoPago(gvRow.DataKey("CveProveedor").ToEntero, Monto, nodePagos2.InnerXml.Replace("pago10:", ""), UsuarioActual.CveEmpresa) Then GvVincularPago.DataSource = ObjCompras.DtResultados @@ -2822,7 +2825,7 @@ Partial Class Compras_eFacturas SerieFolioIE = ObjCompras.DtResultados.Rows(0)("SerieFolio").ToString DivVincularPagoManualmente.Visible = False BtnVincularPago.Visible = True - + TieneRegistros = True Else DivVincularPagoManualmente.Visible = True BtnVincularPago.Visible = False @@ -2835,6 +2838,7 @@ Partial Class Compras_eFacturas + For Each drow As DataRow In ObjCompras.DtResultados.FiltraParametros("CveIE > 0 AND FechaDocumento IS NOT NULL", "", {"FechaDocumento"}).Rows Dim FechaDocumento As Date = drow("FechaDocumento").ToString.ToDate @@ -2873,12 +2877,18 @@ Partial Class Compras_eFacturas TextoDiferenciaImporte = $"  -   IE ${ImporteIES.FormatoNumero}
Diferencia { DiferenciaImportes.FormatoNumero() }
" BtnVincularPago.Visible = False MSGComplemento = MSGComplemento & $" Existe una diferencia mayor a $5.00 ({Math.Abs(DiferenciaImportes)})" + + If TieneRegistros AndAlso UsuarioActual.TienePermisoProceso(286) Then + DivVincularPagoManualmente.Visible = True + End If + Else 'BtnVincularPago.Visible = True 'TextoDiferenciaImporte = "" End If + LblSerieFolioPago.Text = $"{SeriePago}-{FolioPago}" LblImportePago.Text = Monto.ToString("###,###,###.00") 'ImportePago.FormatoNumero LblPagosCantidad.Text = PagosCantidad.ToString @@ -2893,7 +2903,7 @@ Partial Class Compras_eFacturas Else LblMensajeComlementoError.Text = "" DVMensajecomplementoError.Visible = False - + DivVincularPagoManualmente.Visible = False End If diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 9a676f7a0..d4f1ec96f 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -373,7 +373,7 @@ -
+
@@ -725,8 +725,8 @@
- - + +
@@ -811,11 +811,12 @@ - - + + -
- Turno: +
+ Turno: +
@@ -1229,7 +1230,6 @@
-
@@ -1248,7 +1248,6 @@
- @@ -1291,26 +1290,51 @@
-
- - - - - - - - - - - -
Descuentos. RNC.: -   -
Total NC.: -   -
+
+
+
+
+ + +
+ + + + + + + + + +
+ + +
+
+
+
+ + + + + + + + + + + +
Descuentos. RNC.: +   +
Total NC.: +   +
+
+
@@ -1511,7 +1535,6 @@ - @@ -2839,18 +2862,2121 @@ -
+
+ +
+
+
+ + + +
+
+ + Condiciones de Pago +
+
+
+
+
+
+ +
+
+
+
+ + + + + +
+
+ + + +
+
+ + + + + + + + + + + + + + + + + <%-- + + + --%> + + + + + + + + + + + + + +
Forma de entrega: + + + +
Uso CFDI: + + + + + + +
Método de Pago: + + + + + +
Forma de Pago: + + + + + + +
Tipo Relación + + + +
+
+
Num. Cta. Pago: + +
Fecha de Pago: +
+ + + + + + + + + + +
+ 		+ +
+ +
+
+ + Crédito + Contado + Terminal + +
+
+ + <%-- ******************** Punto de Venta *****************************************************************************************************************************--%> + + + +
+ + +
+
+
+
+ +
+ $ + + +
+
+ + + +
+
+
+ +
+
+ +
+ $ + + +
+
+ + + +
+
+ + MSI + 3M + 6M + 9M + 12M + + <%-- + --%> +
+
+
+ + +
+
+ +
+ $ + + +
+
+ + + +
+
+
+
+
+ +
+ $ + + +
+
+ + + +
+
+
+ +
+
+ +
+ $ + + +
+
+ + + +
+
+
+ + +
+
+ +
+ + Otros + Credito + Debito + Cheque + +
+ +
+ $ + + +
+ +
+ + + +
+ +
+ + Meses + 3M + 6M + 9M + 12M + +
+ +
+
+ + + +
+
+
+
+ +
+ $ + + + + + <%-- + --%> +

+
+
+
+
+
+ +
+ $ + + +

+
+
+
+ + + + + + +
+
+ +
+ +
+
+ +
+
+ +
+ +
+
+ + + + + + + + + + + + + + +
+
+ +
+ + + + + <%-- **************************************************************************************************************************************************************** --%> + + <%-- Terminal --%> + + +
+
+ + <%----%> + +
+
+ + + <%-- --%> + +
Tipo Relación: +
+
+ + +
+
+ + +
+ + +
+
+ + Observaciones +
+
+
+
+
+
+ +
+
+
+ + + + + + + + + + + + + + + + + + + + + + + + + +
Observaciones Generales: 
+
Orden de Compra:   + + + +
Pedido:   +
Observaciones Almacén: 
+
Kilometraje  +
+
+ + +
+ +
+ + + + + + +
+
+ + Acciones +
+
+
+
+
+
+ +
+
+
+
+ +
+ + + + + + + + + + + +
+ +
+ +
+ + +
+ +
    +
  • + +
    • +
  • + +
    • + <%--
  • + +
    • +
  • + +
    • --%> +
+
+ + + + + + + + + + + + + + + + + +
+
+ + +
+
+ + + + + + + + + +