-- tipo de compra de Apoyo BDH
This commit is contained in:
@@ -511,7 +511,7 @@
|
||||
<asp:ListItem Text="Costo Indirecto" Value="4"></asp:ListItem>
|
||||
<asp:ListItem Text="Importación" Value="5"></asp:ListItem>
|
||||
<asp:ListItem Text="NC Con Productos" Value="6"></asp:ListItem>
|
||||
<asp:ListItem Text="Apoyo Logístico" Value="9"></asp:ListItem>
|
||||
<asp:ListItem Text="Apoyo Logístico" Value="9"></asp:ListItem>
|
||||
<asp:ListItem Text="NC Por Devolución" Value="11"></asp:ListItem>
|
||||
|
||||
<%--<asp:ListItem Text="Garantía" Value="12"></asp:ListItem> Ocuoado usado en Garantía--%>
|
||||
|
||||
@@ -2121,7 +2121,10 @@ Partial Class Compras_Compras
|
||||
DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("DEV"))
|
||||
DdlTipoCompra.Items.Remove(DdlTipoCompra.Items.FindByValue("6"))
|
||||
DdlTipoCompra.Items.Remove(DdlTipoCompra.Items.FindByValue("11"))
|
||||
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then DdlTipoCompra.Items.Add(New ListItem("Recolección", "14"))
|
||||
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
|
||||
DdlTipoCompra.Items.Add(New ListItem("Recolección", "14"))
|
||||
DdlTipoCompra.Items.Add(New ListItem("Apoyo sin virtual", "16"))
|
||||
End If
|
||||
Case "E"
|
||||
DdlTipoComprobante.SelectedValue = "NC"
|
||||
DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Fac"))
|
||||
@@ -2808,6 +2811,9 @@ Partial Class Compras_Compras
|
||||
ViewState("CveProveedor") = CveProveedor
|
||||
ImgBtnBuscarOC.OnClientClick = String.Format("AbrirVentana('/OC/PopUpBuscarReq.aspx?V=VOCCOMP&P={0}&T={1}&Masterimpoup=true',1000,600,'S'); return false;", CveProveedor, DdlTipoComprobante.SelectedValue)
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
|
||||
If dr("TipoDocto").ToString = "Fac" Then DdlTipoCompra.Items.Add(New ListItem("Apoyo sin virtual", "16"))
|
||||
End If
|
||||
|
||||
Dim ObjBancos As New ClsBancos()
|
||||
|
||||
@@ -2817,13 +2823,11 @@ Partial Class Compras_Compras
|
||||
GvCreditosRelacionados.DataBind()
|
||||
GvCreditos.Visible = False
|
||||
GvCreditosRelacionados.Visible = True
|
||||
|
||||
PnlContadoCreditos.Visible = True
|
||||
Else
|
||||
GvCreditosRelacionados.DataSource = Nothing
|
||||
GvCreditosRelacionados.Visible = False
|
||||
GvCreditosRelacionados.DataBind()
|
||||
|
||||
End If
|
||||
UpGvCreditos.Update()
|
||||
LblImporteCreditos.Visible = True
|
||||
@@ -2847,7 +2851,6 @@ Partial Class Compras_Compras
|
||||
If ChkEsNoDeducible.Checked Then AplicarNoDeducible()
|
||||
LblMetodoPago.Text = dr("MetodoPagoSAT").ToString
|
||||
CveConceptoContableAlmacen = dr("CveConceptoContableAlmacen").ToString.ToEntero
|
||||
|
||||
If UsuarioActual.Empresa.UsaAC Then
|
||||
CambiaEjercicioAC(False)
|
||||
End If
|
||||
@@ -5867,6 +5870,15 @@ Partial Class Compras_Compras
|
||||
ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, tImporte, tImporte, 68, ObjInventario.Folio.ToString, ObjInventario.Folio.ToString, CveMovimientoAlmacen:=CveMovimientoInventario)
|
||||
End If
|
||||
|
||||
If Not ErrorMovInv Then
|
||||
'REPLICAR MOVTO GENERADO
|
||||
If UsuarioActual.CveEmpresa = 199 AndAlso CveMovimientoInventario > 0 Then
|
||||
If Not ObjInventario.ReplicarMovtoEmpresa(UsuarioActual.CveEmpresa, CveMovimientoInventario) Then
|
||||
ErrorMovInv = True
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
@@ -7498,11 +7510,29 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
'5, 305, 306, 311
|
||||
If importeMovimiento <> 0 Or (CveConceptoOriginal = 5 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Fac", "Ant")) Or (ConceptoContable.Contiene(18) AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not GuardoConcepto18) Then
|
||||
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, importeMN.RoundSQL, ConceptoContable, Referencia, Concepto, CveCompra:=CveCompra, CveSubProyecto:=CveSubProyectoInsertar, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza) Then
|
||||
ErrorPrepoliza = True
|
||||
Exit For
|
||||
End If
|
||||
|
||||
'''Empresas VSH
|
||||
If (Not ErrorPrepoliza) AndAlso ConceptoContable = 14 AndAlso UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) AndAlso RBLPago.SelectedValue.ToEntero = 3 AndAlso RBLContado.SelectedValue.ToEntero.Contiene(6, 2) Then
|
||||
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, If(TipoMovimiento, False, True), importeMovimiento, importeMN.RoundSQL, ConceptoContable, Referencia, Concepto, CveCompra:=CveCompra, CveSubProyecto:=CveSubProyectoInsertar, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza) Then
|
||||
ErrorPrepoliza = True
|
||||
Exit For
|
||||
End If
|
||||
|
||||
If Not ErrorPrepoliza Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, If(TipoMovimiento, True, False), importeMovimiento, importeMN.RoundSQL, 19, Referencia, Concepto, CveCompra:=CveCompra, CveSubProyecto:=CveSubProyectoInsertar, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza) Then
|
||||
ErrorPrepoliza = True
|
||||
Exit For
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
Next
|
||||
|
||||
@@ -13875,6 +13905,15 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
If Not ErrorMovInv Then
|
||||
'REPLICAR MOVTO GENERADO
|
||||
If UsuarioActual.CveEmpresa = 199 AndAlso CveMovimientoEntrada > 0 Then
|
||||
If Not ObjInventario.ReplicarMovtoEmpresa(UsuarioActual.CveEmpresa, CveMovimientoEntrada) Then
|
||||
ErrorMovInv = True
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
ErrorMovInv = True
|
||||
Alert("El Total de la NC debe ser igual al total de la devolucion", TipoMensaje.MsgAdvertencia)
|
||||
@@ -14554,6 +14593,15 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
If Not ErrorCancelar Then
|
||||
'REPLICAR MOVTO GENERADO
|
||||
If UsuarioActual.CveEmpresa = 199 AndAlso CveMovimientoEntrada > 0 Then
|
||||
If Not ObjInventario.ReplicarMovtoEmpresa(UsuarioActual.CveEmpresa, CveMovimientoEntrada) Then
|
||||
ErrorCancelar = True
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
End If
|
||||
@@ -19380,6 +19428,15 @@ Partial Class Compras_Compras
|
||||
Respuesta = False
|
||||
End If
|
||||
|
||||
If Not Respuesta Then
|
||||
'REPLICAR MOVTO GENERADO
|
||||
If UsuarioActual.CveEmpresa = 199 AndAlso CveMovimientoSalida > 0 Then
|
||||
If Not ObjInventario.ReplicarMovtoEmpresa(UsuarioActual.CveEmpresa, CveMovimientoSalida) Then
|
||||
Respuesta = False
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
If Respuesta Then
|
||||
|
||||
Reference in New Issue
Block a user