-- pedimento en emisión
This commit is contained in:
@@ -2519,21 +2519,12 @@ Partial Class Ventas
|
||||
TrObsAlmacen.Visible = False
|
||||
TrTxtObsAlmacen.Visible = False
|
||||
TrPedido.Visible = False
|
||||
|
||||
|
||||
|
||||
TrOC.Visible = False
|
||||
|
||||
|
||||
|
||||
DdlTipoComprobante.SelectedValue = "Op"
|
||||
Else
|
||||
Opcion = "Ing"
|
||||
DdlTipoComprobante.SelectedValue = "Ing"
|
||||
End If
|
||||
|
||||
|
||||
|
||||
'DdlTipoComprobante.Attributes.Add("onChange", "ActivaReferencia(this)")
|
||||
TxtFecha.Text = Now.ToShortDateString()
|
||||
TxtFechaEjecucion.Text = Now.ToShortDateString
|
||||
@@ -10192,7 +10183,7 @@ Partial Class Ventas
|
||||
NCGenerada.Timbre.CFDIRelacionados.UUID.Add(FolioFiscalFactura)
|
||||
|
||||
Dim ObjTimbradoNC As New Timbrado
|
||||
Dim TimbroNC = ObjTimbradoNC.TimbrarFactura(UsuarioActual, NCGenerada)
|
||||
Dim TimbroNC As Boolean = ObjTimbradoNC.TimbrarFactura(UsuarioActual, NCGenerada)
|
||||
|
||||
If Not TimbroNC Then
|
||||
Alert(ObjTimbradoNC.MensajeErrorCFDI, TipoMensaje.MsgError)
|
||||
@@ -12493,18 +12484,18 @@ Partial Class Ventas
|
||||
'detalles
|
||||
Dim tPS As String
|
||||
If UsuarioActual.CveEmpresa = 119 Then
|
||||
Dim ObjPed As New ClsInventarios
|
||||
If ObjPed.GetVentasPedimento(CveVenta, UsuarioActual.CveEmpresa) Then
|
||||
Dim dttped As DataTable = ObjPed.DtResultados
|
||||
If Not Obj.DtDetalle.Columns.Contains("NumeroPedimento") Then
|
||||
Obj.DtDetalle.Columns.Add("NumeroPedimento", Type.GetType("System.String"))
|
||||
End If
|
||||
For Each drt As DataRow In Obj.DtDetalle.Rows
|
||||
Dim Pedimento As String = dttped.FiltroPrimeroValor("Pedimento", $"CveVentaDetalle = {drt("CveVentaDetalle")}")
|
||||
drt("NumeroPedimento") = Pedimento
|
||||
Next
|
||||
End If
|
||||
ObjPed.Dispose()
|
||||
'Dim ObjPed As New ClsInventarios
|
||||
'If ObjPed.GetVentasPedimento(CveVenta, UsuarioActual.CveEmpresa) Then
|
||||
' Dim dttped As DataTable = ObjPed.DtResultados
|
||||
' If Not Obj.DtDetalle.Columns.Contains("NumeroPedimento") Then
|
||||
' Obj.DtDetalle.Columns.Add("NumeroPedimento", Type.GetType("System.String"))
|
||||
' End If
|
||||
' For Each drt As DataRow In Obj.DtDetalle.Rows
|
||||
' Dim Pedimento As String = dttped.FiltroPrimeroValor("Pedimento", $"CveVentaDetalle = {drt("CveVentaDetalle")}")
|
||||
' drt("NumeroPedimento") = Pedimento
|
||||
' Next
|
||||
'End If
|
||||
'ObjPed.Dispose()
|
||||
End If
|
||||
|
||||
For Each drr As DataRow In Obj.DtDetalle.Rows
|
||||
@@ -15106,8 +15097,19 @@ Partial Class Ventas
|
||||
OcurrioError = True
|
||||
ErrorList.Add("Ocurrió un error al guardar movimiento de almacen.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
|
||||
End If
|
||||
'End If
|
||||
|
||||
'E119, verifica si la salida está con ps de importación para que se guarde el pedimento
|
||||
If UsuarioActual.CveEmpresa = 119 AndAlso factura.TipoDocto.Contiene("Ing") Then
|
||||
|
||||
'If ObjInventario.GetVentasPedimento(CveVenta, UsuarioActual.CveEmpresa) Then
|
||||
' Dim dttped As DataTable = ObjInventario.DtResultados
|
||||
|
||||
' For Each drt As DataRow In dttped.FiltraParametros("NumeroPedimento <> ''").Rows
|
||||
|
||||
' ObjVentas.UpdateVentasDetalleNumeroPedimento(factura.CveVenta, drt("CveVentaDetalle").ToString.ToEntero, drt("NumeroPedimento").ToString)
|
||||
' Next
|
||||
'End If
|
||||
End If
|
||||
Else
|
||||
OcurrioError = True
|
||||
ErrorList.Add("Ocurrió un error al consultar los movimientos de almacen.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
|
||||
@@ -15118,7 +15120,7 @@ Partial Class Ventas
|
||||
|
||||
End If
|
||||
|
||||
'DEBE GENERAR MOVIMIENTO SI SE FACTURAON PRODUCTOS, O NO SE REALIZA UNA REFACTURACION
|
||||
'DEBE GENERAR MOVIMIENTO SI SE FACTURARON PRODUCTOS, O NO SE REALIZA UNA REFACTURACION
|
||||
Dim DebeGenerarMovimiento As Boolean = TmpDT.COUNT("CvePS", "CveTipoPS = 2") > 0 AndAlso (NuevaFactura <> 1)
|
||||
'VERIFICA QUE SE REALIZO EL MOVIMIENTO DE ALMACEN
|
||||
If Not OcurrioError AndAlso DebeGenerarMovimiento AndAlso UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso UsuarioActual.Empresa.Funcionalidad(567) = "1" AndAlso factura.TipoDocto.Contiene("Ing", "Rem") Then
|
||||
@@ -20319,6 +20321,16 @@ Partial Class Ventas
|
||||
OcurrioError = True
|
||||
End If
|
||||
End If
|
||||
|
||||
If Not OcurrioError AndAlso UsuarioActual.CveEmpresa = 119 Then
|
||||
If ObjInventario.GetVentasPedimento(CveVenta, UsuarioActual.CveEmpresa) Then
|
||||
Dim dttped As DataTable = ObjInventario.DtResultados
|
||||
|
||||
For Each drt As DataRow In dttped.FiltraParametros("Pedimento <> ''").Rows
|
||||
ObjInventario.UpdateVentasDetalleNumeroPedimento(CveVenta, drt("CveVentaDetalle").ToString.ToEntero, drt("Pedimento").ToString)
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
OcurrioError = True
|
||||
End If
|
||||
@@ -32393,7 +32405,7 @@ Partial Class Ventas
|
||||
If GvRow.FCCheckBox("ChkAplicar").Checked AndAlso GvRow.DataKey("CveVenta").ToEntero() = Dr("CveVenta").ToString().ToEntero() Then
|
||||
|
||||
Dim Cantidad As Decimal = GvRow.FCTextBox("TxtCantidadRNC").Text.ToDecimal()
|
||||
Dim PU = GvRow.DataKey("PU").ToDecimal()
|
||||
Dim PU As Decimal = GvRow.DataKey("PU").ToDecimal()
|
||||
Dim PorcentajeIVA As Decimal = GvRow.DataKey("PorcentajeIVA").ToDecimal()
|
||||
|
||||
Dim TotalCalculableImpuestos As Decimal = (Cantidad * PU)
|
||||
@@ -32459,7 +32471,7 @@ Partial Class Ventas
|
||||
|
||||
'SI TIENE ALGUN AJUSTE O GARANTIA
|
||||
If ListaRemisionesNC.Any(Function(RNC) RNC.Num2 = 1) Then
|
||||
For Each RNC In ListaRemisionesNC.Where(Function(x) x.Num2 = 1)
|
||||
For Each RNC As Modelos.Factura In ListaRemisionesNC.Where(Function(x) x.Num2 = 1)
|
||||
Dim Salir As Boolean = False
|
||||
|
||||
Using ObjAcum As New ClsAcumuladores
|
||||
@@ -32522,8 +32534,6 @@ Partial Class Ventas
|
||||
Dim TotalRNCDetalle As Decimal = (TotalCalculableImpuestos + ImporteIVA)
|
||||
|
||||
TotalRNC += TotalRNCDetalle
|
||||
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
@@ -32668,7 +32678,6 @@ Partial Class Ventas
|
||||
|
||||
TmpDTRNCDetalleSelecciondas.Rows.Add(row.ItemArray)
|
||||
End If
|
||||
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
Reference in New Issue
Block a user