Zeus Net Proyect

Documentacion solucion ZeusNet2008

2010-03-05T15:44:00.012-03:00

Solución Zeus

Comunication(*)

ZeusNet.Communication.Core.SqlServerCommunication

ZeusNet.Communication.Services

ZeusNet.Communication.Core

Core(*)

ZeusNet.Core.Events(*)

ZeusNet.Core.Model

ActivityLog(*)

Audit(*)

Bags(*)

Context(*)

Domain(*)

Event(*)

Itineraries

Maps(*)

Reporting(*)

Services

Posibles Actividades en activity logs

2010-03-05T10:49:00.003-03:00

No creo que sea necesario comentar, esos datos van a la tabla "ACTIVITY_LOG"


public enum ActivityLogName : int{
        [Description("Create")]
        Create = 1,

        [Description("Update")]
        Update = 2,

        [Description("Delete")]
        Delete = 3
    }

--
Atte.
Víctor Hugo Saavedra
http://vhspiceros.blogspot.com

¿Como saber donde efecta el codigo que modificamos? usando Resharper

2010-03-04T10:21:00.006-03:00

Actualmente en realidad siempre hemos tenido el problema de que modificamos un metodo, variable,constante, enum, etc, etc. y no sabemos donde puede afectar.

Bueno resharper nos facilita esto, tanto para clases como para interfeces(no interfaces de usuario).

Resharper tienes muchas cosas buenas, las cuales no las voy a detallar ahora.

Este software se acopla a Visual studio, y nos da mas opciones, para el efecto de este post hablare de:

Find Usage
Find Advance Usage

Find Usage
Como lo dice su nombre busca donde "x" se encuentra en toda la aplicacion. puede buscar variables , clases, enums. el uso es bastante simple nos posicionamos con el mouse sobre lo que queremos buscar y despues click derecho y por ultimo find Usage.
La mayor gracia es que busca incluso los que son utilizados mediente una Interface, que es casi imposible detectarlo a simple vista. y la ventana de resultado es bastante simple, y potente, nos permite agruparlos de varias formas[al ultimo hablare un poco mas de esto]. aqui algunas imagenes

Buscamos la clase "voyage" donde se usa:

y la ventana de resultado es la siguiente
Fijense que por refecto lo agrupa por namespace, si bien este ejemplo mustra muchos resultados, muchas veces para casos mas especificos, como un bag, un metoto, es muy util.

Find Advance Usage

Es basicamente lo mismo, pero con algunas opciones. pero con opciones de donde buscar y la forma de hacerlo. la pantalla habla casi por si sola.

Pantalla de resultado:

Esta tiene muchas gracias y caracteristicas, por cada busqueda genera una nueva pestaña, asi podemos tener un historial.
No solo la podemos organizar por namespace.hay 13 formas de agrupacion.
Refresco de resultados, de forma manual.

Conclusion:
Si bien actualmente la mayoria usamos reshaper[ojo no esta licenciado como deberia ser], estos simples tips podrian aumentar la informacion del codigo que estamos modificando, asi saber a quien preguntarle, y el ambito y alcance de este.
por ejemplo si muestra muchos resultados, como el ejemplo de "voyage", voy a tener que pensar muy bien antes de cambiarle el nombre por ejemplo. Asi que a usar resharper por favor :D.

test

2010-03-04T10:20:00.001-03:00

test

Desconectar zeusnet de Active Directory

2010-01-28T09:58:00.003-03:00

Actumente cuando trabajo desde la casa, tengo que estar conectado a internet y a la Vpn de Ug. para poder ver zuesnet, aunque sea local, esto por el active directory.

para realizar esta validacion ocupa el siguiente codigo:


public static string GetCurrentUserName(){
    string loginName = System.Threading.Thread.CurrentPrincipal.Identity.Name;
    if (loginName.IndexOf("\\") != -1)
        return loginName.Substring(loginName.IndexOf("\\") + 1);   
    return loginName;
}

y sara saltar esa validacion, solo hay que asignarle a loginName un usario valido en duro, de la siguiente forma.


public static string GetCurrentUserName(){
    string loginName = System.Threading.Thread.CurrentPrincipal.Identity.Name;
    loginName = "pbeltran";
    if (loginName.IndexOf("\\") != -1)
        return loginName.Substring(loginName.IndexOf("\\") + 1);   
    return loginName;
}

este archivo esta en ZeusNet.Core.Model\Domain\Security\UserManager.cs
De esta forma podriamos dejar publicados todos los testXXXXXX, que puedan ser vistos desde cualquier coneccion a internet, esto en caso de cualquier eventualidad.

--
Atte.
Víctor Hugo Saavedra.
http://vhspiceros.blogspot.com

Registrar Script Javascript en Zeusnet desde c#

2010-01-27T11:38:00.003-03:00

Lo que en .net hacemos de esta Forma nativa :


string js = "alert('esto es un alert')";
ClientScript.RegisterStartupScript(Page.GetType(), "myAlert", "<script type='text/javascript'>" + js + "</script>");

En zeusnet tenemos que hacerlo de la siguiente forma:


string js = "alert('esto es un alert')";
ZeusWindow.AddScriptBlock(js);

Ojo tratemos de usar esa abstraccion de ClientScript.RegisterStartupScript en caso de futuras modificaciones solo modificamos un metodo :D.

--
Atte.
Víctor Hugo Saavedra
http://vhspiceros.blogspot.com

ultimo BunkerCharge para precio estimado

2010-01-18T18:31:00.003-03:00


Decimal bunkerChargeMdoPrice = 0;
if (CurrentVoyage.Vessel.Board != null && CurrentVoyage.Vessel.Board.MdoBunkerTank != null
    && CurrentVoyage.Vessel.Board.MdoBunkerTank.Charges != null){
    var bunkerChargeMdo = new List<BunkerCharge>(CurrentVoyage.Vessel.Board.MdoBunkerTank.Charges).FindLast(
        delegate(BunkerCharge foo) { return foo.IsForCompany; });
    if (bunkerChargeMdo != null)
            bunkerChargeMdoPrice = bunkerChargeMdo.UnitaryCost;
    }

Decimal bunkerChargeIfoPrice = 0;
if (CurrentVoyage.Vessel.Board != null && CurrentVoyage.Vessel.Board.IfoBunkerTank != null
    && CurrentVoyage.Vessel.Board.IfoBunkerTank.Charges != null) {
    var bunkerChargeIfo = new List<BunkerCharge>(CurrentVoyage.Vessel.Board.IfoBunkerTank.Charges).FindLast(
        delegate(BunkerCharge foo) { return foo.IsForCompany; });
    if (bunkerChargeIfo != null)
        bunkerChargeIfoPrice = bunkerChargeIfo.UnitaryCost;
    }

El codigo habla casi por si solo. obtiene la ultima carga desde la tabla "bunker_charge" siempre que sea desde la company. si se fijan las mayores lienas son los if, para que no tengamos problemas con los nullreferenceException tan famosos.

En las variables bunkerChargeIfoPrice y bunkerChargeMdoPrice dejamos los precios unitarios.

--
Atte.
Víctor Hugo Saavedra
http://vhspiceros.blogspot.com

OTHER_INCOME_EXPENSES_CP???

2009-12-28T11:53:00.003-03:00

Aqui hay un diagrama de la tabla en si, esta tabla lo que hace es conectar un voyage_instance, Charter_party con los otherIncomes.

Aqui el diagrama:
La forma de llegar facil a los datos, es por este sql, hice el sql con consultas anidadas para que sea mas facil de leer. aqui esta


BEGIN
DECLARE @idVoyageInstance AS int
SET @idVoyageInstance = 7067

select * from voyage where idRealInstance=@idVoyageInstance;
select * from OTHER_INCOME_EXPENSES_CP where idvoyageinstance=@idVoyageInstance;
select * from OTHER_INCOME_EXPENSES_INFO where id in (
  select idOtherIncome from OTHER_INCOME_EXPENSES_CP where idvoyageinstance=@idVoyageInstance
);

select * from EXPENSE_DETAIL where idinfo in  (
  select id from OTHER_INCOME_EXPENSES_INFO where id in (select idOtherIncome from OTHER_INCOME_EXPENSES_CP where idvoyageinstance=@idVoyageInstance)
);

select * from EXPENSE_ITEM where id in (
  select iditem from EXPENSE_DETAIL where idinfo in  (
      select id from OTHER_INCOME_EXPENSES_INFO where id in (select idOtherIncome from OTHER_INCOME_EXPENSES_CP where idvoyageinstance=@idVoyageInstance)
  )
);
END

Eso por ahora. si bien las realaciones son medios bestias, funcionan.

Importante: ojo con el mapeo de estas clases, se usa <map> para mepear la tabla OTHER_INCOME_EXPENSES_CP, y en la clase se usa un Idictionary, y no una lista como cuando se mapea de 1...n o n...1

Webservices & proxy en Zeusnet

2009-12-18T14:30:00.005-03:00

Actualmente en zeusnet no llegamos a ningun websevice, por razones de conectividad. ya que aqui en UG, todas las conexiones son mediante el proxy.

