Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git
This commit is contained in:
rakcsle
@@ -2406,7 +2406,7 @@ Public Class ClsContabilidad
|
||||
Public Function AddConta_PlantillasPolizasDetalles(CvePlantillaPoliza As Integer, CveConcepto As Integer, TipoMovto As Integer,
|
||||
IdCtaContable As Integer, Orden As Integer, CveUsuario As Integer, CveEmpresa As Integer,
|
||||
CveSubProyecto As Integer, CveProveedor As Integer, Optional CvePersonal As Integer = -1,
|
||||
Optional PorcentajeImpuesto As Decimal = 0) As Boolean
|
||||
Optional PorcentajeImpuesto As Decimal = 0, Optional CveCuenta As Integer = -1) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
DataAdapter("PA_Conta_PlantillasPolizasDetalleAdd")
|
||||
@@ -2423,6 +2423,7 @@ Public Class ClsContabilidad
|
||||
.Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
|
||||
.Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
|
||||
.Add("@PorcentajeImpuesto", SqlDbType.SmallMoney).Value = PorcentajeImpuesto
|
||||
.Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
|
||||
End With
|
||||
|
||||
Try
|
||||
|
||||
@@ -6,6 +6,7 @@
|
||||
<xs:element minOccurs="0" name="EsCancelable" nillable="true" type="xs:string" />
|
||||
<xs:element minOccurs="0" name="Estado" nillable="true" type="xs:string" />
|
||||
<xs:element minOccurs="0" name="EstatusCancelacion" nillable="true" type="xs:string" />
|
||||
<xs:element minOccurs="0" name="ValidacionEFOS" nillable="true" type="xs:string" />
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
<xs:element name="Acuse" nillable="true" type="tns:Acuse" />
|
||||
|
||||
@@ -702,7 +702,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
|
||||
If Pagina.Contiene("ventas/ventas", "oc/oc", "inv/traspaso") AndAlso CveEmpresa.Contiene(72, 80, 119, 140, 141, 152, 153, 159, 160, 161, 162, 163) Then
|
||||
UsaGlobal = False
|
||||
|
||||
If CveEmpresa = 140 And Pagina.Contiene("ventas/ventas") Then
|
||||
If CveEmpresa.Contiene(140, 141) And Pagina.Contiene("ventas/ventas") Then
|
||||
AplicaParaVenta = 1
|
||||
End If
|
||||
|
||||
|
||||
@@ -4480,8 +4480,8 @@ Partial Class Bancos_IE
|
||||
Else
|
||||
|
||||
' If TxtFechaDocumento.Text.ToDate.Month < TxtFechaCancelacion.Text.ToDate.Month Or TxtFechaDocumento.Text.ToDate.Year < TxtFechaCancelacion.Text.ToDate.Year Then
|
||||
Dim GeneraCancelacionEnCero As Boolean = True
|
||||
If TxtFechaDocumento.Text.ToDate >= TxtFechaCancelacion.Text.ToDate.FirstDayOfMonth Then 'si es del mismo mes, se genra cancelacion en cero
|
||||
Dim GeneraCancelacionEnCero As Boolean = False
|
||||
If TxtFechaCancelacion.Text.ToDate <= TxtFechaDocumento.Text.ToDate.LastDayOfMonth Then 'si es del mismo mes, se genra cancelacion en cero
|
||||
GeneraCancelacionEnCero = True
|
||||
End If
|
||||
|
||||
|
||||
@@ -3748,14 +3748,6 @@
|
||||
<asp:CheckBox runat="server" ID="ChkCreditoMultiple" AutoPostBack="true" Text=" Múltiple Crédito" visible="false" />
|
||||
</div>
|
||||
|
||||
<br />
|
||||
|
||||
<div style="text-align:left;width: 85%;margin-left: 7.5%" runat="server" id="DivReembolsoModal" visible="false">
|
||||
<asp:label runat="server" ID="LblReembolsoModal" Text="Num. Reembolso "/><asp:TextBox ID="TxtRembolsoModal" Width="80px" runat="server"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RfvTxtRembolsoModal" runat="server" ControlToValidate="TxtRembolsoModal" InitialValue="" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Num. Reembolso''</b> es necesario, por favor ingreselo." ValidationGroup="GrpContado"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VceTxtRembolsoModal" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtRembolsoModal" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
|
||||
<br />
|
||||
<div runat="server" id="DivReembolso">
|
||||
<asp:Panel ID="Panel1" CssClass="text-small" runat="server" Width="100%" Visible="true" BorderStyle="Solid" BorderColor="#6A92AD" BorderWidth="2px">
|
||||
@@ -3768,8 +3760,8 @@
|
||||
<div class="row">
|
||||
<div class="col-md-2" style="width: 90%; margin-left: 5%; margin-right: 5%; text-align: left">
|
||||
<asp:TextBox ID="TxtNumeroReembolso" runat="server" Width="100%" />
|
||||
<%-- <asp:RequiredFieldValidator ID="RFVNumeroReembolso" runat="server" ControlToValidate="TxtNumeroReembolso" InitialValue="" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Numero de Reembolsoxx''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCENumeroReembolso" runat="server" HighlightCssClass="vco" TargetControlID="RFVNumeroReembolso" Width="300px"></ajax:ValidatorCalloutExtender>--%>
|
||||
<asp:RequiredFieldValidator ID="RfvTxtNumeroReembolso" runat="server" ControlToValidate="TxtNumeroReembolso" InitialValue="" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Num. Reembolso''</b> es necesario, por favor ingreselo." ValidationGroup="GrpContado"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VceTxtNumeroReembolso" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtNumeroReembolso" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
</div>
|
||||
<br />
|
||||
|
||||
@@ -6841,20 +6841,20 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
End If
|
||||
Case 6
|
||||
PorcentajeImpuesto = TmpDT.MAX("IVAPorcentaje").ToDecimal
|
||||
Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
|
||||
|
||||
For Each RowDetalle As DataRow In TmpDT.FiltraParametros("ISNULL(TipoAF,0) <> 2", "", {"CveClasificacion", "CveSubProyecto"}).Rows
|
||||
For Each RowDetalle As DataRow In TmpDT.FiltraParametros("ISNULL(TipoAF,0) <> 2", "", {"CveClasificacion", "CveSubProyecto", "IVAPorcentaje"}).Rows
|
||||
|
||||
If ObjConta.GetRetCuenta(6, RowDetalle("CveClasificacion").ToString().ToEntero()) Then
|
||||
If ObjConta.DtResultados.Rows.Count > 0 Then
|
||||
IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaGasto").ToString.ToEntero
|
||||
CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaGastoSIG").ToString.ToEntero
|
||||
End If
|
||||
End If
|
||||
|
||||
If importeMN <> 0 Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN, Referencia, 6, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual,
|
||||
CveClasificacion:=RowDetalle("CveClasificacion").ToString().ToEntero(), CveSubProyecto:=RowDetalle("CveSubProyecto").ToString().ToEntero(), Contabilizable:=SeContabiliza) Then
|
||||
CveClasificacion:=RowDetalle("CveClasificacion").ToString().ToEntero(), CveSubProyecto:=RowDetalle("CveSubProyecto").ToString().ToEntero(), Contabilizable:=SeContabiliza, PorcentajeImpuesto:=RowDetalle("IVAPorcentaje").ToString.ToDecimal) Then
|
||||
ErrorPrepoliza = True
|
||||
End If
|
||||
End If
|
||||
@@ -13138,49 +13138,43 @@ Partial Class Compras_Compras
|
||||
PnlContadoBancos.Visible = True
|
||||
TxtDocumentoImporte.Text = (TxtTotal.Text.ToDecimal - LblAmortizacion.Text.ToDecimal).FormatoNumero
|
||||
ChkCreditoMultiple.Visible = False
|
||||
DivReembolsoModal.Visible = False
|
||||
RfvTxtRembolsoModal.Enabled = False
|
||||
TxtRembolsoModal.Text = ""
|
||||
RfvTxtNumeroReembolso.Enabled = False
|
||||
TxtNumeroReembolso.Text = ""
|
||||
TxtRembolsoNumero.Text = ""
|
||||
Case "2" ' F y E
|
||||
PnlContadoFyE.Visible = True
|
||||
CargaFuncionariosEmpleados()
|
||||
ChkCreditoMultiple.Visible = False
|
||||
DivReembolsoModal.Visible = True
|
||||
RfvTxtRembolsoModal.Enabled = True
|
||||
RfvTxtNumeroReembolso.Enabled = True
|
||||
TxtRembolsoNumero.Text = ""
|
||||
TxtRembolsoModal.Text = ""
|
||||
TxtNumeroReembolso.Text = ""
|
||||
Case "3" ' Creditos
|
||||
PnlContadoCreditos.Visible = True
|
||||
ChkCreditoMultiple.Visible = True
|
||||
CargaCreditos()
|
||||
DivReembolsoModal.Visible = False
|
||||
RfvTxtRembolsoModal.Enabled = False
|
||||
TxtRembolsoModal.Text = ""
|
||||
RfvTxtNumeroReembolso.Enabled = False
|
||||
RfvTxtNumeroReembolso.Text = ""
|
||||
TxtRembolsoNumero.Text = ""
|
||||
Case "4" ' Deudores
|
||||
PnlContadoDeudores.Visible = True
|
||||
CargaDeudores()
|
||||
ChkCreditoMultiple.Visible = False
|
||||
DivReembolsoModal.Visible = False
|
||||
RfvTxtRembolsoModal.Enabled = False
|
||||
TxtRembolsoModal.Text = ""
|
||||
RfvTxtNumeroReembolso.Enabled = False
|
||||
TxtNumeroReembolso.Text = ""
|
||||
TxtRembolsoNumero.Text = ""
|
||||
Case "5" ' ACREEDORES
|
||||
PnlContadoAcreedores.Visible = True
|
||||
ChkCreditoMultiple.Visible = True
|
||||
CargaAcreedores()
|
||||
DivReembolsoModal.Visible = False
|
||||
RfvTxtRembolsoModal.Enabled = False
|
||||
TxtRembolsoModal.Text = ""
|
||||
RfvTxtNumeroReembolso.Enabled = False
|
||||
TxtNumeroReembolso.Text = ""
|
||||
TxtRembolsoNumero.Text = ""
|
||||
Case "6" ' Caja Chica
|
||||
PnlContadoCajaChica.Visible = True
|
||||
TxtDocumentoImporteCaja.Text = (TxtTotal.Text.ToDecimal - LblAmortizacion.Text.ToDecimal).FormatoNumero
|
||||
ChkCreditoMultiple.Visible = False
|
||||
DivReembolsoModal.Visible = True
|
||||
RfvTxtRembolsoModal.Enabled = True
|
||||
TxtRembolsoModal.Text = ""
|
||||
RfvTxtNumeroReembolso.Enabled = True
|
||||
TxtNumeroReembolso.Text = ""
|
||||
TxtRembolsoNumero.Text = ""
|
||||
End Select
|
||||
|
||||
@@ -13188,7 +13182,7 @@ Partial Class Compras_Compras
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnContado_Click(sender As Object, e As EventArgs)
|
||||
TxtRembolsoNumero.Text = TxtRembolsoModal.Text
|
||||
TxtRembolsoNumero.Text = TxtNumeroReembolso.Text
|
||||
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivContadoModal"))
|
||||
End Sub
|
||||
|
||||
@@ -19683,8 +19677,8 @@ Partial Class Compras_Compras
|
||||
Dim Multiplicador = If(DdlTipoComprobante.SelectedValue = "NC", -1, 1)
|
||||
|
||||
If DdlMoneda.SelectedValue.ToString.ToEntero = 2 Then
|
||||
tipoCambioActual = GlobalTipoCambio(TxtFecha.Text.ToDate).ToString.ToDecimal
|
||||
tipoCambioActual = If(DivTC.Visible, TipoCambio.ToDecimal, tipoCambioActual)
|
||||
'tipoCambioActual = GlobalTipoCambio(TxtFecha.Text.ToDate).ToString.ToDecimal
|
||||
tipoCambioActual = TxtTC.Text.ToDecimal
|
||||
Else
|
||||
tipoCambioActual = 1
|
||||
End If
|
||||
|
||||
@@ -176,7 +176,7 @@
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Cuenta Contable">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlCtaContable" runat="server" Text='<%# Eval("IdCtaContable", "{0}") %>'>></asp:Literal>
|
||||
<asp:Literal ID="LtlCtaContable" runat="server" Text='<%# Eval("NombreCuenta", "{0}") %>'>></asp:Literal>
|
||||
</ItemTemplate>
|
||||
|
||||
</asp:TemplateField>
|
||||
@@ -269,6 +269,8 @@
|
||||
<asp:Label ID="LblCuenta" runat="server" Text=""></asp:Label>
|
||||
<asp:DropDownList ID="DdlCtaContable" CssClass="form-control input-sm select2me js-cuenta-programmatic" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="240px" ValidationGroup="GrpAgregar"></asp:DropDownList>
|
||||
<label for="<%= DdlCtaContable.ClientID.ToString()%>">Cuenta Contable:</label>
|
||||
<asp:DropDownList ID="DdlCuentas" CssClass="form-control input-sm select2me js-cuenta-programmatic" runat="server" Visible="false" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="CveCuenta" Width="240px" ValidationGroup="GrpAgregar"></asp:DropDownList>
|
||||
<label for="<%= DdlCtaContable.ClientID.ToString()%>">Cuenta Contable:</label>
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
|
||||
@@ -138,9 +138,32 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
|
||||
|
||||
Private Sub CargaCuenta()
|
||||
DdlCtaContable.Items.Clear()
|
||||
|
||||
DdlCtaContable.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
|
||||
If UsuarioActual.Empresa.TipoContabilizacion = 2 Then
|
||||
Dim Conta As New ClsContabilidad
|
||||
Dim dtt As New DataTable
|
||||
|
||||
If Conta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
|
||||
dtt = Conta.DtResultados
|
||||
End If
|
||||
|
||||
Conta.Dispose()
|
||||
|
||||
DdlCuentas.Items.Clear()
|
||||
DdlCuentas.DataSource = dtt
|
||||
DdlCuentas.DataBind()
|
||||
DdlCuentas.Visible = True
|
||||
DdlCtaContable.Visible = False
|
||||
Else
|
||||
|
||||
DdlCtaContable.DataSource = DTCuentasContables
|
||||
DdlCtaContable.DataBind()
|
||||
DdlCtaContable.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
End If
|
||||
|
||||
|
||||
DdlCuentas.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
End Sub
|
||||
|
||||
Private Sub CargarConcepto()
|
||||
@@ -229,7 +252,8 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
|
||||
|
||||
If HdnModalidad.Value = "I" Then
|
||||
If CvePlantillaPoliza > 0 Then
|
||||
If ObjPlantillaPolizaDetalle.AddConta_PlantillasPolizasDetalles(CvePlantillaPoliza, DdlConcepto.SelectedValue.ToEntero, DdlTipoMovimiento.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.ToEntero, TxtOrden.Text.Trim.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DDLSubProyecto.SelectedValue.ToEntero, DDLProveedor.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero, DdlPorcentajeImpuesto.SelectedValue.ToDecimal) Then
|
||||
If ObjPlantillaPolizaDetalle.AddConta_PlantillasPolizasDetalles(CvePlantillaPoliza, DdlConcepto.SelectedValue.ToEntero, DdlTipoMovimiento.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.ToEntero, TxtOrden.Text.Trim.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DDLSubProyecto.SelectedValue.ToEntero, DDLProveedor.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero, DdlPorcentajeImpuesto.SelectedValue.ToDecimal,
|
||||
CveCuenta:=DdlCuentas.SelectedValue.ToEntero) Then
|
||||
TxtOrden.Text = ""
|
||||
If Not ChkSeguirAgregando.Checked Then
|
||||
updatatos()
|
||||
|
||||
@@ -303,7 +303,7 @@
|
||||
</table>
|
||||
|
||||
<div style="width: 100%; min-height: 200px; overflow-scrolling: auto;">
|
||||
<asp:GridView ID="GvMov" runat="server" AutoGenerateColumns="False" ShowHeader="False" DataKeyNames="IdMov,IDCuenta,Cargo,Abono,TipoMovto,CveConcepto,CveProveedor,CvePersonal, CveCompra,CveClasificacion,CveCliente,CveVenta,TC,CveOC,PorcentajeImpuesto" Width="100%" CssClass=" GvMov GvSize table table-striped table-advance table-hover mysmallbtn" GridLines="None">
|
||||
<asp:GridView ID="GvMov" runat="server" AutoGenerateColumns="False" ShowHeader="False" DataKeyNames="IdMov,IDCuenta,Cargo,Abono,TipoMovto,CveConcepto,CveProveedor,CvePersonal, CveCompra,CveClasificacion,CveCliente,CveVenta,TC,CveOC,PorcentajeImpuesto,CveCuenta" Width="100%" CssClass=" GvMov GvSize table table-striped table-advance table-hover mysmallbtn" GridLines="None">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Cuenta</HeaderTemplate>
|
||||
|
||||
@@ -322,6 +322,7 @@ Partial Class ContabilidadC_RegPrePoliza
|
||||
.Add("ConceptoContable", Type.GetType("System.String"))
|
||||
.Add("TC", Type.GetType("System.Decimal"))
|
||||
.Add("PorcentajeImpuesto", Type.GetType("System.Decimal"))
|
||||
.Add("CveCuenta", Type.GetType("System.Int32"))
|
||||
End With
|
||||
End Sub
|
||||
|
||||
@@ -717,13 +718,18 @@ Partial Class ContabilidadC_RegPrePoliza
|
||||
CodigoCuenta = drr("CuentaFormato").ToString()
|
||||
NombreCuenta = drr("Nombre").ToString()
|
||||
'Cuenta = drr("Nombre").ToString()
|
||||
NombreCuenta = CodigoCuenta & "<br>" & NombreCuenta
|
||||
End If
|
||||
EsComodin = 0
|
||||
End If
|
||||
|
||||
If drt("CveCuenta").ToString.ToEntero > 0 Then
|
||||
NombreCuenta = String.Format("{0}<br>{1}", drt("Codigo"), drt("Nombre"))
|
||||
End If
|
||||
|
||||
Dim dr As DataRow = DtMovimientos.NewRow
|
||||
dr("IdCuenta") = IdCuenta
|
||||
dr("CodigoCuenta") = CodigoCuenta & "<br>" & NombreCuenta
|
||||
dr("CodigoCuenta") = NombreCuenta
|
||||
dr("Cuenta") = Cuenta 'TxtCuentaContable.Text
|
||||
dr("Referencia") = If(drt("CveConcepto").ToString.Contiene("29", "130"), drt("Personal"), drt("RazonSocial"))
|
||||
dr("Concepto") = TxtObservaciones.Text
|
||||
@@ -738,6 +744,7 @@ Partial Class ContabilidadC_RegPrePoliza
|
||||
dr("CveClasificacion") = -1
|
||||
dr("MultipleSubProyecto") = drt("MultipleSubProyecto")
|
||||
dr("PorcentajeImpuesto") = drt("PorcentajeImpuesto")
|
||||
dr("CveCuenta") = drt("CveCuenta")
|
||||
DtMovimientos.Rows.Add(dr)
|
||||
Next
|
||||
|
||||
@@ -946,7 +953,7 @@ Partial Class ContabilidadC_RegPrePoliza
|
||||
ImporteMX:=Importe, CveTipoGasto:=gvr.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero,
|
||||
CveCliente:=gvr.DataKey("CveCliente").ToEntero, CveVenta:=gvr.DataKey("CveVenta").ToEntero, TipoCambio:=If(gvr.DataKey("TC").ToString.ToDecimal > 0, gvr.DataKey("TC").ToString.ToDecimal, 1),
|
||||
ImporteME:=If(gvr.DataKey("TC").ToString.ToDecimal > 0, (Importe / (gvr.DataKey("TC").ToString.ToDecimal - 1)).RoundSQL, 0),
|
||||
PorcentajeImpuesto:=gvr.DataKey("PorcentajeImpuesto").ToDecimal) Then
|
||||
PorcentajeImpuesto:=gvr.DataKey("PorcentajeImpuesto").ToDecimal, CveCuenta:=gvr.DataKey("CveCuenta").ToEntero) Then
|
||||
Else
|
||||
MsgError = "No se pudo insertar el detalle de la póliza2"
|
||||
Exit For
|
||||
|
||||
@@ -494,8 +494,8 @@
|
||||
<div class="col-md-2">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtPoliza" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
|
||||
<%--<asp:RequiredFieldValidator ID="RFVPoliza" runat="server" ControlToValidate="TxtPoliza" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Poliza''</b> es necesario, por favor ingréselo." ValidationGroup="VGMAjuste"></asp:RequiredFieldValidator>--%>
|
||||
<%--<ajax:ValidatorCalloutExtender ID="VCEPoliza" runat="server" HighlightCssClass="vco" TargetControlID="RFVPoliza"></ajax:ValidatorCalloutExtender>--%>
|
||||
<asp:RequiredFieldValidator ID="RFVPoliza" runat="server" ControlToValidate="TxtPoliza" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Poliza''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAjuste"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCEPoliza" runat="server" HighlightCssClass="vco" TargetControlID="RFVPoliza"></ajax:ValidatorCalloutExtender>
|
||||
<label for="<%= TxtPoliza.ClientID.ToString()%>">Poliza:</label>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
@@ -1113,7 +1113,12 @@ Partial Class Inventarios_RecepcionUsados
|
||||
FolioInv = Resp.FolioUsado
|
||||
Else
|
||||
|
||||
CveMovimiento = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, CveConcepto, 1, Fecha, tFolio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta,
|
||||
Dim tCveConcepto As Integer = CveConcepto
|
||||
If RblUsadosAjuste.SelectedValue = "1" Then 'cuando es garantia, el concepto es de entrada
|
||||
tCveConcepto = 2
|
||||
End If
|
||||
|
||||
CveMovimiento = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, tCveConcepto, 1, Fecha, tFolio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta,
|
||||
CveSubProyecto, ActivoFijo, Guia:=TxtGuia.Text, Observaciones:=TxtObservaciones.Text, CvePersonal:=DdlPersonal.SelectedValue.ToEntero,
|
||||
Recibio:=TxtResponsable.Text.Trim, CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, DepartamentoEntrega:=TxtDepartamentoEntrega.Text,
|
||||
PedidoContrato:=TxtPedidoContrato.Text, CveProveedor:=tCveProveedor, Modulo:="RU/G")
|
||||
|
||||
@@ -1146,7 +1146,7 @@ Partial Class ProductosyServicios
|
||||
End Sub
|
||||
Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
|
||||
|
||||
If DdlSATPS.SelectedValue = "46920" Then
|
||||
If DdlSATPS.SelectedValue.Contiene("46920", "0", "-1") AndAlso UsuarioActual.CveEmpresa.Contiene(119, 158, 72, 80, 145) Then
|
||||
Alert("El Producto Servicio SAT con clave '01010101' no es valido, por favor seleccione otro", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
End If
|
||||
@@ -1159,13 +1159,13 @@ Partial Class ProductosyServicios
|
||||
Dim CveClasificacion2 As Integer = DdlClasificacion2.SelectedValue.ToEntero
|
||||
|
||||
If (TxtCodigo.Text = TxtCodigoBarras.Text AndAlso TxtCodigo.Text <> "") Then
|
||||
Alert("Los codigos no pueden ser iguales. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
|
||||
Alert("Los códigos no pueden ser iguales. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
|
||||
Return
|
||||
End If
|
||||
|
||||
If ddlMetodos.SelectedValue = "5" Or ChkSerie.Checked Then
|
||||
If Not (ddlMetodos.SelectedValue = "5" And ChkSerie.Checked) Then
|
||||
Dim Mensaje As String = If(ddlMetodos.SelectedValue = "5", "Si el método de salida del inventario es 'SerieLote' el producto debe poder aplicar serie", "Si el produco aplica serie el método de inventario debe ser 'SerieLote'")
|
||||
Dim Mensaje As String = If(ddlMetodos.SelectedValue = "5", "Si el método de salida del inventario es 'Serie' el producto debe poder aplicar serie", "Si el produco aplica serie el método de inventario debe ser 'SerieLote'")
|
||||
Alert(Mensaje)
|
||||
Exit Sub
|
||||
End If
|
||||
@@ -1176,12 +1176,12 @@ Partial Class ProductosyServicios
|
||||
'End If
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(265) = "1" And TxtCodigo.Text = "" Then
|
||||
Alert("El codigo es requerido.", TipoMensaje.MsgAdvertencia)
|
||||
Alert("El código es requerido.", TipoMensaje.MsgAdvertencia)
|
||||
Return
|
||||
End If
|
||||
|
||||
If TxtCodigo.Text <> "" AndAlso Not TxtCodigo.Text.Length >= 3 Then
|
||||
Alert("El codigo tiene que que tener una longitud de al menos 3 digitos.", TipoMensaje.MsgAdvertencia)
|
||||
Alert("El código tiene que que tener una longitud de al menos 3 digitos.", TipoMensaje.MsgAdvertencia)
|
||||
Return
|
||||
End If
|
||||
|
||||
@@ -1450,7 +1450,7 @@ Partial Class ProductosyServicios
|
||||
Dim ObjAliasDelete As New ClsProductosServicios
|
||||
Dim TieneError = False
|
||||
|
||||
If ObjAliasDelete.RemovePSAlias(GVAlias.Rows(e.RowIndex).DataKey("CvePS").ToString.ToEntero, GVAlias.Rows(e.RowIndex).DataKey("PSAlias").ToString, -1) Then
|
||||
If ObjAliasDelete.RemovePSAlias(GVAlias.Rows(e.RowIndex).DataKey("CvePS").ToString.ToEntero, GVAlias.Rows(e.RowIndex).DataKey("PSAlias").ToString, UsuarioActual.CveUsuario) Then
|
||||
GVAlias.EditIndex = -1
|
||||
CargarAlias()
|
||||
UPGVAlias.Update()
|
||||
|
||||
@@ -84,7 +84,7 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
|
||||
string Folio = GvRow.DataKey("Folio");
|
||||
string TipoDocto = GvRow.DataKey("TipoDocto");
|
||||
string Nombre = GvRow.DataKey("Nombre");
|
||||
if (CveVenta > 0)
|
||||
if (CveVenta > 0 && Uuid != "")
|
||||
{
|
||||
var resp = VerificarVigenciaSAT(CveVenta, CveCliente, Folio, TipoDocto, Uuid, UsuarioActual.Empresa.RFC, RFCCliente, Total);
|
||||
if (resp.EnviarAcuse)
|
||||
@@ -116,7 +116,8 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
|
||||
string TipoDocto = GvRow.DataKey("TipoDocto");
|
||||
string Nombre = GvRow.DataKey("Nombre");
|
||||
|
||||
if (CveVenta > 0)
|
||||
|
||||
if (CveVenta > 0 && Uuid != "")
|
||||
{
|
||||
var respuesta = VerificarVigenciaSAT(CveVenta, CveCliente, Folio, TipoDocto, Uuid, UsuarioActual.Empresa.RFC, RFCCliente, Total, true);
|
||||
CargaDatos();
|
||||
|
||||
@@ -2582,7 +2582,7 @@ Partial Class Ventas
|
||||
'DdlEstatus.SelectedValueExist("2")
|
||||
|
||||
ConfiguraTipoDocto()
|
||||
CargaFolios()
|
||||
|
||||
|
||||
BtnEmitirImprimir.Text = "Facturar"
|
||||
BtnEmitirImprimir.Visible = True
|
||||
@@ -2615,6 +2615,7 @@ Partial Class Ventas
|
||||
End If
|
||||
|
||||
If Not ExFolioFactura Then SetPermisos()
|
||||
If CveVenta < 1 Then CargaFolios()
|
||||
|
||||
'SELECCIONA VENDEDOR DEL USUARIO CUANDO SEA VENTA NUEVA Y SIN CLIENTE
|
||||
If UsuarioActual.CveVendedor > 0 Then
|
||||
@@ -4819,7 +4820,8 @@ Partial Class Ventas
|
||||
Else
|
||||
BtnGenerarRemision.Visible = False
|
||||
End If
|
||||
BtnsFacturar.Visible = True
|
||||
If UsuarioActual.TienePermisoProceso(60) Then BtnsFacturar.Visible = True 'puede facturar
|
||||
|
||||
LBFacturarAnticipo.Visible = UsuarioActual.TienePermisoProceso(274)
|
||||
End If
|
||||
End If
|
||||
@@ -5895,7 +5897,7 @@ Partial Class Ventas
|
||||
LnkCotizaciones.Visible = False
|
||||
End If
|
||||
UPCondicionesPago.Update()
|
||||
ElseIf UsuarioActual.CveEmpresa.Contiene(72, 80, 146, 119) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot", "PA") AndAlso CveVenta < 1 Then
|
||||
ElseIf UsuarioActual.CveEmpresa.Contiene(72, 80, 146, 119, 158, 140) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot", "PA") AndAlso CveVenta < 1 Then
|
||||
RBLPago.SelectedValue = "1"
|
||||
RBLPago_SelectedIndexChanged(Nothing, Nothing)
|
||||
UPCondicionesPago.Update()
|
||||
@@ -5958,7 +5960,7 @@ Partial Class Ventas
|
||||
End If
|
||||
Else
|
||||
|
||||
If UsuarioActual.CveEmpresa = 119 AndAlso Not UsuarioActual.TienePermisoProceso(268) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ing", "Ant", "PA") Then
|
||||
If UsuarioActual.CveEmpresa.Contiene(119) AndAlso Not UsuarioActual.TienePermisoProceso(268) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ing", "Ant", "PA") Then
|
||||
Dim Vta As New ClsVentas
|
||||
Dim Opcion As Integer = Vta.ObtenerClienteLimitesVenta(CveCliente, UsuarioActual.CveEmpresa)
|
||||
Dim OpcionMsg As String = String.Format("El Cliente se encuentra bloqueado por la siguiente razón: <br> <br> {0}", Vta.SerieVenta)
|
||||
@@ -5990,6 +5992,9 @@ Partial Class Ventas
|
||||
LnkPedido2SinFacturar.Visible = False
|
||||
LnkCotizaciones.Visible = False
|
||||
LnkOCs.Visible = False
|
||||
|
||||
Else
|
||||
If Alertas AndAlso UsuarioActual.Empresa.Funcionalidad(518) = "1" Then Alert("El cliente tiene su límite de crédito agotado.", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
End If
|
||||
UPPCreditoDisponible.Update()
|
||||
@@ -12848,23 +12853,23 @@ Partial Class Ventas
|
||||
|
||||
'Concepto = String.Format("{0} - {1}", Row2("Clasificacion").ToString(), Row2("SubProyecto").ToString())
|
||||
IdCtaContable = GlobalDTClasificaciones(factura.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero()
|
||||
CveCuenta = GlobalDTClasificaciones(factura.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero()
|
||||
If ValorInventario <> 0 Then
|
||||
' CveCuenta = GlobalDTClasificaciones(factura.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero()
|
||||
'If ValorInventario <> 0 Then
|
||||
|
||||
If Not ObjConta.AddPrePolizasDetalle(factura.CvePrePoliza, TipoMovto69, ValorInventario, factura.SerieFolio, 69, factura.SerieFolio, factura.Fecha, IdCtaContable, -1, CveVenta:=factura.CveVenta, CveCliente:=factura.CveCliente, CveSubProyecto:=factura.CveSubProyecto, CveClasificacion:=RowInv("CveClasificacion").ToString().ToEntero(), CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=ValorInventario, CveCuenta:=CveCuenta) Then
|
||||
OcurrioError = True
|
||||
End If
|
||||
End If
|
||||
'End If
|
||||
cont += 1
|
||||
Next
|
||||
End If
|
||||
IdCtaContable = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", CveAlmacen)).ToEntero()
|
||||
|
||||
If TotalCosto <> 0 Then
|
||||
'If TotalCosto <> 0 Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(factura.CvePrePoliza, TipoMovto68, TotalCosto, factura.SerieFolio, 68, factura.SerieFolio, factura.Fecha, IdCtaContable, -1, CveVenta:=factura.CveVenta, CveCliente:=factura.CveCliente, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=TotalCosto, CveCuenta:=CveCuenta, CveSubProyecto:=factura.CveSubProyecto) Then
|
||||
OcurrioError = True
|
||||
End If
|
||||
End If
|
||||
'End If
|
||||
|
||||
Else
|
||||
OcurrioError = True
|
||||
@@ -15477,7 +15482,7 @@ Partial Class Ventas
|
||||
UpnTools.Update()
|
||||
tdTelefonoGen.Visible = False
|
||||
tdTxtTelefonoGen.Visible = False
|
||||
If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122, 145) Then
|
||||
If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122, 145, 140) Then
|
||||
ChkEnviarFactura.Checked = False
|
||||
End If
|
||||
|
||||
@@ -15870,13 +15875,13 @@ Partial Class Ventas
|
||||
If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count > 0 AndAlso (Not CveVenta > 0 Or EsCreaApartirDe Or CveDevolucion > 0) Then RecalculaIVA()
|
||||
'ViewState("SubProyectoPorcentajeIVA") = dr("IVA")
|
||||
ViewState("TipoFormato") = dr("TipoFormato")
|
||||
ViewState("Serie") = dr("Serie")
|
||||
'ViewState("Serie") = dr("Serie")
|
||||
|
||||
If UsuarioActual.CveEmpresa = 140 AndAlso Me.CveVenta > 0 AndAlso Not EsCreaApartirDe AndAlso Not String.IsNullOrEmpty(SerieVenta) Then
|
||||
LblSerie.Text = SerieVenta
|
||||
Else
|
||||
LblSerie.Text = dr("Serie").ToString()
|
||||
End If
|
||||
'If UsuarioActual.CveEmpresa = 140 AndAlso Me.CveVenta > 0 AndAlso Not EsCreaApartirDe AndAlso Not String.IsNullOrEmpty(SerieVenta) Then
|
||||
' LblSerie.Text = SerieVenta
|
||||
'Else
|
||||
' LblSerie.Text = dr("Serie").ToString()
|
||||
'End If
|
||||
|
||||
If SerieXML <> "" Then LblSerie.Text = SerieXML
|
||||
Dim CveSubProyecto As Integer = GetSubProyectoSucursal()
|
||||
@@ -24909,7 +24914,14 @@ Partial Class Ventas
|
||||
|
||||
Dim Cantidad As Decimal = RowUsado("Cantidad").ToString().ToDecimal()
|
||||
|
||||
Dim Obs = RowUsado("CodigoPS").ToString()
|
||||
Dim CvePSCargo As Integer = RowUsado("CvePS").ToString().ToEntero()
|
||||
Dim Obs = ""
|
||||
'SI ES ACUMULADOR LAS OBSERVACIOENS DEBEN SER EL NOMBRE DEL ACUMULADOR
|
||||
If GlobalDTAcumTamaños().FiltroPrimero($"CvePSCargo = {CvePSCargo}") IsNot Nothing Then
|
||||
Obs = RowUsado("CodigoPS").ToString()
|
||||
Else
|
||||
Obs = RowUsado("Obs").ToString()
|
||||
End If
|
||||
|
||||
If Not String.IsNullOrEmpty(TxtNCObservaciones.Text.Trim()) Then
|
||||
Obs = String.Format("{0} - {1}", Obs, TxtNCObservaciones.Text.Trim())
|
||||
@@ -24986,7 +24998,14 @@ Partial Class Ventas
|
||||
|
||||
Dim Cantidad As Decimal = RowUsado("Cantidad").ToString().ToDecimal()
|
||||
|
||||
Dim Obs = RowUsado("CodigoPS").ToString()
|
||||
Dim CvePSCargo As Integer = RowUsado("CvePS").ToString().ToEntero()
|
||||
Dim Obs = ""
|
||||
'SI ES ACUMULADOR LAS OBSERVACIOENS DEBEN SER EL NOMBRE DEL ACUMULADOR
|
||||
If GlobalDTAcumTamaños().FiltroPrimero($"CvePSCargo = {CvePSCargo}") IsNot Nothing Then
|
||||
Obs = RowUsado("CodigoPS").ToString()
|
||||
Else
|
||||
Obs = RowUsado("Obs").ToString()
|
||||
End If
|
||||
|
||||
If Not String.IsNullOrEmpty(TxtNCObservaciones.Text.Trim()) Then
|
||||
Obs = String.Format("{0} - {1}", Obs, TxtNCObservaciones.Text.Trim())
|
||||
|
||||
Reference in New Issue
Block a user