WindevSendMailOC

// Is a row selected?
IF TableSelect(TABLE_ORDENCOMPRA)=-1 THEN RETURN

IF TABLE_ORDENCOMPRA.COL_RechazadoFechaHora > gdfch20000101 THEN
    Info("RECHAZADO PREVIAMENTE...")

ELSE IF TABLE_ORDENCOMPRA.COL_AprobadoFechaHora > gdfch20000101 THEN
    SaveTable is string
    SaveTable = TableSavePositionAndSelection(TABLE_ORDENCOMPRA)

    IF TABLE_ORDENCOMPRA.COL_FechaActivacion > DateTimeUTCToLocal(HInfoServer("CONN_BASEDEDATOS",hInfoDate))[[1 TO 8]] THEN
        Info("ESTE PEDIDO SE ACTIVA EL " + DateToString(TABLE_ORDENCOMPRA.COL_FechaActivacion),"NO PUEDE IMPRIMIR HASTA ESTA FECHA")
        RETURN
    END

    IF YesNo(Yes,"SEGURO DE ENVIAR EL MAIL AL PROVEEDOR?") = Yes THEN
        sMailDestino is string
        HReadSeekFirst(EGR_SOLICITUDEGRESO, EGR_SolicitudEgresoID, TABLE_ORDENCOMPRA.COL_EGR_OrdenCompraID)
        HReadSeekFirst(DIRECCIONES, ClienteID, EGR_SOLICITUDEGRESO.ProveedorID) // para mail
        sMailDestino    = NoSpace(DIRECCIONES.Email)
        # IF HReadSeekFirst(E_CLIENTECONTACTOS,ClienteID,CLIENTES.ClienteID) = True THEN
        #     IF HReadSeekFirst(CONTACTOS,CONTACTOSID,E_CLIENTECONTACTOS.CONTACTOSID) = True THEN
        #         IF CONTACTOS.Email <> "" THEN
        #             sMailDestino = sMailDestino + "," + NoSpace(CONTACTOS.Email)
        #         END
        #     END
        # END

