Correciones en ventas.aspx

Ventas/Ventas.aspx

@@ -1080,7 +1080,7 @@
                                                         <asp:Literal ID="LtlCantidad" runat="server" Text='<%# Eval("Cantidad") %>' Visible="false"></asp:Literal>
                                                         <asp:Literal ID="LtlTipoDescuento" runat="server" Text='<%# Eval("TipoDescuento") %>' Visible="false"></asp:Literal>
                                                         <asp:Literal ID="LtlDescuento" runat="server" Text='<%# Eval("Descuento") %>' Visible="false"></asp:Literal>
-                                                        <asp:TextBox ID="TxtCantidad" runat="server" CausesValidation="true" MaxLength="12" Text='<%# Eval("Cantidad") %>' ValidationGroup="GprGV" Width="45px" Height="24px"></asp:TextBox>
+                                                        <asp:TextBox ID="TxtCantidad" runat="server" CausesValidation="true" MaxLength="12" Text='<%# Eval("Cantidad", "{0:####.######}") %>' ValidationGroup="GprGV" Width="45px" Height="24px"></asp:TextBox>
                                                         <asp:RequiredFieldValidator ID="RFVCantidad" runat="server" ControlToValidate="TxtCantidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> es necesario, por favor ingréselo." ValidationGroup="GprGV"></asp:RequiredFieldValidator>
                                                         <ajax:ValidatorCalloutExtender ID="VCOCantidad1" runat="server" HighlightCssClass="vco" TargetControlID="RFVCantidad" Width="300px"></ajax:ValidatorCalloutExtender>
                                                         <asp:CustomValidator ID="CVCantidadEdit" runat="server" ClientValidationFunction="ValidaDecimal6digits" ControlToValidate="TxtCantidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> no tiene el formato correcto. Por favor rectifique y vuelva a intentar." ValidateEmptyText="True" ValidationGroup="GprGV"></asp:CustomValidator>
@@ -1186,7 +1186,7 @@
                                                         <asp:Literal ID="LtlDesc" runat="server" Text='<%# Eval("Descuento", "{0:N2}") %>'></asp:Literal>
                                                     </ItemTemplate>
                                                     <EditItemTemplate>
-                                                        <asp:TextBox ID="TxtDescuento" runat="server" CausesValidation="true" MaxLength="12" Text='<%# Eval("Descuento") %>' ValidationGroup="GprGV" Width="60px" Height="24px"></asp:TextBox>
+                                                        <asp:TextBox ID="TxtDescuento" runat="server" CausesValidation="true" MaxLength="12" Text='<%# Eval("Descuento", "{0:0.00####}") %>' ValidationGroup="GprGV" Width="60px" Height="24px"></asp:TextBox>
                                                         <ajax:FilteredTextBoxExtender ID="FTESoloNumeros" runat="server" TargetControlID="TxtDescuento" FilterType="Custom, Numbers" ValidChars="." />
                                                         <asp:RequiredFieldValidator ID="RFVDescuento" runat="server" ControlToValidate="TxtDescuento" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descuento''</b> es necesario, por favor ingréselo." ValidationGroup="GprGV"></asp:RequiredFieldValidator>
                                                         <ajax:ValidatorCalloutExtender ID="VCDescuento" runat="server" HighlightCssClass="vco" TargetControlID="RFVDescuento" Width="300px"></ajax:ValidatorCalloutExtender>

Ventas/Ventas.aspx.vb

@@ -2576,6 +2576,9 @@ Partial Class Ventas
                     DdlSubProyectoDatos.Enabled = False
                     BtnEmitirImprimir.Visible = False
                     BtnCrearApartirDe.Visible = True
+                    If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                        BtnCrearApartirDe.Visible = False
+                    End If
                     If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue = "Ing" Then BtnEditar.Visible = True
                     'DdlEstatus.Enabled = True
 
@@ -2863,6 +2866,9 @@ Partial Class Ventas
 
                 'DdlSucursal.Enabled = False
                 BtnCrearApartirDe.Visible = True
+                If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                    BtnCrearApartirDe.Visible = False
+                End If
                 'DdlEstatus.Enabled = True
 
                 ImgAddObs.Visible = True
