diff --git a/App_Code/ClsContPAQi.vb b/App_Code/ClsContPAQi.vb
index e905fcd03..438987e7e 100644
--- a/App_Code/ClsContPAQi.vb
+++ b/App_Code/ClsContPAQi.vb
@@ -776,18 +776,22 @@ Public Class ClsContPAQi
         StrSQL.Clear()
         StrSQL.Append(" BEGIN ")
         StrSQL.Append(" Declare @Tmp INT = 0, @IdPersona INT, @IdDatoExtra INT, ")
-        StrSQL.Append("  @Codigo VARCHAR(10) = '', @CodigoCuenta VARCHAR(20), @CodigoExtra VARCHAR(20)= ''; ")
+        StrSQL.Append("  @Codigo VARCHAR(10) = '',  @CodigoPersona VARCHAR(10) = '', @CodigoCuenta VARCHAR(20), @CodigoExtra VARCHAR(20)= ''; ")
         StrSQL.Append("  SELECT @Tmp = MAX(Id) FROM Proveedores P WHERE P.RFC = @RFC; ")
         StrSQL.Append("  IF ISNULL(@Tmp,0) <= 0  ")
         StrSQL.Append("  BEGIN ")
 
         StrSQL.Append("         SELECT @Codigo = MAX(CAST(Codigo AS INT)) FROM Proveedores WHERE CAST(Codigo AS INT) < 9999; ")
         StrSQL.Append("         SET @Codigo = CONCAT(replicate(' ',6-Len((@Codigo + 1))),(@Codigo + 1)); ")
+
         StrSQL.Append("         Select @CodigoCuenta = Codigo from Cuentas WHERE Id = @IdCuentaContable; ")
         StrSQL.Append("         SET @IdProveedor = dbo.FNC_GetCounter ('Id_Proveedor'); ")
 
+        StrSQL.Append("         SELECT @CodigoPersona = MAX(CAST(Codigo AS INT)) FROM Personas WHERE CAST(Codigo AS INT) < 9999; ")
+        StrSQL.Append("         SET @CodigoPersona = CONCAT(replicate(' ',6-Len((@CodigoPersona + 1))),(@CodigoPersona + 1)); ")
+
         StrSQL.Append("         INSERT INTO Proveedores (Id,RowVersion,Codigo,Nombre, RFC,CURP,TipoOperacion,IdCuenta,TimeStamp,TasaIVA15,TasaIVA10,TasaIVA0,TasaIVAExento,TasaIVAOtra1,TasaIVAOtra2,TasaOtra1,TasaOtra2,TasaAsumida,RetencionIVA,RetencionISR,TipoTercero,IdFiscal,NomExtranjero,Pais,Nacionalidad,IdConceptoIETU,TasaIVA16,TasaIVA11,CodigoPersona, CodigoCuenta,EsParaAbonoCta,CodigoCtaComplementaria,CodigoPrepoliza,IdSegNeg,ClaveBanco,Sucursal,CuentaClabe,Referencia) ")
-        StrSQL.Append("             VALUES (@IdProveedor,555555,@Codigo,@Nombre,@RFC,@CURP,85,@IdCuentaContable,'',0,0,0,0,0,0,0,0,7,0,0,4,'','','','Mexicana',1,1,0, @Codigo, @CodigoCuenta,0,'','',0,'','','',''); ")
+        StrSQL.Append("             VALUES (@IdProveedor,555555,@Codigo,@Nombre,@RFC,@CURP,85,@IdCuentaContable,'',0,0,0,0,0,0,0,0,7,0,0,4,'','','','Mexicana',1,1,0, @CodigoPersona, @CodigoCuenta,0,'','',0,'','','',''); ")
         StrSQL.Append("         EXEC PA_UpdateId 'Id_Proveedor';")
 
         StrSQL.Append("          ")
@@ -800,7 +804,7 @@ Public Class ClsContPAQi
 
         StrSQL.Append("          SET @IdPersona = dbo.FNC_GetCounter ('Id_Persona'); ")
         StrSQL.Append("          INSERT INTO Personas (Id,RowVersion,Codigo,Nombre,RFC,CURP,FechaRegistro,EsCliente,EsProveedor,EsEmpleado,EsAgente,EsPersona,EsBaja,Telefono1,Telefono2,Telefono3,Fax,eMail,PaginaWeb,IdDatoExtra,GenerarPolizaAuto,PosibilidadPago,SistOrig,CodigoAdminPAQ,EsResponsableGasto,CtaContableGasto,PagarDoctosAMismoRFC,GeneraContraCuentaDeudor,IdCategoria,IdSubCategoria) ")
-        StrSQL.Append("           VALUES (@IdPersona,555555, @Codigo,@Nombre,@RFC,@CURP,GETDATE(),0,1,0,0,0,0,'','','','','','',@IdDatoExtra,0,0,11,'',0,'',0,0,0,0); ")
+        StrSQL.Append("           VALUES (@IdPersona,555555, @CodigoPersona,@Nombre,@RFC,@CURP,GETDATE(),0,1,0,0,0,0,'','','','','','',@IdDatoExtra,0,0,11,'',0,'',0,0,0,0); ")
 
         StrSQL.Append("         EXEC PA_UpdateId 'Id_Persona';")
         StrSQL.Append("         ")
diff --git a/Transportes/RepContratosCalendario.aspx.vb b/Transportes/RepContratosCalendario.aspx.vb
index ad0243b62..18c209d4e 100644
--- a/Transportes/RepContratosCalendario.aspx.vb
+++ b/Transportes/RepContratosCalendario.aspx.vb
@@ -667,9 +667,7 @@ Partial Class RepContratosCalendario
                     resp = ObjFacturaCancelacion.CancelarFactura(0, CancelacionPagos:=CancelacionPagos, ValidarSAT:=False)
                     If resp.HuboError Then
                         TieneError = True
-                    Else
-                        RegistraScript("$('#ModalActualizar').modal('hide');")
-                        Alert("Actualizado Correctamente.")
+                        Alert("Se presento un error al Actualizar el contrato (Cancelación de factura).")
                     End If
                 End If
             End If
@@ -679,8 +677,11 @@ Partial Class RepContratosCalendario
 
         If TieneError Then
             ObjContratos.RollBack()
+            Alert("Se presento un error al Actualizar el contrato.")
         Else
             ObjContratos.Commit()
+            RegistraScript("$('#ModalActualizar').modal('hide');")
+            Alert("Contrato Actualizado Correctamente.")
         End If
         ObjContratos.Dispose()
         objGenerales.Dispose()