Ajusrtes AF, Porcentaje OC

This commit is contained in:
rakcsle
2022-04-04 10:52:22 -07:00
parent 2b6daa08cd
commit a150e56d70
11 changed files with 836 additions and 181 deletions

View File

@@ -267,11 +267,11 @@
<ajax:MaskedEditExtender ID="METxtFechaBaja" runat="server" TargetControlID="TxtFechaBaja" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left" BehaviorID="_content_MEEFecha" Century="2000" CultureAMPMPlaceholder="" CultureCurrencySymbolPlaceholder="" CultureDateFormat="" CultureDatePlaceholder="" CultureDecimalPlaceholder="" CultureThousandsPlaceholder="" CultureTimePlaceholder=""></ajax:MaskedEditExtender>
<ajax:CalendarExtender ID="CETxtFechaBaja" runat="server" TargetControlID="TxtFechaBaja" PopupButtonID="LnkTxtFechaBaja" PopupPosition="BottomRight" BehaviorID="_content_Calendario"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="RfvTxtFechaBaja" runat="server" ControlToValidate="TxtFechaBaja" Display="None" ErrorMessage="El campo <b>''Fecha''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<%-- <asp:RequiredFieldValidator ID="RfvTxtFechaBaja" runat="server" ControlToValidate="TxtFechaBaja" Display="None" ErrorMessage="El campo <b>''Fecha''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="CVTxtFechaBaja" runat="server" ControlToValidate="TxtFechaBaja" Display="None" ErrorMessage="El campo <b>''Fecha''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender32" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtFechaBaja" Width="350px" BehaviorID="_content_VCOFechaCompra1"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender33" runat="server" HighlightCssClass="vco" TargetControlID="CVTxtFechaBaja" Width="350px" BehaviorID="_content_VCOFechaCompra2"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender33" runat="server" HighlightCssClass="vco" TargetControlID="CVTxtFechaBaja" Width="350px" BehaviorID="_content_VCOFechaCompra2"></ajax:ValidatorCalloutExtender>--%>
<i></i>
</div>
</div>

File diff suppressed because it is too large Load Diff

View File

@@ -92,9 +92,9 @@
<asp:HyperLinkField HeaderText="Fecha" DataTextField="Fecha" Target="_blank" ItemStyle-Width="10%" ItemStyle-CssClass="Texto" DataTextFormatString="{0:d}" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
<asp:HyperLinkField HeaderText="Sucursal" DataTextField="SubProyecto" Target="_blank" ItemStyle-Width="20%" ItemStyle-CssClass="Texto Izquierda" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
<asp:TemplateField HeaderText="Cantidad">
<asp:TemplateField HeaderText="Cantidad" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:LinkButton ID="LnkCantidad" CommandName="Mostrar" OnCommand="CargarVentasGrupo" Text='<%# Eval("Total", "{0:N0}") %>' runat="server" />
<asp:LinkButton ID="LnkCantidad" CommandName="Mostrar" OnCommand="CargarVentasGrupo" Text='<%# Eval("Total", "{0:#####}") %>' runat="server" />
</ItemTemplate>
</asp:TemplateField>

View File

@@ -67,9 +67,13 @@ Partial Class Acumuladores_RepEntradasUsadosClientes
If e.Row.DBCampo("EsHeader").ToString = "-1" Or e.Row.DBCampo("Codigo").ToString = "" And e.Row.DataKey("CveVenta").ToString.ToEntero = 0 Then
e.Row.CssClass = "SubTotales2"
End If
End If
If e.Row.DataKey("CvePS").ToString.ToEntero > 0 And e.Row.DataKey("CveVenta").ToString.ToEntero = 0 Then
e.Row.CssClass = "SubTotales"
End If
If e.Row.DataKey("CveVenta").ToString.ToEntero > 0 Then
e.Row.Cells(1).Text = $"<a class='Texto' href='/Ventas/Ventas.aspx?CveVenta={e.Row.DataKey("CveVenta")}' Target='_blank' >{e.Row.DataKey("SerieFolio")}</a>"
Else
@@ -80,7 +84,7 @@ Partial Class Acumuladores_RepEntradasUsadosClientes
End If
If e.Row.DataKey("EsDistribuidor") <> "" Then
e.Row.Cells(5).Text = $"<a class='Texto' href='/Ventas/Ventas.aspx?CveVenta={e.Row.DataKey("CveVenta")}' Target='_blank' >{e.Row.DataKey("Total").ToDecimal.ToString("###,###,###.00")}</a>"
e.Row.Cells(5).Text = $"<a class='Texto' href='/Ventas/Ventas.aspx?CveVenta={e.Row.DataKey("CveVenta")}' Target='_blank' >{e.Row.DataKey("Total").ToDecimal.ToString("#########")}</a>"
End If

