SMS - 2024.02.22 Retro

Os Folio Fiscal Adicional desde inicio y editable en os,
Ventas llevarse campo alfa1 (Folio remisión  es el Folio adicional de la os)

Ventas/Ventas.aspx.vb

@@ -4936,6 +4936,13 @@ Partial Class Ventas
                     End If
 
                 End If
+
+
+                If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
+                    TxtAlfa1.Text = DbRowVenta("Alfa1").ToString
+                End If
+
+
             End Using
         End If
 
@@ -36588,9 +36595,10 @@ Partial Class Ventas
                 DdlProcedimiento.SelectedValueExist(dRow("CveProcedimiento").ToString.ToEntero)
                 TxtPaciente.Text = dRow("Paciente").ToString
                 TxtEpisodio.Text = dRow("Episodio").ToString
-                SeEstaFActurandoVentaMedica = True
+                TxtAlfa1.Text = dRow("Alfa1").ToString
                 CveTipoVenta = dRow("CveTipoVenta").ToString.ToEntero
                 ChkRequiereTecnico_CheckedChanged(Nothing, Nothing)
+                SeEstaFActurandoVentaMedica = True
             End If
             objVenta.Dispose()
         End If