// se marca la aprobación del presupuesto
        HReadSeekFirst(EGR_PRESUPUESTO,SolicitudEgresoID,EGR_SOLICITUDEGRESO.SolicitudEgresoID)
        WHILE NOT HOut() AND EGR_PRESUPUESTO.SolicitudEgresoID = EGR_SOLICITUDEGRESO.SolicitudEgresoID
            EGR_PRESUPUESTO.SolicitudEgresoID       = EGR_SOLICITUDEGRESO.SolicitudEgresoID
            EGR_PRESUPUESTO.AprobadoFechaHora       = EGR_SOLICITUDEGRESO.AprobadoOCompraFechaHora
            EGR_PRESUPUESTO.AprobadoOperador        = EGR_SOLICITUDEGRESO.AprobadoOCompraOperador
            IF EGR_PRESUPUESTO.VerificadoFechaHora < gdfch20000101 THEN
                EGR_PRESUPUESTO.VerificadoFechaHora = EGR_PRESUPUESTO.AprobadoFechaHora
                EGR_PRESUPUESTO.VerificadoOperador  = EGR_PRESUPUESTO.AprobadoOperador
            END
            HModify(EGR_PRESUPUESTO)

            HReadNext(EGR_PRESUPUESTO)
        END

        //Info("Hasta aqui he llegado")

        gbImprimir = True
        sNomArchivo is string   = gsDirTemporal + "\ordencompra" + EGR_SOLICITUDEGRESO.EGR_SolicitudEgresoID + ".pdf"
        //
        iInitReportQuery(RPT_OC_CLIENTE,EGR_SOLICITUDEGRESO.SolicitudEgresoID)
        //iDestination(iGenericPDF, sNomArchivo)

        iDestination(iPDF, sNomArchivo)
        iPrintReport(RPT_OC_CLIENTE)

        // generar un correo con la o.c.

        myEmail is Email
        myAttach is EmailAttach

        // Start a SMTP session
        MySession is EmailSMTPSession

        MySession..ServerAddress = INIRead("MAIL", "ServerAddress", "Falta definir Servidor de correo",IniLineaComando) //"mail.aconcagua.com.py"
        MySession..Name          = INIRead("MAIL", "Name", "Falta definir nombre de administrador",IniLineaComando) // "supervisor_red"
        MySession..Password      = INIRead("MAIL", "Password", "Falta definir contraseña",IniLineaComando) // "RyutaSensei"
        MySession..Port          = INIRead("MAIL", "Port", "Falta definir puerto",IniLineaComando) // 25
        EmailStartSession(MySession)

        myEmail..Message        = INIRead("MAIL", "Message", "Falta definir mensaje",IniLineaComando) + " Nº " + EGR_SOLICITUDEGRESO.SolicitudNro + "." // "Adjuntamos nuestra orden de compra."
        myEmail..Sender         = INIRead("MAIL", "Sender", "Falta definir Remitente",IniLineaComando) // "informatica@aconcagua.com.py"
        myEmail..Subject        = INIRead("MAIL", "Subject", "Falta definir Asunto",IniLineaComando) + " " + EGR_SOLICITUDEGRESO.SolicitudNro // "Orden de compra"
        myAttach..Name          = "correo.pdf"
        myAttach..Content       = fLoadText(sNomArchivo)

        myAttach..ContentType   = "application/pdf"
        myAttach..ContentDescription = "Un documento pdf"
        Add(myEmail..Attach, myAttach)
        IF sMailDestino <> "" THEN
            myEmail..Recipient[1]   = sMailDestino
        #     IF CONTACTOS.Email <> "" THEN
        #         myEmail..Recipient[2]   = CONTACTOS.Email
        #         myEmail..Recipient[3]   = INIRead("MAIL", "Recipient2", "Falta definir receptor 2",IniLineaComando) // DIRECCIONES.Email
        #         myEmail..Recipient[4]   = INIRead("MAIL", "Recipient3", "Falta definir receptor3",IniLineaComando)
        #         myEmail..Recipient[5]   = INIRead("MAIL", "Recipient4", "Falta definir receptor3",IniLineaComando)

        #     ELSE
        #         myEmail..Recipient[2]   = INIRead("MAIL", "Recipient2", "Falta definir receptor 2",IniLineaComando) // DIRECCIONES.Email
        #         myEmail..Recipient[3]   = INIRead("MAIL", "Recipient3", "Falta definir receptor3",IniLineaComando)
        #         myEmail..Recipient[4]   = INIRead("MAIL", "Recipient4", "Falta definir receptor3",IniLineaComando)

        #     END

        # ELSE
            myEmail..Recipient[1]   = INIRead("MAIL", "Recipient2", "Falta definir receptor2",IniLineaComando)
            myEmail..Recipient[2]   = INIRead("MAIL", "Recipient3", "Falta definir receptor 3",IniLineaComando) // DIRECCIONES.Email
            myEmail..Recipient[3]   = INIRead("MAIL", "Recipient4", "Falta definir receptor 3",IniLineaComando)
            sMailDestino = ''

        # END


        // Send the message
        EmailSendMessage(MySession, myEmail)


// genera la solicitud

        IF TABLE_ORDENCOMPRA.COL_ImpresionFechahora < gdfch20000101 THEN

            TABLE_ORDENCOMPRA.COL_ImpresionFechahora = DateTimeUTCToLocal(HInfoServer("CONN_BASEDEDATOS",hInfoDate))
            EGR_SOLICITUDEGRESO.ImpresoOCompraFechaHora = DateTimeUTCToLocal(HInfoServer("CONN_BASEDEDATOS",hInfoDate))
            EGR_SOLICITUDEGRESO.ImpresoOCompraOperador  = GUSERCOMPLETENAME
            EGR_SOLICITUDEGRESO.TipoRegistro        = "CABECERA"
            IF NOT HModify(EGR_SOLICITUDEGRESO) THEN
                Info("ERROR regrabación SOLICITUDEGRESO " + HError())
                RETURN
            END

            lsProcedureName = "WIN_Form_EGR_SolicitudEgreso"  // debe ser con este nombre para iniciar la nueva secuencia
            gsBloqueoEtapa  = "IMPRIMIR"
            Inicio_Control_Proceso("EGRESO",lsProcedureName,gsBloqueoEtapa,NumToString(EGR_SOLICITUDEGRESO.SolicitudNro,"5d"),"CERRAR")

            gsBloqueoEtapa  = "RECIBIDO CONFORME"
            Inicio_Control_Proceso("EGRESO",lsProcedureName,gsBloqueoEtapa,NumToString(EGR_SOLICITUDEGRESO.SolicitudNro,"5d"),"ABRIR")
        END
    END

    TableDisplay(TABLE_ORDENCOMPRA,taInit)
    TableRestorePositionAndSelection(TABLE_ORDENCOMPRA, SaveTable)

ELSE
    Info("LA ORDEN NO ESTA APROBADA...")
END