View File

@@ -1665,7 +1665,7 @@ Public Class ClsClientes
End Function
Public Function AgregarClienteNoFrecuente(Nombre As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Localidad As String, Ciudad As String, CveEstado As Integer,
RFC As String, CP As String, Telefono As String, Mail As String, CveSubProyecto As Integer, CveUsuario As Integer, CveEmpresa As Integer,
NumCuentaPago As String, CveMetodoPago33 As Integer, CveFormaPago33 As Integer, Optional CvePrecioLista As Integer = -1) As Boolean
NumCuentaPago As String, CveMetodoPago33 As Integer, CveFormaPago33 As Integer, Optional CvePrecioLista As Integer = -1, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_ClientesNoFrecuenteAdd")
@@ -1690,6 +1690,8 @@ Public Class ClsClientes
.Add("@CveFormaPago33", SqlDbType.Int).Value = CveFormaPago33
.Add("@NumCuentaPago", SqlDbType.VarChar).Value = NumCuentaPago
.Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista
.Add("@CvePrecioLista", SqlDbType.VarChar).Value = RegimenSociedad
.Add("@TipoPersona", SqlDbType.Bit).Value = TipoPersona
End With

View File

@@ -33,6 +33,10 @@
<DataField>CveVenta</DataField>
<rd:TypeName>System.Int</rd:TypeName>
</Field>
<Field Name="CvePS">
<DataField>CvePS</DataField>
<rd:TypeName>System.Int</rd:TypeName>
</Field>
<Field Name="Folio">
<DataField>Folio</DataField>
<rd:TypeName>System.String</rd:TypeName>
@@ -125,10 +129,10 @@
<rd:DefaultName>Codigo</rd:DefaultName>
<Style>
<Border>
<Color>White</Color>
<Color>=IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "" or (Fields!CvePS.Value &gt; 0 and IsNothing(Fields!CveVenta.Value) ),"LightGrey","White")</Color>
<Style>Solid</Style>
</Border>
<BackgroundColor>=IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "","LightGrey","Transparent")</BackgroundColor>
<BackgroundColor>=IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "" or (Fields!CvePS.Value &gt; 0 and IsNothing(Fields!CveVenta.Value) ),"LightGrey","Transparent")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
@@ -161,10 +165,10 @@
<rd:DefaultName>Codigo_Clientes</rd:DefaultName>
<Style>
<Border>
<Color>White</Color>
<Color>=IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "" or (Fields!CvePS.Value &gt; 0 and IsNothing(Fields!CveVenta.Value) ),"LightGrey","White")</Color>
<Style>Solid</Style>
</Border>
<BackgroundColor>=IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "","LightGrey","Transparent")</BackgroundColor>
<BackgroundColor>=IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "" or (Fields!CvePS.Value &gt; 0 and IsNothing(Fields!CveVenta.Value) ),"LightGrey","Transparent")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
@@ -197,10 +201,10 @@
<rd:DefaultName>Folio</rd:DefaultName>
<Style>
<Border>
<Color>White</Color>
<Color>=IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "" or (Fields!CvePS.Value &gt; 0 and IsNothing(Fields!CveVenta.Value) ),"LightGrey","White")</Color>
<Style>Solid</Style>
</Border>
<BackgroundColor>=IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "","LightGrey","Transparent")</BackgroundColor>
<BackgroundColor>=IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "" or (Fields!CvePS.Value &gt; 0 and IsNothing(Fields!CveVenta.Value) ),"LightGrey","Transparent")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
@@ -234,10 +238,10 @@
<rd:DefaultName>Fecha</rd:DefaultName>
<Style>
<Border>
<Color>White</Color>
<Color>=IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "" or (Fields!CvePS.Value &gt; 0 and IsNothing(Fields!CveVenta.Value) ),"LightGrey","White")</Color>
<Style>Solid</Style>
</Border>
<BackgroundColor>=IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "","LightGrey","Transparent")</BackgroundColor>
<BackgroundColor>=IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "" or (Fields!CvePS.Value &gt; 0 and IsNothing(Fields!CveVenta.Value) ),"LightGrey","Transparent")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
@@ -270,10 +274,10 @@
<rd:DefaultName>SubProyecto</rd:DefaultName>
<Style>
<Border>
<Color>White</Color>
<Color>=IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "" or (Fields!CvePS.Value &gt; 0 and IsNothing(Fields!CveVenta.Value) ),"LightGrey","White")</Color>
<Style>Solid</Style>
</Border>
<BackgroundColor>=IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "","LightGrey","Transparent")</BackgroundColor>
<BackgroundColor>=IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "" or (Fields!CvePS.Value &gt; 0 and IsNothing(Fields!CveVenta.Value) ),"LightGrey","Transparent")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
@@ -307,10 +311,10 @@
<rd:DefaultName>Cantidad</rd:DefaultName>
<Style>
<Border>
<Color>White</Color>
<Color>=IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "" or (Fields!CvePS.Value &gt; 0 and IsNothing(Fields!CveVenta.Value) ),"LightGrey","White")</Color>
<Style>Solid</Style>
</Border>
<BackgroundColor>=IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "","LightGrey","Transparent")</BackgroundColor>
<BackgroundColor>=IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "" or (Fields!CvePS.Value &gt; 0 and IsNothing(Fields!CveVenta.Value) ),"LightGrey","Transparent")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
@@ -344,10 +348,10 @@
<rd:DefaultName>TotalImporte</rd:DefaultName>
<Style>
<Border>
<Color>White</Color>
<Color>=IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "" or (Fields!CvePS.Value &gt; 0 and IsNothing(Fields!CveVenta.Value) ),"LightGrey","White")</Color>
<Style>Solid</Style>
</Border>
<BackgroundColor>=IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "","LightGrey","Transparent")</BackgroundColor>
<BackgroundColor>=IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "" or (Fields!CvePS.Value &gt; 0 and IsNothing(Fields!CveVenta.Value) ),"LightGrey","Transparent")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>

