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

-- cuando es costo, que muestre clasificaciones

Browse Source
This commit is contained in:
rrene
2020-09-28 08:27:56 -07:00
parent 4aaf6eb813
commit c70dd07182
2 changed files with 22 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
Contabilidad/RegPrePoliza.aspx
View File

@@ -190,6 +190,7 @@
<asp:DropDownList ID="DdlProveedores" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="160px" Visible="false" AutoPostBack="true"></asp:DropDownList><br />
<asp:DropDownList ID="DdlCompras" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="SerieFolio" DataValueField="CveCompra" Width="160px" Visible="false"></asp:DropDownList><br />
<asp:DropDownList ID="DdlPersonal" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreCompleto" DataValueField="CvePersonal" Width="160px" Visible="false"></asp:DropDownList>
<asp:DropDownList ID="DdlClasificaciones" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="160px" Visible="false"></asp:DropDownList>
<ADS:Dropdownlost ID="DdlClientes" CssStyle="width: 100%;" CssClassDdl="select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreComercial" DataValueField="CveCliente" Width="160px" Visible="false" AutoPostBack="true"></ADS:Dropdownlost>
<br />
<asp:DropDownList ID="DdlVentas" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Folio" DataValueField="CveVenta" Width="160px" Visible="false"></asp:DropDownList><br />

25
Contabilidad/RegPrePoliza.aspx.vb
View File

@@ -568,8 +568,18 @@ Partial Class ContabilidadC_RegPrePoliza
Else
TxtTC.Text = ""
TxtTC.Visible = False
End If
End If
If DdlConceptosContables.SelectedValue.ToEntero.Contiene(69) Then
CargaClasificaciones()
DdlClasificaciones.Visible = True
Else
TxtTC.Text = ""
DdlClasificaciones.Visible = False
End If
End Sub
Private Sub DdlProveedores_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProveedores.SelectedIndexChanged
@@ -631,6 +641,12 @@ Partial Class ContabilidadC_RegPrePoliza
DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
DdlClientes.DataBind()
' DdlClientes.Items.Insert(0, New ListItem(" - ", "-1"))
End Sub
Private Sub CargaClasificaciones()
DdlClasificaciones.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
DdlClasificaciones.DataBind()
' DdlClientes.Items.Insert(0, New ListItem(" - ", "-1"))
End Sub
Private Sub CargaVentas(CveCliente As Integer)
@@ -942,6 +958,7 @@ Partial Class ContabilidadC_RegPrePoliza
'MENSAJE PRINCIPAL
MensajeAlert.AppendFormat("<br/><br/>Folio de Salida: <b><a href = ""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", ObjMov.ContaIdPoliza, ObjMov.ContaFolio)
MensajeAlert.AppendFormat("<br/><br/>Prepóliza: <b><a href = ""/Contabilidad/RegPrePoliza.aspx?CvePoliza={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", CvePrePoliza, ObjMov.ContaFolio)
'Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion)
Else
Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico")
@@ -1209,7 +1226,7 @@ Partial Class ContabilidadC_RegPrePoliza
dr("CveProveedor") = DdlProveedores.SelectedValue.ToEntero
dr("CveCompra") = DdlCompras.SelectedValue.ToEntero
dr("CvePersonal") = DdlPersonal.SelectedValue.ToEntero
dr("CveClasificacion") = -1
dr("CveClasificacion") = DdlClasificaciones.SelectedValue.ToEntero
dr("CveCliente") = DdlClientes.SelectedValue.ToEntero
dr("CveVenta") = DdlVentas.SelectedValue.ToEntero
End If
@@ -1278,7 +1295,7 @@ Partial Class ContabilidadC_RegPrePoliza
dr("CveProveedor") = DdlProveedores.SelectedValue.ToEntero
dr("CveCompra") = DdlCompras.SelectedValue.ToEntero
dr("CvePersonal") = DdlPersonal.SelectedValue.ToEntero
dr("CveClasificacion") = -1
dr("CveClasificacion") = DdlClasificaciones.SelectedValue.ToEntero
dr("CveCliente") = DdlClientes.SelectedValue.ToEntero
dr("CveVenta") = DdlVentas.SelectedValue.ToEntero
dr("TC") = TxtTC.Text.ToDouble