-- mejora en registros de remisiones con importes en dólares

2024-10-18 10:43:41 -07:00
parent 254d822a05
commit 92f1028e03
2 changed files with 4 additions and 111 deletions
--- a/Transportes/RepContratos.aspx.vb
+++ b/Transportes/RepContratos.aspx.vb
@@ -325,9 +325,13 @@ Partial Class ListadoContratos

        If ObjFactura IsNot Nothing AndAlso ProcesoOK Then

+            ObjFactura.CveMoneda = CveMoneda
            ObjFactura.CveContrato = CveContrato
            ObjFactura.Observaciones = ObsPartida
            ObjFactura.CveFormaPago33 = 20 ' por definir
+            If CveMoneda > 1 Then
+                ObjFactura.TipoCambio = GlobalTipoCambio(DateTime.Now).ToDecimal
+            End If

            Dim TmpDTMat As New DataTable
            TmpDTMat.Columns.Add("Consec", GetType(Integer))