se modifico la clase proxy, que esta en zeus, esta no se usaba, aqui esta la clase.


  public class Proxy : IWebProxy {
      public static IWebProxy GetWebProxy() {
          IWebProxy webProxy;

          if (ProxyConfig.Enable) {
              ICredentials credentials = new NetworkCredential(ProxyConfig.User,
                                                               ProxyConfig.Password,
                                                               ProxyConfig.Domain);

              webProxy = new WebProxy(ProxyConfig.IP + ":" + ProxyConfig.Port, true, null, credentials);
          } else {
              webProxy = WebRequest.GetSystemWebProxy();
          }

          WebRequest.DefaultWebProxy = webProxy;

          return webProxy;
      }

      public ICredentials Credentials {
          get { return new NetworkCredential(ProxyConfig.User, ProxyConfig.Password); }
          set { }
      }

      public Uri GetProxy(Uri destination) {
          return new Uri(string.Format("http://{0}:{1}", ProxyConfig.IP, ProxyConfig.Port));
      }

      public bool IsBypassed(Uri host) {
          return false;
      }

esto lee los valores de servidor, usuario y password del webconfig, especificamente estos[estos ya estaban, pero no se utilizaban].


<add key="proxy.enable" value="true"/>
<add key="proxy.ip" value="10.10.50.1"/>
<add key="proxy.port" value="8080"/>
<add key="proxy.user" value="pbeltran"/>
<add key="proxy.password" value="123a."/>
<add key="proxy.domain" value="ultragestion.net"/>

Ahora la forma para que todo zeusnet tome los valores, del proxy es agrando esto en el web.config, a la misma altura que el tag system.web.


<system.net>
      <defaultProxy enabled="true" useDefaultCredentials="false">
        <module type = "ZeusNet.Support.Common.Proxy, ZeusNet.Support.Common" />
      </defaultProxy>
</system.net>

De esta forma le decimos que clase de tipo proxy use, para todas las conecciones.

Ojo, que el servicio de distancia, llegamos por conectividad, pero este actualmente esta malo arroja el error que describi aqui.

IMPORTANTE: los valores de system.net del webconfig, no se deben pasar ni a QA, menos a produccion.

--
Atte.
Víctor Hugo Saavedra
http://vhspiceros.blogspot.com

Servicio de distancia

2009-12-18T12:46:00.005-03:00

Se acaba de implementar un log de errores exclusivo para el servicio de las distancias.

para esto se uso log4net pero con otro nombre, aqui esta la configuracion en el web.config


<appender name="RollingLogFileServiceAppender" type="log4net.Appender.RollingFileAppender">
    <param name="File" value="C:\\zeuslogs\\zeusnetServiceFail.log"/>
    <param name="AppendToFile" value="true"/>
    <param name="MaxSizeRollBackups" value="10"/>
    <param name="MaximumFileSize" value="50MB"/>
    <param name="RollingStyle" value="Size"/>
    <param name="StaticLogFileName" value="true"/>
    <layout type="log4net.Layout.PatternLayout">
    <param name="ConversionPattern" value="%d [%t] %-5p %c [%x] - %m%n"/>
    </layout>
</appender>
<logger name="ServiceFailLog">
    <level value="ALL"/>
    <appender-ref ref="RollingLogFileServiceAppender"/>
</logger>

Esto en la seccion de log4net del web.config. este log solo tendra errores del llamado del servicio de distancias.
Aqui esta la info que que escribe.


LogServiceFail.Info(
        string.Format("[Fleet]{0}  [User]{1}  [ports]{2}  [Exception]{3}", 
                ZeusContext.Instance.CurrentFleet.Name, UserManager.GetCurrentUserName(), stringPort,ex.Message)
);

y el resultado de esto en el log es el siguiente:


2009-12-18 14:17:37,494 [7260] INFO  ServiceFailLog [(null)] - [Fleet]Panamax International  [User]vsaavedra  [ports]Esmeraldas,Puerto Armuelles,  [Exception]Server was unable to process request. ---> A network-related or instance-specificerror occurred while establishing a connection to SQL Server. The server was not found or was not accessible. Verify that the instance name is correct and that
SQL Server is configured to allow remote connections. (provider: TCP Provider, error: 0 - A connection attempt failed because the connected party did not properly respond after a period of time, or established connection failed because conn
ected host has failed to respond.)

Todo esto ya esta en Subversion.
--
Atte.
Víctor Hugo Saavedra
http://vhspiceros.blogspot.com

Creacion de "Documento" nuevo.

2009-12-03T10:33:00.003-03:00

Trabajando en el modulo Supplier Provisions, se dio la ocacion de crear "documentos" nuevos para trabajar(reversar) las provisiones de items de una proforma que no tienen documento y el port expenses de un fixture(de cada puerto)
Aparte de crear la clase para cada documento con su logica de vouchers y manejo de provisiones, es necesario agregar el nuevo tipo de documento en la clase/enum DocumentSource:

[TypeDescription(typeof(ProformaDocument))]
[Description("Document Proforma")]
ProformaDocument = 170,

La clase se debe agregar como Type y no como descripcion([ShortDescription("Clase")]) , ya que existe una validacion que chequea documentos anteriores al actual y cada item. Y para esto la aplicacion a travez de Reflection saca cada atributo de cada clase "documento".

Como se renderiza un ZeusCommandButton en el cliente

2009-12-02T16:47:00.006-03:00

Tenia que hacer que un boton no fuera a hacer nada el servidor solo javascript, y con la ayuda de Firebug, vi como se renderizaba en el cliente. y pude simularlo y poner mi codifgo Javascript sin problema.

El control .net es asi.


<zeus:ZeusCommandButton ID="BtnHolidays" Text="Holidays" runat="server"  OnClick="BtnHolidays_click"  OnClientClick="alert('hola');" />

En este caso el alert nunca se ejecuta, de hecho lo renderiza de esta forma


<div onclick="javascript:setTimeout('WebForm_DoPostBackWithOptions(new WebForm_PostBackOptions("ctl00$ContentPlaceHolder1$wzdDemurrageCalculator$rptPorts$ctl00$BtnHolidays", "Click", true, "", "", true, true))', 0)" style="width: 100px;" id="ctl00_ContentPlaceHolder1_wzdDemurrageCalculator_rptPorts_ctl00_BtnHolidays">
    <table cellspacing="0" cellpadding="0" border="0" width="100" onmouseover="this.style.cursor='pointer';" style="cursor: pointer;">
        <tbody>
            <tr>
                <td align="left" valign="top" class="pix-bot-Command-left"/>
                <td align="center" class="pix-bot">
                    <a tabindex="0" onblur="lostFocus(this);" onfocus="setFocus(this);" class="pix-link" href="#">Holidays</a>
                </td>
                <td align="right" valign="top" class="pix-bot-Command-right"/>
            </tr>
        </tbody>
    </table>
</div>

Asi tome el codigo, y cambie el llamado a la funcion javascript, y le quite el id y queda listo, ahora puse un alert y funciona, en el caso puntual, tengo que hacer un window.open.


<div onclick="javascript:alert('hola')"  style="width: 100px;">

    <table cellspacing="0" cellpadding="0" border="0" width="100" onmouseover="this.style.cursor='pointer';" style="cursor: pointer;">
        <tbody>
            <tr>
                <td align="left" valign="top" class="pix-bot-Command-left"/>
                    <td align="center" class="pix-bot">
                        <a tabindex="0" onblur="lostFocus(this);" onfocus="setFocus(this);" class="pix-link" href="#">Holidays</a>
                    </td>
                    <td align="right" valign="top" class="pix-bot-Command-right"/>
            </tr>
        </tbody>
    </table>
</div>

NOTA: ufff hace tiempo que no posteaba nada, ya estaba fuera de forma, jejejejeje
--
Atte.
Víctor Hugo Saavedra
http://vhspiceros.blogspot.com

problemas con centro de costo voucher interfaz zeusnet

2009-11-25T16:03:00.005-03:00

En zeusnet se estaba generando un voucher como nulo, en 0 para ser mas especifico , el problema no se da muy seguido por que los contadores saben que en el sistema existe un problema con el FEP (Fondo de Estabilizacion del petroleo), el mensaje que enviaba es :

Se produjo un error al intentar contabilizar el Voucher Nro 37707 de la empresa UGAS

Transacción:
Ac13_014 - Cuentas por Pagar a Provisión Gastos - Sin Finished Voyage Accrue

Detalle:

- No existe la relación Cuenta-Sucursal-Moneda-Ccosto: 211203-1-1-0
- Validación resulto con errores. Revise LOG. No sera posible Generar CDC

Saluda Atte,
Interfaz Contable ZeusNet.

el problema es que la cuenta que aparece en el error no es la que muestra el voucher, el voucher muestra los siguientes datos.

dc_cuenta_mayor = 210301 y la interfaz hace el cambio a la cuenta 211203.

revisando el código de el proceso de Interfaz contable, me encontré con el siguiente SP: sp_p_zeusnet_VoucherLineCdc de la base de datos de bd_tools, el sistema de interfaz trabaja con todas las Bases de datos contables, usa los procedimientos almacenados que existen en el TOOLS para ir generando los vouchers y ademas tiene su propia base de datos donde guarda los logs de los errores y transacciones.

revisando el sp_p_zeusnet_VoucherLineCdc encontré que hace referencia a la transaccion 'AC13' y dependiendo de el rut que venga hace un update y cambia la cuenta.

Ahora se por que se cambiaba la cuenta, validamos con los usuarios y es correcto que marque la cuenta como CORPORATIVO y que cambie la cuenta , el problema ahora radica en el centro de costo , aparece en 0 y debería ser 1.

Al preguntar a que centro de costo imputar no lo encuentra , ya que ‘Corporativo’ no estaba definido en la tabla tb_centro_costo_ZN values de la base de datos BD_ZEUSNETINTERFAZ

NombreFlota dc_centro_costo
--------------------- ------------------
Ultragas 100
Ultrabulk 900
Breakbulk 200
Horizon 901
Panamax International 700
Sonap-Cape Tanker 700
Ultragas Int. 100
Suezmax 700

Si agregamos este insert en producción solucionamos el problema, por lo menos en el ambiente controlado funciono.
insert into tb_centro_costo_ZN values ('CORPORATIVO',1)

Con esto tenemos centro de costo , antes entregaba un nullo y la interfaz preguntaba si era nulo ponle que el centro de costo es 0 .

Tambien es util ir mirando las siguientes tablas

select * from log
select * from tb_log_contabilizador

estas tablas entregan un log de lo que hace por consola la interfaz + todos los errores de la interfaz en la base de datos bd_interfazzeusnet.

En la BD_tools

VoucherLineCdc que es la tabla donde se obtiene la tabla final para generar los vouchers.
Voucher_line_cdc y esta ultima es la tabla que se llena desde zeusnet.

pero ojo todo en la BD_tools.

Saludos.

Selinum & UpdatePanel[WaitForXXXXXX]

2009-10-23T12:58:00.004-03:00

http://vhspiceros.blogspot.com/2009/10/selinum-updatepanelwaitforxxxxxx.html

--
Atte.
Víctor Hugo Saavedra.
Http://vhspiceros.blogspot.com

¿Que estas comiendo Roberto?

2009-10-13T16:58:00.002-03:00

Estofado de que????

Tratando de recorrer menos las listas

2009-10-09T13:05:00.001-04:00

personalmente estoy casi empeñado en tratar de cada dia recorrer menos las listas, estas son muy costosas de recorrer, cuando es una tarea muy comun como en zeusnet.

En zues estamos medios fritos por el tema de hibernate, que trae una lista muy grande y hay que filtrarla, cuando no hay un hql que se adapte a lo que necesitamos.

Hay una forma de recorrer menos las listas, usando Delegate

para buscar en mi blog puse un post. aqui lo dejo.

Ahora necesita eliminar datos de una lista, que cumpleran con x condiciones, tenia que recorrer dos listas, lo cual es bastante costoso aqui el codigo.

List<int> positions = new List<int>();int pos = 0;foreach (var portitem in laytimeCalculation.PortItems){    pos = 0;    positions.Clear();    foreach (var item in portitem.DetailItems.Items){        if (item.DeductActivity != null && item.DeductActivity.ToUpper().Trim() == "Vessel on  Demurrage".ToUpper().ToUpper())             positions.Add(pos);        pos++;        }    foreach (var i in positions){        portitem.DetailItems.Items.RemoveAt(i);    }}

Usando un delegate y el metodo deleteAll de las listas, asi solo recorremos solo una vez las listas.

var array = portitem.DetailItems.Items as List<LaytimeCalculationItem>;if (array != null)        array.RemoveAll(            delegate(LaytimeCalculationItem item){                return (item.DeductActivity != null &&                    item.DeductActivity.ToUpper().Trim().Equals("Vessel on  Demurrage".ToUpper()));                }        );

Es mas podriamos dejarla en una sola linea aunque sea mas dificil de leer

array.RemoveAll(delegate(LaytimeCalculationItem item){return (item.DeductActivity != null && item.DeductActivity.ToUpper().Trim().Equals("Vessel on  Demurrage".ToUpper()));});

Otra cosa importante es que podemos usar lambda, pero lamentamente no es proyecto, ya que compilamos en el framework 2, y lambda es del 3.

Interfaz Zeusnet

2009-10-07T18:07:00.004-04:00

Comenzare con una leve descripción de como esta la interfaz de Zeusnet.

La interfaz es un proceso de consola en .net pero ademas usa como referencia una Dll de visual Basic 6.0
y ahí es donde comienzan todos mis problemas, cada vez que abro el proyecto de la interfaz me pide abrir con visual basic 6 la dll para recompilarla, y al parecer cuando la paso desde mi pc a la maquina de produccion no hay caso que el proceso corra, ademas de este dilema, necesitamos que el proceso de consola se ejecute como un servicio windows.

Comenzare explicando como arreglar el problema de la dll y terminare con el tema del servicio.

Abro el proyecto de Visual basic de la dll "ZeusNet.Connector.ERP.dll" este proyecto está en la ruta de SVN :
http://vm_lkutscher:8080/svn/ZeusNet/relacionados/ZeusNet.Interfaz/ZeusNet.Connector.ERP/

lo abro y me voy al menu de proyecto y selecciono ZeusNet.Connector.ERP , selecciono propiedades y en "component" le coloco "Proyect Compatibility" , se va a desbloquear el texto y debo apretar los 3 puntos para indicarle la ruta de la DLL que funcionaba sin problemas.
Después de esto me voy a File y presiono make ZeusNet.Connector.ERP.dll, con esto actualizare la dll y estará con la compatibilidad que tenia la de producción.

Para que esta dll quede funcionando sin problemas en producción tenemos que ejecutar el comando de Unregister Dll.

"START REGSVR32 D:\Ultragestion\ZeusNetInterfaz\ZeusNet.Connector.ERP.dll /u"

despues de esto tenemos que instanciar la dll(según me explico Cesar Mansilla.) para esto ejecutamos el archivo .exe llamado "Project1.exe" que está en la maquina de producción "D:\Ultragestion\ZeusNetInterfaz\Project1.exe"

con esto queda generada la instancia despues vuelvo a ocupar el register dll con el comando
"START REGSVR32 D:\Ultragestion\ZeusNetInterfaz\ZeusNet.Connector.ERP.dll"

con eso queda operativa la dll sino se hace esto arrojará errores de casteo.

Ahora con el segundo tema que es el servicio de consola.

Como primeramente no se podía modificar el .exe pensé que lo mas optimo era generar un servicio windows que llamara a un .exe por un CMD.EXE asi no tenia que depender del .exe , así puedo llamar a cualquiera , este proceso lo deje en la ruta de SVN: http://vm_lkutscher:8080/svn/ZeusNet/relacionados/ZeusNet.Interfaz/ZeusNet.InterfazService
el problema que tenia este servicio es que siempre se conectaba con las credenciales de NT_system y yo necesitaba que ejecutara el proceso como Administrator, si lo configuraba para que lo ejecutara el administrador no lo tomaba y lo volvía a ejecutar como NT_SYSTEM , conversando con danilo loncomil me dijo que el hizo algo parecido antes y que habia usado IMPERSONATE , que era una linea en el App.config donde se le seteaba el usuario para usar Impersonate, al hacer esto y ejecutar el proceso por fin quedo corriendo como Administrador.

Deje las rutas en SVN para que hagan traza del código ya que es harto codigo y de mi punto de vista no vale la pena llenar el blog de tanto codigo , creo que es mejor una explicacion.

http://vm_lkutscher:8080/svn/ZeusNet/relacionados/ZeusNet.Interfaz/Library

aca deje los archivo de Tail.exe para ver el log de la app, Project1.exe para generar la instancia y un .bat que desintala y luego instala la dll del proceso.

Saludos.

PCBT:

Como pasar valores de un fixture a un viaje en la creacion

2009-10-06T18:37:00.001-04:00

No es algo muy comun, que se pida de un fixture pasar los datos a un viaje. por lo general uno lee los datos del mismo contrato, bueno parece que saque el premiado, me pidieron copiar los datos del demurrageRate y despatchRate en los viajes, estos deben ser una copia de los que estan en el fixture, pero si se modifican en el fixture, los del viaje deben mantenerse igual.

Bueno hay una clase que se encarga de vaciar toda la información para el viaje esta clase es la siguiente:

namespace ZeusNet.Core.Model.Domain.Chartering.Fixture{    public class FixtureVoyageLoader : CharterPartyVoyageLoader{}}

y esta en esta ruta ZeusNet.Core.Model\Domain\Chartering\Fixture\FixtureVoyageLoader.cs.

en mi caso yo modifique el siguiente metodo, ya que tenia relacion con los puertos, los DemurrageRate y despatchRate ahora se van a diferenciar por puerto.

protected virtual VoyageItineraryPort CreateVoyagePort(FixtureItineraryPort fixtureport, Voyage voyage){    VoyageItineraryPort voyageItineraryPort = new VoyageItineraryPort();    voyageItineraryPort.Port = fixtureport.Port;    voyageItineraryPort.Heating = fixtureport.Heating;    voyageItineraryPort.TimeZone = (fixtureport.Port != null ? fixtureport.Port.TimeZone : null);    voyageItineraryPort.IdleTime = fixtureport.IdleTime;    voyageItineraryPort.PortExpenses = fixtureport.PortExpenses;    voyageItineraryPort.VoyageInstance = voyage.RealInstance;    voyageItineraryPort.DespatchRate = fixtureport.DespatchRate;    voyageItineraryPort.DemurrageRate= fixtureport.DemurrageRate;    voyage.RealInstance.VoyageItinerary.AddItem(voyageItineraryPort);    if (CommonUtils.AreNullablesEquals(voyageItineraryPort.PreviousPort, fixtureport.PreviousPort) && fixtureport.Distance > 0){        voyageItineraryPort.Distance = fixtureport.Distance;        voyageItineraryPort.RefreshDistance = voyageItineraryPort.IsFirstPort();    }else{        voyageItineraryPort.DistancesManager.RefreshDistance();    }    voyageItineraryPort.VesselSpeed = VesselSpeed.Service;    voyageItineraryPort.ExtraTime = fixtureport.ExtraTime;    return voyageItineraryPort;}

En esta clase esta todo lo que sepasa al viaje. los puertos, las operaciones de los mismos puertos, etc, etc.

--
Atte.
Victor Hugo Saavedra
http://vhspiceros.blogspot.com

problemas en setting de accounting.

2009-10-01T11:30:00.001-04:00

vouchers:

TransactionNumber.Ac13_005

para esta transaccion se estaba cayendo el sistema no lograbamos comprender el por que , y era que alguien paso a llevar un dato en el dg_movimiento, logramos identificar que el valor del id iba ingresado de manera distinta, el valor erroneo estaba asi :"Port del CU Ac13 al Ac17" y deberia ser asi "Port del CU Ac13 al Ac17 ::697};"

para hacer la correcion vimos los id en blanco y le hicimos update.

select * from VOUCHER_CONFIG_VALUE where value like'%Port del CU Ac13 al Ac17%'

select * from VOUCHER_CONFIG_VALUE where id in(19971,20011) --491, 697

--update VOUCHER_CONFIG_VALUE set value = 'Prov.[dc_nave_naviera_ZN];[dc_viaje_naviera_ZN];{Port del CU Ac13 al Ac17 ::697};'
where id in(19971,20011)

Saludos.

PCBT.

Paso a produccion de zuesnet.

2009-09-10T17:08:00.001-04:00

Compilacion de proyecto

Servidor 10.10.50.128
User: master
Password: contab123.

En "C:\Paso\drop_rel\sources" esta los fuentes de zuesnet conectados al trunk de Svn. aqui hay que hacer solo un update para traer los ultimos fuentes.

Luego borrar todo el contenido de la carpeta "C:\Paso\drop_rel\output\"

El proximo paso es correr el archivo "C:\Paso\drop_rel\Compilar2008.bat" este genera un log "resultado.txt", este se puede ir viendo en linea con el progama o comando "tail". Este bat compila y deja todo lo compilado en la carpeta "C:\Paso\drop_rel\output\".

Comprimir carpeta output completa y dejar en maquina de desarrollador.

Hacer todo esto siempre y cualdo la compilacion sea EXITOSA.
Con esto estamos listos en esta maquina, podemos cerrar la ventana de escritorio remoto, o cerrar la session de "master".

Ahora tenemos que conectarnos a la "10.10.60.6" para generar zuesnetTest.
las publicaciones o archivos compilados quedan de la siguiente forma en
"Q:\NAVIERAS\ZEUSNET_TEST"

y hace quedan cada uno de los candidatos a release final.
Q:\NAVIERAS\ZEUSNET_TEST\release 2.2.4.10 #1\ZeusNet
Q:\NAVIERAS\ZEUSNET_TEST\release 2.2.4.10 #2\ZeusNet
Q:\NAVIERAS\ZEUSNET_TEST\release 2.2.4.10 #3\ZeusNet
Q:\NAVIERAS\ZEUSNET_TEST\release 2.2.4.10 #4\ZeusNet
...
...
...
Q:\NAVIERAS\ZEUSNET_TEST\release 2.2.4.10 #n\ZeusNet

copiamos ouput a "Q:\NAVIERAS\ZEUSNET_TEST\", y generamos con el contenido, la carpeta Q:\NAVIERAS\ZEUSNET_TEST\release 2.2.4.10 #N+1\ZeusNet . ya teniendo esto apuntamos el directorio virtual de zeusnetTest al nuevo directorio.
Los archivos de configuracion tanto el de hibernate como el web.config hay que reemplazarlos, estos estan en "Q:\NAVIERAS\ZEUSNET_TEST\".[NOTA: por ahora no cambiar el web.config, por problemas de configuracion con webservice.]

Con todo esto ya esta terminado el proceso de compilacion y publicacion de zeusnetTest.

Rescatar Base de datos de produccion.

conectarse a con cliente ftp a : ftp://zuesnet@10.10.50.5 y el password es "123a.". ordenar por fecha descendentement y bajar el ultimo respaldo que haga referencia a zues.

Copiar el archivo rar al 10.10.60.6 en el directorio "Q:\Respaldo BDZEUSNET\produccion" y dejar con el nombre de este estilo "BACKUPBBDDZsnetTest_10_09_2009.rar". luego descomprimirla y al respaldo en si que esta dentro de unas carpetas ponerla la extension ".bak".

En modificar "Q:\Respaldo BDZEUSNET\restore.sql" dependiendo de las rutas y base de datos.

Importante es bajar y ejecutar los script para este release que estan en svn. en la carpeta dababase.

Despues de generar zuesnetTest en el "10.10.60.6". conectarse conectarse a "10.10.95.76"
usuario -->"zeusnet@holding.net"
password--> "adze.1112".

Dejar en el ambiente de zuesnet, dejar en el directorio virtual zuesnet. el mismo procedimiento que se hizo en zeusnettest. esto se prueba en "http://qazeusnet" desde nuestras maquinas no llegamos asi, que se tiene que hacer el interior de "10.10.95.76" por escritorio remoto. El directorio virtual virtual de lastDrop hay que dejarlo apundo al anterior "zuesnet". No sobre-Escribir las carpetas.

Nota: si esto tiene falta de ortografia o radaccion, no me digan nada :D.

--
Atte.
Victor Hugo Saavedra.
http://vhspiceros.blogspot.com

insert a partir de un select

2009-09-08T17:48:00.002-04:00

por si les sirve :D
--
Atte.
Victor Hugo Saavedra
http://vhspiceros.blogspot.com

Interfaz Zeusnet

2009-09-08T16:53:00.001-04:00

El proceso de la interfaz no se ejecuta de manera automatica como debería para que se ejecute debe haber una diferencia en unos count que hace el proceso para poder forzar estos count debemos hacer el siguiente update.

update tb_zeusnet_nro_personas set dn_personas = 0

con eso comenzará a ejecutarse el proceso.

Saludos.

PCBT.

Enviar reportes de Crystal por Email

2009-08-07T18:00:00.001-04:00

En el post de recien, esta como mandar correos.

En la mejora que tengo que hacer ahora, tengo que mandar un reporte generado con crystal por correo.
Aqui dejo las lineas


var adapter = BinaryReportAdapterFactory.GetAdapter();
adapter.AddTable(new VCInvoiceReportBuilder(invoice).Report.Items);

var msg = new MailMessage();
var stream = new MemoryStream( adapter.GetBinary()) as Stream;
var adjunto = new Attachment(stream, new ContentType(MediaTypeNames.Application.Pdf));
msg.Attachments.Add(adjunto);

O si prefieren en menos lineas


var adapter = BinaryReportAdapterFactory.GetAdapter();
adapter.AddTable(new VCInvoiceReportBuilder(invoice).Report.Items);

var msg = new MailMessage();
var adjunto = new Attachment(new MemoryStream(adapter.GetBinary()) as Stream, new ContentType(MediaTypeNames.Application.Pdf));
msg.Attachments.Add(adjunto);

por lo poco y nada que entiendo, el metodo GetBinary retorna un arreglo de String, y el constructor de Attachment puede recibir un string[nombre archivo], o un Stream indicando el tipo del contenido. En este casi como sabemos que es un pdf le pasamos como segundo argumento un "new ContentType(MediaTypeNames.Application.Pdf".

Entonces hacemos el tipo todas las conversiones, casteos, etc, etc, necesarios.
--
Atte.
Victor Hugo Saavedra
http://vhspiceros.blogspot.com

Enviandos correos

2009-08-07T15:14:00.002-04:00

Aquí dejo un link de como enviar correos link .

y para enviar correos desde ultragestion estando en la red son los siguientes datos.


var client = new SmtpClient
           {
               Credentials = new NetworkCredential("vsaavedra@ultragestion.cl", "******"),
               Port = 25,
               Host = "10.10.50.105",
           };

NOTA: Cuidado con los adjuntos, hay reglas que no dejan pasar algunos tipos de archivos por ejemplo txt, diciendo que puede que estés enviando Spam.

--
Atte.
Víctor Hugo Saavedra.
http://vhspiceros.blogspot.com

Eliminacion de un Viaje, parte III

2009-07-28T12:59:00.001-04:00

siguiendo con el post .

Este Query les entrega la información necesaria para procesar.


select ve.name, vo.name, ve.id '@idVessel', vo.id '@idVoyage', vo.idrealinstance '@realIntance', vo.idestimatedinstance '@estimateIntance'

from vessel ve inner join voyage vo on ve.id = vo.idvessel

where ve.name like '%neapolis%'

and vo.name like '%63%'

go

Luego, ejecutan el siguiente procedimiento almacenado. Para el caso que la instancia estimada sea NULL, deben indicar la misma que aparece en el Real.


/* exec SP_deleteVoyage @idVessel, @idVoyage, @realIntance, @estimateIntance, @resultado out*/

exec SP_deleteVoyage 28, 3029, 6047, 6047
go

--
Atte.
Víctor Hugo Saavedra.
http://vhspiceros.blogspot.com

Problema con posn, parte II

2009-07-23T12:15:00.002-04:00

siguiendo con este post, cristian desarrollo un procedimiento que soluciona los problemas del campo posn de la tabla BUNKER_STOCK_CONSUMPTION.

Este procedimiento recibe como argumento o parámetro el id del tanke, que se obtiene de la tabla vessel. para IFO y MDO hay que ejecutarlo dos veces con sus respectivos tankes.

Aqui dejo el procedimiento:


ALTER PROC SP_P_RECALCULO_DISTRIBUCION_BK_ESTIMADO_POSN
 @BUNKERTANK  BIGINT
AS
DECLARE @IDCONSUMPTION     BIGINT,        @BSCID        BIGINT,        @IDCONSUMPTION_AUX     BIGINT,
        @POSN        INT
/*RECORRO LOS CONSUMOS ESTIMADO PARA DARLE LAS POSICIÓN CORRECTA (IFO)*/
DECLARE CURSOR_CONSUMO_ESTIMADO CURSOR FOR
/*    SELECT BSC.IDCONSUMPTION, BSC.ID, BSC.POSN
        FROM BUNKER_CONSUMPTION BC
    INNER JOIN BUNKER_STOCK_CONSUMPTION BSC ON BSC.IDCONSUMPTION = BC.ID
    WHERE BC.IDTANK = @BUNKERTANK AND BSC.IDCHARGE IS NULL
    ORDER BY BSC.IDCONSUMPTION*/
    SELECT IDCONSUMPTION, ID, POSN  FROM BUNKER_STOCK_CONSUMPTION  WHERE IDCONSUMPTION IN (
     SELECT IDCONSUMPTION FROM BUNKER_STOCK_CONSUMPTION WHERE IDCONSUMPTION IN (
         SELECT ID  FROM BUNKER_CONSUMPTION WHERE  IDTANK = @BUNKERTANK
     )
     AND POSN <> 0
    )
    ORDER BY IDCONSUMPTION,POSN


  SELECT @POSN = 0, @IDCONSUMPTION_AUX = 0
  OPEN CURSOR_CONSUMO_ESTIMADO
  FETCH NEXT FROM CURSOR_CONSUMO_ESTIMADO
  INTO @IDCONSUMPTION, @BSCID, @POSN
    WHILE (@@FETCH_STATUS = 0)  BEGIN
          IF (@@ERROR <>0)
             BEGIN
                  ROLLBACK TRAN
                  RETURN 0
             END
          IF @IDCONSUMPTION_AUX <> @BSCID
             BEGIN
            SELECT @IDCONSUMPTION_AUX = @BSCID, @POSN = 0
             END
          UPDATE BUNKER_STOCK_CONSUMPTION SET POSN = @POSN
          WHERE ID = @BSCID
              SELECT @POSN= @POSN + 1

    FETCH NEXT FROM CURSOR_CONSUMO_ESTIMADO
    INTO @IDCONSUMPTION, @BSCID, @POSN
  END
  CLOSE CURSOR_CONSUMO_ESTIMADO
  DEALLOCATE CURSOR_CONSUMO_ESTIMADO

RETURN

--
Atte.
Víctor Hugo Saavedra.
http://vhspiceros.blogspot.com

Cumpleaños mesa central & despedida de gente de ventas

2009-07-21T11:06:00.001-04:00

Zeusnet marca fuerte presencia en la despedida de ventas & cumpleaños de mesa central.
tenemos el agrado de comunicar y mostrar 2 de los integrantes de nuestro Equipo. muy buen trabajo Paul y Danilo.

--
Atte.
Victor Hugo Saavedra
http://vhspiceros.blogspot.com

Eliminacion de un Viaje, parte II

2009-07-21T09:29:00.001-04:00

continuando con el post se contemplaron nuevas tablas ademas se paso como procedimiento almacenado, este procedimiento se llama SP_deleteVoyage y este ya fue pasado a produccion en el release recientemente entregado. Este procedimiento se llama desde la aplicacion, cuando se quiere eliminar un viaje, por la aplicación tiene otras validaciones, por ejemplo solo puede eliminar viajes 100% estimados.

IMPORTANTE: si el viaje solo tiene idRealIntance o solo idEstimateInstance, pasar el mismo valor en los 2 paremetros, no pasar NULL, ya que si es asi, eliminara información de otros viajes.

Aqui dejo el procedimiento almacenado:


ALTER PROCEDURE [dbo].[SP_deleteVoyage]
 @idVessel   bigint,
 @idVoyage  BIGINT,
 @realIntance   BIGINT,
 @estimateIntance bigint,
 @resultado varchar(255) = null Out
as

/*-- RANCHO DE COMBUSTIBLE
--=====================*/
--select * from vessel where name like '%cotop%'
--select * from voyage where idvessel = 657
/*
declare @result varchar(255)
exec SP_deleteVoyage 657, 2838, 5664, 5665, @result out
select @result

*/
/*DECLARE @idvoyage bigint
DECLARE @realIntance bigint
DECLARE @estimateIntance bigint
DECLARE @idVessel  bigint
SET @idvoyage = 2693
SET @realIntance = 5379
SET @estimateIntance = 5392
SET @idVessel = 599

*/

begin tran

/*--Actualiza la relación con el documentos recibido*/
select idBunkerSupplyDocument, *  from BUNKER_SUPPLY where idVoyage = @idvoyage
update BUNKER_SUPPLY set idBunkerSupplyDocument=null   where idVoyage = @idvoyage
if (@@error <> 0)
 begin
select @resultado = 'Problemas al actualizar BUNKER_SUPPLY'
rollback tran
return 100
 end
/*--Elimina los documentos relacionados al items*/
select * from BUNKER_SUPPLY_DOCUMENT_ITEM where idBunkerSupplyDocument in (
 select id from BUNKER_SUPPLY_DOCUMENT where idBunkerSupply in (
     select id  from BUNKER_SUPPLY where idVoyage = @idvoyage))

delete BUNKER_SUPPLY_DOCUMENT_ITEM where idBunkerSupplyDocument in (
 select id from BUNKER_SUPPLY_DOCUMENT where idBunkerSupply in (
     select id  from BUNKER_SUPPLY where idVoyage = @idvoyage))
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar BUNKER_SUPPLY_DOCUMENT_ITEM'
     rollback tran
return 100
 end

/*--Elimina el Documento, que contiene los Items*/
select * from BUNKER_SUPPLY_DOCUMENT where idBunkerSupply in (
 select id  from BUNKER_SUPPLY where idVoyage = @idvoyage)

delete  from BUNKER_SUPPLY_DOCUMENT where idBunkerSupply in (
 select id  from BUNKER_SUPPLY where idVoyage  = @idvoyage)
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar BUNKER_SUPPLY_DOCUMENT'
     rollback tran
return 100
 end

/*Elimina las facturas recepcionas.*/
select * from BUNKER_SUPPLY_INVOICE_DETAIL_ITEM where BunkerSupplyDetails in (
 select id from BUNKER_SUPPLY where idVoyage = @idvoyage)

delete  from BUNKER_SUPPLY_INVOICE_DETAIL_ITEM where BunkerSupplyDetails in (
 select id from BUNKER_SUPPLY where idVoyage = @idvoyage)
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar BUNKER_SUPPLY_INVOICE_DETAIL_ITEM'
     rollback tran
return 100
 end

/* Tabla de Referencia*/
select * from BUNKER_SUPPLY_PREVIOUS_INFO where BunkerSupply in (
 select id from BUNKER_SUPPLY where idVoyage = @idvoyage)
delete  from BUNKER_SUPPLY_PREVIOUS_INFO where BunkerSupply in (
 select id from BUNKER_SUPPLY where idVoyage  = @idvoyage)
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar BUNKER_SUPPLY_PREVIOUS_INFO'
     rollback tran
return 100
 end

/*Elimina el registro de compra.*/
select * from BUNKER_SUPPLY where idVoyage  = @idvoyage
delete from BUNKER_SUPPLY where idVoyage  = @idvoyage
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar BUNKER_SUPPLY'
     rollback tran
return 100
 end

/*-- PURCHASE_ORDER*/
select * from PURCHASE_ORDER where idVoyage = @idvoyage
delete from PURCHASE_ORDER where idVoyage = @idvoyage
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar PURCHASE_ORDER'
     rollback tran
return 100
 end
/*PROFORMAS
---=========
--Elimina las remesas asociadas a la proforma para una agencia
*/
select * from AGENCY_REMITTANCE_PROFORMA_REMITTANCE where IdProformaRemittance in (
 select id from PROFORMA_REMITTANCE where IdVoyage = @idvoyage)
delete AGENCY_REMITTANCE_PROFORMA_REMITTANCE where IdProformaRemittance in (
 select id from PROFORMA_REMITTANCE where IdVoyage = @idvoyage)
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar AGENCY_REMITTANCE_PROFORMA_REMITTANCE'
     rollback tran
return 100
 end

/*Elimina las remesas asociadas a la proforma*/
select * from PROFORMA_REMITTANCE where IdVoyage = @idvoyage
delete from PROFORMA_REMITTANCE where IdVoyage = @idvoyage
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar PROFORMA_REMITTANCE'
     rollback tran
return 100
 end


/*--SUPPLIER DOCUMENT
---=================
--Elimina documentos relacionados a la compra de combustible*/
select * from BUNKER_SUPPLY_INVOICE_DOCUMENT where id in (
 select id from SUPPLIER_DOCUMENT where voyage = @idvoyage)

delete from BUNKER_SUPPLY_INVOICE_DOCUMENT where id in (
 select id from SUPPLIER_DOCUMENT where voyage = @idvoyage)
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar BUNKER_SUPPLY_INVOICE_DOCUMENT'
     rollback tran
return 100
 end

select * from PORT_DISBURSEMENT_DETAIL_ITEM where idPortDisbursementDocument in (
        select id from PORT_DISBURSEMENT_DOCUMENT where id in (
                       select id from SUPPLIER_DOCUMENT where voyage = @idvoyage) )
delete from PORT_DISBURSEMENT_DETAIL_ITEM where idPortDisbursementDocument in (
    select id from PORT_DISBURSEMENT_DOCUMENT where id in (
              select id from SUPPLIER_DOCUMENT where voyage = @idvoyage) )
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar PORT_DISBURSEMENT_DETAIL_ITEM'
     rollback tran
return 100
 end

select * from PORT_DISBURSEMENT_OTHER_PROVISION_ITEM where idPortDisbursementDocument in (
      select id from PORT_DISBURSEMENT_DOCUMENT where id in (
                select id from SUPPLIER_DOCUMENT where voyage = @idvoyage))
delete from PORT_DISBURSEMENT_OTHER_PROVISION_ITEM where idPortDisbursementDocument in (
      select id from PORT_DISBURSEMENT_DOCUMENT where id in (
                select id from SUPPLIER_DOCUMENT where voyage = @idvoyage))
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar PORT_DISBURSEMENT_OTHER_PROVISION_ITEM'
     rollback tran
return 100
 end


select * from PORT_DISBURSEMENT_DOCUMENT where id in (
           select id from SUPPLIER_DOCUMENT where voyage = @idvoyage)
delete from PORT_DISBURSEMENT_DOCUMENT where id in (
           select id from SUPPLIER_DOCUMENT where voyage = @idvoyage)
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar PORT_DISBURSEMENT_DOCUMENT'
     rollback tran
return 100
 end

select * from COMMISSIONS_INVOICE_DETAIL_ITEM where idCommissionsInvoiceDocument in (
      select id from COMMISSIONS_INVOICE_DOCUMENT where id in (
               select id from SUPPLIER_DOCUMENT where voyage = @idvoyage))
delete from COMMISSIONS_INVOICE_DETAIL_ITEM where idCommissionsInvoiceDocument in (
      select id from COMMISSIONS_INVOICE_DOCUMENT where id in (
               select id from SUPPLIER_DOCUMENT where voyage = @idvoyage))
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar COMMISSIONS_INVOICE_DETAIL_ITEM'
     rollback tran
return 100
 end

select * from COMMISSIONS_INVOICE_DOCUMENT where id in (
      select id from SUPPLIER_DOCUMENT where voyage = @idvoyage)
delete from COMMISSIONS_INVOICE_DOCUMENT where id in (
      select id from SUPPLIER_DOCUMENT where voyage = @idvoyage)
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar COMMISSIONS_INVOICE_DOCUMENT'
     rollback tran
return 100
 end

select * from SUPPLIER_DOCUMENT where voyage = @idvoyage
delete from SUPPLIER_DOCUMENT where voyage = @idvoyage
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar SUPPLIER_DOCUMENT'
     rollback tran
return 100
 end

/*--ACRUALS
---=========*/
select * from ACCRUAL_PARTIAL_VOYAGE  where id in (
 select id from ACCRUAL where voyage = @idvoyage)
delete from ACCRUAL_PARTIAL_VOYAGE  where id in (
 select id from ACCRUAL where voyage in (
     select id from voyage where idRealInstance in (@realIntance) or idEstimatedInstance in (@estimateIntance)
 ))
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar ACCRUAL_PARTIAL_VOYAGE'
     rollback tran
return 100
 end

select * from ACCRUAL_NO_DOCUMENT_ITEM  where IdAccrual in (
 select id from ACCRUAL where voyage = @idvoyage)
delete  from ACCRUAL_NO_DOCUMENT_ITEM  where IdAccrual in (
 select id from ACCRUAL where voyage = @idvoyage)
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar ACCRUAL_NO_DOCUMENT_ITEM'
     rollback tran
return 100
 end

select * from ACCRUAL where voyage = @idvoyage
update ACCRUAL  set idAccrualDocument =null  where voyage = @idvoyage
if (@@error <> 0)
 begin
select @resultado = 'Problemas al actualizar ACCRUAL'
     rollback tran
return 100
 end

select * from ACCRUAL_DOCUMENT where IdAccrual in (
 select id  from ACCRUAL where voyage = @idvoyage);
delete from ACCRUAL_DOCUMENT where IdAccrual in (
 select id  from ACCRUAL where voyage = @idvoyage)
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar ACCRUAL_DOCUMENT'
     rollback tran
return 100
 end
select * from ACCRUAL_CP_INFORMATION where IdAccrual in (
 select id  from ACCRUAL where voyage = @idvoyage)
delete  from ACCRUAL_CP_INFORMATION where IdAccrual in (
 select id  from ACCRUAL where voyage = @idvoyage)
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar ACCRUAL_CP_INFORMATION'
     rollback tran
return 100
 end
select * from ACCRUAL_DISBURSEMENT_ITEM where IdAccrual in (
    select id from ACCRUAL where voyage = @idvoyage )
delete from ACCRUAL_DISBURSEMENT_ITEM where IdAccrual in (
    select id from ACCRUAL where voyage = @idvoyage )
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar ACCRUAL_DISBURSEMENT_ITEM'
     rollback tran
return 100
 end
select * from ACCRUAL_FINISHED_VOYAGE where id in (
      select id from ACCRUAL where voyage = @idvoyage)
delete from ACCRUAL_FINISHED_VOYAGE where id in (
      select id from ACCRUAL where voyage = @idvoyage)
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar ACCRUAL_FINISHED_VOYAGE'
     rollback tran
return 100
 end

update voyage set idAccrualFinishedVoyage = NULL
    where id = @idvoyage

select * from ACCRUAL where voyage = @idvoyage
delete from ACCRUAL where voyage = @idvoyage
if (@@error <> 0)
 begin
select @resultado = 'Problemas al actualizar ACCRUAL'
     rollback tran
return 100
 end

/*--OPERACIÓN DEL VIAJE
---===================*/
select * from CARGO_RELET_ITEM_DETAIL where idcpvu IN (
      select cp.ID from voyage v inner join CP_VOYAGE_UPDATE cp on v.idRealInstance = cp.viid where v.id = @idvoyage)
DELETE from CARGO_RELET_ITEM_DETAIL where idcpvu IN (
      select cp.ID from voyage v inner join CP_VOYAGE_UPDATE cp on v.idRealInstance = cp.viid where v.id = @idvoyage)
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar CARGO_RELET_ITEM_DETAIL'
     rollback tran
return 100
 end

select * from DEMURRAGE_CALCULATOR_ITEM where idcpvu IN (
      select cp.ID from voyage v inner join CP_VOYAGE_UPDATE cp on v.idRealInstance = cp.viid where v.id = @idvoyage);
DELETE from DEMURRAGE_CALCULATOR_ITEM where idcpvu IN (
      select cp.ID from voyage v inner join CP_VOYAGE_UPDATE cp on v.idRealInstance = cp.viid where v.id = @idvoyage);
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar DEMURRAGE_CALCULATOR_ITEM'
     rollback tran
return 100
 end
select * from DEMURRAGE_TANKER_ITEM where idcpvu IN (
      select cp.ID from voyage v inner join CP_VOYAGE_UPDATE cp on v.idRealInstance = cp.viid where v.id = @idvoyage);
DELETE from DEMURRAGE_TANKER_ITEM where idcpvu IN (
      select cp.ID from voyage v inner join CP_VOYAGE_UPDATE cp on v.idRealInstance = cp.viid where v.id = @idvoyage);
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar DEMURRAGE_TANKER_ITEM'
     rollback tran
return 100
 end
select * from FREIGHT_CALCULATION_ITEM where idcpvu IN (
      select cp.ID from voyage v inner join CP_VOYAGE_UPDATE cp on v.idRealInstance = cp.viid where v.id = @idvoyage);
DELETE from FREIGHT_CALCULATION_ITEM where idcpvu IN (
      select cp.ID from voyage v inner join CP_VOYAGE_UPDATE cp on v.idRealInstance = cp.viid where v.id = @idvoyage);
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar FREIGHT_CALCULATION_ITEM'
     rollback tran
return 100
 end
select * from LAYTIME_CALCULATOR_ITEM where idcpvu IN (
      select cp.ID from voyage v inner join CP_VOYAGE_UPDATE cp on v.idRealInstance = cp.viid where v.id = @idvoyage);
DELETE from LAYTIME_CALCULATOR_ITEM where idcpvu IN (
      select cp.ID from voyage v inner join CP_VOYAGE_UPDATE cp on v.idRealInstance = cp.viid where v.id = @idvoyage);
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar LAYTIME_CALCULATOR_ITEM'
     rollback tran
return 100
 end
select * from LAYTIME_DRYCARGO_ITEM where idcpvu IN (
      select cp.ID from voyage v inner join CP_VOYAGE_UPDATE cp on v.idRealInstance = cp.viid where v.id = @idvoyage);
DELETE from LAYTIME_DRYCARGO_ITEM where idcpvu IN (
      select cp.ID from voyage v inner join CP_VOYAGE_UPDATE cp on v.idRealInstance = cp.viid where v.id = @idvoyage);
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar LAYTIME_DRYCARGO_ITEM'
     rollback tran
return 100
 end

select * from CP_VOYAGE_UPDATE where viid in (select idrealinstance from voyage where id = @idvoyage)
delete from CP_VOYAGE_UPDATE  where viid in (select idrealinstance from voyage where id = @idvoyage)
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar CP_VOYAGE_UPDATE'
     rollback tran
return 100
 end

/*--ELIMINACIÓN DE INFORMACIÓN CONTABLE*/
SELECT * FROM VOUCHER_LINE_CDC WHERE IDVOUCHER IN (
                   SELECT ID FROM VOUCHER_CDC WHERE ID IN (
                   SELECT ID FROM VOUCHER WHERE IDDOCUMENT IN (
                   SELECT ID FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage) ) ) )

