AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

se agregó parametro CveEmpresa a GetPrePolizasDetalle.

Browse Source
This commit is contained in:
rrene
2021-06-29 06:35:42 -07:00
parent 874d1e529f
commit 6b557505ee
9 changed files with 23 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
Compras/Compras.aspx.vb
View File

@@ -8343,9 +8343,9 @@ Partial Class Compras_Compras
'ACTUALIZA CVEFACTURA
If Request("CveFactura") IsNot Nothing Then
If Not ObjCompras.UpdateCompraFactura(CveCompra, Request("CveFactura").ToEntero, TxtSerie.Text.Trim, TxtFolio.Text.Trim) Then
TieneError = True
End If
'If Not ObjCompras.UpdateCompraFactura(CveCompra, Request("CveFactura").ToEntero, TxtSerie.Text.Trim, TxtFolio.Text.Trim) Then
' TieneError = True
'End If
If UsuarioActual.Empresa.UsaAC Then
MsgAccionAceptar = String.Format("window.opener.location.href = window.opener.location.href; window.open(""/Contabilidad/RegPoliza.aspx?IdPoliza={0}""); window.close();", IdPoliza)
@@ -10357,7 +10357,7 @@ Partial Class Compras_Compras
Dim CveProveedorConcepto As Integer = 0, CveIE As Integer = 0, CveCreditoDetalle As Integer = 0
Dim ConceptoPersonal As String = "", Concepto As String = ""
If Not ObjConta.GetPrePolizasDetalle(CvePrePoliza) Then
If Not ObjConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) Then
ErrorPrepoliza = True
Else
If ObjConta.DtResultados.FiltraParametros("CveConceptoContable IN (6,68,49,205,176)").Rows.Count > 0 Then
@@ -15010,7 +15010,7 @@ Partial Class Compras_Compras
End If
Else
If CvePrePoliza > 0 Then
If ObjContabilidad.GetPrePolizasDetalle(CvePrePoliza) Then
If ObjContabilidad.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) Then
dt = ObjContabilidad.DtResultados
CvePrePolizaNueva = ObjContabilidad.AddPrePolizas("Compras/Cancelar", dt.Rows(0)("CvePlantillaPoliza").ToString.ToEntero, dt.Rows(0)("Cargos").ToString.ToDouble * -1, dt.Rows(0)("Abonos").ToString.ToDouble * -1, dt.Rows(0)("CveMoneda").ToString.ToEntero, TxtFechaCancelacion.Text.ToDate, String.Format("Cancelación: {0}", dt.Rows(0)("Concepto").ToString), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
@@ -15062,11 +15062,11 @@ Partial Class Compras_Compras
'LIMPIA PRE-POLIZA PONIENDO IMPORTE EN CEROS
If CvePrePoliza > 0 Then
If ObjContabilidad.GetPrePolizasDetalle(CvePrePoliza) Then
If ObjContabilidad.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) Then
dt = ObjContabilidad.DtResultados
For Each dr As DataRow In dt.Rows
If Not ObjContabilidad.UpdatePrepolizasDetalle(dr("CvePrePolizaDetalle").ToString.ToEntero, dr("Concepto").ToString, dr("CveSubProyecto").ToString.ToEntero, dr("IdCtaContable").ToString.ToEntero, CBool(dr("TipoMovto").ToString), 0, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
If Not ObjContabilidad.UpdatePrePolizasDetalle(dr("CvePrePolizaDetalle").ToString.ToEntero, dr("Concepto").ToString, dr("CveSubProyecto").ToString.ToEntero, dr("IdCtaContable").ToString.ToEntero, CBool(dr("TipoMovto").ToString), 0, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
ErrorCancelar = True : Exit For
End If
Next
@@ -18689,7 +18689,7 @@ Partial Class Compras_Compras
TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveClasificacion") = HdnPSAliasCveClasificacion.Value.ToEntero
TmpDT.Rows(HdnAliasInd.Value.ToEntero)("Clasificacion") = HdnPSAliasClasificacion.Value
TmpDT.Rows(HdnAliasInd.Value.ToEntero)("Obs") = TxtPSAlias.Text.Trim
TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveSATPS") = HdnPSAliasCveSATPS.Value
TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveSATPS") = HdnPSAliasCveSATPS.Value.ToEntero
TmpDT.Rows(HdnAliasInd.Value.ToEntero)("SATClaveProductoServicio") = HdnPSAliasSATClavePS.Value
'busco si el producto está en otros renglones QUE NO LO TENGAN ASIGNADO, LO VINCULE
@@ -18701,7 +18701,7 @@ Partial Class Compras_Compras
drt("CveClasificacion") = HdnPSAliasCveClasificacion.Value.ToEntero
drt("Clasificacion") = HdnPSAliasClasificacion.Value
drt("Obs") = TxtPSAlias.Text.Trim
drt("CveSATPS") = HdnPSAliasCveSATPS.Value
drt("CveSATPS") = HdnPSAliasCveSATPS.Value.ToEntero
drt("SATClaveProductoServicio") = HdnPSAliasSATClavePS.Value
Next
@@ -18710,14 +18710,12 @@ Partial Class Compras_Compras
GvPS.DataBind()
UpPS.Update()
Alert("Registro actualizado con exito.", TipoMensaje.MsgInformacion)
Alert("Registro actualizado con éxito.", TipoMensaje.MsgInformacion)
RegistraScript("$('#ModalPSAlias').modal('hide');", "ModalPSAliasHide")
End If
PS.Dispose()
End Sub
Private Sub RecargaGlobalEquivalencias()

6
Compras/PopUpVerFactura.aspx.vb
View File

@@ -3975,7 +3975,7 @@ Partial Class PopUpVerFactura
End If
ElseIf UsuarioActual.CveEmpresa.Contiene(119, 141) Then
Dim PreP As New ClsContabilidad
If PreP.GetPrePolizasDetalle(-1, CveIE) Then
If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
DtMovimientosPoliza = New DataTable
DtMovimientosPoliza.Columns.Add("CODIGO", GetType(String))
DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String))
@@ -4055,7 +4055,7 @@ Partial Class PopUpVerFactura
tIdPoliza = ObjIE.IDPoliza
Dim PreP As New ClsContabilidad
If PreP.GetPrePolizasDetalle(-1, CveIE) Then
If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
If PreP.DtResultados.Rows.Count > 0 Then
CveProveedor = PreP.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero
CvePersonal = PreP.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero
@@ -4256,7 +4256,7 @@ Partial Class PopUpVerFactura
Dim dtMovs As New DataTable
Dim Mov As New ClsContabilidad
If Mov.GetPrePolizasDetalle(-1, CveIE) Then
If Mov.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
dtMovs = Mov.DtResultados.FiltraParametros("CveConceptoContable IN (17,2,308,309,312)")