View File

@@ -763,6 +763,7 @@
<th runat="server" visible="false" id="CabeceraPOA" scope="col">POA</th>
<th scope="col">P.U.</th>
<th scope="col" id="THDescuento" visible="false" runat="server">Desc.</th>
<th scope="col">IVA</th>
<th scope="col">Total</th>
<th scope="col">Comandos</th>
<th scope="col">
@@ -863,6 +864,9 @@
<asp:CustomValidator ID="CVDescuento" runat="server" ClientValidationFunction="ValidaDecimal6digitsEmpty" ControlToValidate="TxtDescuentoAdd" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descuento''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico con máximo seis decimales)." ValidateEmptyText="True" ValidationGroup="GrpDetalleGuardar"></asp:CustomValidator>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="CVDescuento" Width="300px"></ajax:ValidatorCalloutExtender>
</td>
<td style="text-align: right; padding-right: 7px;">
<%-- IVA--%>
</td>
<td style="text-align: right; padding-right: 7px;">
<asp:TextBox runat="server" ID="Total" ClientIDMode="Static" CssClass="alineanum" Width="55px" Height="24px" Enabled="false"></asp:TextBox>
@@ -1015,6 +1019,16 @@
</EditItemTemplate>
<ItemStyle HorizontalAlign="Right" />
</asp:TemplateField>
<asp:TemplateField>
<ItemTemplate>
<asp:Literal ID="LtlIva" runat="server" Text='<%# If(Not IsDBNull(Eval("IVA")), If(Eval("IVA").ToString <> "0", String.Concat(Eval("IVA", "{0:#,##0.00####}"), "<br>", Eval("IVAPorcentaje", "{0:0.### %}")), ""), "") %>'></asp:Literal>
</ItemTemplate>
<ItemStyle HorizontalAlign="Right" />
</asp:TemplateField>
<asp:TemplateField>
<ItemTemplate>
<asp:Literal ID="LtlTotal" runat="server" Text='<%# If(Not IsDBNull(Eval("Importe")) AndAlso CDbl(Eval("Importe").ToString) <> -1, Eval("Total", "{0:#,##0.00####}"), "") %>'></asp:Literal>
@@ -1022,6 +1036,8 @@
<ItemStyle HorizontalAlign="Right" />
</asp:TemplateField>
<asp:TemplateField>
<EditItemTemplate>
<%--<asp:ImageButton ID="ImgUpdate" runat="server" CausesValidation="True" CommandName="Update" ImageUrl="/Imagenes/Btn_Update.png" Text="Update" />&nbsp;<asp:ImageButton ID="ImgCancel" runat="server" CausesValidation="False" CommandName="Cancel" ImageUrl="/Imagenes/Btn_Cancel.png" Text="Cancel" />--%>
<div>