DELETE VOUCHER_LINE_CDC WHERE IDVOUCHER IN (
                   SELECT ID FROM VOUCHER_CDC WHERE ID IN (
                   SELECT ID FROM VOUCHER WHERE IDDOCUMENT IN (
                   SELECT ID FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage ) ) ) )
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar VOUCHER_LINE_CDC'
     rollback tran
return 100
 end
SELECT * FROM VOUCHER_CDC WHERE ID IN (
                   SELECT ID FROM VOUCHER WHERE IDDOCUMENT IN (
                   SELECT ID FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage ) ) )

DELETE VOUCHER_CDC WHERE ID IN (
                   SELECT ID FROM VOUCHER WHERE IDDOCUMENT IN (
                   SELECT ID FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage ) ) )
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar VOUCHER_CDC'
     rollback tran
return 100
 end
SELECT * FROM VOUCHER WHERE IDDOCUMENT IN (
                   SELECT ID FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage ))

DELETE VOUCHER WHERE IDDOCUMENT IN (
                   SELECT ID FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage ))
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar VOUCHER'
     rollback tran
return 100
 end


SELECT * FROM DEBIT_AUTHORIZATION WHERE IDAGENCYREMITTANCE IN (
           SELECT ID FROM AGENCY_REMITTANCE WHERE ID IN (
           SELECT ID FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage ) ) )
