Now 043 formato, ajustes eFacturas

OC/OC.aspx.vb

@@ -6064,7 +6064,7 @@ Partial Class OC_OC
     End Function
 
     Protected Sub DdlProveedores_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProveedores.selectedindexchange
-
+        TxtDiasCreditoOC.Text = ""
         DdlProveedorSucursal.Items.Clear()
         DdlProveedorSucursal.SelectedValue = Nothing
 
@@ -6128,6 +6128,9 @@ Partial Class OC_OC
                 DdlMoneda.SelectedValueExist(CveMonedaPreferente)
                 MonedaTexto = DdlMoneda.SelectedItem.Text
             End If
+
+            TxtDiasCreditoOC.Text = dtt.Rows(0)("PlazoPago").ToString
+
         End If
         VerificaSiRequiereCotizacion()
         If UsuarioActual.Empresa.Funcionalidad(565) = "1" And CveOrdenCompra > 0 And TipoOC.ToUpper() = "REQ" Then
@@ -6142,6 +6145,7 @@ Partial Class OC_OC
         UPPDetalle.Update()
         uppEstatus.Update()
 
+
     End Sub
 
     Protected Sub CboE_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CboE.SelectedIndexChanged