MAIN
 DEFINE usuarios,clave,nombre,nombre_v,uscrea,usmod   VARCHAR(50),
   impresor,ptipo SMALLINT,
   pcotizacion,secCliente,psecvend INT,
   porc_negocio DEC(8,2),
   pneto,subtotal,descuento,itbis DEC(12,2),
   pfecha DATE,
   fechacrea,fechamod DATETIME YEAR TO MINUTE
 
 DEFER INTERRUPT
  
 CALL ARG_VAL(1) RETURNING usuarios
 CALL ARG_VAL(2) RETURNING clave
 CALL ARG_VAL(4) RETURNING impresor
 CONNECT to "marmotech" AS "IFMX"
 CONNECT TO "smarmotech" AS "MSSQL" USER usuarios USING clave

  OPEN WINDOW vefmmt038 WITH FORM "vefmmt038"
    INPUT BY NAME  pcotizacion,porc_negocio WITHOUT DEFAULTS
      AFTER FIELD pcotizacion
        IF pcotizacion IS NOT NULL THEN
           SET CONNECTION "MSSQL"
           SELECT a.tipo_cliente,a.sec_cliente,a.nombre_cliente,
                  a.total_bruto,a.monto_desc,a.monto_itbi,a.total_neto,
                  a.sec_vend,CONVERT(CHAR(10), a.fecha,103),b.nom1_emp||' '||b.apell1_emp
           INTO ptipo,seccliente,nombre,subtotal,descuento,itbis,pneto,
                psecvend,pfecha,nombre_v
           FROM vetb00050 a,adtb00003 b
           WHERE a.cotizacion_no =pcotizacion AND
                 a.sec_vend = b.num_emp

           IF STATUS = NOTFOUND THEN
              CALL fgl_winmessage("ERROR","COTIZACION NO EXISTE","INFO")
              NEXT FIELD pcotizacion 
           END IF

            DISPLAY BY NAME ptipo,seccliente,nombre,subtotal,descuento,itbis,pneto,
                            psecvend,pfecha,nombre_v
            LET porc_negocio = 0
            LET uscrea = NULL
            LET usmod = NULL
            LET fechacrea = NULL
            LET fechamod = NULL
           SELECT a.porc_negocio,a.us_crea,a.fecha_crea,a.us_mod,a.fecha_mod
           INTO  porc_negocio,uscrea,fechacrea,usmod,fechamod
           FROM vetb00086 a
           WHERE a.cotizacion_no = pcotizacion

           DISPLAY BY NAME porc_negocio,uscrea,fechacrea,usmod,fechamod
           END IF
           AFTER INPUT
            IF INT_FLAG THEN
               CALL fgl_winmessage("ERROR","OPERACION ABORTADA","INFO")
               
               EXIT INPUT
               ELSE
                SELECT a.cotizacion_no FROM vetb00086 a WHERE a.cotizacion_no = pcotizacion
                IF STATUS = NOTFOUND THEN
                   SET CONNECTION "MSSQL"
                   INSERT INTO vetb00086 (cotizacion_no,porc_negocio,us_crea,fecha_crea)
                               VALUES (pcotizacion,porc_negocio,usuarios,getdate())
                               
                   SET CONNECTION "IFMX"
                   INSERT INTO vetb00086 (cotizacion_no,porc_negocio,us_crea,fecha_crea)
                               VALUES (pcotizacion,porc_negocio,usuarios,getdate())
                  
                               
                ELSE
                  SET CONNECTION "MSSQL"
                  UPDATE vetb00086 SET vetb00086.porc_negocio =porc_negocio,
                                                 us_mod = usuarios,
                                                 fecha_mod = GETDATE()
                                        WHERE cotizacion_no = pcotizacion
                  SET CONNECTION "IFMX"
                  UPDATE vetb00086 SET vetb00086.porc_negocio =porc_negocio,
                                                 us_mod = usuarios,
                                                 fecha_mod = getdate()
                                        WHERE cotizacion_no = pcotizacion         

                END IF   
                CALL msg(13)
                NEXT FIELD pcotizacion
            END IF
            END INPUT
            LET INT_FLAG = FALSE   
        
  CLOSE WINDOW vefmmt038
 
 
END MAIN