DELETE DEBIT_AUTHORIZATION WHERE IDAGENCYREMITTANCE IN (
           SELECT ID FROM AGENCY_REMITTANCE WHERE ID IN (
           SELECT ID FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage )) )
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar DEBIT_AUTHORIZATION'
     rollback tran
return 100
 end

SELECT * FROM AGENCY_REMITTANCE WHERE ID IN (
           SELECT ID FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage ))
DELETE AGENCY_REMITTANCE WHERE ID IN (
           SELECT ID FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage ))
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar AGENCY_REMITTANCE'
     rollback tran
return 100
 end

select * from DOCUMENT_REMARK where Invoice in (
      SELECT id FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage ))
delete from DOCUMENT_REMARK where Invoice in (
      SELECT id FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage ))
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar DOCUMENT_REMARK'
     rollback tran
return 100
 end

select * from ACCRUAL_INVOICE_ITEM where InvoiceItem in (
      select id from INVOICE_ITEMS where IdInvoice in (
      SELECT id FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage )))
delete from ACCRUAL_INVOICE_ITEM where InvoiceItem in (
      select id from INVOICE_ITEMS where IdInvoice in (
      SELECT id FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage )))
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar ACCRUAL_INVOICE_ITEM'
     rollback tran
return 100
 end

select * from INVOICE_ITEMS where IdInvoice in (
      SELECT id FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage ))
delete from INVOICE_ITEMS where IdInvoice in (
      SELECT id FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage ))
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar INVOICE_ITEMS'
     rollback tran
return 100
 end

select * from INVOICE_VOYAGE_CHARTER where id in (
      select id from invoice where id in (
      SELECT id FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage )))
delete from INVOICE_VOYAGE_CHARTER where id in (
      select id from invoice where id in (
      SELECT id FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage )))
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar INVOICE_VOYAGE_CHARTER'
     rollback tran
return 100
 end

select * from COLLECT_ALLOCATION where idinvoice in (
      select id from invoice where id in (
      SELECT id FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage )))
delete from COLLECT_ALLOCATION where idinvoice in (
      select id from invoice where id in (
      SELECT id FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage )))
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar COLLECT_ALLOCATION'
     rollback tran
return 100
 end

select * from invoice where id in (
      SELECT id FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage ))
delete from invoice where id in (
      SELECT id FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage ))
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar invoice'
     rollback tran
return 100
 end

SELECT * FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage )
DELETE DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage )
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar DOCUMENT'
     rollback tran
return 100
 end

/*-- ELIMINA EL REGISTRO DE OPERACIONES ASOCIADAS AL PORT CALENDARIZADO*/


select * from VOYAGE_PORT_OPERATION where idvoyageport in (
select id from voyage_port  where idvoyageinstance in (
   SELECT ID from VOYAGE_INSTANCE where id in (
                                (select idrealinstance      from voyage where id = @idvoyage),
                                (select idEstimatedInstance from voyage where id = @idvoyage)
                            ) ) )

select  * from DEPARTURE_PORT_OPERATION  where idPortOperation in (
 select id from VOYAGE_PORT_OPERATION where idvoyageport in (
     select id from voyage_port  where idvoyageinstance in (
         SELECT ID from VOYAGE_INSTANCE where id in (
                                    (select idrealinstance      from voyage where id = @idvoyage),
                                    (select idEstimatedInstance from voyage where id = @idvoyage)
                                ) ) )
)


delete  from DEPARTURE_PORT_OPERATION  where idPortOperation in (
 select id from VOYAGE_PORT_OPERATION where idvoyageport in (
     select id from voyage_port  where idvoyageinstance in (
         SELECT ID from VOYAGE_INSTANCE where id in (
                                    (select idrealinstance      from voyage where id = @idvoyage),
                                    (select idEstimatedInstance from voyage where id = @idvoyage)
                                ) ) )
)
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar DEPARTURE_PORT_OPERATION'
     rollback tran
return 100
 end
delete from VOYAGE_PORT_OPERATION where idvoyageport in (
 select id from voyage_port  where idvoyageinstance in (@realIntance,@estimateIntance)
);
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar VOYAGE_PORT_OPERATION'
     rollback tran
return 100
 end
/*-- ELIMINA EL COMMODITY ASOCIADO A LA ACTIVIDAD DE PUERTO*/
select * from CARGO_INVENTORY where idvport in (
select id from voyage_port  where idvoyageinstance in (
   SELECT ID from VOYAGE_INSTANCE where id in (
                                (select idrealinstance      from voyage where id = @idvoyage),
                                (select idEstimatedInstance from voyage where id = @idvoyage))))
delete from CARGO_INVENTORY where idvport in (
select id from voyage_port  where idvoyageinstance in (@realIntance,@estimateIntance)
                                          )
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar CARGO_INVENTORY'
     rollback tran
return 100
 end

/*-- ELIMINA LA RELACIÓN CON LA TABLA DE CONSUMPTION*/
select * from voyage_port where idvoyageinstance in (
  SELECT ID from VOYAGE_INSTANCE where id in (
                                (select idrealinstance      from voyage where id = @idvoyage),
                                (select idEstimatedInstance from voyage where id = @idvoyage)))
update voyage_port set ifosailingconsumption = NULL, mdosailingconsumption = NULL,
                    ifoatportconsumption = NULL, mdoatportconsumption = NULL
 where idvoyageinstance in (
  SELECT ID from VOYAGE_INSTANCE where id in (
                                (select idrealinstance      from voyage where id = @idvoyage),
                                (select idEstimatedInstance from voyage where id = @idvoyage)))
if (@@error <> 0)
 begin
select @resultado = 'Problemas al actualiza voyage_port'
     rollback tran
return 100
 end

/*-- ELIMINA LA DISTRITUCIÓN DEL CONSUMO RELACIONADO A LOS PUERTOS DEL VIAJE*/
select * from  BUNKER_STOCK_CONSUMPTION where idconsumption in
(SELECT id FROM BUNKER_CONSUMPTION WHERE idvport in (
select id from voyage_port  where idvoyageinstance in (
   SELECT ID from VOYAGE_INSTANCE where id in (
                                (select idrealinstance      from voyage where id = @idvoyage),
                                (select idEstimatedInstance from voyage where id = @idvoyage) ))))
delete from  BUNKER_STOCK_CONSUMPTION where idconsumption in
(SELECT id FROM BUNKER_CONSUMPTION WHERE idvport in (
select id from voyage_port  where idvoyageinstance in (
   SELECT ID from VOYAGE_INSTANCE where id in (
                                (select idrealinstance      from voyage where id = @idvoyage),
                                (select idEstimatedInstance from voyage where id = @idvoyage) ))))
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar BUNKER_STOCK_CONSUMPTION'
     rollback tran
return 100
 end

/*--ELIMINA EL CONSUMO ESTIMADO Y REAL*/
select * from BUNKER_CONSUMPTION WHERE idvport in (
select id from voyage_port  where idvoyageinstance in (
   SELECT ID from VOYAGE_INSTANCE where id in (
                                (select idrealinstance      from voyage where id = @idvoyage),
                                (select idEstimatedInstance from voyage where id = @idvoyage) )))
delete from BUNKER_CONSUMPTION WHERE idvport in (
select id from voyage_port  where idvoyageinstance in (
   SELECT ID from VOYAGE_INSTANCE where id in (
                                (select idrealinstance      from voyage where id = @idvoyage),
                                (select idEstimatedInstance from voyage where id = @idvoyage) )))
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar BUNKER_CONSUMPTION'
     rollback tran
return 100
 end

/*---Eliminamos las proformas
---====================*/
select * from proforma where idVoyageItineraryPort in (
 select id from VOYAGE_PORT where  idvoyageinstance in (@realIntance,@estimateIntance)
)
select * from UPDATE_PORT_EXPESES_DETAILS where idProforma in (
 select id from proforma where idVoyageItineraryPort in (
        select id from VOYAGE_PORT where  idvoyageinstance in (@realIntance,@estimateIntance)
 )
)
delete  from UPDATE_PORT_EXPESES_DETAILS where idProforma in (
 select id from proforma where idVoyageItineraryPort in (
        select id from VOYAGE_PORT where  idvoyageinstance in (@realIntance,@estimateIntance)
 )
)
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar UPDATE_PORT_EXPESES_DETAILS'
     rollback tran
return 100
 end
delete  from proforma where idVoyageItineraryPort in (
 select id from VOYAGE_PORT where  idvoyageinstance in (@realIntance,@estimateIntance)
)
if (@@error <> 0)
 begin
select @resultado = 'Problemas al eliminar proforma'
     rollback tran
return 100
 end
/*--Busco el id next del viaje anterior*/
select * from VOYAGE_PORT_RECORD where idnextport in (
     select id from voyage_port  where idvoyageinstance in (@realIntance,@estimateIntance)
 )

select * from VOYAGE_PORT_OPERATION where idvoyageport in (
 select id from voyage_port  where idvoyageinstance in (@realIntance,@estimateIntance)
);

update VOYAGE_PORT_RECORD set idnextport = null where idnextport in (
     select id from voyage_port  where idvoyageinstance in (@realIntance,@estimateIntance)
 )
if (@@error <> 0)
 begin
select @resultado = 'Problemas al actualiza VOYAGE_PORT_RECORD'
     rollback tran
return 100
 end

select * from VOYAGE_PORT_OPERATION where idvoyageport in (
 select id from voyage_port  where idvoyageinstance in (@realIntance,@estimateIntance)
)

select * from voyage_port  where idvoyageinstance in (@realIntance,@estimateIntance);
delete from voyage_port  where idvoyageinstance in (@realIntance,@estimateIntance);
if (@@error <> 0)
 begin
select @resultado = 'Problemas al elimina voyage_port'
     rollback tran
return 100
 end
/*--ELIMINA EL ITINERARIO DEL VIAJE*/
/*
select * from voyage_port  where idvoyageinstance in (
  SELECT ID from VOYAGE_INSTANCE where id in (@realIntance,@estimateIntance))
delete voyage_port  where idvoyageinstance in (
  SELECT ID from VOYAGE_INSTANCE where id in (@realIntance,@estimateIntance))
if (@@error <> 0)
 begin
select @resultado = 'Problemas al elimina voyage_ZZZport'
     rollback tran
return 100
 end
*/

SELECT * FROM VOYAGE_CP where idVOYAGEINSTANCE IN (@realIntance,@estimateIntance)
delete  from VOYAGE_CP where idVOYAGEINSTANCE IN (@realIntance,@estimateIntance)
if (@@error <> 0)
 begin
select @resultado = 'Problemas al elimina VOYAGE_CP'
     rollback tran
return 100
 end

select * from OTHER_INCOME_EXPENSES_CP where idvoyageinstance in (
      SELECT ID FROM VOYAGE_INSTANCE where id in (@realIntance,@estimateIntance) )

DELETE OTHER_INCOME_EXPENSES_CP where idvoyageinstance in (
      SELECT ID FROM VOYAGE_INSTANCE where id in (@realIntance,@estimateIntance) )
if (@@error <> 0)
 begin
select @resultado = 'Problemas al elimina OTHER_INCOME_EXPENSES_CP'
     rollback tran
return 100
 end


update voyage set idEstimatedInstance=null, idRealInstance=null  where  id = @idvoyage;
SELECT * from VOYAGE_INSTANCE where id in (@realIntance,@estimateIntance)
/*delete from VOYAGE_INSTANCE where id in (@realIntance,@estimateIntance)
if (@@error <> 0)
 begin
select @resultado = 'Problemas al elimina 1 VOYAGE_INSTANCE '
     rollback tran
return 100
 end
*/
/*--Remarks
---=======*/

update VOYAGE_PORT_RECORD set Remark = NULL
where Remark in (select id from REMARK where voyage = @idvoyage)
if (@@error <> 0)
 begin
select @resultado = 'Problemas al actualiza VOYAGE_PORT_RECORD'
     rollback tran
return 100
 end
select * from REMARK where voyage = @idvoyage
and not exists (select * from CHARTER_PARTY where idremark = REMARK.id);

select * from OTHER_VOYAGE_ITEM_DETAIL where remark in (
   select id from REMARK where voyage = @idvoyage )
delete OTHER_VOYAGE_ITEM_DETAIL where remark in (
   select id from REMARK where voyage = @idvoyage )
if (@@error <> 0)
 begin
select @resultado = 'Problemas al elimina OTHER_VOYAGE_ITEM_DETAIL'
     rollback tran
return 100
 end


delete  from REMARK where voyage = @idvoyage
and not exists (select * from CHARTER_PARTY where idremark = REMARK.id);
if (@@error <> 0)
 begin
select @resultado = 'Problemas al elimina REMARK'
     rollback tran
return 100
 end

update voyage set idEstimatedInstance=null, idRealInstance=null  where  id = @idvoyage;
if (@@error <> 0)
 begin