@@ -15973,6 +15979,7 @@ Partial Class Ventas
             If UsuarioActual.Empresa.EstatusFacturacion Then
 
                 CreaObjetosVenta()
+
                 'PARA CUANDO YA ESTA GUARDADA LA VENTA
                 ObjFactura.CveVenta = CveVenta
                 ObjFactura.Serie = Serie
@@ -16177,11 +16184,14 @@ Partial Class Ventas
         Dim RFCReceptor As String = GvRow.DataKey("RFCReceptor")
         Dim CvePACCancelacion As Integer = GvRow.DataKey("CvePAC").ToEntero()
 
-        If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, 0, RFCReceptor, RFCEmisor, CvePACCancelacion) Then
+
+        Dim RespCancelacion = ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, 0, RFCReceptor, RFCEmisor, CvePACCancelacion)
+
+        If RespCancelacion.Verificado Then
 
             If ObjBanco.UpdateComplementoPago(CveComplementoPago, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse) Then
                 CargaComplementosPago()
-                Alert("El complemento se cancelo correctamente.")
+                Alert("El complemento se canceló correctamente.")
             End If
 
         Else
@@ -16413,8 +16423,8 @@ Partial Class Ventas
                 If Not ObjVentas.UpdateEstatusFactura(13, FolioFiscal, "", Now, CveVenta, IDPoliza) Then 'Marcamos la factura como refacturada, si no se cancelo en el SAT el estatus nos dejara cancelarla despues
                     ErrorCancelar = True
                 End If
-
-                If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, Total, RFCReceptor, UsuarioActual.Empresa.RFC) Then
+                Dim RespCancelacion = ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, Total, RFCReceptor, UsuarioActual.Empresa.RFC)
+                If RespCancelacion.Verificado Then
                     'falta verificar traer el acuse y reenviarlo 
 
                     If UsuarioActual.Empresa.UsaAC Then
@@ -17199,8 +17209,8 @@ Partial Class Ventas
                     DdlIVA.SelectedValue = "1"
                     PorcentajeIVA = ViewState("IVA").ToString().ToDecimal
                 Case 0.08
-                    DdlIVA.SelectedValue = If(EsCreaApartirDe, $"{(TmpDT.MAX("PorcentajeIVA").ToDecimal + 1).ToString()}", "1.08")
-                    PorcentajeIVA = If(EsCreaApartirDe, TmpDT.MAX("PorcentajeIVA").ToDecimal, ViewState("IVA").ToString().ToDecimal)
+                    DdlIVA.SelectedValue = If(EsCreaApartirDe, $"{(TmpDT.MAX("PorcentajeIVA").ToDecimal() + 1).RoundSQL(2).ToString()}", "1.08")
+                    PorcentajeIVA = If(EsCreaApartirDe, TmpDT.MAX("PorcentajeIVA").ToDecimal, ViewState("IVA").ToString().ToDecimal).RoundSQL(2)
                     DdlIVA.Visible = If(Not CveVenta > 0 Or EsCreaApartirDe Or CveDevolucion > 0, True, False)
                 Case 0.16
                     DdlIVA.SelectedValue = "1.16"
@@ -23638,49 +23648,50 @@ Partial Class Ventas
         RegistraScript("$('#ModalCancelarDocumento').modal('hide');")
     End Sub
 
-    Private Sub CancelarRefacturada()
-        Dim CancelacionFecha As Date
-        Dim ObjVentas As New ClsVentas() : ObjVentas.IniciaTransacSQL()
-        Dim CancelacionAcuse As String = ""
-        Dim Mensaje As String = ""
-        Dim ObjCancelacion As New Timbrado
-        Dim TotalT As Decimal = TxtTotal.Text.ToDecimal
-        Dim RFCReceptor As String = LblRFC.Text.Trim
-        Dim CvePACCancelacion As Integer = CvePAC
-        Dim CveEstatus As Integer = 4
+    'Private Sub CancelarRefacturada()
+    '    Dim CancelacionFecha As Date
+    '    Dim ObjVentas As New ClsVentas() : ObjVentas.IniciaTransacSQL()
+    '    Dim CancelacionAcuse As String = ""
+    '    Dim Mensaje As String = ""
+    '    Dim ObjCancelacion As New Timbrado
+    '    Dim TotalT As Decimal = TxtTotal.Text.ToDecimal
+    '    Dim RFCReceptor As String = LblRFC.Text.Trim
+    '    Dim CvePACCancelacion As Integer = CvePAC
+    '    Dim CveEstatus As Integer = 4
 