View File

@@ -10222,5 +10222,6 @@ Partial Class Clientes
UpDatos.Update()
End Sub
End Class

View File

@@ -2456,6 +2456,7 @@
<%--<legend><b>Descripción</b></legend>--%>
<table border="0" class="portlet light bordered">
<tr>
<div class="portlet-title">
<div class="caption font-green">
<i class="fa fa-users font-green"></i>
@@ -2466,8 +2467,12 @@
</div>
</div>
</div>
</tr>
<tr>
<div class="row" style="padding-left: 16px;">
<div class="form-group form-md-line-input input-iconright col-xs-9">
<asp:TextBox ID="TxtRFCCliente" Text="XAXX010101000" Style="text-transform: uppercase;" placeholder="Ingrese el RFC para su validación" runat="server" CssClass="form-control" MaxLength="13" CausesValidation="true"></asp:TextBox>
@@ -2478,11 +2483,59 @@
<asp:Button ID="BtnValidarRFC" runat="server" CssClass="btn btn-success" Text="Validar" />
</div>
</div>
<div id="DivNombreCliente" runat="server" visible="false" class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtNombreCliente" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVNombreCliente" runat="server" ControlToValidate="TxtNombreCliente" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
<label for="<%= TxtNombreCliente.ClientID.ToString()%>">Razón Social:</label>
<div class="row">
<div class="col-md-12">
<div runat="server" id="DivTipoPersona" class="form-group form-md-line-input input-iconright">
<%-- <asp:RadioButtonList runat="server" ID="RdTipoPersona" RepeatDirection="Horizontal" OnSelectedIndexChanged="RdTipoPersona_SelectedIndexChanged" AutoPostBack="true" CssClass="form-control input-sm">
<asp:ListItem Value="0">Física</asp:ListItem>
<asp:ListItem Value="1">Moral</asp:ListItem>
</asp:RadioButtonList>--%>
<asp:DropDownList runat="server" ID="RdTipoPersona" OnSelectedIndexChanged="RdTipoPersona_SelectedIndexChanged" AutoPostBack="true" CssClass="form-control input-sm select2me">
<asp:ListItem Value="0">Física</asp:ListItem>
<asp:ListItem Value="1">Moral</asp:ListItem>
</asp:DropDownList>
<label for="<%= RdTipoPersona.ClientID.ToString()%>">Tipo Persona:</label>
<i></i>
</div>
</div>
</div>
<div class="row">
<div class="col-md-12" runat="server" id="DivRazonSocial2">
<div id="DivNombreCliente" runat="server" visible="false" class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtNombreCliente" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVNombreCliente" runat="server" ControlToValidate="TxtNombreCliente" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
<label for="<%= TxtNombreCliente.ClientID.ToString()%>">Razón Social:</label>
</div>
</div>
<div class="col-md-4" id="DVRegimenSociedad" runat="server" visible="false">
<div runat="server" class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtRegimenSociedad" CssClass="form-control " runat="server" MaxLength="50" onkeyup="fncTxt()" ClientIDMode="Static"></asp:TextBox>
<label for="<%= TxtRegimenSociedad.ClientID.ToString()%>">Regimen Sociedad:</label>
<i></i>
</div>
</div>
</div>
<div id="DivDireccionCliente" runat="server" visible="false" class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtDireccionCliente" CssClass="form-control " runat="server" MaxLength="90" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVDireccionC" runat="server" ControlToValidate="TxtDireccionCliente" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Direccion''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
@@ -2575,8 +2628,13 @@
</div>
</tr>
</table>
</fieldset>
<div id="DivBotonesAgregarCliente" runat="server" visible="false" class="modal-footer">
<asp:Button ID="BtnAgregarCliente" runat="server" CssClass="btn btn-primary" Text="Agregar" ValidationGroup="GrpGuardarCliente" />