select @resultado = 'Problemas al elimina voyage'
     rollback tran
return 100
 end
select * from OTHER_DEBTOR_INVOICE_STATUS where IdVoyageInstance in
(select id from VOYAGE_INSTANCE where id in (@realIntance,@estimateIntance))
delete from OTHER_DEBTOR_INVOICE_STATUS where IdVoyageInstance in
(select id from VOYAGE_INSTANCE where id in (@realIntance,@estimateIntance))
if (@@error <> 0)
 begin
select @resultado = 'Problemas al elimina OTHER_DEBTOR_INVOICE_STATUS'
     rollback tran
return 100
 end


delete from VOYAGE_INSTANCE where id in (@realIntance,@estimateIntance)
if (@@error <> 0)
 begin
select @resultado = 'Problemas al elimina 2 VOYAGE_INSTANCE'
     rollback tran
return 100
 end
select * from VOYAGE_PORT_RECORD where voyage = @idvoyage
delete from VOYAGE_PORT_RECORD where voyage = @idvoyage
if (@@error <> 0)
 begin
select @resultado = 'Problemas al elimina VOYAGE_PORT_RECORD'
     rollback tran
return 100
 end

/*--ELIMINA REGISTRO DE VIAJE*/
select * from voyage where ID = @idvoyage;
delete from voyage where ID = @idvoyage;
if (@@error <> 0)
 begin
select @resultado = 'Problemas al elimina voyage'
     rollback tran
return 100
 end

commit tran
return 100

--
Atte.
Víctor Hugo Saavedra.
http://vhspiceros.blogspot.com

Port days and Steaming days

2009-07-17T18:25:00.001-04:00

El valor tiempo en puerto se encuentra en la siguiente entidad
VoyageItineraryPort.Board.SegmentInfo.PortTime.TotalDays

y el steaming days se calcula de la sgte. forma:

TimeSpan diffTimeSpan = VoyageItineraryPort.Eta.value - VoyageItineraryPort.Etd.Value;
StamingDays = Convert.ToDecimal(DiffTimeSpan.TotalDays);

Problema con posn

2009-06-30T09:52:00.001-04:00

Este problema se da por lo general en el delivery y redelivery. el error por pantalla es un nullpointerException o nullReferenceException, es decir se trata de acceder a una propiedad de un objeto que apunta a NULL.

como detectar los posn malos de una nave.
primero buscamos los tankes asociados a la nave de la siguiente forma


select name,idfleet,IfoBunkerTank,MdoBunkerTank
from VESSEL
where name like'%nombreBuscar%'

ya teniendo estos datos ponemos los tankes de IFP y MDO en la siguiente consulta:


SELECT id, idconsumption,posn  FROM BUNKER_STOCK_CONSUMPTION  WHERE idconsumption in (
 SELECT idconsumption FROM BUNKER_STOCK_CONSUMPTION WHERE idconsumption in (
     select id  from BUNKER_CONSUMPTION where  idtank in (43,44)
 )
 and posn <> 0
)
order by idconsumption,posn

listo tenemos todas los registros de la tabla BUNKER_STOCK_CONSUMPTION que podrían tener problemas, la deteccion de los registros malos es visual y/o manual. los puntos a revisar son los siguientes:

Ver verticalmente la columna posn, y que no se repita ningun valor repetido, es decir, no deben haber 2 registros seguidos con un posn en 1 o 2.
si existe algun posn en 2 asegurarse que exista para el mismo idconsumption un registro en 0 y en 1.

Aqui dejo un listado con registros malos.


id      idconsumption   posn
926215 372117         1
461498 378534         1
462540 378581         1
462542 378582         1

926242 439885         1
664759 474241         1
664765 474246         1

En este caso todos estos registros tiene el posn en 1, pero no existe el 0, asi que hay que actualizarlos en 0.


update BUNKER_STOCK_CONSUMPTION set posn=0 where id in (926242,664759,664765)

¿¿Que es el posn??
En hibernate las lista podemos ordenarlas por un campo, en este caso accendra por lo general uso este posn, este posn no se agrega como atributo en la clase. solo va en el orden de una lista en el archivo mapping.

--
Atte.
Victor Hugo Saavedra
http://vhspiceros.blogspot.com

Restore DataBase

2009-06-24T12:45:00.001-04:00

Asi podemos restaurar la base de datos, sin tener que pasar por el wizzard :D


USE MASTER;
ALTER DATABASE bd_zeusnet_test_victor2 SET SINGLE_USER WITH ROLLBACK IMMEDIATE;
RESTORE DATABASE bd_zeusnet_test_victor2 FROM DISK='q:\vhs\db_zeusnet_test_victor2.bak' WITH REPLACE

--
Atte.
Víctor Hugo Saavedra.
http://vhspiceros.blogspot.com

[Humor] Intento de pago

2009-06-18T14:30:00.001-04:00

Aqui podemos podemos ver a nuestro compañero haciendo el amage de que va a pagar, pero en el video no alcanza a pagar, despues de un segundo intento logra pagar, lamentablemente no hay registro visuales de esto. pero vi como pago su barros luco. Ahora parece que va a pensar 2 veces antes de hacer lo mismo :D.

--
Atte.
Victor Hugo Saavedra
http://vhspiceros.blogspot.com

VoyageResult Parte I, Generado y leyendo datos

2009-06-18T14:11:00.001-04:00

Si bien esta no es la mejor ni mas rapida, es la que menos peligresa, ya que esta en el presenter. El alterar directamente el voyage Result puede causar varios problemas en toda la aplicacion.


private void AddGroup(IList<InvoiceGroup> groups, VoyageResult voyageResult, FixtureContract fixture, InvoiceItemCategory itemCategory) {
    InvoiceGroup group = new InvoiceGroup(itemCategory);
    foreach (var item in voyageResult.GetItems(itemCategory, fixture)) 
        if (item.Supplier != null && item.Supplier.Id.Equals(_view.SupplierId)) 
                group.Items.Add(new InvoiceReportItem(item, itemCategory));
    groups.Add(group);
}


private IList<CommissionsInvoiceDetailItem> AddDemurrageCommissions(CommissionsInvoiceDocument doc){
    var voyage = BagFactory.Instance.GetGenericBag<Voyage>().Get(_view.Voyage);
    var fixture = voyage.RealInstance.VoyageCharterParties.CharterParties[0] as FixtureContract;
    var supplier = BagFactory.Instance.GetGenericBag<Person>().Get(_view.SupplierId);
    IList<InvoiceGroup> groups = new List<InvoiceGroup>();
    VoyageInstance voyageInstance = fixture.GetRealInstance();
    if (voyageInstance != null) {
        var commisionDemurrageExpenseItem = BagFactory.Instance.GetGenericBag<ExpenseItem>().Get(Convert.ToInt64("9"));
        VoyageResult voyageResult = voyageInstance.Voyage.VoyageResult;
        AddGroup(groups, voyageResult, fixture, InvoiceItemCategory.DemurrageCommission);
        foreach (var group in voyageResult.Items) {
            if (group.GroupType.Equals(ExpenseGroupType.Laytime_Income)) {
                foreach (var subGroup in group.VoyageResultSubGroups) {
                    foreach (var item in subGroup.Items) {
                        if (item.ExpenseItem.Equals(commisionDemurrageExpenseItem) &&
                                item.Supplier.Id.Equals(_view.SupplierId)) {
                            var commisionDetail = BagFactory.Instance.GetGenericBag<CommissionDetail>().Get(item.Identifier);
                            if (commisionDetail.PaymentType.Equals(PaymentType.PayBrokerInvoice)) {
                            var foo = new VoyageResultCommissionItem(supplier, subGroup, "Demurrage Commission", true, item.ExpenseItem);
                            foo.CharterParty = fixture;
                            foo.CommissionDetailFromCP = commisionDetail;
                            var newCommissionsInvoiceDetailItem = new CommissionsInvoiceDetailItem(foo, doc, supplier);
                            newCommissionsInvoiceDetailItem.Provision = item.UpdatedAmount * -1;
                            doc.Details.AddItem(newCommissionsInvoiceDetailItem);
                            }
                        }
                    }
                }
            }
        }
    }
    return doc.Details.Items;
}

las lineas importantes son solo estas


VoyageResult voyageResult = voyageInstance.Voyage.VoyageResult;
AddGroup(groups, voyageResult, fixture, InvoiceItemCategory.DemurrageCommission);

obtenemos la instancia de VoyageResult y luego agregamos los items de demmurrageCommision , a travez del metodo AddGroup. El resto son solo reglas de negocio de la mejora/incidente que estoy viendo, converciones de tipo, generacion de nuevos objetos y recorrer todos los items. :D.

--
Atte.
Victor Hugo Saavedra
http://vhspiceros.blogspot.com

Obteniendo la ruta absoluta de zuesnet

2009-06-17T18:26:00.001-04:00

usar la clase ZeusWebApplicationContext que esta en el namespace ZeusNet.Support.Web

devuelve la ruta absoluta y incluyendo el protocolo puede ser hhtp, https


 public String Getfullsiteroot() {

           return HttpContext.Current.Request.Url.Scheme
                       + "://"
                       + HttpContext.Current.Request.Url.Authority
                       + HttpContext.Current.Request.ApplicationPath;

       }

--
Atte.
Víctor Hugo Saavedra.
http://vhspiceros.blogspot.com

Doblandole la mano a los updatePanels de AjaxcontrolToolkit y javascript

2009-06-12T17:15:00.002-04:00

Tenia que hacer que un texbox de .net se vieran y escribieran con mayuscula.

Hasta ningun problema, con css se puede hacer sin problema, y al momento de guardar en la DB hago un Uppercase, y estoy listo dije yo.

Hice una pequeña funcion , en javascript que lo hiciera, por que no eran textbox nativos ni de html ni de webform, eran de webform ya extendidos.


function changeUpperCaseCss(){
            var textBox= $('<%=txtNombre.ClientID %>');
            textBox.style.textTransform = 'uppercase';              
          }

listo, ahora solo me quedaba conectar el elemento en el onload, de la siguiente forma con mochikit.


addLoadEvent(
              function (){
                  changeUpperCaseCss();
                  }
          );

Funcionaba todo de maravilla, pero el problema el maldito updatePanel, cada vez que se refrescaba el panel, se perdia o refrescaba el texbox, entonces perdia la propiedad textTransform que le habia puesto con javascript.

para solucionar esto tuve que usar el javascript que tiene el ajaxControlToolkit
de la siguiente forma


Sys.WebForms.PageRequestManager.getInstance().add_endRequest(EndRequestHandler);
          function EndRequestHandler(sender, args) {
            changeUpperCaseCss();
          }

Que hace esto, primero optiene la instacia PageRequestManager. y definimos la funcion EndRequestHandler esta funcion se llamara cada vez que se termine el request producido por un update panel.

Asi quedo soluciona. y todo en el Cliente :D
--
Atte.
Victor Hugo Saavedra
http://vhspiceros.blogspot.com

Ordenando por fechas en c# :D

2009-06-12T17:13:00.001-04:00

Siguiendo con este post.
Esto me toco hcerlo en zuesnet, por eso lo escribo aqui tambien :D. claramente no fue con la clase persona, de hecho fue con la clase voyage.

Aqui Ordenamos una lista de objetos por fecha. la gran diferencia que solo usamos DateTime.Compare. Este lo ordena de forma acendente.


var personas = getAllPersonas();
voyages.Sort(new Comparison(
      delegate(persona a, persona b) {
      return DateTime.Compare((DateTime)a.fechaNac, (DateTime)b.fechaNac);
              }));

Si lo queremos ordenar de forma descendente simplemente cambiamos el orden de comparacion :D de esta forma.


var personas = getAllPersonas();
voyages.Sort(new Comparison(
      delegate(persona a, persona b) {
      return DateTime.Compare((DateTime)b.fechaNac, (DateTime)a.fechaNac);
              }));

--
Atte.
Victor Hugo Saavedra
http://vhspiceros.blogspot.com

ZeusNet Users.

2009-06-08T14:43:00.001-04:00

La razón de este post nace por un problema para asignar usuarios, posterior a la creacion de un reporte totalmente nuevo para zeus net, Voyage Bunker Perfomance.

Para poder crear un report nuevo y que en este funcionen los privilegios de usuario se debe crear primero en la clase ZeusScreen

[ScreenInfo(Module = ZeusModule.Reports)]
[Description("Voyage Bunker Performance")]
VoyageBunkerPerformance = 1020,

un id que no se repita, y asignarle al modulo que este pertenezca.

Para poder asignarle permisos de lectura al report hay que entrar por SSL al aplicativo de Zeusnet como ZeusNet Administrator ya que solo este usuario es el que tiene la facultad para asignar permisos, esto se define en el web.config de zeusnet.

Con esto entraran a un menu bastante amigable donde apareceran con checkbox los menu que el usuario pueda revisar y los que no.

Intentaré hacer un documento con mayor detalle, en cuanto lo tenga listo les aviso.

Saludos.

PCBT.

llamar a un procemiento Almacendo en zeusNet

2009-05-29T12:25:00.001-04:00

La unica forma de acceder a la base de datos es a traves de los Bags.
para poder llamar a un procedimiento Almecenado o hacer una condulta directa tenemos que hacerla desde un Bag.

Las versiones mas recientes de hibernate poseen la capacidad de hacer esto de forma mas facil, ya sea en el archivo de mapeo o programaticamente. Actualmente en zeusnet tenemos una version bastante antigua :( .

Al codigo para llamar un Procedimeinto es el siguiente [codigo generado por Danilo]:


public void RunBunkerProcess(Int64 idVessel, Int64 idFleet)
     {
        using (var connection = Session.SessionFactory.ConnectionProvider.GetConnection())
        {
            using (var command = connection.CreateCommand())
            {
                command.CommandText = "dbo.SP_P_RECALCULO_DISTRIBUCION_BUNKER";
                command.CommandType = System.Data.CommandType.StoredProcedure;

                var param1 = command.CreateParameter();
                param1.ParameterName = "IDVESSEL";
                param1.DbType = System.Data.DbType.Int64;
                param1.Value = idVessel;

                var param2 = command.CreateParameter();
                param2.ParameterName = "IDFLEET";
                param2.DbType = System.Data.DbType.Int64;
                param2.Value = idFleet;

                command.Parameters.Add(param1);
                command.Parameters.Add(param2);

                command.ExecuteNonQuery();
            }
        }
    }

si se figan se llama de forma normal, de hinernate lo unico que se hace es sacar la coneccion a la DB.

--
Atte.
Victor Hugo Saavedra
http://vhspiceros.blogspot.com

[incidente][51929]CProxyTypeTimeCharterTC_INHibernateProxy1???

2009-05-13T14:46:00.002-04:00

hace unos dias en el documentQuery al generar un voucher se caia el sistema al dar save en el ultimo paso y tiraba un exception que no reconocia el identity "CProxyTypeTimeCharterTC_INHibernateProxy1".

Especificamente se caia en la clase InvoiceItem que esta en el namespace ZeusNet.Core.Model.Domain.Accounting.Invoicing.

El problema es el Siguiente:
Por alguna razón en la tabla INVOICE_ITEMS contiene las columnas IdentityType y IdentityId, estas el sistema las usas para poder usar reflection y saber efectivamente cual es el item a facturar.
Haciendo la siguiente consulta:


   SELECT COUNT(IdentityType) as cant,IdentityType  
   FROM INVOICE_ITEMS 
   GROUP BY IdentityType

nos retorna:


cant     IdentityType                                                                               
 -------  ------------------------------------------------------------------------------------------ 
 1497     ZeusNet.Core.Model.Domain.Chartering.Fixture.FixtureCargoDetail                            
 597      ZeusNet.Core.Model.Domain.Accounting.Documents.PortDisbursement.PortDisbursementDetailItem 
 695      ZeusNet.Core.Model.Domain.Chartering.TC.TimeCharter                                        
 1173     ZeusNet.Core.Model.Domain.Chartering.Expenses.ExpenseDetail                                
 63       ZeusNet.Core.Model.Domain.Ops.VoyagesUpdate.OtherDebtorItem                                
 900      ZeusNet.Core.Model.Domain.Ops.VoyagesUpdate.CPVoyageUpdate                                 
 0        (null)                                                                                     
 2461     ZeusNet.Core.Model.Domain.Chartering.Commissions.CommissionDetail                          
 51       CProxyTypeTimeCharterTC_INHibernateProxy1                                                  
 193      ZeusNet.Core.Model.Domain.Chartering.Fixture.FixtureContract

Entonces lo que se cambio de 2 facturaciones los item que tenian el IdentityType de "CProxyTypeTimeCharterTC_INHibernateProxy1" a "ZeusNet.Core.Model.Domain.Chartering.TC.TimeCharter"

En resumen aqui dejo los Sql generados en produccion.


UPDATE INVOICE_ITEMS
SET IdentityType='ZeusNet.Core.Model.Domain.Chartering.TC.TimeCharter'  
WHERE id in (7942,7944,7947,7950,7951,7952,7953,7954,7956,7958,7941,7939,7938,7936,7947,7941,7941);

UPDATE INVOICE_ITEMS   
SET IdentityType='ZeusNet.Core.Model.Domain.Chartering.TC.TimeCharter'  
WHERE id  IN (8081,8083,8084,8086,8089,8092,8093,8094,8095,8096,8098,8100)

Era mas facil hacer el Update con consultas anidadas pero lo hice asi para poder volver atras en caso de cualquier Error :).

--
Atte.
Víctor Hugo Saavedra.
http://vhspiceros.blogspot.com

[incidente] [50442] Problemas con EditDocument

2009-04-21T16:57:00.001-04:00