-        Try
-            If FolioFiscal <> "" Then
-                If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, TotalT, RFCReceptor, UsuarioActual.Empresa.RFC, CvePACCancelacion) Then
-                    'Generamos el acuse y mandamos mail de con el acuse de cancelación - DF 13/01/2017
-                    CancelacionFecha = ObjCancelacion.CancelacionFecha
-                    CancelacionAcuse = ObjCancelacion.CancelacionAcuse
-                    CveEstatus = 5
-                Else
-                    Alert("Los servicios de cancelación del SAT no se encuentran disponibles o presentan time out. Intente de nuevo en unos minutos.<br/>Origen del error: WebService www.sat.gob.mx", TipoMensaje.MsgError)
-                    Exit Sub
-                End If
-            Else
-                CancelacionFecha = Now.Date
-                CancelacionAcuse = ""
-            End If
+    '    Try
+    '        If FolioFiscal <> "" Then
+    '            Dim resp = ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, TotalT, RFCReceptor, UsuarioActual.Empresa.RFC, CvePACCancelacion)
+    '            If resp.Verificado Then
+    '                'Generamos el acuse y mandamos mail de con el acuse de cancelación - DF 13/01/2017
+    '                CancelacionFecha = ObjCancelacion.CancelacionFecha
+    '                CancelacionAcuse = ObjCancelacion.CancelacionAcuse
+    '                CveEstatus = 5
+    '            Else
+    '                Alert("Los servicios de cancelación del SAT no se encuentran disponibles o presentan time out. Intente de nuevo en unos minutos.<br/>Origen del error: WebService www.sat.gob.mx", TipoMensaje.MsgError)
+    '                Exit Sub
+    '            End If
+    '        Else
+    '            CancelacionFecha = Now.Date
+    '            CancelacionAcuse = ""
+    '        End If
 
-            If ObjVentas.UpdateEstatusFactura(CveEstatus, FolioFiscal, CancelacionAcuse, CancelacionFecha, CveVenta, IdPoliza, CvePAC:=CvePACCancelacion) Then
-                ObjVentas.Commit()
-                Alert("El nuevo estatus se guardó correctamente")
-            Else
-                ObjVentas.RollBack()
-                Alert("Ocurrió un error al intentar cancelar la factura")
-            End If
+    '        If ObjVentas.UpdateEstatusFactura(CveEstatus, FolioFiscal, CancelacionAcuse, CancelacionFecha, CveVenta, IdPoliza, CvePAC:=CvePACCancelacion) Then
+    '            ObjVentas.Commit()
+    '            Alert("El nuevo estatus se guardó correctamente")
+    '        Else
+    '            ObjVentas.RollBack()
+    '            Alert("Ocurrió un error al intentar cancelar la factura")
+    '        End If
 
-        Catch ex As Exception
-            ObjVentas.RollBack()
-            Mensaje = "Ocurrio un error al Cancelar la factura"
-            GuardaLog($"{ex.Message}")
-        End Try
+    '    Catch ex As Exception
+    '        ObjVentas.RollBack()
+    '        Mensaje = "Ocurrio un error al Cancelar la factura"
+    '        GuardaLog($"{ex.Message}")
+    '    End Try
 
-        ObjVentas.Dispose()
-    End Sub
+    '    ObjVentas.Dispose()
+    'End Sub
     Private Function DecodeBase64(ByVal strXMLCodificado As String) As String
         Try
             Dim decbuff As Byte() = Convert.FromBase64String(strXMLCodificado)
@@ -23769,9 +23780,9 @@ Partial Class Ventas
 
         Dim LigaRedirigir As String = ""
         'Si es cancelacion de una refactura ignoramos las condiciones
-        If Me.CveEstatus = 13 Then
-            CancelarRefacturada()
-        End If
+        'If Me.CveEstatus = 13 Then
+        '    CancelarRefacturada()
+        'End If
 
         Dim ObjFacturaCancelacion As New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=True)
         Try