Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git
This commit is contained in:
rakcsle
@@ -4087,20 +4087,20 @@ Partial Class Compras_Compras
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
'DF - 10/04/2017
|
||||
If UsuarioActual.TienePermisoProceso(187) Then
|
||||
If TxtSerie.Text <> SerieVieja Then
|
||||
Dim dtt As DataTable = GlobalDTProveedorSucursales(CveProveedor, UsuarioActual.CveEmpresa)
|
||||
If dtt IsNot Nothing AndAlso dtt.Rows.Count > 0 Then
|
||||
Dim SerieNueva As String = dtt.FiltroPrimeroValor("Serie", $"Serie = '{TxtSerie.Text}'").ToString
|
||||
If SerieNueva = "" Then
|
||||
Alert("La Serie no es válida, por favor revise que se encuentre dentro de la lista de las sucursales del proveedor.", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
''DF - 10/04/2017
|
||||
'If UsuarioActual.TienePermisoProceso(187) Then
|
||||
' If TxtSerie.Text <> SerieVieja Then
|
||||
' Dim dtt As DataTable = GlobalDTProveedorSucursales(CveProveedor, UsuarioActual.CveEmpresa)
|
||||
' If dtt IsNot Nothing AndAlso dtt.Rows.Count > 0 Then
|
||||
' Dim SerieNueva As String = dtt.FiltroPrimeroValor("Serie", $"Serie = '{TxtSerie.Text}'").ToString
|
||||
' If SerieNueva = "" Then
|
||||
' Alert("La Serie no es válida, por favor revise que se encuentre dentro de la lista de las sucursales del proveedor.", TipoMensaje.MsgAdvertencia)
|
||||
' Exit Sub
|
||||
' End If
|
||||
' End If
|
||||
|
||||
End If
|
||||
End If
|
||||
' End If
|
||||
'End If
|
||||
|
||||
'Excede el limite de credito
|
||||
If RBLPago.SelectedValue = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("Fac") AndAlso UsuarioActual.Empresa.Funcionalidad(518) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(185) Then
|
||||
@@ -6037,14 +6037,19 @@ Partial Class Compras_Compras
|
||||
If importeMovimiento <> 0 Then
|
||||
Dim IdCtaIva As Integer = 0
|
||||
IdCtaIva = If(IdCtaIVAXAcreditar > 0, IdCtaIVAXAcreditar, 0)
|
||||
Dim ttConceptoContable As Integer = 14
|
||||
|
||||
If ObjConta.GetRetCuenta(14, UsuarioActual.CveEmpresa) And Not IdCtaIva > 0 Then
|
||||
If ObjConta.GetRetCuenta(ttConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaIva > 0 Then
|
||||
If ObjConta.DtResultados.Rows.Count > 0 Then
|
||||
IdCtaIva = ObjConta.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero
|
||||
End If
|
||||
End If
|
||||
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 14, Concepto + If(tipoCambioActual > 1, $" TC {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaIva, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then
|
||||
If chkImportacion.Checked Then
|
||||
ttConceptoContable = 287
|
||||
End If
|
||||
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, ttConceptoContable, Concepto + If(tipoCambioActual > 1, $" TC {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaIva, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then
|
||||
ErrorPrepoliza = True
|
||||
End If
|
||||
End If
|
||||
@@ -18084,6 +18089,22 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
End If
|
||||
|
||||
Dim DtpsTemp As DataTable = Nothing
|
||||
Dim CveContratoDetalle As Integer = -1
|
||||
Dim CveContrato As Integer = GlobalDTContratos(UsuarioActual.CveEmpresa, -1, DdlSubProyecto.SelectedValue.ToString.ToEntero).FiltroPrimeroValor("CveContrato").ToEntero
|
||||
If CveContrato > 0 Then
|
||||
Dim dttemp As New DataTable
|
||||
dttemp.Columns.Add("CveSubProyecto", GetType(Integer))
|
||||
dttemp.Columns.Add("CvePS", GetType(Integer))
|
||||
Dim DrPS = dttemp.NewRow
|
||||
DrPS("CveSubProyecto") = DdlSubProyecto.SelectedValue.ToString.ToEntero
|
||||
DrPS("CvePS") = DdlPS.SelectedValue.ToString.ToEntero
|
||||
dttemp.Rows.Add(DrPS)
|
||||
DtpsTemp = GetPSContratoDetalle(CveContrato, dttemp)
|
||||
If DtpsTemp IsNot Nothing AndAlso DtpsTemp.Rows.Count > 0 Then
|
||||
CveContratoDetalle = DtpsTemp.FiltroPrimeroValor("CveContratoDetalle", String.Format("CvePS = {0}", DdlPS.SelectedValue.ToString.ToEntero)).ToEntero
|
||||
End If
|
||||
End If
|
||||
|
||||
'If dttemp IsNot Nothing AndAlso dttemp.Rows.Count > 0 Then
|
||||
' Dim drContrato As DataRow = dttemp.Rows(0)
|
||||
@@ -18118,20 +18139,6 @@ Partial Class Compras_Compras
|
||||
' End If
|
||||
'End If
|
||||
|
||||
Dim ObjContratos As New ClsContratos
|
||||
Dim CveContrato As Integer = GlobalDTContratos(UsuarioActual.CveEmpresa, -1, DdlSubProyecto.SelectedValue.ToEntero).FiltroPrimeroValor("CveContrato").ToEntero
|
||||
Dim CveContratoDetalle As Integer = -1
|
||||
If CveContrato > 0 Then
|
||||
If ObjContratos.GetContratosDetalle(CveContrato, UsuarioActual.CveEmpresa) Then
|
||||
CveContratoDetalle = ObjContratos.DtResultados.FiltroPrimeroValor("CveContratoDetalle", String.Format("CvePS = {0}", DdlPS.SelectedValue.ToString)).ToEntero
|
||||
If CveContratoDetalle = 0 Then
|
||||
CveContratoDetalle = -1
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
ObjContratos.Dispose()
|
||||
|
||||
|
||||
Select Case Modalidad
|
||||
Case "A" 'ADD
|
||||
|
||||
@@ -18146,7 +18153,6 @@ Partial Class Compras_Compras
|
||||
Else
|
||||
IVA = Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2)
|
||||
End If
|
||||
ObjContratos.Dispose()
|
||||
AddPS(TxtCantidad.Text.Trim.ToDouble, ddlUM.SelectedValue.ToEntero, ddlUM.SelectedItem.Text, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacion.SelectedItem.Text, DdlPS.SelectedValue.ToEntero, DdlPS.SelectedText, HdnTipoPS.Value.ToEntero,
|
||||
DdlSubProyecto.SelectedValue.ToString, DdlSubProyecto.SelectedItem.Text, DdlProyecto.SelectedItem.Text, DdlProyecto.SelectedValue.ToString, TxtObsPS.Text.Trim, TxtPrecio.Text.Trim.ToDouble, Total, IVA,
|
||||
TxtRetIVAModal.Text.ToDouble / 100, TxtRetISRModal.Text.ToDouble / 100, TxtIEPSModal.Text.ToDouble / 100, 0, TxtDescuentoModal.Text.ToDouble, OtrosGastos:=TxtOtrosGastos.Text.ToDouble, CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, TipoGasto:=DdlTipoGasto.SelectedItem.Text,
|
||||
@@ -18625,13 +18631,26 @@ Partial Class Compras_Compras
|
||||
CveProyecto = DdlAsignarProyecto.SelectedValue.ToEntero()
|
||||
End If
|
||||
|
||||
Dim CveContrato As Integer = GlobalDTContratos(UsuarioActual.CveEmpresa, -1, DdlAsignaSubProyecto.SelectedValue.ToEntero).FiltroPrimeroValor("CveContrato").ToEntero
|
||||
Dim DtpsTemp As DataTable = Nothing
|
||||
If CveContrato > 0 Then
|
||||
DtpsTemp = GetPSContratoDetalle(CveContrato, TmpDT.FiltraParametros("", "", {"CveSubProyecto", "CvePS"}))
|
||||
End If
|
||||
|
||||
For Each Dr As DataRow In TmpDT.Rows
|
||||
Dr("CveProyecto") = CveProyecto
|
||||
Dr("Proyecto") = If(CveSubProyecto = -1, "SE", DdlAsignarProyecto.SelectedItem.Text)
|
||||
Dr("CveSubProyecto") = CveSubProyecto
|
||||
Dr("SubProyecto") = If(CveSubProyecto = -1, "SE", DdlAsignaSubProyecto.SelectedItem.Text)
|
||||
|
||||
If DtpsTemp IsNot Nothing AndAlso DtpsTemp.Rows.Count > 0 Then
|
||||
Dr("CveContratoDetalle") = DtpsTemp.FiltroPrimeroValor("CveContratoDetalle", String.Format("CvePS = {0}", Dr("CvePS"))).ToEntero
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
|
||||
|
||||
GvPS.DataSource = TmpDT.FiltraParametros("", "Consec")
|
||||
GvPS.DataBind()
|
||||
UpPS.Update()
|
||||
@@ -18694,9 +18713,22 @@ Partial Class Compras_Compras
|
||||
Dim PS As New ClsProductosServicios
|
||||
Dim CvePS = -1
|
||||
Dim tPS = ""
|
||||
|
||||
Dim CveSubProyecto As Integer = TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveSubProyecto").ToString.ToEntero
|
||||
CvePS = DdlPSAlias2.SelectedValue.ToEntero
|
||||
tPS = DdlPSAlias2.SelectedText
|
||||
Dim DtpsTemp As DataTable = Nothing
|
||||
Dim CveContrato As Integer = GlobalDTContratos(UsuarioActual.CveEmpresa, -1, CveSubProyecto).FiltroPrimeroValor("CveContrato").ToEntero
|
||||
If CveContrato > 0 Then
|
||||
Dim dttemp As New DataTable
|
||||
dttemp.Columns.Add("CveSubProyecto", GetType(Integer))
|
||||
dttemp.Columns.Add("CvePS", GetType(Integer))
|
||||
Dim DrPS = dttemp.NewRow
|
||||
DrPS("CveSubProyecto") = CveSubProyecto
|
||||
DrPS("CvePS") = CvePS
|
||||
dttemp.Rows.Add(DrPS)
|
||||
DtpsTemp = GetPSContratoDetalle(CveContrato, dttemp)
|
||||
End If
|
||||
|
||||
|
||||
If PS.AddPSAlias(System.Web.HttpUtility.HtmlDecode(TxtPSAlias.Text.Trim), CvePS, UsuarioActual.CveUsuario) Then
|
||||
GlobalDTProductosServiciosAlias(-1) = PS.DtResultados
|
||||
@@ -18711,6 +18743,9 @@ Partial Class Compras_Compras
|
||||
TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveSATPS") = HdnPSAliasCveSATPS.Value.ToEntero
|
||||
TmpDT.Rows(HdnAliasInd.Value.ToEntero)("SATClaveProductoServicio") = HdnPSAliasSATClavePS.Value
|
||||
TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveSATPSActualizado") = 0
|
||||
If DtpsTemp IsNot Nothing AndAlso DtpsTemp.Rows.Count > 0 Then
|
||||
TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveContratoDetalle") = DtpsTemp.FiltroPrimeroValor("CveContratoDetalle", String.Format("CvePS = {0}", CvePS)).ToEntero
|
||||
End If
|
||||
|
||||
'busco si el producto está en otros renglones QUE NO LO TENGAN ASIGNADO, LO VINCULE
|
||||
For Each drt As DataRow In TmpDT.Select($"PS ='{TxtPSAlias.Text.Trim}' and ISNULL(CvePS,0) = 0")
|
||||
@@ -18724,7 +18759,9 @@ Partial Class Compras_Compras
|
||||
drt("CveSATPS") = HdnPSAliasCveSATPS.Value.ToEntero
|
||||
drt("SATClaveProductoServicio") = HdnPSAliasSATClavePS.Value
|
||||
drt("CveSATPSActualizado") = 0
|
||||
|
||||
If DtpsTemp IsNot Nothing AndAlso DtpsTemp.Rows.Count > 0 Then
|
||||
drt("CveContratoDetalle") = DtpsTemp.FiltroPrimeroValor("CveContratoDetalle", String.Format("CvePS = {0}", drt("CvePS"))).ToEntero
|
||||
End If
|
||||
|
||||
Next
|
||||
TmpDT.AcceptChanges()
|
||||
@@ -20939,6 +20976,20 @@ Partial Class Compras_Compras
|
||||
Return Retorno
|
||||
|
||||
End Function
|
||||
Private Function GetPSContratoDetalle(CveContrato As Integer, DtPS As DataTable) As DataTable
|
||||
Dim ObjContratos As New ClsContratos
|
||||
Dim DtpsTemp As DataTable = Nothing
|
||||
|
||||
If DtPS.MAX("CveSubProyecto", "CveSubProyecto IS NOT NULL").ToEntero > 0 AndAlso DtPS.MAX("CvePS", "CvePS IS NOT NULL").ToEntero > 0 Then
|
||||
Dim TempPS As String = JsonConvert.SerializeObject(DtPS).ToString
|
||||
If ObjContratos.GetPSContratoDetalle(CveContrato, TempPS) Then
|
||||
DtpsTemp = ObjContratos.DtResultados
|
||||
End If
|
||||
ObjContratos.Dispose()
|
||||
End If
|
||||
|
||||
Return DtpsTemp
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
Reference in New Issue
Block a user