Teniamos un problema con lo siguiente.

Cuando agregaban un documento de tipo comission Invoice, bukerInvoice, other cost y portDisburment. el ingreso estaba OK.

El problema entraba a edit el documento por EditDocument, muchos campos en cada una de las clases no discriminaba si era una instancia nueva o no. Entonces muchos campos los recalculaba como un doc nuevo, siendo que tiene que mostrar los datos de la misma forma que el usuario los dejo cuando guardo.

Problema Contable:
Ademas aparte de ser solo un problema visual, esto acarrea un problema contable en la generacion de voucher, dejando las cuantas no cuadradas. dejando un pending cost mayor, o un account accruals no real.

El link de los cambios
http://10.10.50.51:8090/diff/572/
http://localhost:8090/diff/572/

Fe de Errata o lo que sea:
En bunker invoice, esta mejora no tuvo mucho efecto, el problema es mas de fondo, en la generacion y captura de voucher generada.

--
Atte.
Victor Hugo Saavedra.
http://vhspiceros.blogspot.com

cambiar la versión de la BBDD por console

2009-04-21T10:55:00.002-04:00

EXEC sp_dbcmptlevel 'NombreBBDD', $version

$version donde 80 es para Sql 2000,90 para Sql 2005 y 70 para Sql 7.0

Voucher Line CDC no graba el tipo de combustible

2009-04-15T11:31:00.001-04:00

este problema fue bastante raro , estaba bien mapeado el valor pero no traia datos y no comprendia porque Accendra tiene una forma rara para hacer un Getype que de hecho aun no comprendo pero lo que me di cuenta es que para el BunkerSupply cuando hacias un getType te traia por defecto BunkerType IFO o MDO segun fuese necesario comence a comparar las clases y me di cuenta que a la clases

/ZeusNet.Core.Model/Domain/Accounting/Documents/PortDisbursement/PortDisbursementBunkerSupplyDetailItem.cs

le faltaba lo siguiente



public String BunkerType
        {
           get
           {
              if (ExpenseItem.IsIFO())
              {
                 return "IFO";
              }
              else if (ExpenseItem.IsMDO())
              {
                 return "MDO";
              }
              else
              {
                 return "";
              }
           }
        }

y listo con eso comenzó a grabar los voucher con el tipo de combustible y antes los estaba grabando en null.

http://10.10.50.51:8090/diff/554/

Atento a sus comentarios.

PCBT.

Setting Accounting

2009-04-15T11:05:00.001-04:00

Señores, mi problemilla era el siguiente, en el modulo de Accounting tenía que agregar para las cuentas Ac05 el Charterer.Code.

si hacen la siguiente query a la BBDD de zeus se daran cuenta que no habia por donde sacar el dato


select distinct property from VOUCHER_CONFIG_VALUE_PROPERTY 
where property like '%code%'


DataItem.BillBackTo.Code
DataItem.Broker.Code
DataItem.ItemCode
DataItem.Person.Code
DataItem.Supplier.Code
DataItem.SupplierOrBillBackTo.Code
DocumentInfo.Agency.Code
DocumentInfo.Client.Code
DocumentInfo.Supplier.Code

para saber que idtransaction estaba asociada en la cuenta Ac05 hay que mirar el siguiente archivo
...\ZeusNet.Core.Model\Domain\Accounting\Vouchers\TransactionNumber.cs

y con eso podre saber que ids buscar en la base de datos y asi ejecutar este query con los ids


select id,transactionnumber from VOUCHER_CONFIG where transactionnumber in (5001,5002,5003,5004)

con esto ya tengo los Id que debo tocar en la tabla VOUCHER_CONFIG_VALUE_PROPERTY

para saber que valor tengo que insertar hice debug del codigo de VoyageCharterInvoice donde apareciera dataItem y llegue al siguiente objeto que contenia el chartererCode

 
((ZeusNet.Core.Model.Domain.Chartering.Fixture.FixtureCargoDetail)(dataItem)).Fixture.GeneralInformation.Charterer.Code

Con esto ya tenia una idea de lo que debia insertar en la base de datos, hice la prueba con estos inserts


insert into VOUCHER_CONFIG_VALUE_PROPERTY 
values(1,'Charterer del CU Ac05','DataItem.Fixture.GeneralInformation.Charterer.Code','System.String',getdate())

insert into VOUCHER_CONFIG_VALUE_PROPERTY 
values(44,'Charterer del CU Ac05','DataItem.Fixture.GeneralInformation.Charterer.Code','System.String',getdate())

insert into VOUCHER_CONFIG_VALUE_PROPERTY 
values(45,'Charterer del CU Ac05','DataItem.Fixture.GeneralInformation.Charterer.Code','System.String',getdate())

insert into VOUCHER_CONFIG_VALUE_PROPERTY 
values(46,'Charterer del CU Ac05','DataItem.Fixture.GeneralInformation.Charterer.Code','System.String',getdate())

realice el ciclo de pruebas y todo funciono sin problemas, como ven no tengo mucho manejo del tema pero el incidente fue solucionado de manera rapida.

Atento a sus comentarios.

PCBT.

[incidente] Agregar y quitar contrato en un viaje

2009-04-14T17:36:00.001-04:00

Habia un incidente que tenia el siguiente problema.

cuando cambiabamos un contrato o quitabamos uno, quedan los instance mal referenciado como lo pueden ver Aqui.

Fijense que algunos idcp apuntan al 2654 y la columan CharterParty de la tabla CP_VOYAGE_UPDATE apunta al charter party 2153

Aqui esta el link con los cambios
http://10.10.50.51:8090/diff/555/
http://10.10.50.51:8090/diff/557/
o
http://localhost:8090/diff/555/
http://localhost:8090/diff/557/

PD: no pude hacer correr svnDiffView como servicio asi que lo
tengo leventado en mi maquina, si alguien lo quiere instalar en
la suya, me avisa :)

--
Atte.
Victor Hugo Saavedra
http://vhspiceros.blogspot.com

Eliminacion de un Viaje

2009-04-07T12:04:00.001-04:00

Aqui esta un script para eliminar un viaje.

A lo mejor faltan mas tablas, por que se eliminaron bajo demanda. pero la idea es ir actualizando el script.
falta poner los numeros que estan en duro como varibles.

Aqui esta el Script

/*select * from vessel where name like '%antipolis%' and idfleet=4
 select * from voyage where idvessel = 23 and id = 2689 

select * from voyage_cp where idvoyageinstance in (1811, 1848)  -- idcp 1172

*/
begin tran
/* rollback tran*/

/*-- RANCHO DE COMBUSTIBLE
--=====================*/
DECLARE @idvoyage bigint
DECLARE @realIntance bigint
DECLARE @estimateIntance bigint
DECLARE @idVessel  bigint
SET @idvoyage = 2693
SET @realIntance = 5379
SET @estimateIntance = 5392
SET @idVessel = 599



/*--Actualiza la relación con el documentos recibido*/
select idBunkerSupplyDocument, *  from BUNKER_SUPPLY where idVoyage = @idvoyage
update BUNKER_SUPPLY set idBunkerSupplyDocument=null   where idVoyage = @idvoyage

/*--Elimina los documentos relacionados al items*/
select * from BUNKER_SUPPLY_DOCUMENT_ITEM where idBunkerSupplyDocument in (
    select id from BUNKER_SUPPLY_DOCUMENT where idBunkerSupply in (
        select id  from BUNKER_SUPPLY where idVoyage = @idvoyage))

delete BUNKER_SUPPLY_DOCUMENT_ITEM where idBunkerSupplyDocument in (
    select id from BUNKER_SUPPLY_DOCUMENT where idBunkerSupply in (
        select id  from BUNKER_SUPPLY where idVoyage = @idvoyage))

/*--Elimina el Documento, que contiene los Items*/
select * from BUNKER_SUPPLY_DOCUMENT where idBunkerSupply in (
    select id  from BUNKER_SUPPLY where idVoyage = @idvoyage)

delete  from BUNKER_SUPPLY_DOCUMENT where idBunkerSupply in (
    select id  from BUNKER_SUPPLY where idVoyage  = @idvoyage)

/*Elimina las facturas recepcionas.*/
select * from BUNKER_SUPPLY_INVOICE_DETAIL_ITEM where BunkerSupplyDetails in (
    select id from BUNKER_SUPPLY where idVoyage = @idvoyage)

delete  from BUNKER_SUPPLY_INVOICE_DETAIL_ITEM where BunkerSupplyDetails in (
    select id from BUNKER_SUPPLY where idVoyage = @idvoyage)

/* Tabla de Referencia*/
select * from BUNKER_SUPPLY_PREVIOUS_INFO where BunkerSupply in (
    select id from BUNKER_SUPPLY where idVoyage = @idvoyage)
delete  from BUNKER_SUPPLY_PREVIOUS_INFO where BunkerSupply in (
    select id from BUNKER_SUPPLY where idVoyage  = @idvoyage)

/*Elimina el registro de compra.*/
select * from BUNKER_SUPPLY where idVoyage  = @idvoyage
delete from BUNKER_SUPPLY where idVoyage  = @idvoyage


/*-- PURCHASE_ORDER*/
select * from PURCHASE_ORDER where idVoyage = @idvoyage
delete from PURCHASE_ORDER where idVoyage = @idvoyage

/*PROFORMAS
---=========
--Elimina las remesas asociadas a la proforma para una agencia
*/
select * from AGENCY_REMITTANCE_PROFORMA_REMITTANCE where IdProformaRemittance in (
    select id from PROFORMA_REMITTANCE where IdVoyage = @idvoyage)
delete AGENCY_REMITTANCE_PROFORMA_REMITTANCE where IdProformaRemittance in (
    select id from PROFORMA_REMITTANCE where IdVoyage = @idvoyage)

/*Elimina las remesas asociadas a la proforma*/
select * from PROFORMA_REMITTANCE where IdVoyage = @idvoyage
delete from PROFORMA_REMITTANCE where IdVoyage = @idvoyage


/*--SUPPLIER DOCUMENT
---=================
--Elimina documentos relacionados a la compra de combustible*/
select * from BUNKER_SUPPLY_INVOICE_DOCUMENT where id in (
    select id from SUPPLIER_DOCUMENT where voyage = @idvoyage)

delete from BUNKER_SUPPLY_INVOICE_DOCUMENT where id in (
    select id from SUPPLIER_DOCUMENT where voyage = @idvoyage)


select * from PORT_DISBURSEMENT_DETAIL_ITEM where idPortDisbursementDocument in (
           select id from PORT_DISBURSEMENT_DOCUMENT where id in (
                          select id from SUPPLIER_DOCUMENT where voyage = @idvoyage) )
delete from PORT_DISBURSEMENT_DETAIL_ITEM where idPortDisbursementDocument in (
       select id from PORT_DISBURSEMENT_DOCUMENT where id in (
                 select id from SUPPLIER_DOCUMENT where voyage = @idvoyage) )

select * from PORT_DISBURSEMENT_OTHER_PROVISION_ITEM where idPortDisbursementDocument in (
         select id from PORT_DISBURSEMENT_DOCUMENT where id in (
                   select id from SUPPLIER_DOCUMENT where voyage = @idvoyage))
delete from PORT_DISBURSEMENT_OTHER_PROVISION_ITEM where idPortDisbursementDocument in (
         select id from PORT_DISBURSEMENT_DOCUMENT where id in (
                   select id from SUPPLIER_DOCUMENT where voyage = @idvoyage))

select * from PORT_DISBURSEMENT_DOCUMENT where id in (
              select id from SUPPLIER_DOCUMENT where voyage = @idvoyage)
delete from PORT_DISBURSEMENT_DOCUMENT where id in (
              select id from SUPPLIER_DOCUMENT where voyage = @idvoyage)

select * from COMMISSIONS_INVOICE_DETAIL_ITEM where idCommissionsInvoiceDocument in (
         select id from COMMISSIONS_INVOICE_DOCUMENT where id in (
                  select id from SUPPLIER_DOCUMENT where voyage = @idvoyage))
delete from COMMISSIONS_INVOICE_DETAIL_ITEM where idCommissionsInvoiceDocument in (
         select id from COMMISSIONS_INVOICE_DOCUMENT where id in (
                  select id from SUPPLIER_DOCUMENT where voyage = @idvoyage))

select * from COMMISSIONS_INVOICE_DOCUMENT where id in (
         select id from SUPPLIER_DOCUMENT where voyage = @idvoyage)
delete from COMMISSIONS_INVOICE_DOCUMENT where id in (
         select id from SUPPLIER_DOCUMENT where voyage = @idvoyage)

select * from SUPPLIER_DOCUMENT where voyage = @idvoyage
delete from SUPPLIER_DOCUMENT where voyage = @idvoyage


/*--ACRUALS
---=========*/
select * from ACCRUAL_PARTIAL_VOYAGE  where id in (
    select id from ACCRUAL where voyage = @idvoyage)
delete from ACCRUAL_PARTIAL_VOYAGE  where id in (
    select id from ACCRUAL where voyage in (
        select id from voyage where idRealInstance in (@realIntance) or idEstimatedInstance in (@estimateIntance)
    ))

select * from ACCRUAL_NO_DOCUMENT_ITEM  where IdAccrual in (
    select id from ACCRUAL where voyage = @idvoyage)
delete  from ACCRUAL_NO_DOCUMENT_ITEM  where IdAccrual in (
    select id from ACCRUAL where voyage = @idvoyage)

select * from ACCRUAL where voyage = @idvoyage
update ACCRUAL  set idAccrualDocument =null  where voyage = @idvoyage

select * from ACCRUAL_DOCUMENT where IdAccrual in (
    select id  from ACCRUAL where voyage = @idvoyage);
delete from ACCRUAL_DOCUMENT where IdAccrual in (
    select id  from ACCRUAL where voyage = @idvoyage)

select * from ACCRUAL_CP_INFORMATION where IdAccrual in (
    select id  from ACCRUAL where voyage = @idvoyage)
delete  from ACCRUAL_CP_INFORMATION where IdAccrual in (
    select id  from ACCRUAL where voyage = @idvoyage)

select * from ACCRUAL_DISBURSEMENT_ITEM where IdAccrual in (
       select id from ACCRUAL where voyage = @idvoyage )
delete from ACCRUAL_DISBURSEMENT_ITEM where IdAccrual in (
       select id from ACCRUAL where voyage = @idvoyage )

select * from ACCRUAL_FINISHED_VOYAGE where id in (
         select id from ACCRUAL where voyage = @idvoyage)
delete from ACCRUAL_FINISHED_VOYAGE where id in (
         select id from ACCRUAL where voyage = @idvoyage)

update voyage set idAccrualFinishedVoyage = NULL
       where id = @idvoyage

select * from ACCRUAL where voyage = @idvoyage
delete from ACCRUAL where voyage = @idvoyage

/*--OPERACIÓN DEL VIAJE
---===================*/
select * from CARGO_RELET_ITEM_DETAIL where idcpvu IN (
         select cp.ID from voyage v inner join CP_VOYAGE_UPDATE cp on v.idRealInstance = cp.viid where v.id = @idvoyage)
DELETE from CARGO_RELET_ITEM_DETAIL where idcpvu IN (
         select cp.ID from voyage v inner join CP_VOYAGE_UPDATE cp on v.idRealInstance = cp.viid where v.id = @idvoyage)
select * from DEMURRAGE_CALCULATOR_ITEM where idcpvu IN (
         select cp.ID from voyage v inner join CP_VOYAGE_UPDATE cp on v.idRealInstance = cp.viid where v.id = @idvoyage);
DELETE from DEMURRAGE_CALCULATOR_ITEM where idcpvu IN (
         select cp.ID from voyage v inner join CP_VOYAGE_UPDATE cp on v.idRealInstance = cp.viid where v.id = @idvoyage);
select * from DEMURRAGE_TANKER_ITEM where idcpvu IN (
         select cp.ID from voyage v inner join CP_VOYAGE_UPDATE cp on v.idRealInstance = cp.viid where v.id = @idvoyage);
DELETE from DEMURRAGE_TANKER_ITEM where idcpvu IN (
         select cp.ID from voyage v inner join CP_VOYAGE_UPDATE cp on v.idRealInstance = cp.viid where v.id = @idvoyage);
select * from FREIGHT_CALCULATION_ITEM where idcpvu IN (
         select cp.ID from voyage v inner join CP_VOYAGE_UPDATE cp on v.idRealInstance = cp.viid where v.id = @idvoyage);
DELETE from FREIGHT_CALCULATION_ITEM where idcpvu IN (
         select cp.ID from voyage v inner join CP_VOYAGE_UPDATE cp on v.idRealInstance = cp.viid where v.id = @idvoyage);
select * from LAYTIME_CALCULATOR_ITEM where idcpvu IN (
         select cp.ID from voyage v inner join CP_VOYAGE_UPDATE cp on v.idRealInstance = cp.viid where v.id = @idvoyage);
DELETE from LAYTIME_CALCULATOR_ITEM where idcpvu IN (
         select cp.ID from voyage v inner join CP_VOYAGE_UPDATE cp on v.idRealInstance = cp.viid where v.id = @idvoyage);
select * from LAYTIME_DRYCARGO_ITEM where idcpvu IN (
         select cp.ID from voyage v inner join CP_VOYAGE_UPDATE cp on v.idRealInstance = cp.viid where v.id = @idvoyage);
DELETE from LAYTIME_DRYCARGO_ITEM where idcpvu IN (
         select cp.ID from voyage v inner join CP_VOYAGE_UPDATE cp on v.idRealInstance = cp.viid where v.id = @idvoyage);

