-- fechaparasurtir

2024-01-11 21:44:15 -07:00
parent 42205b3fb8
commit b5c703ba15
1 changed files with 1 additions and 192 deletions
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -11558,6 +11558,7 @@ Partial Class Ventas
        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then
            ObjFactura.Alfa1 = TxtFechaOS.Text.Trim
            ObjFactura.FechaEjecucion = TxtFechaOS.Text.Trim.ToDateTime
+            ObjFactura.FechaParaSurtir = TxtFechaOS.Text.Trim.ToDateTime
        Else
            ObjFactura.Alfa1 = TxtAlfa1.Text.Trim
        End If
@@ -16299,7 +16300,6 @@ Partial Class Ventas
    End Function
 #End Region

-
 #Region "  BTN ELIMINAR   "
    Protected Sub BtnEmitir_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnEmitir.Click

@@ -16574,8 +16574,6 @@ Partial Class Ventas
    End Sub
 #End Region

-
-
 #Region "  VISTA PREVIA  "
    Protected Sub BtnVistaPrevia_Click(sender As Object, e As System.EventArgs) Handles BtnVistaPrevia.Click
        VistaPreviaNew()
@@ -16584,195 +16582,6 @@ Partial Class Ventas
 #End Region

 #Region "I M A G E - B U T T O N S"
