Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
@@ -6235,7 +6235,7 @@ Partial Class Compras_Compras
|
||||
CostoIndirectoAcum176 += ImporteCI176
|
||||
'se considera costoindirecto, para que la factura tiene en un concepto tipo servicio
|
||||
SumatoriaOCINV += (Dr(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total")).ToString.ToDecimal * tipoCambioActual) - (ImporteMN176 - ImporteCI176)
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, Importe176, Referencia, ConceptoContabilizacion, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=ImporteMN176, ImporteME:=ImporteME176, CveCuenta:=CveCuenta, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero, CveMovimientoAlmacen:=Dr("CveMovimientoAlmacen").ToString.ToEntero, Contabilizable:=SeContabiliza) Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, Importe176, Referencia, ConceptoContabilizacion, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=ImporteMN176, ImporteME:=ImporteME176, CveCuenta:=CveCuenta, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimientoAlmacen, Contabilizable:=SeContabiliza) Then
|
||||
ErrorPrepoliza = True
|
||||
Exit For
|
||||
End If
|
||||
@@ -6278,10 +6278,10 @@ Partial Class Compras_Compras
|
||||
|
||||
End If
|
||||
|
||||
|
||||
'falta el registro de la NC cuando es
|
||||
Dim RegistroCuentaPuente As Boolean = False
|
||||
'NC CON PRODUCTOS - CUENTA PUENTE
|
||||
If UsuarioActual.CveEmpresa.Contiene(119) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
|
||||
If UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
|
||||
|
||||
importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND ISNULL(CveTipoPS,0) = 2").ToString.ToDecimal
|
||||
importeMN = importeMovimiento * tipoCambioActual * Multiplicador
|
||||
@@ -6315,27 +6315,31 @@ Partial Class Compras_Compras
|
||||
|
||||
End If
|
||||
|
||||
Dim ContienePSNeteoBonif As Boolean = False
|
||||
For Each Dr As DataRow In TmpDT.Rows
|
||||
If Dr("CveClasificacion").ToString.ToEntero.Contiene(20319) Then 'clasificación de Bonificación, no se incluirá en el neteo
|
||||
ContienePSNeteoBonif = True
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
|
||||
If ContienePSNeteoBonif Then
|
||||
importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 ").ToString.ToDecimal
|
||||
importeMN = importeMovimiento * tipoCambioActual * Multiplicador
|
||||
Dim IdCtaContableDescCompra As Integer = UsuarioActual.Empresa.Funcionalidad(405).ToEntero
|
||||
If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=-importeMN, ImporteME:=If(tipoCambioActual = 1, 0, -importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
|
||||
If UsuarioActual.CveEmpresa.Contiene(119) Then
|
||||
Dim ContienePSNeteoBonif As Boolean = False
|
||||
For Each Dr As DataRow In TmpDT.Rows
|
||||
If Dr("CveClasificacion").ToString.ToEntero.Contiene(20319) Then 'clasificación de Bonificación, no se incluirá en el neteo
|
||||
ContienePSNeteoBonif = True
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
|
||||
If ContienePSNeteoBonif Then
|
||||
importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 ").ToString.ToDecimal
|
||||
importeMN = importeMovimiento * tipoCambioActual * Multiplicador
|
||||
Dim IdCtaContableDescCompra As Integer = UsuarioActual.Empresa.Funcionalidad(405).ToEntero
|
||||
If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=-importeMN, ImporteME:=If(tipoCambioActual = 1, 0, -importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
|
||||
ErrorPrepoliza = True
|
||||
End If
|
||||
Else
|
||||
ErrorPrepoliza = True
|
||||
End If
|
||||
Else
|
||||
ErrorPrepoliza = True
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
@@ -6593,8 +6597,8 @@ Partial Class Compras_Compras
|
||||
If Gvr.FCCheckBox("ChkFacturaNC").Checked Then
|
||||
Dim CvePrePolizaTemp = ObjConta.AddPrePolizas("Compras/Registrar-NC", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa))
|
||||
Dim importeMovimientoNC = Gvr.FCTextBox("TxtImporte").Text.ToDecimal
|
||||
Dim importeMNNC = importeMovimientoNC * tipoCambioActual * Multiplicador
|
||||
Dim TipoCambioFactura = Gvr.DataKey("TipoCambio").ToDecimal
|
||||
Dim importeMNNC = importeMovimientoNC * TipoCambioFactura * Multiplicador
|
||||
|
||||
IdCtaContable = CtaProveedorExtranjera
|
||||
CveCuenta = CveCuentaProveedorExtranjera
|
||||
@@ -6611,7 +6615,7 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
|
||||
|
||||
importeMNNC = importeMovimientoNC * TipoCambioFactura * Multiplicador
|
||||
importeMNNC = importeMovimientoNC * tipoCambioActual * Multiplicador
|
||||
IdCtaContable = CtaProveedorExtranjera
|
||||
CveCuenta = CveCuentaProveedorExtranjera
|
||||
If ObjConta.AddPrePolizasDetalle(CvePrePolizaTemp, True, importeMovimientoNC, Referencia, 60, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
|
||||
@@ -9514,6 +9518,15 @@ Partial Class Compras_Compras
|
||||
Dim Referencia As String = $"{TxtSerie.Text}-{TxtFolio.Text}" ' concatenation interpolation
|
||||
|
||||
Select Case ConceptoContable
|
||||
'Case 5
|
||||
' IdCtaContable = 1244
|
||||
' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Referencia, 5, Referencia, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=DdlProveedor.SelectedValue.ToEntero, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=TxtTotal.Text.ToDecimal, ImporteME:=If(tipoCambioActual = 1, 0, TxtTotal.Text.ToDecimal), CveCuenta:=CveCuenta) Then
|
||||
' ErrorPrepoliza = True
|
||||
' End If
|
||||
' IdCtaContable = 1243
|
||||
' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Referencia, 205, Referencia, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=DdlProveedor.SelectedValue.ToEntero, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=TxtTotal.Text.ToDecimal, ImporteME:=If(tipoCambioActual = 1, 0, TxtTotal.Text.ToDecimal), CveCuenta:=CveCuenta) Then
|
||||
' ErrorPrepoliza = True
|
||||
' End If
|
||||
Case 6
|
||||
Dim CveProveedorConcepto As Integer = 0, CveAcreedor As Integer = 0, CveIE As Integer = 0, CveColectiva As Integer = 0, CveCreditoDetalle As Integer = 0
|
||||
Dim ConceptoPersonal As String = "", Concepto As String = ""
|
||||
@@ -9617,7 +9630,7 @@ Partial Class Compras_Compras
|
||||
CveCuenta = 0
|
||||
|
||||
'INV [MERCANCIA RECIBIDA POR ADELANTADO (OC) | MERCANCIA PENDIENTE POR RECIBIR (COMPRA) ]
|
||||
If UsuarioActual.CveEmpresa.Contiene(119) And UsuarioActual.Empresa.UsaInventarios And Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And ConceptoContabilizacionAlmacen.Contiene(176, 205) Then
|
||||
If UsuarioActual.Empresa.UsaInventarios And Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And ConceptoContabilizacionAlmacen.Contiene(176, 205) Then
|
||||
importeMovimiento = TmpDT.SUM("Total", $"ISNULL(TipoAF,0) <> 2 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveTipoPS = 2").ToString.ToDecimal
|
||||
importeMN = importeMovimiento * tipoCambioActual * Multiplicador
|
||||
|
||||
@@ -9802,11 +9815,11 @@ Partial Class Compras_Compras
|
||||
BtnGuardar.Enabled = True
|
||||
UpFacturar.Update()
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "CargaXML"
|
||||
|
||||
|
||||
Private Function ValorXML(n As XmlNode, Campo As String, Optional Retorno As String = "") As String
|
||||
Dim o As XmlNode = n.Attributes.Cast(Of XmlAttribute)().SingleOrDefault(Function(a) String.Compare(a.Name, Campo, True) = 0)
|
||||
If o Is Nothing Then
|
||||
@@ -10011,10 +10024,10 @@ Partial Class Compras_Compras
|
||||
'End Try
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "GV'S"
|
||||
Protected Sub GVAnticipos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVAnticipos.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
@@ -10279,9 +10292,9 @@ Partial Class Compras_Compras
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "METODOS"
|
||||
Private Sub GeneraGlobalDT(data As Object)
|
||||
Dim ObjPS As New ClsProductosServicios
|
||||
@@ -10714,66 +10727,66 @@ Partial Class Compras_Compras
|
||||
|
||||
CargarUMAlias()
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " ALGO DE AF QUE NUNCA SE USABA "
|
||||
'Protected Sub GVAF_RowCreated(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAF.RowCreated
|
||||
' If e.Row.RowType = DataControlRowType.DataRow AndAlso (e.Row.RowState = DataControlRowState.Alternate OrElse e.Row.RowState = DataControlRowState.Normal) Then
|
||||
' e.Row.FCDropDownList("DdlTipoActivoFijo").DataSource = TmpDTTiposAF
|
||||
' e.Row.FCDropDownList("DdlTipoActivoFijo").DataBind()
|
||||
|
||||
' e.Row.FCDropDownList("DdlSubTipoActivoFijo").DataSource = Nothing
|
||||
' e.Row.FCDropDownList("DdlSubTipoActivoFijo").DataBind()
|
||||
' e.Row.FCDropDownList("DdlSubTipoActivoFijo").Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
|
||||
|
||||
' e.Row.FCDropDownList("DdlAF").DataSource = Nothing
|
||||
' e.Row.FCDropDownList("DdlAF").DataBind()
|
||||
' e.Row.FCDropDownList("DdlAF").Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'Protected Sub GVAF_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAF.RowDataBound
|
||||
' If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
' If e.Row.RowIndex = 0 Then
|
||||
' e.Row.Cells(0).Width = Unit.Pixel(20)
|
||||
' e.Row.Cells(1).Width = Unit.Pixel(140)
|
||||
' e.Row.Cells(2).Width = Unit.Pixel(250)
|
||||
' End If
|
||||
|
||||
' e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Right
|
||||
' e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
|
||||
' e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Left
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'Protected Sub DdlTipoActivoFijo_SelectedIndexChanged(sender As Object, e As System.EventArgs)
|
||||
' Dim Array() As String = Nothing
|
||||
' Dim DdlGVSubTipoAF As DropDownList = Nothing
|
||||
|
||||
' Array = DirectCast(sender, DropDownList).ClientID.Split("_"c)
|
||||
' If Array.Length > 0 Then
|
||||
' DdlGVSubTipoAF = DirectCast(GVAF.Rows(Array(3).ToEntero).Controls(4).Controls(1), DropDownList)
|
||||
' End If
|
||||
|
||||
' If DdlGVSubTipoAF IsNot Nothing Then CargaSubTipoAF(DirectCast(sender, DropDownList), DdlGVSubTipoAF)
|
||||
'End Sub
|
||||
|
||||
'Protected Sub GvOCC2_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvOCC2.RowDataBound
|
||||
' If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
' e.Row.Cells(0).Text = (e.Row.RowIndex + 1).ToString
|
||||
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'Protected Sub chkFuncionariosEmpleados_CheckedChanged(sender As Object, e As EventArgs) Handles chkFuncionariosEmpleados.CheckedChanged
|
||||
' PnlPagoContado.Visible = Not chkFuncionariosEmpleados.Checked
|
||||
' PnlFuncionarioEmpleado.Visible = chkFuncionariosEmpleados.Checked
|
||||
' UPCondicionesPago.Update()
|
||||
'End Sub
|
||||
'Protected Sub GVAF_RowCreated(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAF.RowCreated
|
||||
' If e.Row.RowType = DataControlRowType.DataRow AndAlso (e.Row.RowState = DataControlRowState.Alternate OrElse e.Row.RowState = DataControlRowState.Normal) Then
|
||||
' e.Row.FCDropDownList("DdlTipoActivoFijo").DataSource = TmpDTTiposAF
|
||||
' e.Row.FCDropDownList("DdlTipoActivoFijo").DataBind()
|
||||
|
||||
' e.Row.FCDropDownList("DdlSubTipoActivoFijo").DataSource = Nothing
|
||||
' e.Row.FCDropDownList("DdlSubTipoActivoFijo").DataBind()
|
||||
' e.Row.FCDropDownList("DdlSubTipoActivoFijo").Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
|
||||
|
||||
' e.Row.FCDropDownList("DdlAF").DataSource = Nothing
|
||||
' e.Row.FCDropDownList("DdlAF").DataBind()
|
||||
' e.Row.FCDropDownList("DdlAF").Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'Protected Sub GVAF_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAF.RowDataBound
|
||||
' If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
' If e.Row.RowIndex = 0 Then
|
||||
' e.Row.Cells(0).Width = Unit.Pixel(20)
|
||||
' e.Row.Cells(1).Width = Unit.Pixel(140)
|
||||
' e.Row.Cells(2).Width = Unit.Pixel(250)
|
||||
' End If
|
||||
|
||||
' e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Right
|
||||
' e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
|
||||
' e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Left
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'Protected Sub DdlTipoActivoFijo_SelectedIndexChanged(sender As Object, e As System.EventArgs)
|
||||
' Dim Array() As String = Nothing
|
||||
' Dim DdlGVSubTipoAF As DropDownList = Nothing
|
||||
|
||||
' Array = DirectCast(sender, DropDownList).ClientID.Split("_"c)
|
||||
' If Array.Length > 0 Then
|
||||
' DdlGVSubTipoAF = DirectCast(GVAF.Rows(Array(3).ToEntero).Controls(4).Controls(1), DropDownList)
|
||||
' End If
|
||||
|
||||
' If DdlGVSubTipoAF IsNot Nothing Then CargaSubTipoAF(DirectCast(sender, DropDownList), DdlGVSubTipoAF)
|
||||
'End Sub
|
||||
|
||||
'Protected Sub GvOCC2_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvOCC2.RowDataBound
|
||||
' If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
' e.Row.Cells(0).Text = (e.Row.RowIndex + 1).ToString
|
||||
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'Protected Sub chkFuncionariosEmpleados_CheckedChanged(sender As Object, e As EventArgs) Handles chkFuncionariosEmpleados.CheckedChanged
|
||||
' PnlPagoContado.Visible = Not chkFuncionariosEmpleados.Checked
|
||||
' PnlFuncionarioEmpleado.Visible = chkFuncionariosEmpleados.Checked
|
||||
' UPCondicionesPago.Update()
|
||||
'End Sub
|
||||
Protected Sub BtnOCAceptar_Click(sender As Object, e As EventArgs) Handles BtnOCAceptar.Click
|
||||
'carga la OC
|
||||
Dim CveOC As Integer = -1
|
||||
@@ -10810,45 +10823,45 @@ Partial Class Compras_Compras
|
||||
|
||||
'UpnAF.Update()
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "Estimaciones"
|
||||
|
||||
'Private Sub CargaDatosEstimaciones(pCveProveedor As Integer)
|
||||
' Dim Con As New ClsContratos
|
||||
' If Con.GetEstimaciones(pCveProveedor, -1, -1, -1, -1, 0, UsuarioActual.CveEmpresa) Then
|
||||
' GVEst.DataSource = Con.DtResultados
|
||||
' GVEst.DataBind()
|
||||
|
||||
' End If
|
||||
' UPEstimaciones.Update()
|
||||
' Con.Dispose()
|
||||
'End Sub
|
||||
|
||||
'Protected Sub GVEst_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVEst.RowDataBound
|
||||
' If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
' If e.Row.RowIndex = 0 Then
|
||||
' e.Row.Cells(0).Width = Unit.Pixel(30)
|
||||
' e.Row.Cells(1).Width = Unit.Pixel(30) 'Seccion
|
||||
' e.Row.Cells(2).Width = Unit.Pixel(300) 'SubSeccion
|
||||
' e.Row.Cells(3).Width = Unit.Pixel(100) 'Cantidad
|
||||
' End If
|
||||
|
||||
' If e.Row.DBCampo("RazonSocial") = "" Then
|
||||
' e.Row.CssClass = "Totales" : e.Row.Height = 25
|
||||
' ElseIf e.Row.DBCampo("Contrato") = "" Then
|
||||
' e.Row.CssClass = "SubTotales2" : e.Row.Height = 25
|
||||
' ElseIf e.Row.DBCampo("Seccion") = "" Then
|
||||
' e.Row.CssClass = "SubTotales" : e.Row.Height = 25
|
||||
' ElseIf e.Row.DBCampo("Clasificacion") = "" Then
|
||||
' e.Row.CssClass = "SubTotales3" : e.Row.Height = 25
|
||||
' End If
|
||||
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'Private Sub CargaDatosEstimaciones(pCveProveedor As Integer)
|
||||
' Dim Con As New ClsContratos
|
||||
' If Con.GetEstimaciones(pCveProveedor, -1, -1, -1, -1, 0, UsuarioActual.CveEmpresa) Then
|
||||
' GVEst.DataSource = Con.DtResultados
|
||||
' GVEst.DataBind()
|
||||
|
||||
' End If
|
||||
' UPEstimaciones.Update()
|
||||
' Con.Dispose()
|
||||
'End Sub
|
||||
|
||||
'Protected Sub GVEst_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVEst.RowDataBound
|
||||
' If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
' If e.Row.RowIndex = 0 Then
|
||||
' e.Row.Cells(0).Width = Unit.Pixel(30)
|
||||
' e.Row.Cells(1).Width = Unit.Pixel(30) 'Seccion
|
||||
' e.Row.Cells(2).Width = Unit.Pixel(300) 'SubSeccion
|
||||
' e.Row.Cells(3).Width = Unit.Pixel(100) 'Cantidad
|
||||
' End If
|
||||
|
||||
' If e.Row.DBCampo("RazonSocial") = "" Then
|
||||
' e.Row.CssClass = "Totales" : e.Row.Height = 25
|
||||
' ElseIf e.Row.DBCampo("Contrato") = "" Then
|
||||
' e.Row.CssClass = "SubTotales2" : e.Row.Height = 25
|
||||
' ElseIf e.Row.DBCampo("Seccion") = "" Then
|
||||
' e.Row.CssClass = "SubTotales" : e.Row.Height = 25
|
||||
' ElseIf e.Row.DBCampo("Clasificacion") = "" Then
|
||||
' e.Row.CssClass = "SubTotales3" : e.Row.Height = 25
|
||||
' End If
|
||||
|
||||
' End If
|
||||
'End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " ALMACEN "
|
||||
Private Sub CargaGvInv()
|
||||
|
||||
@@ -11165,11 +11178,11 @@ Partial Class Compras_Compras
|
||||
|
||||
UpAlmacenEvidencia.Update()
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "PESTAÑA INFORMACION GENERAL DE BANCO IE"
|
||||
|
||||
|
||||
Private Sub CargaTipoTransaccion()
|
||||
DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo = 'Egs'")
|
||||
DdlTipoTransaccion.DataBind()
|
||||
@@ -11190,52 +11203,52 @@ Partial Class Compras_Compras
|
||||
DdlCuentaCaja.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveTipoCuenta = 1"))
|
||||
DdlCuentaCaja.DataBind()
|
||||
DdlCuentaCaja.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "FINANCIAMIENTO - AC"
|
||||
'Private Sub CreaDtAC()
|
||||
' DtAC = New DataTable
|
||||
' DtAC.Columns.Add("IdCuenta", GetType(String))
|
||||
' DtAC.Columns.Add("Cuenta", GetType(String))
|
||||
' DtAC.Columns.Add("Saldo", GetType(String))
|
||||
'End Sub
|
||||
'Protected Sub CargaGvAc(Optional datos As DataTable = Nothing)
|
||||
' If UsuarioActual.Empresa.UsaAC Then
|
||||
' GvAC.DataBind()
|
||||
' GvAC.DataSource = If(datos IsNot Nothing, datos, DtAC)
|
||||
' GvAC.DataBind()
|
||||
|
||||
' Dim Total As Double = GvAC.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("PorDevengar").ToDouble)
|
||||
|
||||
' Lbtotalsaldo.Text = Total.ToString.FormatoNumero
|
||||
' UPPM.Update()
|
||||
' PnlAC.Visible = True
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'Protected Sub CargaAC()
|
||||
' Dim Cont As New ClsContPAQi(UsuarioActual.Empresa)
|
||||
|
||||
' If Cont.GetACSaldos(UsuarioActual.Empresa.EjercicioActual, 2) Then
|
||||
' DtAC = Cont.DtResultados.Copy.FiltraParametros("PorDevengar > 0")
|
||||
' Else
|
||||
' Alert("Ocurrio un error al cargar los Presupuestos. Por favor vuelva a cargar la pagina")
|
||||
' End If
|
||||
|
||||
' Cont.Dispose()
|
||||
'End Sub
|
||||
|
||||
'Protected Sub GvAC_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvAC.RowDataBound
|
||||
' If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
' e.Row.FCTextBox("TxtImporte").Attributes.Add("onkeyup", String.Format("ValidaImporte(this,{0});", e.Row.DBCampo("PorDevengar")))
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'Private Sub CreaDtAC()
|
||||
' DtAC = New DataTable
|
||||
' DtAC.Columns.Add("IdCuenta", GetType(String))
|
||||
' DtAC.Columns.Add("Cuenta", GetType(String))
|
||||
' DtAC.Columns.Add("Saldo", GetType(String))
|
||||
'End Sub
|
||||
'Protected Sub CargaGvAc(Optional datos As DataTable = Nothing)
|
||||
' If UsuarioActual.Empresa.UsaAC Then
|
||||
' GvAC.DataBind()
|
||||
' GvAC.DataSource = If(datos IsNot Nothing, datos, DtAC)
|
||||
' GvAC.DataBind()
|
||||
|
||||
' Dim Total As Double = GvAC.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("PorDevengar").ToDouble)
|
||||
|
||||
' Lbtotalsaldo.Text = Total.ToString.FormatoNumero
|
||||
' UPPM.Update()
|
||||
' PnlAC.Visible = True
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'Protected Sub CargaAC()
|
||||
' Dim Cont As New ClsContPAQi(UsuarioActual.Empresa)
|
||||
|
||||
' If Cont.GetACSaldos(UsuarioActual.Empresa.EjercicioActual, 2) Then
|
||||
' DtAC = Cont.DtResultados.Copy.FiltraParametros("PorDevengar > 0")
|
||||
' Else
|
||||
' Alert("Ocurrio un error al cargar los Presupuestos. Por favor vuelva a cargar la pagina")
|
||||
' End If
|
||||
|
||||
' Cont.Dispose()
|
||||
'End Sub
|
||||
|
||||
'Protected Sub GvAC_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvAC.RowDataBound
|
||||
' If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
' e.Row.FCTextBox("TxtImporte").Attributes.Add("onkeyup", String.Format("ValidaImporte(this,{0});", e.Row.DBCampo("PorDevengar")))
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "TAB - PERSONAL"
|
||||
Private Sub CargaGvPersonal()
|
||||
GvPersonal.DataSource = TmpDT
|
||||
@@ -11406,13 +11419,13 @@ Partial Class Compras_Compras
|
||||
Next
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "TAB - ACTIVOS FIJOS -AF"
|
||||
Protected Sub CargarGvActivosFijos(sender As Object, e As EventArgs)
|
||||
Tab.ActiveTabIndex = 3
|
||||
@@ -11642,58 +11655,58 @@ Partial Class Compras_Compras
|
||||
End Sub
|
||||
Protected Sub BtnAFMedida_Click(sender As Object, e As EventArgs)
|
||||
TmpDT(HdnIndexTmpDT.Value.ToEntero)("AFMedida") = HdnTxtAFMedida.Value
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "C O N T R A T O S"
|
||||
'Protected Sub ImgBtnBuscarContrato_Click(sender As Object, e As ImageClickEventArgs) Handles ImgBtnBuscarContrato.Click
|
||||
' If CveProveedor <= 0 Then
|
||||
' Alert("Debe de Seleccionar un proveedor")
|
||||
' Exit Sub
|
||||
' End If
|
||||
|
||||
' RegistraScript(String.Format("AbrirVentana('/Contratos/PopUpBuscarContrato.aspx?V=VCCOMP',730,300,'N');"))
|
||||
'End Sub
|
||||
|
||||
'Protected Sub CargaVContrato(sender As Object, e As EventArgs)
|
||||
' CargaVContrato2(HdnVCveContrato.Value)
|
||||
'End Sub
|
||||
|
||||
'Protected Sub CargaVContrato2(CveContrato As String)
|
||||
' If TxtContrato.Text <> "" Then
|
||||
' Dim ObjContratos As New ClsContratos
|
||||
' Dim DTContratosTemp As DataTable = Nothing
|
||||
|
||||
' GvContratos1.DataSource = TmpDT
|
||||
' GvContratos1.DataBind()
|
||||
' UPGVContratos1.Update()
|
||||
|
||||
' Dim ArrayCveContratos As String() = HdnVCveContrato.Value.Split(New Char() {","c})
|
||||
' For i As Integer = 1 To ArrayCveContratos.Count
|
||||
' If ObjContratos.GetContratosDetalle(ArrayCveContratos(i - 1).ToEntero) Then
|
||||
' If IsNothing(DTContratosTemp) Then
|
||||
' DTContratosTemp = ObjContratos.DtResultados.Copy
|
||||
' Else
|
||||
' DTContratosTemp.Merge(ObjContratos.DtResultados)
|
||||
' End If
|
||||
' Else
|
||||
' Alert("Ocurrio un ERROR al cargar el Contrato")
|
||||
' DTContratosTemp.Rows.Clear()
|
||||
' Exit For
|
||||
' End If
|
||||
' Next
|
||||
|
||||
' GvContratos2.DataSource = DTContratosTemp
|
||||
' GvContratos2.DataBind()
|
||||
' UPGVContratos2.Update()
|
||||
|
||||
' ObjContratos.Dispose()
|
||||
' End If
|
||||
'End Sub
|
||||
'Protected Sub ImgBtnBuscarContrato_Click(sender As Object, e As ImageClickEventArgs) Handles ImgBtnBuscarContrato.Click
|
||||
' If CveProveedor <= 0 Then
|
||||
' Alert("Debe de Seleccionar un proveedor")
|
||||
' Exit Sub
|
||||
' End If
|
||||
|
||||
' RegistraScript(String.Format("AbrirVentana('/Contratos/PopUpBuscarContrato.aspx?V=VCCOMP',730,300,'N');"))
|
||||
'End Sub
|
||||
|
||||
'Protected Sub CargaVContrato(sender As Object, e As EventArgs)
|
||||
' CargaVContrato2(HdnVCveContrato.Value)
|
||||
'End Sub
|
||||
|
||||
'Protected Sub CargaVContrato2(CveContrato As String)
|
||||
' If TxtContrato.Text <> "" Then
|
||||
' Dim ObjContratos As New ClsContratos
|
||||
' Dim DTContratosTemp As DataTable = Nothing
|
||||
|
||||
' GvContratos1.DataSource = TmpDT
|
||||
' GvContratos1.DataBind()
|
||||
' UPGVContratos1.Update()
|
||||
|
||||
' Dim ArrayCveContratos As String() = HdnVCveContrato.Value.Split(New Char() {","c})
|
||||
' For i As Integer = 1 To ArrayCveContratos.Count
|
||||
' If ObjContratos.GetContratosDetalle(ArrayCveContratos(i - 1).ToEntero) Then
|
||||
' If IsNothing(DTContratosTemp) Then
|
||||
' DTContratosTemp = ObjContratos.DtResultados.Copy
|
||||
' Else
|
||||
' DTContratosTemp.Merge(ObjContratos.DtResultados)
|
||||
' End If
|
||||
' Else
|
||||
' Alert("Ocurrio un ERROR al cargar el Contrato")
|
||||
' DTContratosTemp.Rows.Clear()
|
||||
' Exit For
|
||||
' End If
|
||||
' Next
|
||||
|
||||
' GvContratos2.DataSource = DTContratosTemp
|
||||
' GvContratos2.DataBind()
|
||||
' UPGVContratos2.Update()
|
||||
|
||||
' ObjContratos.Dispose()
|
||||
' End If
|
||||
'End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "TAB ALMACEN - INVENTARIOS ISRAEL PIÑA - 5 FEBRERO 2015"
|
||||
|
||||
|
||||
Protected Sub CalculaTotalPorDevengar()
|
||||
Dim total = TxtTotal.Text.ToDouble
|
||||
For Each Gvr As GridViewRow In GvInv.Rows
|
||||
@@ -11707,10 +11720,10 @@ Partial Class Compras_Compras
|
||||
|
||||
Protected Sub CambiaTotalDevengar(sender As Object, e As EventArgs)
|
||||
CalculaTotalPorDevengar()
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " AJUSTA IMPORTES "
|
||||
Private Sub AjustaImporteUltimoConcepto(ImporteAjuste As Decimal, Optional EsCarga As Boolean = False)
|
||||
'Dim TempSubTotal = TxtSubTotal.Text.ToDouble
|
||||
@@ -11809,9 +11822,9 @@ Partial Class Compras_Compras
|
||||
GvPS.DataBind()
|
||||
UpPS.Update()
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "DDL'S"
|
||||
Protected Sub DdlCredito_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCredito.SelectedIndexChanged
|
||||
CargaCreditosDetalle(DdlCredito.SelectedValue.ToEntero)
|
||||
@@ -11967,7 +11980,7 @@ Partial Class Compras_Compras
|
||||
IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
|
||||
CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero
|
||||
IdCuentaBancariaComplementaria = dr("IdCtaContableComplementaria").ToString.ToEntero
|
||||
CveCuentaBancariaComplementaria = dr("IdCtaContableSIGComplementaria").ToString.ToEntero
|
||||
CveCuentaBancariaComplementaria = dr("IdCtaContableComplementariaSIG").ToString.ToEntero
|
||||
If dr("UsaTarjeta").ToString = "True" Then
|
||||
CargaGridTarjetas()
|
||||
Else
|
||||
@@ -12040,9 +12053,9 @@ Partial Class Compras_Compras
|
||||
RVDocumentoImporteFE.MaximumValue = saldo.ToString
|
||||
UPCondicionesPago.Update()
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "CHK'S"
|
||||
Protected Sub RBLCajaChica_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RBLCajaChica.SelectedIndexChanged
|
||||
Select Case RBLCajaChica.SelectedValue
|
||||
@@ -12264,9 +12277,9 @@ Partial Class Compras_Compras
|
||||
ElseIf RblRembolso.SelectedValue.ToEntero = 2 Then
|
||||
TrRembolsoCajaChica.Visible = True
|
||||
End If
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "ARMONIZACION CONTABLE - AC - SIMPLIFICADO"
|
||||
Private Sub CargaPresupuestosEgresos(Optional CargaTodo As Boolean = True)
|
||||
|
||||
@@ -12530,10 +12543,10 @@ Partial Class Compras_Compras
|
||||
EjercicioAC = Ejercicio
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "E V E N T O - B I T A C O R A"
|
||||
Protected Sub GVEventoBitacora_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEB.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
@@ -12630,9 +12643,9 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
ObjEventoBitacora.Dispose()
|
||||
GvEB.DataBind()
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " C O N T A B I L I D A D "
|
||||
Protected Sub BtnDescontabilizar_Click(sender As Object, e As EventArgs)
|
||||
'Alert("Hola entre", TipoMensaje.MsgError)
|
||||
@@ -13021,10 +13034,10 @@ Partial Class Compras_Compras
|
||||
If Not ErrorCompra Then
|
||||
CargaCompra()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " REEMBOLSOS NO USA AC "
|
||||
Protected Sub DdlPersonal2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPersonalReembolso.SelectedIndexChanged
|
||||
ViewState("CvePersonal") = DdlPersonalReembolso.SelectedValue
|
||||
@@ -13038,13 +13051,13 @@ Partial Class Compras_Compras
|
||||
CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero
|
||||
End If
|
||||
ViewState("CveCajaChica") = DdlCuentaCajaChicaReembolso.SelectedValue
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " ALMACEN "
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " CONSIGNACIONES "
|
||||
Protected Sub ChkConsignacion_CheckedChanged(sender As Object, e As EventArgs)
|
||||
|
||||
@@ -13314,13 +13327,13 @@ Partial Class Compras_Compras
|
||||
BtnGuardar.Enabled = True
|
||||
UpFacturar.Update()
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " ***** Devoluciones INV ***** "
|
||||
|
||||
'*se envia true si hubo un error*'
|
||||
|
||||
|
||||
'*se envia true si hubo un error*'
|
||||
|
||||
Private Function guardardevolucion(ObjInventario As ClsInventarios, CveCompra As Integer, subtotal As Double, Fecha As Date) As Boolean
|
||||
Dim ErrorMovInv As Boolean = False
|
||||
Dim CveAlmacen As Integer
|
||||
@@ -13517,9 +13530,9 @@ Partial Class Compras_Compras
|
||||
ImgBtnBuscarOC.Visible = False
|
||||
UpParametros.Update()
|
||||
UpPSS.Update()
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " REFACTURACION "
|
||||
Private Sub ValidaRefacturacion()
|
||||
If Not CveCompra > 0 AndAlso DdlTipoComprobante.SelectedValue = "Fac" And UsuarioActual.Empresa.CvePlataforma <> 2 Then
|
||||
@@ -13753,10 +13766,10 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
|
||||
Return ErrorBitacora
|
||||
End Function
|
||||
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " CANCELAR COMPRA "
|
||||
Private Sub ValidaCancelarCompra()
|
||||
If UsuarioActual.TienePermisoProceso(140) Then
|
||||
@@ -14035,10 +14048,10 @@ Partial Class Compras_Compras
|
||||
DivValesCombustible.Visible = True
|
||||
RegistraScript(String.Format("$('#{0}').modal('show')", DivValesCombustible.ClientID))
|
||||
UPPValesCombustible.Update()
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " VALES COMBUSTIBLES "
|
||||
Protected Sub BtnValesVincular_Click(sender As Object, e As EventArgs)
|
||||
IdVale = New List(Of Integer)
|
||||
@@ -14058,9 +14071,9 @@ Partial Class Compras_Compras
|
||||
' Alert(cve.ToString)
|
||||
'Next
|
||||
End If
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " VINCULAR OC "
|
||||
Private Sub InicializaOC()
|
||||
'BORRAR OC
|
||||
@@ -15093,11 +15106,11 @@ Partial Class Compras_Compras
|
||||
|
||||
|
||||
Alert($"El concepto <b>{PS}</b> tiene especificada la cantidad <b>{Cantidad}</b> pero un costo de cero ($0). <br/><br/> <b>En caso de vincular la OC de esta manera la cantidad especificada sera considerada como recibida.</b> <br/><br/> De ser correcto Continue o de lo contrario rectifique.", TipoMensaje.MsgAdvertencia)
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "F L E T E S Y S E R V I C I O S"
|
||||
|
||||
|
||||
Public Sub CreaDTFacturas()
|
||||
|
||||
Dim dt As New DataTable
|
||||
@@ -15314,6 +15327,16 @@ Partial Class Compras_Compras
|
||||
TotalFlete = 0
|
||||
TotalAlmacen = 0
|
||||
|
||||
'Obtenemos el total del almacen y guardamos las consecutivas pertenecientes al mismo
|
||||
For Each Dr2 As DataRow In DtInv.Rows
|
||||
TotalAlmacen += Math.Round(Dr2("Total").ToString.ToDecimal, 2)
|
||||
ListaConsecutivas.Add(Dr2("Consec").ToString)
|
||||
Next
|
||||
|
||||
'sino hay producto en almacen para aplciarle un servicio, no se debe de amrcar como costo indirecto
|
||||
'esto aplica cuando la factura solo trae un concepto, y es el de servicio
|
||||
If TotalAlmacen = 0 Then Exit Sub
|
||||
|
||||
'Obtenemos el total del flete y marcamos los conceptos que pertenecen a flete
|
||||
For Each gvr As GridViewRow In GVServicios.Rows
|
||||
If gvr.DataKey("CvePS").ToEntero = CvePS Or gvr.FCCheckBox("chkServicios").Checked Then
|
||||
@@ -15328,11 +15351,6 @@ Partial Class Compras_Compras
|
||||
|
||||
If Not TotalFlete > 0 Then Exit Sub
|
||||
|
||||
'Obtenemos el total del almacen y guardamos las consecutivas pertenecientes al mismo
|
||||
For Each Dr2 As DataRow In DtInv.Rows
|
||||
TotalAlmacen += Math.Round(Dr2("Total").ToString.ToDecimal, 2)
|
||||
ListaConsecutivas.Add(Dr2("Consec").ToString)
|
||||
Next
|
||||
|
||||
'Asignamos los costos indirectos y los indices
|
||||
For Each Drt As DataRow In TmpDT.Rows
|
||||
|
||||
Reference in New Issue
Block a user