select * from CP_VOYAGE_UPDATE where viid in (select idrealinstance from voyage where id = @idvoyage)
delete from CP_VOYAGE_UPDATE  where viid in (select idrealinstance from voyage where id = @idvoyage)


/*--ELIMINACIÓN DE INFORMACIÓN CONTABLE*/
SELECT * FROM VOUCHER_LINE_CDC WHERE IDVOUCHER IN (
                      SELECT ID FROM VOUCHER_CDC WHERE ID IN (
                      SELECT ID FROM VOUCHER WHERE IDDOCUMENT IN (
                      SELECT ID FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage) ) ) )

DELETE VOUCHER_LINE_CDC WHERE IDVOUCHER IN (
                      SELECT ID FROM VOUCHER_CDC WHERE ID IN (
                      SELECT ID FROM VOUCHER WHERE IDDOCUMENT IN (
                      SELECT ID FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage ) ) ) )

SELECT * FROM VOUCHER_CDC WHERE ID IN (
                      SELECT ID FROM VOUCHER WHERE IDDOCUMENT IN (
                      SELECT ID FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage ) ) )

DELETE VOUCHER_CDC WHERE ID IN (
                      SELECT ID FROM VOUCHER WHERE IDDOCUMENT IN (
                      SELECT ID FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage ) ) )

SELECT * FROM VOUCHER WHERE IDDOCUMENT IN (
                      SELECT ID FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage ))

DELETE VOUCHER WHERE IDDOCUMENT IN (
                      SELECT ID FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage ))


SELECT * FROM DEBIT_AUTHORIZATION WHERE IDAGENCYREMITTANCE IN (
              SELECT ID FROM AGENCY_REMITTANCE WHERE ID IN (
              SELECT ID FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage ) ) )
DELETE DEBIT_AUTHORIZATION WHERE IDAGENCYREMITTANCE IN (
              SELECT ID FROM AGENCY_REMITTANCE WHERE ID IN (
              SELECT ID FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage )) )

SELECT * FROM AGENCY_REMITTANCE WHERE ID IN (
              SELECT ID FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage )) 
DELETE AGENCY_REMITTANCE WHERE ID IN (
              SELECT ID FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage )) 

select * from DOCUMENT_REMARK where Invoice in (
         SELECT id FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage ))
delete from DOCUMENT_REMARK where Invoice in (
         SELECT id FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage ))

select * from ACCRUAL_INVOICE_ITEM where InvoiceItem in (
         select id from INVOICE_ITEMS where IdInvoice in (
         SELECT id FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage )))
delete from ACCRUAL_INVOICE_ITEM where InvoiceItem in (
         select id from INVOICE_ITEMS where IdInvoice in (
         SELECT id FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage )))

select * from INVOICE_ITEMS where IdInvoice in (
         SELECT id FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage ))
delete from INVOICE_ITEMS where IdInvoice in (
         SELECT id FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage ))

select * from INVOICE_VOYAGE_CHARTER where id in (
         select id from invoice where id in (
         SELECT id FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage )))
delete from INVOICE_VOYAGE_CHARTER where id in (
         select id from invoice where id in (
         SELECT id FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage )))

select * from COLLECT_ALLOCATION where idinvoice in (
         select id from invoice where id in (
         SELECT id FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage )))
delete from COLLECT_ALLOCATION where idinvoice in (
         select id from invoice where id in (
         SELECT id FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage )))

select * from invoice where id in (
         SELECT id FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage ))
delete from invoice where id in (
         SELECT id FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage ))

SELECT * FROM DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage )
DELETE DOCUMENT WHERE IdVoyageInstance IN (select idrealinstance from voyage where id = @idvoyage )

/*-- ELIMINA EL REGISTRO DE OPERACIONES ASOCIADAS AL PORT CALENDARIZADO*/


select * from VOYAGE_PORT_OPERATION where idvoyageport in (
 select id from voyage_port  where idvoyageinstance in ( 
      SELECT ID from VOYAGE_INSTANCE where id in (
                                   (select idrealinstance      from voyage where id = @idvoyage),
                                   (select idEstimatedInstance from voyage where id = @idvoyage)  
                               ) ) )

select  * from DEPARTURE_PORT_OPERATION  where idPortOperation in (
    select id from VOYAGE_PORT_OPERATION where idvoyageport in (
        select id from voyage_port  where idvoyageinstance in ( 
            SELECT ID from VOYAGE_INSTANCE where id in (
                                       (select idrealinstance      from voyage where id = @idvoyage),
                                       (select idEstimatedInstance from voyage where id = @idvoyage)  
                                   ) ) )
)


delete  from DEPARTURE_PORT_OPERATION  where idPortOperation in (
    select id from VOYAGE_PORT_OPERATION where idvoyageport in (
        select id from voyage_port  where idvoyageinstance in ( 
            SELECT ID from VOYAGE_INSTANCE where id in (
                                       (select idrealinstance      from voyage where id = @idvoyage),
                                       (select idEstimatedInstance from voyage where id = @idvoyage)  
                                   ) ) )
)
delete from VOYAGE_PORT_OPERATION where idvoyageport in (
 select id from voyage_port  where idvoyageinstance in ( 
      SELECT ID from VOYAGE_INSTANCE where id in (
                                   (select idrealinstance      from voyage where id = @idvoyage),
                                   (select idEstimatedInstance from voyage where id = @idvoyage)  
                               ) ) )

/*-- ELIMINA EL COMMODITY ASOCIADO A LA ACTIVIDAD DE PUERTO*/
select * from CARGO_INVENTORY where idvport in (
 select id from voyage_port  where idvoyageinstance in ( 
      SELECT ID from VOYAGE_INSTANCE where id in (
                                   (select idrealinstance      from voyage where id = @idvoyage),
                                   (select idEstimatedInstance from voyage where id = @idvoyage))))
delete from CARGO_INVENTORY where idvport in (
 select id from voyage_port  where idvoyageinstance in ( 
      SELECT ID from VOYAGE_INSTANCE where id in (
                                   (select idrealinstance      from voyage where id = @idvoyage),
                                   (select idEstimatedInstance from voyage where id = @idvoyage))))
/*-- ELIMINA LA RELACIÓN CON LA TABLA DE CONSUMPTION*/
select * from voyage_port where idvoyageinstance in ( 
     SELECT ID from VOYAGE_INSTANCE where id in (
                                   (select idrealinstance      from voyage where id = @idvoyage),
                                   (select idEstimatedInstance from voyage where id = @idvoyage)))
update voyage_port set ifosailingconsumption = NULL, mdosailingconsumption = NULL, 
                       ifoatportconsumption = NULL, mdoatportconsumption = NULL
    where idvoyageinstance in ( 
     SELECT ID from VOYAGE_INSTANCE where id in (
                                   (select idrealinstance      from voyage where id = @idvoyage),
                                   (select idEstimatedInstance from voyage where id = @idvoyage)))

/*-- ELIMINA LA DISTRITUCIÓN DEL CONSUMO RELACIONADO A LOS PUERTOS DEL VIAJE*/
select * from  BUNKER_STOCK_CONSUMPTION where idconsumption in
 (SELECT id FROM BUNKER_CONSUMPTION WHERE idvport in (
 select id from voyage_port  where idvoyageinstance in ( 
      SELECT ID from VOYAGE_INSTANCE where id in (
                                   (select idrealinstance      from voyage where id = @idvoyage),
                                   (select idEstimatedInstance from voyage where id = @idvoyage) ))))
delete from  BUNKER_STOCK_CONSUMPTION where idconsumption in
 (SELECT id FROM BUNKER_CONSUMPTION WHERE idvport in (
 select id from voyage_port  where idvoyageinstance in ( 
      SELECT ID from VOYAGE_INSTANCE where id in (
                                   (select idrealinstance      from voyage where id = @idvoyage),
                                   (select idEstimatedInstance from voyage where id = @idvoyage) ))))

/*--ELIMINA EL CONSUMO ESTIMADO Y REAL*/
select * from BUNKER_CONSUMPTION WHERE idvport in (
 select id from voyage_port  where idvoyageinstance in ( 
      SELECT ID from VOYAGE_INSTANCE where id in (
                                   (select idrealinstance      from voyage where id = @idvoyage),
                                   (select idEstimatedInstance from voyage where id = @idvoyage) )))
delete from BUNKER_CONSUMPTION WHERE idvport in (
 select id from voyage_port  where idvoyageinstance in ( 
      SELECT ID from VOYAGE_INSTANCE where id in (
                                   (select idrealinstance      from voyage where id = @idvoyage),
                                   (select idEstimatedInstance from voyage where id = @idvoyage) )))


/*---Eliminamos las proformas
---====================*/
select * from proforma where idVoyageItineraryPort in (
    select id from VOYAGE_PORT where  idvoyageinstance in (@realIntance,@estimateIntance)
)
select * from UPDATE_PORT_EXPESES_DETAILS where idProforma in (
    select id from proforma where idVoyageItineraryPort in (
           select id from VOYAGE_PORT where  idvoyageinstance in (@realIntance,@estimateIntance)
    )
)
delete  from UPDATE_PORT_EXPESES_DETAILS where idProforma in (
    select id from proforma where idVoyageItineraryPort in (
           select id from VOYAGE_PORT where  idvoyageinstance in (@realIntance,@estimateIntance)
    )
)
delete  from proforma where idVoyageItineraryPort in (
    select id from VOYAGE_PORT where  idvoyageinstance in (@realIntance,@estimateIntance)
)
/*--Busco el id next del viaje anterior*/
select * from VOYAGE_PORT_RECORD where idnextport in (
        select id from voyage_port  where idvoyageinstance in (@realIntance,@estimateIntance)
    )

select * from VOYAGE_PORT_OPERATION where idvoyageport in (
    select id from voyage_port  where idvoyageinstance in (@realIntance,@estimateIntance)
);

update VOYAGE_PORT_RECORD set idnextport = null where idnextport in (
        select id from voyage_port  where idvoyageinstance in (@realIntance,@estimateIntance)
    )
delete from voyage_port  where idvoyageinstance in (@realIntance,@estimateIntance);

/*--ELIMINA EL ITINERARIO DEL VIAJE*/
select * from voyage_port  where idvoyageinstance in ( 
     SELECT ID from VOYAGE_INSTANCE where id in (@realIntance,@estimateIntance))
delete voyage_port  where idvoyageinstance in ( 
     SELECT ID from VOYAGE_INSTANCE where id in (@realIntance,@estimateIntance))


SELECT * FROM VOYAGE_CP where idVOYAGEINSTANCE IN (@realIntance,@estimateIntance)
delete  from VOYAGE_CP where idVOYAGEINSTANCE IN (@realIntance,@estimateIntance)


select * from OTHER_INCOME_EXPENSES_CP where idvoyageinstance in (
         SELECT ID FROM VOYAGE_INSTANCE where id in (@realIntance,@estimateIntance) )

DELETE OTHER_INCOME_EXPENSES_CP where idvoyageinstance in (
         SELECT ID FROM VOYAGE_INSTANCE where id in (@realIntance,@estimateIntance) )



update voyage set idEstimatedInstance=null, idRealInstance=null  where  id = @idvoyage;
SELECT * from VOYAGE_INSTANCE where id in (@realIntance,@estimateIntance) 
delete from VOYAGE_INSTANCE where id in (@realIntance,@estimateIntance) 

/*--Remarks
---=======*/

update VOYAGE_PORT_RECORD set Remark = NULL
where Remark in (select id from REMARK where voyage = @idvoyage)

select * from REMARK where voyage = @idvoyage
 and not exists (select * from CHARTER_PARTY where idremark = REMARK.id);

delete  from REMARK where voyage = @idvoyage
 and not exists (select * from CHARTER_PARTY where idremark = REMARK.id);


update voyage set idEstimatedInstance=null, idRealInstance=null  where  id = @idvoyage;
delete from VOYAGE_INSTANCE where id in (@realIntance,@estimateIntance)


select * from VOYAGE_PORT_RECORD where voyage = @idvoyage
delete from VOYAGE_PORT_RECORD where voyage = @idvoyage


/*--ELIMINA REGISTRO DE VIAJE*/
select * from voyage where ID = @idvoyage;
delete from voyage where ID = @idvoyage;


/*ROLLBACK TRAN*/
/*Commit tran*/

--
Atte.
Victor Hugo Saavedra
http://vhspiceros.blogspot.com

[incidente] Eliminar puertos de Delivery y Redelivery

2009-04-06T18:15:00.001-04:00

Actualamente el sistema tiene un error. avaces no deja eliminar los puertos de delivery y redelivery tanto de TC in como TC out.

Por un tema de referencia.
Basicamente es por que el puerto anterior a al que queremos borrar tiene la referencia al siguiente puerto.
Entonces debemos borrar la referencia al puerto a borrar.

por ejemplo:


UPDATE VOYAGE_PORT_RECORD SET idNextPort=null where idNextPort=578 AND voyage=100

y despues podriamos borrar el puero en cuestion, este caso el puerto 578


DELETE FROM VOYAGE_PORT_RECORD  WHERE id=578

y listo, ya esta el puerto borrado

--
Atte.
Víctor Hugo Saavedra.
http://vhspiceros.blogspot.com

[incidente] remesas con puerto invalido

2009-04-06T16:12:00.001-04:00

Acabo de ver un incidente donde salia una remesa con puerto invalido.

Recordemos que una remesa pertenece a una proforma, y esta es la que tiene una remesa y esta tiene la relacion VoyageItineraryPort.

Aqui estaba el problema


select * from proforma where id=4289


 Id     Name                             Status     AgencyServiceType     Date                    PortInvalidationDate     IsRegisteredInPortDisbursement     idVoyageItineraryPort     idperson     idother_expenses     AgencyMail     MessageToAgencyNominated     CreateDate             
 -----  -------------------------------  ---------  --------------------  ----------------------  -----------------------  ---------------------------------  ------------------------  -----------  -------------------  -------------  ---------------------------  ---------------------- 
 4289   ANTILLES II-221/2009-Praia Mole  30         10                    20-02-2009 08:36:35 AM  20-02-2009 11:47:09 AM   false                              (null)                    879          14366                                                            20-02-2009 08:36:45 AM

fijense, que hay un la columna o campo idVoyageItineraryPort esta en null. este campo tienen que dejarlo con un id valido para el viaje.


update proforma set idVoyageItineraryPort= 16043 where id=4289

Ademas hay muchos casos que tienen este caso miren:


select count(*) from proforma where idVoyageItineraryPort is null


 cantidad    
 ----------- 
 157

--
Atte.
Victor Hugo Saavedra
http://vhspiceros.blogspot.com

todas las tablas relacionas al CP_VOYAGE_UPDATE

2009-03-31T11:27:00.001-04:00

Aqui dejo una consulta, ya que estoy trabajando en incidente que tiene referencia con esta tabla.

para buscar las columnas busque las columnas con nombre "idcpvu", con este Script

Aqui esta la consulta


BEGIN 
DECLARE @idcpvu AS int
SET @idcpvu= 2887
   select * from CARGO_RELET_ITEM_DETAIL where idcpvu=@idcpvu;
   select * from DEMURRAGE_CALCULATOR_ITEM where idcpvu=@idcpvu;
   select * from DEMURRAGE_TANKER_ITEM where idcpvu=@idcpvu;
   select * from FREIGHT_CALCULATION_ITEM where idcpvu=@idcpvu;
   select * from LAYTIME_CALCULATOR_ITEM where idcpvu=@idcpvu;
   select * from LAYTIME_DRYCARGO_ITEM where idcpvu=@idcpvu;
END

--
Atte.
Víctor Hugo Saavedra.
http://vhspiceros.blogspot.com

Backups automáticos en SQL Server 2005

2009-03-24T17:03:00.001-04:00

hoy estuve con Paul, un compañero de trabajo cuestienandonos la mejor forma de hacer respaldos en Sql Server de forma Automatica.

primero hay que generar un script al cual llamaremos backup.sql y lo crearemos en c:\


DECLARE @fecha VARCHAR(50)
DECLARE @archivo VARCHAR(50)
SET @fecha = CONVERT(VARCHAR(4), YEAR(GETDATE()))+'-'+ CONVERT(VARCHAR(2), MONTH(GETDATE()))+'-'+CONVERT(VARCHAR(2), DAY(GETDATE()))
SET @archivo = 'C:\tmp\BD_'+ @fecha +'.bak'
ALTER DATABASE BD SET SINGLE_USER WITH ROLLBACK IMMEDIATE
BACKUP DATABASE BD TO DISK = @archivo
ALTER DATABASE BD SET MULTI_USER
GO
EXIT

Ojo en hay que Cambiar DB por el nombre de la base de datos. Ademas este script cambia la Db a "MULTI USER".

luego crearemos backup.bat, con el siguiente contenido


SQLCMD -S(local)\SQLEXPRESS -E -i"C:\backup.sql"
"C:\Archivos de programa\WinRAR\rar" a BACKUP.rar c:\TMP\*.*
ECHO S | DEL c:\TMP

Utilizamos la utilidad SQLCMD para que ejecute en backup.sql en x servidor.
Aqui hay un manual de SQLCMD

Ahora solo es cosa de programar una tarea cada x tiempo para que ejecute el bat

[incidente][51131] Error en la fecha de demurrageCalculator

2009-03-19T12:36:00.001-04:00

Actualmente las fechas de arrivo y departure en el Calculador de demurrage
las mostraba en Gmt, y se necesitaban mostrara en hora local.

Aqui van los link con los cambios realizados

http://10.10.50.218:8090/diff/491/

..
Atte.
Victor Hugo Saavedra
http://vhspiceros.blogspot.com

ZeusNet en IIS 7

2009-03-18T19:13:00.001-04:00

Paso 1: Configurar el modo de canalización

