Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
@@ -119,6 +119,11 @@
|
||||
<asp:ListItem Text="Detallado" Value="1"></asp:ListItem>
|
||||
<asp:ListItem Selected="True" Text="Agrupado por Venta" Value="2"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
<asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">Sucursal:</asp:Label>
|
||||
<div runat="server" id="DivSubProyecto" class="col-md-2">
|
||||
<asp:ListBox ID="DdlSubProyecto" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
@@ -40,8 +40,6 @@ Partial Class Ventas_AuxiliarCliente
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub CargaFiltros()
|
||||
|
||||
If (UsuarioActual.Empresa.Funcionalidad(105) = "1") Then
|
||||
@@ -59,7 +57,9 @@ Partial Class Ventas_AuxiliarCliente
|
||||
'DdlConceptosContables.DataSource = GlobalDTContaConceptosContables(-1)
|
||||
'DdlConceptosContables.DataBind()
|
||||
'DdlConceptosContables.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
|
||||
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
|
||||
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
DdlSubProyecto.SelectedValuesIfExist("-1")
|
||||
|
||||
txtFechaI.Text = NowADS().AddDays(-30).ToString("dd/MM/yyyy")
|
||||
txtFechaF.Text = NowADS().ToString("dd/MM/yyyy")
|
||||
@@ -71,7 +71,7 @@ Partial Class Ventas_AuxiliarCliente
|
||||
Dim ObjConta As New ClsContabilidad
|
||||
|
||||
'Falta PA
|
||||
If ObjConta.GetClienteAuxiliar(DdlClientes.SelectedValue.ToEntero, -1, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, DdlOpcion.SelectedValue.ToEntero) Then
|
||||
If ObjConta.GetClienteAuxiliar(DdlClientes.SelectedValue.ToEntero, -1, DdlSubProyecto.SelectedValue.ToEntero, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, DdlOpcion.SelectedValue.ToEntero) Then
|
||||
If DdlOpcion.SelectedValue.ToEntero = 2 Then
|
||||
GvAuxCliente.DataSource = ObjConta.DtResultados.FiltraParametros($" IIF(ISNULL(CveConceptoContable,0) = 1 AND Importe >= 0,0,1) = 1")
|
||||
Else
|
||||
|
||||
@@ -12296,7 +12296,6 @@ Partial Class Ventas
|
||||
Return ProcesoCorrecto
|
||||
End Function
|
||||
|
||||
|
||||
Private Sub CreaObjetosVenta(Optional VistaPrevia As Boolean = False, Optional EsCancelacion As Boolean = False, Optional TipoDoctoViejo As String = "", Optional TipoDoctoVistaPrevia As String = "")
|
||||
|
||||
If Me.CveVenta > 0 AndAlso NuevaFactura <> 1 Then
|
||||
@@ -12344,7 +12343,6 @@ Partial Class Ventas
|
||||
'ObjFactura.Folio = If(ExFolioFactura, FolioXML.ToEntero(), -1)
|
||||
ObjFactura.Serie = If(VistaPrevia, "VistaPrevia", LblSerie.Text)
|
||||
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
|
||||
Dim ObjFolios As New ClsGralFolios()
|
||||
Dim TipoDoctoConsulta As String = If(ObjFactura.TipoDocto = "Ant", "Ing", If(ObjFactura.TipoDocto = "PA", "Rem", ObjFactura.TipoDocto))
|
||||
@@ -12387,10 +12385,8 @@ Partial Class Ventas
|
||||
ObjFactura.CondicionEntrega = If(DdlFormaEntrega.SelectedItem IsNot Nothing, DdlFormaEntrega.SelectedItem.Text, "")
|
||||
ObjFactura.CondicionesPago = If(RBLPago.SelectedValue = "2", 0, If(RBLPago.SelectedValue = "1", 1, 2)) ' 0 - Contado, 1 - Credito, 2 - termianl
|
||||
ObjFactura.FormaPago = 0 'DdlFormaPago.SelectedValue.ToEntero()
|
||||
|
||||
ObjFactura.AtencionA = TxtAtencionA.Text
|
||||
ObjFactura.FordGSDB = ""
|
||||
|
||||
ObjFactura.NumeroContrato = NumeroContrato
|
||||
ObjFactura.DescripcionContrato = DescripcionContrato
|
||||
ObjFactura.NumeroDescripcionContrato = If($"{NumeroContrato} - {NumeroLicitacion}" = " - ", "", $"{NumeroContrato} {If(NumeroLicitacion = "", "", $" - Licitación: {NumeroLicitacion}")}")
|
||||
@@ -12419,9 +12415,6 @@ Partial Class Ventas
|
||||
ObjFactura.Fech1 = TxtFech1.Text.Trim.ToDate
|
||||
ObjFactura.Fech2 = TxtFech2.Text.Trim.ToDate
|
||||
ObjFactura.Fech3 = TxtFech3.Text.Trim.ToDate
|
||||
|
||||
|
||||
|
||||
ObjFactura.Alfa2 = TxtAlfa2.Text.Trim
|
||||
ObjFactura.Alfa3 = TxtAlfa3.Text.Trim
|
||||
ObjFactura.Num1 = TxtNum1.Text.Trim.ToDouble
|
||||
@@ -12442,17 +12435,12 @@ Partial Class Ventas
|
||||
|
||||
ObjFactura.DiasCredito = DiasCredito
|
||||
ObjFactura.EsDiasCreditoFijo = EsDiasCreditoFijo
|
||||
|
||||
ObjFactura.CveCorte = CveCorte
|
||||
'ObjFactura.CveMesa = -1
|
||||
ObjFactura.NumeroPersonas = 0
|
||||
|
||||
|
||||
If ObjFactura.TipoDocto = "Ant" And DdlContratosModal.SelectedValue.ToEntero > 0 Or ObjFactura.TipoDocto = "Ing" And DdlContratosModal.SelectedValue.ToEntero > 0 Or ObjFactura.TipoDocto = "Egs" And DdlContratosModal.SelectedValue.ToEntero > 0 Then
|
||||
CveContrato = DdlContratosModal.SelectedValue.ToEntero
|
||||
End If
|
||||
|
||||
|
||||
ObjFactura.CveContrato = If(CveContrato > 0, CveContrato, CvePresupuesto)
|
||||
|
||||
ObjFactura.CveClienteSucursal = DdlSucursalCliente.SelectedValue.ToEntero()
|
||||
@@ -12488,24 +12476,13 @@ Partial Class Ventas
|
||||
ObjFactura.Det_OrdenCompra = TxtDet_OrdenCompra.Text.Trim
|
||||
ObjFactura.Det_FechaOrdenCompra = TxtDet_FechaOrdenCompra.Text.Trim
|
||||
ObjFactura.Det_ContraRecibo = TxtDet_ContraRecibo.Text.Trim
|
||||
ObjFactura.MonedaAbreviatura = ""
|
||||
|
||||
Try
|
||||
ObjFactura.MonedaAbreviatura = GlobalDTMonedas().FiltroPrimeroValor("Moneda", $"CveMoneda = {DdlMoneda.SelectedValue.ToEntero}")
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then
|
||||
ObjFactura.FechaEjecucion = TxtFechaOS.Text.Trim.ToDateTime
|
||||
ObjFactura.FechaParaSurtir = TxtFechaOS.Text.Trim.ToDateTime
|
||||
Else
|
||||
ObjFactura.Alfa1 = TxtAlfa1.Text.Trim
|
||||
End If
|
||||
ObjFactura.MonedaAbreviatura = GlobalDTMonedas().FiltroPrimeroValor("Moneda", $"CveMoneda = {DdlMoneda.SelectedValue.ToEntero}")
|
||||
ObjFactura.Alfa1 = TxtAlfa1.Text.Trim
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
|
||||
ObjFactura.Medico = DdlMedico.SelectedItem.Text
|
||||
ObjFactura.Procedimiento = DdlProcedimiento.SelectedItem.Text
|
||||
ObjFactura.FechaParaSurtir = TxtFechaOS.Text.Trim.ToDateTime
|
||||
End If
|
||||
|
||||
'CONVERTIR REMISION - TIPO MONEDA -DOLARES A PESOS
|
||||
@@ -16880,7 +16857,18 @@ Partial Class Ventas
|
||||
CartaPorte.Parametros.Add(New ReportParameter($"TieneCartaPorte", "False"))
|
||||
End If
|
||||
|
||||
ImprimirbytesPDF(PdfFactura(ObjFactura, Guardar:=False, SubReportData:=CartaPorte), "Factura", "PDF")
|
||||
Dim tNombreSugerido As String = "Vista Previa - Factura"
|
||||
Select Case DdlTipoComprobante.SelectedValue
|
||||
Case "Cot"
|
||||
tNombreSugerido = "Vista Previa - Cotización"
|
||||
Case "Egs"
|
||||
tNombreSugerido = "Vista Previa - Egreso"
|
||||
Case "Ant"
|
||||
tNombreSugerido = "Vista Previa - Anticipo"
|
||||
End Select
|
||||
tNombreSugerido = tNombreSugerido & " - " & LblSerie.Text & "-" & TxtFolio.Text
|
||||
|
||||
ImprimirbytesPDF(PdfFactura(ObjFactura, Guardar:=False, SubReportData:=CartaPorte), tNombreSugerido, "PDF")
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -38507,11 +38495,11 @@ Partial Class Ventas
|
||||
item.Text = $"  {item.Text}"
|
||||
Next
|
||||
|
||||
If Opcion <> "Cot" Then
|
||||
RegistraScript("$('#DvModalTipoVenta').modal({ backdrop: 'static', keyboard: false });")
|
||||
Else
|
||||
TrVentasMedicas2.Visible = False
|
||||
If Opcion = "Cot" Then
|
||||
'TrVentasMedicas2.Visible = False
|
||||
TrVentasMedicas3.Visible = False
|
||||
Else
|
||||
RegistraScript("$('#DvModalTipoVenta').modal({ backdrop: 'static', keyboard: false });")
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Reference in New Issue
Block a user