correcion en formato de conciliacion y agregando nueva consulta en pop up ver factura

This commit is contained in:
Antonio Gonzalez
2020-02-01 10:40:00 -07:00
parent 489a592eb0
commit b9a23db611
3 changed files with 11 additions and 4 deletions

View File

@@ -1096,6 +1096,9 @@ Partial Class PopUpVerFactura
If ObjVentas.GetVentasAntNC(-1, CveVenta) Then
Vta.DtNCVinculadas = ObjVentas.DtResultados
End If
If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then
Vta.FolioFiscal = ObjVentas.DtResultados.FiltroPrimeroValor("FolioFiscal")
End If
End If
End If

View File

@@ -2003,7 +2003,7 @@
</Style>
</TextRun>
<TextRun>
<Value>Contralor</Value>
<Value>Contador</Value>
<MarkupType>HTML</MarkupType>
<Style>
<FontWeight>Bold</FontWeight>
@@ -2017,7 +2017,7 @@
</Style>
</TextRun>
<TextRun>
<Value>Contralor </Value>
<Value>Contador</Value>
<MarkupType>HTML</MarkupType>
<Style>
<FontWeight>Bold</FontWeight>

View File

@@ -9216,9 +9216,13 @@ Partial Class Ventas
CveTipoAmortizacionAnticipo:=factura.CveTipoAmortizacionAnticipo, CveEmpresaCRM:=CveEmpresaCRM, EsInterno:=EsInterno, CveAcercamientoCRM:=CveAcercamientoCRM,
DiasCredito:=factura.DiasCredito, EsDiasCreditoFijo:=factura.EsDiasCreditoFijo, AnticipoEspecial:=If(TrAntEspecial.Visible, ChkAntEspecial.Checked, False),
Kilometraje:=TxtKilometraje.Text.ToDouble) Then
ErrorList.Add("Ocurrió un error al Generar la Venta.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
Else
If factura.TipoDocto.Contiene("Dev") Or DtVentasNC IsNot Nothing Then
If Not ObjVentas.AddVentasRelacionadas(ObjVentas.CveVenta, CveVenta) Then
ErrorList.Add("Ocurrió un error al relacionar las ventas entre si comuníquese a Soporte Técnico")
End If
End If
End If
If Not GuardarUsados(ObjVentas.IniciaTransacSQL, ObjVentas.CveVenta) Then