Al cargar el sitio, asume por defecto el Grupo de Aplicaciones; DefaultAppPool. Este viene configurado como Integrada en el modo de canalización administrada. Debemos cambiarlo a Clásica, para que canalice las llamadas al IIS tal cual lo hace en IIS 6 con ISAPI.

Paso 2: Modificar Web.Config

Se debe reemplazar la línea;

<add verb="GET" path="ScriptResource.axd" type="Microsoft.Web.Handlers.ScriptResourceHandler" validate="false" />

Por;

<add name="ScriptResource" verb="GET" path="ScriptResource.axd" type="Microsoft.Web.Handlers.ScriptResourceHandler" />

Nota: Para IIS 7, es requerido el campo name, y este debe indicar un nombre único para nuestro handler. Y el campo validate NO existe.

Direccion de SVN

2009-02-16T11:38:00.001-03:00

Cambio la ip de Svn
ahora la nueva ip es la 190.196.56.84

por favor dejarla en hosts(c:\WINDOWS\system32\drivers\etc\hosts) por si esta vuelve a cambiar.


190.196.56.84   svn

--
Atte.
Víctor Hugo Saavedra.
http://vhspiceros.blogspot.com

un query un tanto especial

2009-02-11T14:49:00.002-03:00

Trato de aportar lo que mas puedo , este ha sido uno de los hql mas complicados que he realizado y la complejidad radica en el inner join, este inner lo estoy realizando con los ID´s de las 2 tablas


hql += " where vo.RealInstance.Id = vip.VoyageInstance.Id ";

el problema que tenia en este Hql es que ademas necesitaba entregar los Voyage ordenados por algún criterio, para que en el array los registros viniesen de manera consecutiva y no me sucediese algo asi como el voyage 20 , 21 y después nuevamente
el 20.

algo tan simple que en una query de SQL sería "order by vo.Id,vo.Name", que era lo complejo dirán ustedes, yo estoy esperando un typo de List y si miran el HQL este me entrega 2 tipos de datos uno de tipo Voyage y el otro de tipo VoyageItineraryPort.
para poder recorrer la lista había que leerla como object y agregarla a una nueva lista


  var vo = query.List<object[]>() ;
              IList<VoyageItineraryPort> newlist = new List<VoyageItineraryPort>();
              for(int i=0;i < vo.Count;i++)
              {
                 newlist.Add(vo[i][0] as VoyageItineraryPort);
              }
              return newlist;

cualquier duda o consulta por este medio o por correo.

paulbeltran@gmail.com

Saludos.

Adjunto el metodo para obtener las listas y el filtro que hace que la Query sea algo mas dinamica


  public virtual IList<VoyageItineraryPort> getVoyageItineraryPort(AbstractFilter filtro)        
        {
           try
           {
              String hql = filtro.GetQuery();
              Dictionary<String, Object> param = filtro.GetParameters();
              IQuery query = CreateQuery(hql);
              foreach (String key in param.Keys)
              {
                 if (param[key] is ICollection)
                 {
                    query.SetParameterList(key, (ICollection)param[key]);
                 }
                 else
                 {
                    query.SetParameter(key, param[key]);
                 }
              }
              var vo = query.List<object[]>() ;
              IList<VoyageItineraryPort> newlist = new List<VoyageItineraryPort>();
              for(int i=0; i < vo.Count;i++)
              {
                 newlist.Add(vo[i][0] as VoyageItineraryPort);
              }
              return newlist;
           }
           catch(Exception e)
           {
              log.Info(String.Format("Error_VBP" + e.StackTrace));
              return null;
           }
           
        }


  public override String GetQuery()
        {
           try {
              String hql = "";
              filtro = new Dictionary<String, Object>();
              hql += "select distinct vip,vo.Name,vo.Id  from " + typeof(VoyageItineraryPort).FullName + " vip , ";
              hql += "" + typeof(Voyage).FullName + " vo ";
              hql += " where vo.RealInstance.Id = vip.VoyageInstance.Id ";
              if (this._listvesselId!=null && this._listvesselId.Count != 0)
              {
                 hql += " and vo.Vessel.Id in (:vessel) ";
                 filtro.Add("vessel", this._listvesselId);
              }
              if (this._listvoyageId !=null && this._listvoyageId.Count != 0)
              {
                 hql += " and  vo.Id in (:voyageids) ";
                 filtro.Add("voyageids", this._listvoyageId);
              }              
              if (_dateFrom != null)
              {
                 hql += " AND ";
                 hql += this.BuildBetweenExpresion("vip.VoyageInstance.Start", this._dateFrom, this._dateTo, filtro);                 
              }
              if (_portId != 0)
              {
                 hql += " and vip.Port.Id= :Port";
                 filtro.Add("Port", _portId);
              }
              hql += " order by  vo.Id,vo.Name";
              return hql;
           }

urls y datos utiles

2009-02-10T10:16:00.001-03:00

Url produccion

http://zeusnet
username: zeusnet@zeus.local
passwd : ultra

maquina desarrollo
IP :10.10.60.6
user : zeusnet
passwd: ultra

en la maquina de desarrollo levante un website para Reportes se llama Testpaul

http://testPaul/Fleet.aspx
esto lo hice para poder seguir trabajando mientras Roberto testea las fuentes :D.
=======================================================================
Aqui dejo mi host, para que podamos entrar con un Alias. el host se encuentra en


c:\WINDOWS\system32\drivers\etc\hosts


# Copyright (c) 1993-1999 Microsoft Corp.
#
# Éste es un ejemplo de archivo HOSTS usado por Microsoft TCP/IP para Windows.
#
# Este archivo contiene las asignaciones de las direcciones IP a los nombres de
# host. Cada entrada debe permanecer en una línea individual. La dirección IP
# debe ponerse en la primera columna, seguida del nombre de host correspondiente.
# La dirección IP y el nombre de host deben separarse con al menos un espacio.
# 
#
# También pueden insertarse comentarios (como éste) en líneas individuales
# o a continuación del nombre de equipo indicándolos con el símbolo "#"
#
# Por ejemplo:
#
#      102.54.94.97     rhino.acme.com          # servidor origen
#       38.25.63.10     x.acme.com              # host cliente x

127.0.0.1       localhost
10.10.50.69     ccnet
10.10.50.57     Paul  
10.10.50.56     Jorge
10.10.50.51     Victor
10.10.60.6      desarrollo

Response.end(); Error

2009-02-06T11:07:00.001-03:00

Necesitaba enviarle al cliente un archivo Excel.xml pero al colocar esta linea("response.end();") me generaba este error.
[System.Threading.ThreadAbortException] = {Unable to evaluate expression because the code is optimized or a native frame is on top of the call stack.}

si la omitia y hacia lo que dice microsoft http://support.microsoft.com/kb/312629/ no me funcionaba por que yo estaba haciendo un redirect() , en la page de microsoft dice claramente sustituir el response.end() por HttpContext.Current.ApplicationInstance.CompleteRequest();
pero ese me generaba
[System.Web.HttpException] = {"Cannot redirect after HTTP headers have been sent."}, al final buscando y probando cambie mi codigo de response.redirect("url") a response.write(string);
y la parte que me enviá el archivo es el flush();
el render es el archivo excel.xml que necesitaba enviar

al final quedo asi el codigo:

if (format == "excel")
{
//context.Response.Redirect(ToJson(format, chkvesselAll, chkcontract, list),false);
context.Response.Write(ToJson(format, chkvesselAll, chkcontract, list));
}
y la parte que envia el archivo al cliente :
HttpResponse response = GetHeaderExcel(filename);
response.Write(render);
response.Flush();

Saludos

PCBT.

ver charterParty, VOYAGE_INSTANCE y cp_voyage_update

2009-02-04T12:27:00.001-03:00

Aqui dejo un sql para que vean estos datos, solo tienen que cambiar el idVoyage


BEGIN 
DECLARE @idVoyage AS int
SET @idVoyage= 1747

SELECT * 
FROM VOYAGE_INSTANCE 
WHERE id  IN  (
                    SELECT  idRealInstance 
                    FROM voyage 
                    WHERE id=@idVoyage 
                UNION  
                    SELECT  idEstimatedInstance  
                    FROM voyage 
                    WHERE id=@idVoyage
             )

SELECT  * 
FROM VOYAGE_CP 
WHERE  idvoyageinstance  IN   (
                    SELECT  idRealInstance 
                    FROM voyage 
                    WHERE id=@idVoyage 
                UNION  
                    SELECT  idEstimatedInstance  
                    FROM voyage 
                    WHERE id=@idVoyage
             )


SELECT *
FROM CP_VOYAGE_UPDATE
WHERE viid IN (
            SELECT id
            FROM VOYAGE_INSTANCE 
            WHERE id  IN  (
                                SELECT  idRealInstance 
                                FROM voyage 
                                WHERE id=@idVoyage 
                            UNION  
                                SELECT  idEstimatedInstance  
                                FROM voyage 
                                WHERE id=@idVoyage
                         )
)
END

y el resultado es el siguiente


 Id     idvessel     LastUpdate              idRemark     idOperator     voyageStart             voyageEnd               IsReal     Status     UpdatedByCPMatters     idRemarkSurvey     CreateDate             
 -----  -----------  ----------------------  -----------  -------------  ----------------------  ----------------------  ---------  ---------  ---------------------  -----------------  ---------------------- 
 3475   111          04-02-2009 12:13:57 PM  (null)       35             21-07-2008 09:00:00 PM  24-07-2008 04:42:00 AM  true       20         true                   (null)             18-07-2008 05:12:15 PM 
 3507   111          18-07-2008 05:13:30 PM  (null)       35             21-07-2008 09:00:00 PM  24-07-2008 04:42:00 AM  false      10         false                  (null)             23-07-2008 04:22:54 PM 

 2 record(s) selected [Fetch MetaData: 0/ms] [Fetch Data: 0/ms] 

 idvoyageinstance     idcp     posn     CreateDate             
 -------------------  -------  -------  ---------------------- 
 3475                 2654     0        04-02-2009 12:12:23 PM 
 3507                 2654     0        04-02-2009 12:12:23 PM 

 2 record(s) selected [Fetch MetaData: 0/ms] [Fetch Data: 0/ms] 

 Id     CharterParty     viid     freight_updated     idFreightCalculationRemark     reletdetails_updated     idCargoReletDetailsRemark     DemurrageAccEstimation     DemurrageCalcEstimation     CreateDate              Reverse     EstimationDemurrageReverse     LayTimeCalculatorEstimaDemurrageForAccouting     LaytimeCalculatorEstimaDespatchForAccouting     layTimeCalculatorReversibleType     LayTimeCalculatorIsDemmurrage     LayTimeCalculatorAmmount     LayTimeCalculatorEstimaDemurrage     LaytimeCalculatorEstimaDespatch     LayTimeCalculatorIsEstimation     LayTimeCalculatormessageStatus    
 -----  ---------------  -------  ------------------  -----------------------------  -----------------------  ----------------------------  -------------------------  --------------------------  ----------------------  ----------  -----------------------------  -----------------------------------------------  ----------------------------------------------  ----------------------------------  --------------------------------  ---------------------------  -----------------------------------  ----------------------------------  --------------------------------  --------------------------------- 
 1897   2153             3475     true                20620                          false                    (null)                        0                          (null)                      23-07-2008 04:22:54 PM  (null)      (null)                         (null)                                           (null)                                          (null)                              (null)                            (null)                       (null)                               (null)                              (null)                            (null)                            
 2070   2153             3507     false               (null)                         false                    (null)                        (null)                     (null)                      03-02-2009 11:45:56 AM  (null)      (null)                         (null)                                           (null)                                          (null)                              (null)                            (null)                       (null)                               (null)                              (null)                            (null)                            

 2 record(s) selected [Fetch MetaData: 0/ms] [Fetch Data: 0/ms] 

 [Executed: 04-02-09 12:19:13 PM CLST ] [Execution: 0/ms]

--
Atte.
Víctor Hugo Saavedra.
http://vhspiceros.blogspot.com

problemas con svn y el antivirus

2009-02-02T10:28:00.001-03:00

Señores:

Si tienen problemas con subir cosas a Svn, y les sale un mensaje como "obstructed" lo mas problema es que sea el antivirus.

Si estas seguro que es problema de el antivirus, y no problema de versiones o mal menejo de svn, pueden usar este comando


C:\Program Files\McAfee\Common Framework\FrmInst.exe /ForceUninstall

--
Atte.
Victor Hugo Saavedra
http://vhspiceros.blogspot.com

logger en zeusNet

2009-01-28T18:33:00.002-03:00

Para logear las exception se hace de la siguiente manera.

poner en la clase un atributo statico, y hacer el import respectivo


using log4net;
private static readonly ILog log = LogManager.GetLogger("ZeusNet");

y aqui hay un ejemplo de como logear una exception:


try{
    var foo = Convert.ToDecimal("bar");
}catch(Exception ex){
    log.Error("Exception:",ex);
}

--
Atte.
Victor hugo Saavedra
http://vhspiceros.blogspot.com

mostrar mensajes y bloquear pantalla

2009-01-27T12:47:00.001-03:00


<asp:Panel ID="panelMessage" runat="server" Visible="false">

    <div class="overlay" id="Div2" style="visibility: visible;">
        <div class="overlay_window">
            aqui va el mensaje o pregunta
        </div>
    </div>
</asp:Panel>

para mostrarlo simplemente hay que hacer:


panelMessage.Visible = true;

en el div con clase "overlay_window" pueden agregar controles de .net y lo que quieran.

--
Atte.
Victor Hugo Saavedra
http://vhspiceros.blogspot.com

leer Fixture & Cargo Relet

2009-01-26T18:19:00.001-03:00

De esta forma se lee un fixture.
Retorna siempre un fixture,pero primero se discrimina si es un cargo Relet o no.


protected virtual FixtureContract CurrentFixture() {
    if (!CurrentVessel().IsCargoRelet) {
        return BagFactory.Instance.GetBag().Get(_view.Fixture);
    }
    return BagFactory.Instance.GetBag().Get(_view.Fixture).Fixture;
}

--
Atte.
Victor Hugo Saavedra
http://vhspiceros.blogspot.com

Crear una page Web En Zeusnet desde 0

2009-01-26T10:32:00.001-03:00

Señores, algo que yo pensé sería muy fácil no era tan fácil , ya que este framework tiene cosas que no conozco , llegue y agregue una page web nueva , me puse a comparar el codigo y me doy cuenta que estas pages web no estan dentro de un form , todas estan contenidas dentro de un Update panel , mas encima cometi el gran error
de copiar y hacer un copy paste mal hecho , me salian unos errores que apuntaban a los archivos temporales,
"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\zeusnet\43a1f282"
y me aparecian nombres y codigos raros que yo jamas genere , despues de buscar y revisar me di cuenta de que la primera linea tenia un codigo mal puesto

"<"%@" Page Language="C#" AutoEventWireup="true" CodeFile="VoyageBunkerPerformanceRpt.aspx.cs" Inherits="Reporting_VoyageBunkerPerformance" MasterPageFile="~/MasterPages/MyReportMaster.master" "%">"

el campo Inherits debe llevar el nombre de la clase que esta en el archivo "VoyageBunkerPerformanceRpt.aspx.cs" sin esto jamas se ejecutará el codigo de la pagina, ese fue un gran error, ahora despues de modificar eso y ademas colocar que el MasterPageFile es MyReportMaster.master la pagina se está levantando sin problemas, ahora tengo que revisar el tema del Presenter y la vista.

Donde se guardan los OtherSupplierItem y OtherDebtorItem

2009-01-23T15:42:00.001-03:00

OtherSupplierItem

select top 100 * from OTHER_VOYAGE_ITEM_DETAIL


<class name="ZeusNet.Core.Model.Domain.Ops.VoyagesUpdate.OtherSupplierItem" table="OTHER_VOYAGE_ITEM_DETAIL" lazy="true">


<id name="Id" type="Int64" unsaved-value="0">

 <generator class="native" />
</id>

<property name="Amount" />
<property name="Exchange" />
<property name="IsRegisteredInPortDisbursement"/>


<many-to-one name="Person"/>
<many-to-one name="Currency"/>
<many-to-one name="ExpenseItem"/>
<many-to-one name="Remark" cascade="all-delete-orphan" />
<many-to-one name="RealInstance" column="idvoyageinstance"/>

</class>

OtherDebtorItem


select top 100 * from OTHER_DEBTOR_ITEMS


<class name="ZeusNet.Core.Model.Domain.Ops.VoyagesUpdate.OtherDebtorItem" table="OTHER_DEBTOR_ITEMS" lazy="true">
<id name="Id" type="Int64" unsaved-value="0">
 <generator class="native" />
</id>

<property name="Amount" />
<property name="Exchange" />

<many-to-one name="Person"/>
<many-to-one name="Currency"/>
<many-to-one name="ExpenseItem"/>
<many-to-one name="Remark" cascade="all-delete-orphan" />
<many-to-one name="RealInstance" column="idvoyageinstance"/>

</class>

--
Atte.
Victor Hugo Saavedra
http://vhspiceros.blogspot.com

Como leer todos los contratos TimeCharter Desde un Viaje

2009-01-23T15:37:00.001-03:00


Voyage voyage = BagFactory.Instance.GetBag(<Voyage>).Get(_view.Voyage);
var chartererID = "";
if (voyage.IsTimeCharter)
  foreach (var tc in voyage.RealInstance.VoyageCharterParties.GetAllTimeCharter())
      chartererID = chartererID + tc.Charterer.Id + ",";
_view.chatererts = chartererID;

En este caso genero un string con todos los ids, de los charterers todos separados por coma.

--
Atte.
Victor Hugo Saavedra
http://vhspiceros.blogspot.com