View File

@@ -6344,6 +6344,8 @@ Partial Class PV
Private Sub BtnValidarRFC_Click(sender As Object, e As EventArgs) Handles BtnValidarRFC.Click
If TxtRFCCliente.Text.ToUpper = "XAXX010101000" Then
DivTipoPersona.Visible = True
DivNombreCliente.Visible = True
DivDireccionCliente.Visible = True
DivNumeroCPCliente.Visible = True
@@ -6383,6 +6385,7 @@ Partial Class PV
UpCliente.Update()
Else
DivNombreCliente.Visible = True
DivTipoPersona.Visible = True
DivDireccionCliente.Visible = True
DivNumeroCPCliente.Visible = True
DivColoniaTelefonoCliente.Visible = True
@@ -6420,10 +6423,12 @@ Partial Class PV
Dim ObjCliente As New ClsClientes
Dim TipoPersona As Boolean = If(RdTipoPersona.SelectedValue.ToEntero = 1, True, False)
If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim, TxtColoniaCliente.Text.Trim,
TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, DdlEstadoSAT.SelectedValue.ToEntero, TxtRFCCliente.Text.Trim,
TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveUsuario,
UsuarioActual.CveEmpresa, "", DdlMetodoCliente.SelectedValue.ToEntero, DdlFormaCliente.SelectedValue.ToEntero) Then
UsuarioActual.CveEmpresa, "", DdlMetodoCliente.SelectedValue.ToEntero, DdlFormaCliente.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona) Then
If ObjCliente.DtResultados.Rows.Count > 0 Then
RegistraScript("hideDivEC();")
ViewState("CveCliente") = ObjCliente.DtResultados(0)("CveCliente").ToString.ToEntero
@@ -8284,4 +8289,20 @@ Partial Class PV
Return Retorno
End Function
Protected Sub RdTipoPersona_SelectedIndexChanged(sender As Object, e As EventArgs)
DVRegimenSociedad.Visible = False
DivRazonSocial2.Attributes.Add("class", "col-md-12")
If RdTipoPersona.SelectedValue.ToEntero = 1 And UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
DivRazonSocial2.Attributes.Add("class", "col-md-8")
DVRegimenSociedad.Visible = True
End If
UpAgregarCliente.Update()
End Sub
End Class

View File

