Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git
This commit is contained in:
@@ -4844,13 +4844,17 @@
|
||||
</ItemTemplate>
|
||||
<ItemStyle HorizontalAlign="Center" Width="10%" />
|
||||
</asp:TemplateField>
|
||||
<asp:HyperLinkField HeaderText="SerieFolio" DataTextField="SerieFolio" Target="_blank" DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?={0}" />
|
||||
<asp:HyperLinkField HeaderText="SerieFolio" DataTextField="SerieFolio" Target="_blank" DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" />
|
||||
<asp:BoundField HeaderText="Original" DataField="CantidadC" DataFormatString="{0:#,##0.##}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="5%" />
|
||||
<asp:BoundField HeaderText="Surtido" DataField="CantidadS" DataFormatString="{0:#,##0.##}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="5%" />
|
||||
<asp:BoundField HeaderText="Pendiente" DataField="CantidadF" DataFormatString="{0:#,##0.##}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="5%" />
|
||||
<asp:BoundField HeaderText="Unidad" DataField="UM" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="7.5%" />
|
||||
<asp:BoundField HeaderText="Producto" DataField="CodigoPS" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="30%" />
|
||||
<asp:BoundField HeaderText="P.U." DataField="PU" DataFormatString="{0:#,##0.####}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="7.5%" />
|
||||
<asp:TemplateField HeaderText="P.U." ItemStyle-HorizontalAlign="Right" FooterStyle-HorizontalAlign="Right" ItemStyle-Width="7.5%">
|
||||
<ItemTemplate>
|
||||
<asp:Textbox ID="TxtPU" Width="60px" Text='<%# Eval("PU", "{0:N2}") %>' CssClass="textaslabel" runat="server"></asp:Textbox>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Total" ItemStyle-HorizontalAlign="Right" FooterStyle-HorizontalAlign="Right" ItemStyle-Width="7.5%">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LbTotal" Text='<%# (CDbl(Eval("PU").ToString) * CDbl(Eval("CantidadF").ToString)).ToString("N2") %>' runat="server"></asp:Label>
|
||||
|
||||
@@ -6434,7 +6434,7 @@ Partial Class Compras_Compras
|
||||
' End If
|
||||
Case 6 'Compra
|
||||
|
||||
Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 140, 141, 152, 153, 154, 159, 160, 161, 162, 163) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
|
||||
Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 140, 145, 141, 152, 153, 154, 159, 160, 161, 162, 163) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
|
||||
|
||||
Dim RegistraConcepto225 As Boolean = UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
|
||||
|
||||
@@ -6826,7 +6826,7 @@ Partial Class Compras_Compras
|
||||
Dim DifTC As Decimal = tipoCambioActual - Gvr.DataKey("TipoCambio").ToDecimal
|
||||
'diferenciaTransito = DifTC * (Gvr.DataKey("IVA").ToDecimal / Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal)
|
||||
'diferenciaTransito += DifTC * (Gvr.DataKey("IEPSPS").ToDecimal / Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal)
|
||||
importeMNTemp = (Gvr.DataKey("PU").ToDecimal * Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal * Gvr.DataKey("TipoCambio").ToDecimal).RoundSQL
|
||||
importeMNTemp = (Gvr.FCTextBox("TxtPU").Text.ToDecimal * Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal * Gvr.DataKey("TipoCambio").ToDecimal).RoundSQL
|
||||
ImporteTransito += importeMNTemp
|
||||
'se registra por cada compra relacionada
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMNTemp, Referencia, ConceptoContabilizacionNC, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMNTemp, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=Gvr.DataKey("TipoCambio").ToDecimal, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza) Then
|
||||
|
||||
@@ -194,7 +194,8 @@ Partial Class PopUpVerFactura
|
||||
If UrlParametros("OP") IsNot Nothing AndAlso UrlParametros("OP").ToString <> "" Then
|
||||
SeleccionaReporte(UrlParametros)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
If Request("onlyPrint") IsNot Nothing Then
|
||||
If Request("onlyPrint").ToString() = "Pallet" Then
|
||||
imprimirpallet2(Request("CvePallet").ToString.ToEntero())
|
||||
@@ -202,11 +203,102 @@ Partial Class PopUpVerFactura
|
||||
If Request("onlyPrint").ToString() = "PalletCaja" Then
|
||||
imprimirpallet(Request("CvePallet").ToString.ToEntero())
|
||||
End If
|
||||
If Request("onlyPrint").ToString() = "manifiesto" Then
|
||||
imprimirManifiesto(Request("cveEmbarqueManifiesto").ToString.ToEntero())
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub imprimirManifiesto(cveEmbarqueManifiesto As Integer)
|
||||
Dim NoEmbarque As String = ""
|
||||
Dim Fecha As String = ""
|
||||
Dim SubProyecto As String = ""
|
||||
Dim AgenciaAduanalUSA As String = ""
|
||||
Dim AgenciaAduanalMEX As String = ""
|
||||
Dim Temperatura As String = ""
|
||||
Dim Hora As String = ""
|
||||
Dim Chofer As String = ""
|
||||
Dim CamPlaca As String = ""
|
||||
Dim Camion As String = ""
|
||||
Dim Rem1Placa As String = ""
|
||||
Dim Remolque1 As String = ""
|
||||
Dim NoPallets As String = ""
|
||||
Dim NoBultos As String = ""
|
||||
Dim NoKgManifiesto As String = ""
|
||||
Dim tablaReporte As New DataTable
|
||||
|
||||
'Envase = "1 1/9"
|
||||
'Tamano = "Small"
|
||||
'Cultivo = "Tomate"
|
||||
'noPallet = "000001"
|
||||
'Variedad = "Golden"
|
||||
Using objnom As New ClsNominas
|
||||
If objnom.PA_AGRO_Embarque_ManifiestoGet(-1, -1, -1, cveEmbarqueManifiesto) And objnom.DtResultados.Rows.Count > 0 Then
|
||||
Dim row As DataRow = objnom.DtResultados.Rows(0)
|
||||
NoEmbarque = row("NoEmbarque").ToString()
|
||||
Fecha = String.Format("{0:dd/MM/yyyy}", row("Fecha"))
|
||||
SubProyecto = row("SubProyecto").ToString()
|
||||
AgenciaAduanalUSA = row("AgenciaAduanalUSA").ToString()
|
||||
AgenciaAduanalMEX = row("AgenciaAduanalMEX").ToString()
|
||||
Temperatura = row("Temperatura").ToString()
|
||||
Hora = String.Format("{0:hh }:{0:mm }:{0:ss tt}:", row("FechaIng"))
|
||||
Chofer = row("Chofer").ToString()
|
||||
CamPlaca = row("CamPlaca").ToString()
|
||||
Camion = String.Format("{0} {1}", row("CamAnio"), row("CamEspecificacion"))
|
||||
Rem1Placa = row("Rem1Placa").ToString()
|
||||
Remolque1 = String.Format("{0} {1}", row("Rem1Anio"), row("Rem1Especificacion"))
|
||||
If row("CveCamionRemolque1").ToString() = "1" Then
|
||||
Rem1Placa = "12-TF-5E"
|
||||
Remolque1 = "Remolque 1"
|
||||
Else
|
||||
Rem1Placa = "15-TF-7f"
|
||||
Remolque1 = "Remolque 2"
|
||||
|
||||
End If
|
||||
|
||||
If objnom.PA_Agro_Embarque_PalletGet(-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, cveEmbarqueManifiesto, -1) And objnom.DtResultados.Rows.Count > 0 Then
|
||||
NoPallets = objnom.DtResultados.Rows.Count.ToString()
|
||||
NoKgManifiesto = objnom.DtResultados.SUM("Peso").ToString("N2")
|
||||
NoBultos = objnom.DtResultados.SUM("NoCajas").ToString("N0")
|
||||
tablaReporte = objnom.DtResultados
|
||||
End If
|
||||
End If
|
||||
'Remolque 1 12-TF-5E' }, { cveCamion: 2, placa: 'Remolque 2 15-TF-7f
|
||||
End Using
|
||||
Dim params As New List(Of ReportParameter)
|
||||
params.Add(New ReportParameter("NoEmbarque", NoEmbarque))
|
||||
params.Add(New ReportParameter("Fecha", Fecha))
|
||||
params.Add(New ReportParameter("SubProyecto", SubProyecto))
|
||||
params.Add(New ReportParameter("AgenciaAduanalUSA", AgenciaAduanalUSA))
|
||||
params.Add(New ReportParameter("AgenciaAduanalMEX", AgenciaAduanalMEX))
|
||||
params.Add(New ReportParameter("Temperatura", Temperatura))
|
||||
params.Add(New ReportParameter("Hora", Hora))
|
||||
params.Add(New ReportParameter("Chofer", Chofer))
|
||||
params.Add(New ReportParameter("CamPlaca", CamPlaca))
|
||||
params.Add(New ReportParameter("Camion", Camion))
|
||||
params.Add(New ReportParameter("Rem1Placa", Rem1Placa))
|
||||
params.Add(New ReportParameter("Remolque1", Remolque1))
|
||||
|
||||
|
||||
params.Add(New ReportParameter("NoBultos", NoBultos))
|
||||
params.Add(New ReportParameter("NoPallets", NoPallets))
|
||||
params.Add(New ReportParameter("NoKgManifiesto", NoKgManifiesto))
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Dim lrds As New List(Of ReportDataSource)
|
||||
Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = tablaReporte}
|
||||
lrds.Add(rds)
|
||||
'"Empresas/Grales/Formatos/EquiposGPS.rdlc"
|
||||
'"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
|
||||
ImprimirPDF("GPS/EmbarqueManifiesto.rdlc", lrds, params, "Equipo GPS")
|
||||
End Sub
|
||||
Private Sub imprimirpallet2(cvePallet As Integer)
|
||||
Dim Envase As String = ""
|
||||
Dim Tamano As String = ""
|
||||
@@ -1558,7 +1650,7 @@ Partial Class PopUpVerFactura
|
||||
Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33
|
||||
Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33
|
||||
Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT
|
||||
Timbre.Comprobante.Subtotal = Obj.SubTotal
|
||||
Timbre.Comprobante.SubTotal = Obj.SubTotal
|
||||
Timbre.Comprobante.Descuentos = Obj.Descuento
|
||||
Timbre.Comprobante.Moneda = Obj.MonedaSAT
|
||||
Timbre.Comprobante.TipoCambio = If(Obj.CveMoneda = 1, "1", Obj.TipoCambio.ToString)
|
||||
|
||||
@@ -410,7 +410,7 @@
|
||||
</ContentTemplate>
|
||||
</ajax:TabPanel>
|
||||
|
||||
<ajax:TabPanel ID="TabTraslados" runat="server" HeaderText="Traslados">
|
||||
<ajax:TabPanel ID="TabTraslados" runat="server" HeaderText="Traslados" Visible="false" >
|
||||
<ContentTemplate>
|
||||
<asp:UpdatePanel runat="server" ID="UpTraslados" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
@@ -805,18 +805,20 @@ Partial Class Compras_eFacturas
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
If ObjDatos.GetFacturas(-1, Folio, FechaI, FechaF, RFC, Proveedor, DdlValidado.SelectedValue.ToEntero, DdlResponsable.SelectedValue.ToEntero, DdlClasificacionProv.SelectedValue.ToEntero, DdlCveTipoProveedor.SelectedValue.ToEntero, DdlTipoComprobante.SelectedValue.ToString, UsuarioActual.CveEmpresa, Opcion:=2) Then
|
||||
|
||||
If ObjDatos.DtResultados.Rows.Count > 0 Then
|
||||
|
||||
DTTrasaldos = ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'T'")
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
LblRegistros.Text = String.Format("{0} Registros", ObjDatos.DtResultados.FiltraParametros("TipoComprobante <> 'P' and TipoComprobante <> 'T' ").Rows.Count.ToString("N0"))
|
||||
LblTotalPagos.Text = String.Format("{0} Pagos", ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'P'").Rows.Count.ToString("N0"))
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(161) = "1" Then
|
||||
TabTraslados.Visible = True
|
||||
If ObjDatos.GetFacturas(-1, Folio, FechaI, FechaF, RFC, Proveedor, DdlValidado.SelectedValue.ToEntero, DdlResponsable.SelectedValue.ToEntero, DdlClasificacionProv.SelectedValue.ToEntero, DdlCveTipoProveedor.SelectedValue.ToEntero, DdlTipoComprobante.SelectedValue.ToString, UsuarioActual.CveEmpresa, Opcion:=2) Then
|
||||
|
||||
If ObjDatos.DtResultados.Rows.Count > 0 Then
|
||||
|
||||
DTTrasaldos = ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'T'")
|
||||
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
LblTotalTraslados.Text = String.Format("{0} Traslados", ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'T'").Rows.Count.ToString("N0"))
|
||||
|
||||
If DtPagos IsNot Nothing AndAlso DtPagos.Rows.Count > 0 Then
|
||||
@@ -988,13 +990,14 @@ Partial Class Compras_eFacturas
|
||||
Case "E"
|
||||
e.Row.FCLabel("LtTipoComprobante").Text = "Egreso"
|
||||
e.Row.FCLabel("LtTipoComprobante").CssClass = "label label-sm label-warning"
|
||||
e.Row.FCLabel("LtTipoComprobante").Attributes.Add("data-toggle", "tooltip")
|
||||
e.Row.FCLabel("LtTipoComprobante").Attributes.Add("data-toggle", "tooltip") '
|
||||
e.Row.FCLabel("LtTipoComprobante").Attributes.Add("title", "Egreso")
|
||||
Case "P"
|
||||
e.Row.FCLabel("LtTipoComprobante").Text = "Pago"
|
||||
e.Row.FCLabel("LtTipoComprobante").CssClass = "label label-sm label-primary"
|
||||
e.Row.FCLabel("LtTipoComprobante").Attributes.Add("data-toggle", "tooltip")
|
||||
e.Row.FCLabel("LtTipoComprobante").Attributes.Add("title", "Complemento Pago")
|
||||
|
||||
End Select
|
||||
|
||||
e.Row.Cells(2).Attributes.Add("data-order", e.Row.DBCampo("FechaFactura").ToDate.Ticks.ToString)
|
||||
|
||||
Reference in New Issue
Block a user