-    'Protected Function CancelarFactura(ByRef ObjVentas As ClsVentas, ByRef ObjConta As ClsContabilidad, ByRef ObjAC As ClsContPAQi, ByRef ObjBancos As ClsBancos) As Boolean
-    '    Dim IDPoliza As Integer = -1
-    '    Dim CvePrePoliza As Integer
-    '    Dim CvePlantillaPoliza As Integer
-
-    '    Dim ErrorCancelar As Boolean = False
-    '    Dim Mensaje As String = ""
-
-    '    Try
-    '        ObjFacturaDevolucion.TipoDocto = ObjFactura.TipoDocto
-
-    '        Dim TipoContable As Integer = -1
-    '        If ObjFacturaDevolucion.TipoDocto.Contiene("Egs", "Dev") Then
-    '            CvePlantillaPoliza = 7
-    '        ElseIf ObjFacturaDevolucion.TipoDocto.Contiene("Ing", "Rem", "Ant") Then
-    '            CvePlantillaPoliza = 4
-    '        End If
-
-    '        If UsuarioActual.Empresa.Funcionalidad(706) = "1" AndAlso  Then
-
-    '        End If
-
-
-    '        CvePrePoliza = ObjConta.AddPrePolizas("Ventas/GuardaEstatus", CvePlantillaPoliza, TxtTotal.Text.ToDouble, TxtTotal.Text.Replace(",", "").ToDouble, DdlMoneda.SelectedValue.ToEntero(), NowADS(), NombreCliente, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-    '        ObjFacturaDevolucion.CveVenta = CveVenta
-    '        ObjFacturaDevolucion.CvePrePoliza = CvePrePoliza
-
-
-    '        If NuevaFactura = 1 AndAlso UsuarioActual.TienePermisoProceso(222) Then
-    '            If ObjVentas.GetVentaDetalle(ObjFacturaDevolucion.CveVenta) Then
-    '                TmpDT = ObjVentas.DtResultados
-    '                TmpDT.Columns.Add("CveVentaDetalleRNC", GetType(Integer))
-    '                TmpDT.Columns.Add("TieneProntoPago", GetType(String))
-    '                TmpDT.Columns.Add("ImporteProntoPago", GetType(Decimal))
-    '            End If
-    '            ErrorCancelar = ProcesoPrepolizas(ObjConta, ObjFacturaDevolucion, -1, TmpDT, ObjAC, -1, ObjBancos, ObjVentas)
-    '        Else
-    '            ErrorCancelar = ProcesoPrepolizas(ObjConta, ObjFacturaDevolucion, -1, TmpDT, ObjAC, -1, ObjBancos, ObjVentas)
-    '        End If
-
-    '        If Not ErrorCancelar Then
-    '            ErrorCancelar = GuardarVentaImpuestosLocales(ObjVentas, ObjConta, ObjFacturaDevolucion, -1)
-    '        End If
-
-    '        If CveEstatus = 4 Then
-
-    '            If ObjVentas.UpdateEstatusFactura(CveEstatus, FolioFiscal, "", NowADS(), CveVenta, IDPoliza) Then
-    '                Mensaje = "El nuevo estatus se guardó correctamente"
-    '            Else
-    '                ErrorCancelar = True
-    '            End If
-
-    '            'Si se está mandando a Cancelada SAT
-    '        ElseIf CveEstatus = 5 Then
-
-    '            Dim DT As DataTable = Nothing
-
-    '            If FolioFiscal = "" Then
-    '                Dim XmlDoc As New XmlDocument
-    '                XmlDoc.Load(Ruta & "XML\" & DdlTipoComprobante.SelectedValue & "\" & VentaFolio & ".xml")
-    '                ViewState("FolioFiscal") = XmlDoc.DocumentElement("cfdi:Complemento").FirstChild.Attributes("UUID").InnerText
-    '            End If
-
-    '            Dim ObjCancelacion As New Timbrado
-
-    '            Dim Total As Decimal = TxtTotal.Text.ToDecimal
-    '            Dim RFCReceptor As String = HdnRFCVenta.Value
-
-    '            If Not ObjVentas.UpdateEstatusFactura(13, FolioFiscal, "", NowADS(), 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
-    '            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.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC Then
-    '                    Dim IDMPoliza As Modelos.RetornoPolizaConta = GenerarPolizaAC(ObjAC, ObjFacturaDevolucion, True)
-    '                    IDPoliza = IDMPoliza.IdPoliza
-    '                    If IDMPoliza.IdPoliza <= 0 Then
-    '                        Mensaje = "No se pudo generar la poliza"
-    '                        ErrorCancelar = True
-    '                    End If
-    '                End If
-
-    '                If Not ErrorCancelar Then
-    '                    If ObjVentas.UpdateEstatusFactura(CveEstatus, FolioFiscal, ObjCancelacion.CancelacionAcuse, NowADS(), CveVenta, IDPoliza, CvePAC:=UsuarioActual.Empresa.CvePAC) Then
-    '                        Mensaje = "El nuevo estatus se guardó correctamente"
-    '                    Else
-    '                        ErrorCancelar = True
-    '                    End If
-    '                End If
-    '            Else
-    '                ErrorCancelar = True
-    '            End If
-
-    '            ObjCancelacion = Nothing
-
-    '        End If
-    '    Catch ex As Exception
-    '        GuardaLog("CancelF." & ex.ToString())
-    '        ErrorCancelar = True
-    '    End Try
-
-    '    Return Not ErrorCancelar
-    'End Function
-    'Protected Function CancelarFactura2(ObjVentas As ClsVentas, ObjConta As ClsContabilidad, ObjAC As ClsContPAQi, ObjBancos As ClsBancos) As Boolean
-
-    '    Dim IDPoliza As Integer = -1
-    '    Dim CvePrePoliza As Integer
-    '    Dim CvePlantillaPoliza As Integer
-
-    '    Dim ErrorCancelar As Boolean = False
-    '    Dim Mensaje As String = ""
-
-    '    CreaObjetosVenta()
-
-    '    If ObjFactura.TipoDocto.Contiene("Egs", "Dev") Then
-    '        CvePlantillaPoliza = 7
-    '    ElseIf ObjFactura.TipoDocto.Contiene("Ing", "Rem") Then
-    '        CvePlantillaPoliza = 4
-    '    End If
-
-
-    '    CvePrePoliza = ObjConta.AddPrePolizas("Ventas/GuardaEstatus", CvePlantillaPoliza, TxtTotal.Text.ToDouble, TxtTotal.Text.Replace(",", "").ToDouble, DdlMoneda.SelectedValue.ToEntero(), NowADS(), NombreCliente, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-    '    ObjFactura.CveVenta = CveVenta
-    '    ObjFactura.CvePrePoliza = CvePrePoliza
-
-    '    If HplSaldoAuxiliar.Text.ToDecimal > 0 Then
-    '        ErrorCancelar = ProcesoPrepolizas(ObjConta, ObjFactura, -1, TmpDT, ObjAC, -1, ObjBancos, ObjVentas)
-    '    End If
-
-    '    If Not ErrorCancelar Then
-    '        ErrorCancelar = GuardarVentaImpuestosLocales(ObjVentas, ObjConta, ObjFactura, -1)
-    '    End If
-
-    '    If CveEstatus = 4 Then
-
-    '        If ObjVentas.UpdateEstatusFactura(CveEstatus, FolioFiscal, "", NowADS(), CveVenta, IDPoliza) Then
-    '            Mensaje = "El nuevo estatus se guardó correctamente"
-    '        Else
-    '            ErrorCancelar = True
-    '        End If
-
-    '        'Si se está mandando a Cancelada SAT
-    '    ElseIf CveEstatus = 5 Then
-
-    '        Dim DT As DataTable = Nothing
-
-    '        If FolioFiscal = "" Then
-    '            Dim XmlDoc As New XmlDocument
-    '            XmlDoc.Load(Ruta & "XML\" & DdlTipoComprobante.SelectedValue & "\" & VentaFolio & ".xml")
-    '            ViewState("FolioFiscal") = XmlDoc.DocumentElement("cfdi:Complemento").FirstChild.Attributes("UUID").InnerText
-    '        End If
-
-    '        'Si es cancelar en el SAT:
-    '        Dim CFDi As New ClbNegBICFDv3_2.ClsNegEDI
-    '        Dim Respuesta As New ClbNegBICFDv3_2.ClsNegRespuesta
-    '        Respuesta = CFDi.CancelaCFdi(UsuarioActual.Empresa.BIUsuario, UsuarioActual.Empresa.BIContraseña, Ruta & "Certificados\" & UsuarioActual.Empresa.ArchivoPfx, UsuarioActual.Empresa.ContraseñaKey, UsuarioActual.Empresa.RFC, FolioFiscal, "http://208.43.160.178/srvCFDi/service1.asmx")
-
-    '        If Respuesta Is Nothing Then
-    '            'Alert("La factura no se pudo cancelar. <br />Posbiles causas:<br />&nbsp;&nbsp;- Los servicios del SAT están ocupados.<br />&nbsp;&nbsp;- El Folio Fiscal no ha quedado registrado.", TipoMensaje.MsgError)
-    '            Me.GuardaLog(CFDi.MsgError)
-    '            ErrorCancelar = True
-    '            Mensaje = "La factura no se pudo cancelar. <br />Posbiles causas:<br />&nbsp;&nbsp;- Los servicios del SAT están ocupados.<br />&nbsp;&nbsp;- El Folio Fiscal no ha quedado registrado."
-    '        ElseIf Respuesta.NoCertificadoSAT <> String.Empty Then
-
-    '            If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC Then
-    '                Dim IDMPoliza As Modelos.RetornoPolizaConta = GenerarPolizaAC(ObjAC, ObjFacturaDevolucion, True)
-    '                IDPoliza = IDMPoliza.IdPoliza
-    '                If IDMPoliza.IdPoliza <= 0 Then
-    '                    Mensaje = "No se pudo generar la poliza"
-    '                    ErrorCancelar = True
-    '                End If
-    '            End If
-
-    '            If Not ErrorCancelar Then
-    '                If ObjVentas.UpdateEstatusFactura(CveEstatus, FolioFiscal, Respuesta.NoCertificadoSAT, Respuesta.FechaTimbrado, CveVenta, IDPoliza) Then
-    '                    Mensaje = "El nuevo estatus se guardó correctamente"
-    '                Else
-    '                    ErrorCancelar = True
-    '                End If
-    '            End If
-    '        End If
-
-    '    End If
-
-    '    Return Not ErrorCancelar
-    'End Function
-
    Protected Sub ImgBtnAddC_Click(sender As Object, e As ImageClickEventArgs) Handles ImgBtnAddC.Click
        Dim Row As DataRow = Nothing
        Row = DTmpC.NewRow