@@ -14291,7 +14291,7 @@ Partial Class Ventas
If TmpDTImpuestos IsNot Nothing AndAlso Factura.CvePrePoliza > 0 AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("Cot", "Rem") Then
Dim Importe As Decimal
Dim IdCtaContable, CveCuenta As Integer
Dim IdCtaContable As Integer
Dim Concepto As String
Dim tipoCambio As Decimal
Dim CveSubProyectoContabilizar = DdlSubProyectoDatos.SelectedValue.ToEntero()
@@ -14301,7 +14301,7 @@ Partial Class Ventas
Importe = RowIL("Importe").ToString().ToDecimal * ValorMultiplicador
IdCtaContable = RowIL("IdCtaContable").ToString().ToEntero()
CveCuenta = RowIL("IdCtaContable").ToString().ToEntero()
'CveCuenta = -1 'RowIL("IdCtaContable").ToString().ToEntero()
Concepto = ViewState("VentaFolio").ToString()
If ObjFactura.CveMoneda = 2 AndAlso ObjFactura.TipoCambio > 0 Then
@@ -14314,20 +14314,20 @@ Partial Class Ventas
Select Case RowIL("TipoImpuesto").ToString()
Case "1"
If Not ObjConta.AddPrePolizasDetalle(Factura.CvePrePoliza, False, Importe, Concepto, 27, Concepto, Factura.Fecha, IdCtaContable:=IdCtaContable, IdSegmentoNegocio:=-1, CveVenta:=Factura.CveVenta, CveCliente:=Factura.CveCliente, ImporteMX:=Importe * tipoCambio, CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar) Then
If Not ObjConta.AddPrePolizasDetalle(Factura.CvePrePoliza, False, Importe, Concepto, 27, Concepto, Factura.Fecha, IdCtaContable:=IdCtaContable, IdSegmentoNegocio:=-1, CveVenta:=Factura.CveVenta, CveCliente:=Factura.CveCliente, ImporteMX:=Importe * tipoCambio, CveSubProyecto:=CveSubProyectoContabilizar) Then
ErrorPrepoliza = True
End If
Case "3"
If Not ObjConta.AddPrePolizasDetalle(Factura.CvePrePoliza, False, Importe, Concepto, 116, Concepto, Factura.Fecha, IdCtaContable:=IdCtaContable, IdSegmentoNegocio:=-1, CveVenta:=Factura.CveVenta, CveCliente:=Factura.CveCliente, ImporteMX:=Importe * tipoCambio, CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar) Then
If Not ObjConta.AddPrePolizasDetalle(Factura.CvePrePoliza, False, Importe, Concepto, 116, Concepto, Factura.Fecha, IdCtaContable:=IdCtaContable, IdSegmentoNegocio:=-1, CveVenta:=Factura.CveVenta, CveCliente:=Factura.CveCliente, ImporteMX:=Importe * tipoCambio, CveSubProyecto:=CveSubProyectoContabilizar) Then
ErrorPrepoliza = True
End If
Case "4"
If Not ObjConta.AddPrePolizasDetalle(Factura.CvePrePoliza, False, Importe, Concepto, 58, Concepto, Factura.Fecha, IdCtaContable:=IdCtaContable, IdSegmentoNegocio:=-1, CveVenta:=Factura.CveVenta, CveCliente:=Factura.CveCliente, ImporteMX:=Importe * tipoCambio, CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar) Then
If Not ObjConta.AddPrePolizasDetalle(Factura.CvePrePoliza, False, Importe, Concepto, 58, Concepto, Factura.Fecha, IdCtaContable:=IdCtaContable, IdSegmentoNegocio:=-1, CveVenta:=Factura.CveVenta, CveCliente:=Factura.CveCliente, ImporteMX:=Importe * tipoCambio, CveSubProyecto:=CveSubProyectoContabilizar) Then
ErrorPrepoliza = True
End If
Case "5"
If Not ObjConta.AddPrePolizasDetalle(Factura.CvePrePoliza, True, Importe, Concepto, 27, Concepto, Factura.Fecha, IdCtaContable:=IdCtaContable, IdSegmentoNegocio:=-1, CveVenta:=Factura.CveVenta, CveCliente:=Factura.CveCliente, ImporteMX:=Importe * tipoCambio, CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar) Then
If Not ObjConta.AddPrePolizasDetalle(Factura.CvePrePoliza, True, Importe, Concepto, 27, Concepto, Factura.Fecha, IdCtaContable:=IdCtaContable, IdSegmentoNegocio:=-1, CveVenta:=Factura.CveVenta, CveCliente:=Factura.CveCliente, ImporteMX:=Importe * tipoCambio, CveSubProyecto:=CveSubProyectoContabilizar) Then
ErrorPrepoliza = True
End If
End Select