Compras dos prepolizas cuando hay entrada de inventario y la fecha de lacompra es distina de la fecha actual
This commit is contained in:
rakcsle
@@ -729,7 +729,7 @@
|
|||||||
</asp:Panel>
|
</asp:Panel>
|
||||||
|
|
||||||
|
|
||||||
<asp:GridView ID="GvPS" ShowHeader="false" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePS,Cantidad,CveUM,UM,PU,Descuento,OtrosGastos,CvePresupuestoEgreso,PS,Clasificacion,CveClasificacion,CveOrdenCompraDetalle,IVA,IVAPorcentaje,RetIVAPorcentaje,RetISRPorcentaje,IEPSPSPorcentaje,Obs,Total,CveProyecto,CveSubProyecto,Proyecto,SubProyecto,Consec,CveTipoGasto,NoDeducible,DifPSSat,TipoAF,CveCultivoCuadroDetalle" GridLines="none" BorderWidth="0" EmptyDataText="Sin Productos o Servicios agregados" CssClass="table GvPS table-striped table-hover table-advance Widthall ScrollAD mysmallbtn" >
|
<asp:GridView ID="GvPS" ShowHeader="false" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePS,Cantidad,CveUM,UM,PU,Descuento,OtrosGastos,CvePresupuestoEgreso,PS,Clasificacion,CveClasificacion,CveOrdenCompraDetalle,IVA,IVAPorcentaje,RetIVAPorcentaje,RetISRPorcentaje,IEPSPSPorcentaje,Obs,Total,CveProyecto,CveSubProyecto,Proyecto,SubProyecto,Consec,CveTipoGasto,NoDeducible,DifPSSat,TipoAF,CveCultivoCuadroDetalle,CveTipoPS" GridLines="none" BorderWidth="0" EmptyDataText="Sin Productos o Servicios agregados" CssClass="table GvPS table-striped table-hover table-advance Widthall ScrollAD mysmallbtn" >
|
||||||
<Columns>
|
<Columns>
|
||||||
<%-- 0 --%>
|
<%-- 0 --%>
|
||||||
<asp:TemplateField ItemStyle-Width="15px">
|
<asp:TemplateField ItemStyle-Width="15px">
|
||||||
|
|||||||
@@ -6054,11 +6054,35 @@ Partial Class Compras_Compras
|
|||||||
|
|
||||||
If importeMN <> 0 Then
|
If importeMN <> 0 Then
|
||||||
|
|
||||||
'SI ES GASTO CON ALMACEN NO DEBE CONTABILIZAR CONCEPTO 68
|
|
||||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN.RoundSQL(2), importeMN.RoundSQL(2), 68, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=If(DdlTipoCompra.SelectedValue = "10", False, SeContabiliza)) Then
|
If TxtFecha.Text <> Now.ToString("dd/MM/yyyy") Then
|
||||||
ErrorPrepoliza = True
|
|
||||||
|
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN.RoundSQL(2), importeMN.RoundSQL(2), 205, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=If(DdlTipoCompra.SelectedValue = "10", False, SeContabiliza)) Then
|
||||||
|
ErrorPrepoliza = True
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim CvePrePoliza2Almacen As Integer = ObjConta.AddPrePolizas("Compras/Registrar/Almacen", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, Now, 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))
|
||||||
|
|
||||||
|
If CvePrePoliza2Almacen > 0 Then
|
||||||
|
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza2Almacen, True, importeMN.RoundSQL(2), importeMN.RoundSQL(2), 205, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=If(DdlTipoCompra.SelectedValue = "10", False, SeContabiliza)) Then
|
||||||
|
ErrorPrepoliza = True
|
||||||
|
End If
|
||||||
|
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza2Almacen, False, importeMN.RoundSQL(2), importeMN.RoundSQL(2), 68, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=If(DdlTipoCompra.SelectedValue = "10", False, SeContabiliza)) Then
|
||||||
|
ErrorPrepoliza = True
|
||||||
|
End If
|
||||||
|
Else
|
||||||
|
ErrorPrepoliza = True
|
||||||
|
End If
|
||||||
|
|
||||||
|
Else
|
||||||
|
'SI ES GASTO CON ALMACEN NO DEBE CONTABILIZAR CONCEPTO 68
|
||||||
|
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN.RoundSQL(2), importeMN.RoundSQL(2), 68, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=If(DdlTipoCompra.SelectedValue = "10", False, SeContabiliza)) Then
|
||||||
|
ErrorPrepoliza = True
|
||||||
|
End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
'SI ES GASTO CON ALMACEN REGISTRA EL CONCEPTO 95
|
'SI ES GASTO CON ALMACEN REGISTRA EL CONCEPTO 95
|
||||||
If DdlTipoCompra.SelectedValue = "10" Then
|
If DdlTipoCompra.SelectedValue = "10" Then
|
||||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMN.RoundSQL(2), importeMN.RoundSQL(2), 95, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=False) Then
|
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMN.RoundSQL(2), importeMN.RoundSQL(2), 95, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=False) Then
|
||||||
@@ -6640,62 +6664,9 @@ Partial Class Compras_Compras
|
|||||||
Exit Select
|
Exit Select
|
||||||
End If
|
End If
|
||||||
|
|
||||||
'Else
|
|
||||||
|
|
||||||
' If ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, importeMN, ConceptoContable, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then
|
|
||||||
' For Each Gvr As GridViewRow In GvFacturaNC.Rows
|
|
||||||
' If Gvr.FCCheckBox("ChkFacturaNC").Checked Then
|
|
||||||
' 'Dim CvePrePolizaTemp = ObjConta.AddPrePolizas("Compras/Registrar", 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 As Decimal = Gvr.FCTextBox("TxtImporte").Text.ToDecimal
|
|
||||||
' Dim importeMNNC As Decimal = importeMovimientoNC * tipoCambioActual * Multiplicador
|
|
||||||
|
|
||||||
|
|
||||||
' If CompraActual.CveMoneda = 1 Then
|
End If
|
||||||
|
|
||||||
' If ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimientoNC, importeMNNC, 272, Referencia, Concepto, CveCompra:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoNC), CveCompraAmortizacion:=CveCompra, Contabilizable:=SeContabiliza) Then
|
|
||||||
' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimientoNC, importeMNNC, 60, Referencia, Concepto, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoNC), Contabilizable:=SeContabiliza) Then
|
|
||||||
' ErrorPrepoliza = True
|
|
||||||
' End If
|
|
||||||
' Else
|
|
||||||
' ErrorPrepoliza = True
|
|
||||||
' End If
|
|
||||||
' Else
|
|
||||||
|
|
||||||
' Dim UsaComplementaria As Boolean = True
|
|
||||||
|
|
||||||
' If UsaComplementaria Then
|
|
||||||
|
|
||||||
' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimientoNC, importeMovimientoNC, 304, CompraActual.SerieFolio, Concepto, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=-1, CvePersonal:=-1, CveCompraAmortizacion:=CveCompra, TipoCambio:=CompraActual.TC, TipoCambioPago:=Gvr.DataKey("TipoCambio").ToDecimal, ImporteME:=importeMovimientoNC, CveSubProyecto:=CompraActual.CveSubProyecto, CveVenta:=-1) Then
|
|
||||||
' ErrorPrepoliza = True
|
|
||||||
' End If
|
|
||||||
|
|
||||||
' If Not ErrorPrepoliza AndAlso CompraActual.CveMoneda > 1 AndAlso UsaComplementaria Then
|
|
||||||
' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimientoNC, (importeMNNC - importeMovimientoNC).RoundSQL, 201, CompraActual.SerieFolio, Concepto, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=-1, CvePersonal:=-1, CveCompraAmortizacion:=CveCompra, TipoCambio:=CompraActual.TC, TipoCambioPago:=Gvr.DataKey("TipoCambio").ToDecimal, ImporteME:=importeMovimientoNC, CveSubProyecto:=CompraActual.CveSubProyecto, CveVenta:=-1) Then
|
|
||||||
' ErrorPrepoliza = True
|
|
||||||
' End If
|
|
||||||
' End If
|
|
||||||
|
|
||||||
|
|
||||||
' Else
|
|
||||||
' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimientoNC, importeMNNC, 304, CompraActual.SerieFolio, Concepto, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=-1, CvePersonal:=-1, CveCompraAmortizacion:=CveCompra, TipoCambio:=CompraActual.TC, TipoCambioPago:=Gvr.DataKey("TipoCambio").ToDecimal, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoNC), CveSubProyecto:=CompraActual.CveSubProyecto, CveVenta:=-1) Then
|
|
||||||
' ErrorPrepoliza = True
|
|
||||||
' End If
|
|
||||||
' End If
|
|
||||||
|
|
||||||
|
|
||||||
' End If
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
' 'ObjConta.PrePolizaUnificacion(CvePrePoliza, CvePrePolizaTemp)
|
|
||||||
' End If
|
|
||||||
' Next
|
|
||||||
' End If
|
|
||||||
'End If
|
|
||||||
|
|
||||||
End If
|
|
||||||
importeMovimiento = 0
|
importeMovimiento = 0
|
||||||
|
|
||||||
Case 29 'Funcionarios y Empleados
|
Case 29 'Funcionarios y Empleados
|
||||||
@@ -16036,6 +16007,16 @@ Partial Class Compras_Compras
|
|||||||
TxtIEPSModal.Text = ""
|
TxtIEPSModal.Text = ""
|
||||||
TxtDescuentoModal.Text = ""
|
TxtDescuentoModal.Text = ""
|
||||||
|
|
||||||
|
|
||||||
|
TxtCantidad.Enabled = True
|
||||||
|
DdlClasificacion.Enabled = True
|
||||||
|
DdlPS.Enabled = True
|
||||||
|
DdlPS.ddlWS.Disabled = False
|
||||||
|
ddlUM.Enabled = True
|
||||||
|
TxtPrecio.Enabled = True
|
||||||
|
TxtDescuentoModal.Enabled = True
|
||||||
|
DdlIVA.Enabled = True
|
||||||
|
|
||||||
DivAddProductoAliasPS.Visible = False
|
DivAddProductoAliasPS.Visible = False
|
||||||
|
|
||||||
LbAgregar.Text = "Agregar"
|
LbAgregar.Text = "Agregar"
|
||||||
@@ -16047,6 +16028,8 @@ Partial Class Compras_Compras
|
|||||||
|
|
||||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Con = GvRow.DataKey("Consec").ToEntero
|
Con = GvRow.DataKey("Consec").ToEntero
|
||||||
Index = Con
|
Index = Con
|
||||||
|
|
||||||
@@ -16164,8 +16147,33 @@ Partial Class Compras_Compras
|
|||||||
divIVA.Visible = True
|
divIVA.Visible = True
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
If GvInvMov.Rows.Count > 0 AndAlso GvRow.DataKey("CveTipoPS").ToEntero = 2 Then
|
||||||
|
TxtCantidad.Enabled = False
|
||||||
|
DdlClasificacion.Enabled = False
|
||||||
|
DdlPS.Enabled = False
|
||||||
|
DdlPS.ddl.Enabled = False
|
||||||
|
DdlPS.ddlWS.Disabled = True
|
||||||
|
ddlUM.Enabled = False
|
||||||
|
TxtPrecio.Enabled = False
|
||||||
|
TxtDescuentoModal.Enabled = False
|
||||||
|
DdlIVA.Enabled = False
|
||||||
|
Else
|
||||||
|
TxtCantidad.Enabled = True
|
||||||
|
DdlClasificacion.Enabled = True
|
||||||
|
DdlPS.Enabled = True
|
||||||
|
DdlPS.ddlWS.Disabled = False
|
||||||
|
ddlUM.Enabled = True
|
||||||
|
TxtPrecio.Enabled = True
|
||||||
|
TxtDescuentoModal.Enabled = True
|
||||||
|
DdlIVA.Enabled = True
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
UpPSS.Update()
|
UpPSS.Update()
|
||||||
RegistraScript("$('#divAddProducto').modal('show');")
|
RegistraScript("$('#divAddProducto').modal('show');")
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlClasificacion.SelectedIndexChanged
|
Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlClasificacion.SelectedIndexChanged
|
||||||
DdlClasificacionChange()
|
DdlClasificacionChange()
|
||||||
|
|||||||
@@ -2608,6 +2608,10 @@ Partial Class OC_OC
|
|||||||
'VALIDACIONES PARA GUARDAR
|
'VALIDACIONES PARA GUARDAR
|
||||||
If ValidaGuardar() Then Exit Sub
|
If ValidaGuardar() Then Exit Sub
|
||||||
|
|
||||||
|
If UsuarioActual.CveEmpresa.Contiene(119) Then
|
||||||
|
ChkCotizacion.Checked = False
|
||||||
|
End If
|
||||||
|
|
||||||
Dim MsgError As String = "Hubo un error al registrar"
|
Dim MsgError As String = "Hubo un error al registrar"
|
||||||
'VARIABLES
|
'VARIABLES
|
||||||
Dim CveProveedorSucursal As Integer = -1
|
Dim CveProveedorSucursal As Integer = -1
|
||||||
@@ -2666,6 +2670,7 @@ Partial Class OC_OC
|
|||||||
CveProveedorContacto = IIf(DdlProveedorContacto.SelectedValue.ToEntero = 0, "-1", DdlProveedorContacto.SelectedValue).ToString.ToEntero
|
CveProveedorContacto = IIf(DdlProveedorContacto.SelectedValue.ToEntero = 0, "-1", DdlProveedorContacto.SelectedValue).ToString.ToEntero
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
Dim CveOrdenCompraPadre As Integer = -1
|
Dim CveOrdenCompraPadre As Integer = -1
|
||||||
|
|
||||||
If GeneraReq Then
|
If GeneraReq Then
|
||||||
|
|||||||
Reference in New Issue
Block a user