Merge branch 'master' of http://192.168.10.111:8383/SIG

Ventas/PV.aspx

@@ -322,6 +322,12 @@
                                 </td>
                             </tr>
 
+                            <tr align="left" id="TrDescripcionVenta" runat="server" visible="false">
+                                <td><b>Descripción:</b></td>
+                                <td colspan="3">
+                                    <asp:TextBox ID="TxtDescripcionVenta" runat="server" Rows="2" TextMode="MultiLine" Width="100%" MaxLength="300" CssClass="form-control input-sm" Enabled="false"></asp:TextBox></td>
+                            </tr>
+
                             <tr align="left" style="border: 4px solid red" runat="server" id="TrEsDistribuidor" visible="false">
                                 <td><b style="color: red;">Es Distribuidor</b></td>
                                 <td></td>

Ventas/PV.aspx.vb

@@ -1283,6 +1283,13 @@ Partial Class PV
             End If
             DdlTipoDefecto.Width = New Unit(260%)
 
+            If UsuarioActual.Empresa.Funcionalidad(163) = "1" Then
+                TrDescripcionVenta.Visible = True
+                If CveVenta <= 0 Then
+                    TxtDescripcionVenta.Enabled = True
+                End If
+            End If
+
             'Le quitamos el tamaño extra
             'RegistraScript("window.onload = function AjustarVentana() { $('.page-content').css('min-height','100%'); }")
         End If
@@ -1510,6 +1517,11 @@ Partial Class PV
                         HdnFolioFiscalNC.Value = DbRowVenta("FolioFiscalPadre").ToString
                     End If
 
+                    If UsuarioActual.Empresa.Funcionalidad(163) = "1" Then
+                        TrDescripcionVenta.Visible = True
+                        TxtDescripcionVenta.Text = DbRowVenta("DescripcionVenta").ToString()
+                    End If
+
 
                     'Envio Direccion
                     If DbRowVenta("CveDireccionEnvio").ToString.ToEntero > 0 AndAlso DbRowVenta("CveDireccionEnvio").ToString IsNot Nothing Then
@@ -3770,6 +3782,8 @@ Partial Class PV
 
             ObjFactura.GenerarPDFFactura = False
 
+            ObjFactura.DescripcionVenta = TxtDescripcionVenta.Text.Trim()
+
             Dim CveTipoAlmacen As Integer = If(TmpDTAjustes IsNot Nothing AndAlso TmpDTAjustes.Rows.Count > 0, 6, 22)
             If GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros($"CveTipoAlmacen = {CveTipoAlmacen} AND CveSubProyecto= {DdlSubProyectoDatos.SelectedValue}").Rows.Count > 0 Then
                 ObjFactura.CveAlmacenRecepcionUsados = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros($"CveTipoAlmacen = {CveTipoAlmacen} AND CveSubProyecto= {DdlSubProyectoDatos.SelectedValue}").Rows(0)("CveAlmacen").ToString.ToEntero
@@ -6088,7 +6102,10 @@ Partial Class PV
                 TxtFechaPago.Text = NowADS().AddDays(PlazoCobranza).ToShortDateString
             Case 2 'CONTADO
                 If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant") Then
-                    DivContado.Visible = True
+                    'SI ES MODALIDAD COBRANZA, NO MOSTRAR
+                    If Not (UsuarioActual.Empresa.Funcionalidad(109) = "1") Then
+                        DivContado.Visible = True
+                    End If
                     TxtImporteContado.Text = TxtTotal.Text
                 End If
                 TxtFechaPago.Text = NowADS().ToShortDateString

Ventas/Ventas.aspx

@@ -378,6 +378,9 @@
             <li>
                 <asp:LinkButton ID="LnkSolicitarCredito" Visible="false" runat="server"><i class="fa fa-plus"></i>Solicitar autorización de crédito</asp:LinkButton>
             </li>
+            <li>
+                <asp:LinkButton ID="LnkCancelarSoloCFDI" Visible="false" runat="server" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea cancelar el CFDI?" data-btn-ok-label="si" OnClick="LnkCancelarSoloCFDI_Click"><i class="fa fa-plus"></i>Cancelar solo CFDI</asp:LinkButton>
+            </li>
         </ContentTemplate>
         <Triggers>
             <asp:AsyncPostBackTrigger ControlID="LnkImprimir" EventName="Click" />

Ventas/Ventas.aspx.vb

@@ -2340,6 +2340,11 @@ Partial Class Ventas
 
         If Not IsPostBack Then
 
+            ''SOLO SISTEMA DEBE VER ESTA OPCION
+            'If UsuarioActual.CveUsuario = 100 Then
+            '    LnkCancelarSoloCFDI.Visible = True
+            'End If
+
             If IfNull(Request("Opcionx"), "").ToString = "Saldar" And UsuarioActual.CveUsuario = 100 Then
                 TxtFechaSaldarVenta.Text = "2021/12/31"
                 SaldarVenta()
@@ -16194,6 +16199,8 @@ Partial Class Ventas
 #Region "  BTN ELIMINAR   "
     Protected Sub BtnEmitir_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnEmitir.Click
 
+        'ChkEnviarFactura.Checked = False
+
         If CveVenta <= 0 Then
             Alert("Ocurrió un error al emitir la factura", TipoMensaje.MsgError)
             Exit Sub
@@ -35733,5 +35740,32 @@ Partial Class Ventas
 
 #End Region
 
+    Protected Sub LnkCancelarSoloCFDI_Click(sender As Object, e As EventArgs)
+        If CveVenta > 0 Then
+            Dim RowVenta As DataRow = Nothing
+
+            Using ObjVentas As New ClsVentas
+                If (ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa)) Then
+                    RowVenta = ObjVentas.DtResultados.Copy().Rows(0)
+                End If
+            End Using
+
+            If RowVenta IsNot Nothing Then
+                Dim FolioFiscal As String = RowVenta("FolioFiscal").ToString().Trim()
+                Dim Total As Decimal = RowVenta("Total").ToString().ToDecimal()
+                Dim RFCReceptor As String = RowVenta("RFCReceptor").ToString()
+                Dim ObjTimbrado As New Timbrado
+                Dim resp = ObjTimbrado.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, Total, RFCReceptor, UsuarioActual.Empresa.RFC, CvePACCancelacion:=4, ValidaFactura:=False, CveSATMotivoCancelacion:=2)
+                If resp IsNot Nothing Then
+                    Alert(resp.Estado)
+                End If
+
+            End If
+        End If
+
+
+
+
+    End Sub
 End Class